程序.txt

在vb中用字符串的形式来处理串口协议

Public Function D_To_B(ByVal Dec As Long) As String
    Do
        D_To_B = Dec Mod 2 & D_To_B
        Dec = Dec \ 2
    Loop While Dec
End Function
Private Sub HScroll1_Scroll()
Text1.Text = Val(HScroll1.Value)
v = Val(HScroll1.Value)

'协议生成

Dim out(0 To 4) As Byte
Dim t As String
b4 = &H0
b3 = &HA
b2 = 0
t = Format$(D_To_B(Abs(v)), "0000000000000")
 If v > 0 Then
    bb2 = "1" + "0" + Left$(t, 6)
        For j = 1 To 8
            b2 = b2 + Val(Mid(bb2, j, 1)) * 2 ^ (8 - j)
        Next j
    Else
    bb2 = "1" + "1" + Left$(t, 6)
        For j = 1 To 8
            b2 = b2 + Val(Mid(bb2, j, 1)) * 2 ^ (8 - j)
        Next j
 End If
bb1 = "1" + Right$(t, 7)
 For i = 1 To 8
    b1 = b1 + Val(Mid(bb1, i, 1)) * (2 ^ (8 - i))
 Next i
s = b4 + b3 + b2 + b1
b0 = &H80 + (s Mod 128)

out(0) = b4
out(1) = b3
out(2) = b2
out(3) = b1
out(4) = b0

End Sub

Private Sub Mscomm1_Oncomm()
'...通讯事件发生

Select Case MSComm1.CommEvent
Case comEvReceive '...有接受事件发生
'MsgBox ("Do you want to continue ?")
MSComm1.Output = out
MSComm1.InBufferCount = 0 '...清空输入寄存器
End Select
End Sub

Private Sub Form_Load()
'...初始化
'MSComm1.CommPort = 1 '...使用Com1口
'MSComm1.Settings = "38400,n,8,1" '...设置通讯参数
'MSComm1.PortOpen = True '...打开串口
End Sub