用VB中的MSCOMM编个程序读取串口数据

来源：百度知道 编辑：UC知道 时间：2024/06/11 05:55:02
大虾们，小弟要做个毕业设计，其中有一步是需要编写个程序来读取串口的数据，不需要很难的，只要能从串口把数据读出来就可以，大哥们帮帮我，最好能把每步的意思写出来．小弟谢过了．
我这是为毕业设计所用 本人没什么基础 所以看不懂 能不能给出每一行代码的意思呢?谢谢

Option Explicit'强制变量声明
Private Sub Command1_Click() '发送
Dim number As Integer'定义整型
Dim outbyte(0) As Byte '定义字节数组
number = Val(Text1.Text)'转为数值型
outbyte(0) = CByte(number) '转化为字节型
MSComm1.OutBufferCount = 0 '清空发送缓冲区
MSComm1.Output = outbyte '发送

End Sub'结束

Private Sub Command2_Click()'按钮单击事件
MSComm1.PortOpen = False'关闭串口
Unload Form1'卸载form1
End Sub

Private Sub Form_Load()'窗体载入事件
MSComm1.CommPort = 1 '设置串口为com1
MSComm1.Settings = "9600,n,8,1" '通讯参数 波特率 奇偶校验 数据位 停止位
MSComm1.InputMode = comInputModeBinary '二进制接收
MSComm1.PortOpen = True '打开串口
MSComm1.InBufferCount = 0 '清空接收缓冲区
MSComm1.RThreshold = 1 '缓冲区中接收到一个字符，就产生一次OnComm事件
End Sub

Private Sub MSComm1_OnComm() '有数据传送时触发
Dim indata As Variant'定义变量
Dim arr(0) As Byte'定义字节数组
Select Case MSComm1.CommE