毕业设计:用RS-232连接单片机与PC机,用vb将单片机中采集的数据(数据是一个一个采集,有一个数据就按一下“测量”将数据传到PC机上)传到PC机上并用VB编写代码在PC机上显示出来
代码如下:Private Sub Command2_Click()
Dim w As Integer
With MSComm1
.CommPort = 1 '使用COM1
.Setting = "38400,N,8,1" '设置通信口参数
.InBufferSize = 40
'设置MSComm1接收缓冲区为40字节
.OutBufferSize = 4
'设置MSComm1发送缓冲区为2字节
.InputMode = comInputModeBinary
'设置接收数据模式为二进制形式
.InputLen = 1
'设置Input 一次从接收缓冲读取字节数为1
.SThreshold = 1
'设置Output 一次从发送缓冲读取字节数为1
.InBufferCount = 0 '清除接收缓冲区
.OutBufferCount = 0 '清除发送缓冲区
MaxW = -99
'最大值赋初值
MinW = 99 '最小值赋初值
w = 0
'数据个数计数器清零
.RThreshold = 1
'设置接收一个字节产生OnComm事件
If .PortOpen = False Then
'判断通信口是否打开
.PortOpen = True '打开通信口
If Err Then '错误处理
MsgBox "串口通信无效"
Exit Sub
End If
End If
End With
End Sub
Private Sub MSComm1_OnComm()
Dim av As Variant
Dim ab(5) As single
Select Case MSComm1.CommEvent '判断MSComm1通信事件
Case comEvReceive '收到Rthreshold个字节产生的接收事件
av = MSComm1.Input '读取一个接收字节
ab(1) = av(0) '转换保存到字节数据类型数组
If ab(1) = &HF0 Then '判断是否为数据开始标志
MSComm1.RThreshold = 0 '关闭OnComm事件接收
Do
DoEvents
Loop Until MSComm1.InBufferCount >= 4 '循环等待MSComm1接收缓冲区>=4字节
av = MSComm1.Input '读取第二个数据字节(BCD码高位字节)
ab(2) = av(0) '转换保存到字节数据类型数组
av = MSComm1.Input '读取第三个数据字节(BCD码低位字节)
ab(3) = av(0) '转换保存到字节数据类型数组
av = MSComm1.Input '读取第四个数据字节(符号位字节)
ab(4) = av(0) '转换保存到字节数据类型数组
av = MSComm1.Input '读取第四个数据字节(符号位字节)
ab(5) = av(0)
If ab(5) = &HF0 Then
'接收到三个字节:ab(2)、ab(3)、ab(4)
End If
End If
MSComm1.RThreshold = 1
MSComm1.InBufferCount = 0 '清除接收缓冲区
End Select
End Sub
运行是发现 编译错误:未找到方法或数据类型
这是什么原因! 我程序错在什么地方了!
怎样改啊 !