| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 659 人关注过本帖
标题:求助!请大家帮个忙 告诉我是什么原因!
只看楼主 加入收藏
caojie
Rank: 1
等 级:新手上路
帖 子:3
专家分:0
注 册:2007-5-23
收藏
 问题点数:0 回复次数:1 
求助!请大家帮个忙 告诉我是什么原因!

毕业设计:用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

运行是发现 编译错误:未找到方法或数据类型
这是什么原因! 我程序错在什么地方了!
怎样改啊 !

搜索更多相关主题的帖子: 单片机 PC机 数据 缓冲区 
2007-05-24 16:39
黑暗公爵
Rank: 1
等 级:新手上路
威 望:1
帖 子:46
专家分:0
注 册:2007-5-31
收藏
得分:0 
是不是有个控件名改了,但是在代码里没改?

头发遮住眼睛,身心坠入冥冥,世间万千烦扰,我自成竹在胸。
2007-06-08 11:25
快速回复:求助!请大家帮个忙 告诉我是什么原因!
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.022803 second(s), 7 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved