bits.bas

VB控制并口

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