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

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.CommEvent ''CommEvent属性：返回最近的通讯事件或错误。通过对它具体属性值的查询，我们就可以获得通讯事件和通 讯错误的完整信息。当其值是comEvReceive时表示接收到数据。
Case comEvReceive '有接收事件
indata = MSComm1.Input '接收到的数据存放到indata里
arr(0) = AscB(indata) '返回indata的值
Text2.Text = arr(0)'在text2中显示数据
MSComm1.InBufferCount = 0' 清空接收缓冲区
End Select
End Sub
在窗体中添加
text1显示发送数据,
text2显示接收数据,
command1发送按钮,
mscomm1通讯控件,
该看懂了吧，再看不懂我没办法了，