vb串口开发.docVIP

CSEH: ErrResumeNext Option Explicit Private Declare Sub Sleep Lib kernel32 (ByVal dwMilliseconds As Long) Private Declare Function GetPrivateProfileString _ Lib kernel32 _ Alias GetPrivateProfileStringA (ByVal lpApplicationName As String, _ ByVal lpKeyName As Any, _ ByVal lpDefault As String, _ ByVal lpReturnedString As String, _ ByVal nSize As Long, _ ByVal lpFileName As String) As Long Private Type DeviceInfo Address As Byte Port As Byte ControlType As Byte 0 fen do0,1 he do0,2 fen do1,3 he do1 ControlSNum As Byte ErrSendNum As Byte End Type Private mPort As Integer Private mHost As Boolean Private mComAddress As Integer Private DelayTime As Integer Private MAX_ERR_NUM As Integer Private MAX_ERR_NUM_CTRL As Integer Private mDevice(1 To 4) As DeviceInfo Private blIsSending As Boolean Private iSendCom As Integer Private blQuit As Boolean Private iControl As Integer Private iCType As Integer Private iCOMHostSRNum As Integer Private blAsHost As Boolean Private iInit As Integer 将十进制转化为二进制 Private Function DEC_to_BIN(ByVal Dec As Long) As String Dim a As String a = Do While Dec 0 a = Dec Mod 2 a Dec = Dec \ 2 Loop DEC_to_BIN = Format(a, End Function 将二进制转化为十进制 Private Function BIN_to_DEC(ByVal Bin As String) As Long Dim i As Long For i = 1 To Len(Bin) BIN_to_DEC = BIN_to_DEC * 2 + Val(Mid(Bin, i, 1)) Next i End Function CRC16 Private Function CRC16(Data() As Byte) As Byte() EhHeader On Error Resume Next /EhHeader Dim CRC16Hi As Byte Dim CRC16Lo As Byte Dim ubData As Integer Dim i As Integer Dim iIndex As Long ubData = UBound(Data) CRC16Hi = HFF