www.pudn.com > 5101.zip > IO.BAS

Attribute VB_Name = "Io" 
Declare Sub out_byte Lib "vbdll.dll" (ByVal port%, ByVal da%) 
Declare Sub out_word Lib "vbdll.dll" (ByVal port%, ByVal da%) 
Declare Function in_byte Lib "vbdll.dll" (ByVal port%) As Integer 
Declare Function in_word Lib "vbdll.dll" (ByVal port%) As Integer 
 
 
Global freq As Integer 
Global FileNum As Integer 
Global Sele_Ch(16) As Integer 
Global chs(16) As Integer 
Global ChNum As Integer 
Global DatNum As Integer 
Global DatCol As Integer 
Global StartMode As Integer 
 
 
Function delay(dalay_time As Integer) 
    For nn = 0 To dalay_time 
    Next nn 
End Function