module1.bas

vb数据采集

Attribute VB_Name = "Module1"
Declare Function GetTickCount Lib "kernel32" () As Long


''''''''''''''''''''''''''''''''''''''''''''''''''
'针对控制码，先作定义
''''''''''''''''''''''''''''''''''''''''''''''''
Global STX$, ETX$, ENQ$, ACK$, EOT$, NAK$

''''''''''''''''''''''''''''''''''''''''''''''''''
'计算和，并传回
'CheckSum的计算
''''''''''''''''''''''''''''''''''''''''''''''''
Function CheckSum(Buf As String) As String
Dim i%, OrgBuf$
Dim CKValue%
OrgBuf = Buf
CKValue = 0
For i = 2 To Len(Buf)
CKValue = CKValue + Asc(Mid(Buf, i, 1)) And &H7F
Next i
CheckSum = Buf + Chr(CKValue)
End Function

''''''''''''''''''''''''''''''''''''''''''''''''''
'等待函式
'输入长整数的值，即可延迟相对应的时间
''''''''''''''''''''''''''''''''''''''''''''''''
Sub TimeDelay(DT As Long)
Dim tt As Long

tt = GetTickCount()
Do
  DoEvents
Loop Until GetTickCount - tt >= DT


End Sub