| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 656 人关注过本帖
标题:vb中如何用mscomm控件读取RemoDAQ-8036的数据?
只看楼主 加入收藏
人王
Rank: 2
等 级:论坛游民
帖 子:20
专家分:22
注 册:2011-7-2
结帖率:25%
收藏
 问题点数:0 回复次数:3 
vb中如何用mscomm控件读取RemoDAQ-8036的数据?
正在用vb做一个温度控制系统,但不知道vb中如何用mscomm控件读取RemoDAQ-8036的数据,跪求高手帮助,在线等待
搜索更多相关主题的帖子: 在线 
2011-07-14 14:43
msgj
Rank: 8Rank: 8
等 级:蝙蝠侠
威 望:4
帖 子:190
专家分:914
注 册:2009-10-3
收藏
得分:0 
专用设备的操作代码是很难在论坛中等到的,如果你有其它同类型设备的操作代码,就参考RemoDAQ-8031/8031D/8033/8033D/8036/8036A 用户手册,进行研究吧!
给你一段电子磅数据代码做参考吧!
If MSComm1.InBufferCount Then
 Do While MSComm1.InBufferCount < 30 '等待接收全部数据
DoEvents
Loop
   Buffer = MSComm1.Input
 Else
   Buffer = ""
 End If
 Text2.Text = StrConv(Buffer, vbUnicode)
mychar = Chr(2)  ' 获取需要查找的字符串。
Where = InStr(Text1.Text, mychar)  ' 在文本中查找字符串chr。
 If Where > 0 Then   ' 如果找到,
    Text2 = Mid(Text1.Text, Where + 1, 7)
    Text2.SelStart = 1  ' 设置选定的起始位置并file
    Text2.SelLength = 7  ' 设置选定的长度。
    Text1.Text = Text1.SelText
    weight = Text2.SelText
    'MsgBox ""
 Else
    Text1.Text = " 系统提示: 没有接收到格式数据!"   ' 给出通知cstr
    Text1.Refresh
    'Exit Sub
 End If
收到的鲜花
  • 人王2011-08-02 09:06 送鲜花  3朵   附言:我很赞同
2011-07-31 16:01
W11400661
Rank: 8Rank: 8
来 自:达拉达斯
等 级:蝙蝠侠
威 望:2
帖 子:163
专家分:834
注 册:2008-10-12
收藏
得分:0 
1.看说明书找到通讯协议
2.调整波特率、数据位、停止位、校验、握手协议,和说明书要求的一样
3.如果数据处理量不大,采用事件驱动方式,如果数据处理量大,采用轮询方式
2011-07-31 16:40
人王
Rank: 2
等 级:论坛游民
帖 子:20
专家分:22
注 册:2011-7-2
收藏
得分:0 
已经解决了,谢谢各位!
2011-08-02 09:07
快速回复:vb中如何用mscomm控件读取RemoDAQ-8036的数据?
数据加载中...
 
   



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

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