www.pudn.com > LPT_I2C.rar > bits.bas

Attribute VB_Name = "BITS" 
' 
' ---------------------------------------------------------------- 
' File - bits.bas 
' Copyright (c) 2003 - 2005 Jungo Ltd.  http://www.jungo.com  
' ---------------------------------------------------------------- 
' 
 
    Global Const BIT0 = &H1 
    Global Const BIT1 = &H2 
    Global Const BIT2 = &H4 
    Global Const BIT3 = &H8 
    Global Const BIT4 = &H10 
    Global Const BIT5 = &H20 
    Global Const BIT6 = &H40 
    Global Const BIT7 = &H80 
    Global Const BIT8 = &H100 
    Global Const BIT9 = &H200 
    Global Const BIT10 = &H400 
    Global Const BIT11 = &H800 
    Global Const BIT12 = &H1000 
    Global Const BIT13 = &H2000 
    Global Const BIT14 = &H4000 
    Global Const BIT15 = &H8000& 
    Global Const BIT16 = &H10000 
    Global Const BIT17 = &H20000 
    Global Const BIT18 = &H40000 
    Global Const BIT19 = &H80000 
    Global Const BIT20 = &H100000 
    Global Const BIT21 = &H200000 
    Global Const BIT22 = &H400000 
    Global Const BIT23 = &H800000 
    Global Const BIT24 = &H1000000 
    Global Const BIT25 = &H2000000 
    Global Const BIT26 = &H4000000 
    Global Const BIT27 = &H8000000 
    Global Const BIT28 = &H10000000 
    Global Const BIT29 = &H20000000 
    Global Const BIT30 = &H40000000 
    Global Const BIT31 = &H80000000