用VB调试串口通讯

End Sub

（设置接收数据模式采用二进制形式，即 InputMode=comInputModeBinary，但用Input属性读取数据时，不能直接赋值给 Byte 类型变量，只能通过先赋值给一个 Variant 类型变量，返回一个二进制数据的数组，再转换保存到Byte类型数变量中。）

Private Sub Text1_Change()

Text3.Text = CText(Text1.Text) - CText(Text2.Text)

End Sub

****************************************************************************

Private Function CText(ByVal str As String) As Currency

If str <> "" Then

CText = CCur(Val(str))

Else

CText = 0

End If

End Function

（仪表每秒发送50