module1.bas

工控硬件读写ISA多功能卡823的VB例子程序

Attribute VB_Name = "Module1"
Global Const ATBiUni = "   0   0   0   0   1   1   1   1   0   0   0   0   0   0   0   0   1   1   1   1   0   0   0   0"
Global Const ATGain = "   1   2   4   8   1   2   4   8 0.5   0   0   0   1  10 1001000   1  10 1001000 0.5   5  50 500"
Global Const ATFullVolt = "   5   5   5   5  10  10  10  10   5   0   0   0   5   5   5   5  10  10  10  10   5   5   5   5"
Global Const WAIT_OBJECT_0 = 0

Declare Function CreateEvent Lib "kernel32" Alias "CreateEventA" (lpEventAttributes As Long, ByVal bManualReset As Long, ByVal bInitialState As Long, ByVal lpName As String) As Long
Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long
Declare Function WaitForSingleObject Lib "kernel32" (ByVal hHandle As Long, ByVal dwMilliseconds As Long) As Long