• 全部

高手帮忙！关于MSCOMM接收问题！急啊！

VIV777 2007-04-11 01:46:06
我用VB写了一个关于MODBUS的协议
可是在接收时产生了问题
我用的是MSComm1_OnComm事件接受的，代码如下：
Dim nowstring As Variant
Dim i As Integer
Select Case MSComm1.CommEvent
Case comEvReceive '接收事件
'接收缓冲区收到Rthreshold个字符时触发
If MSComm1.InBufferCount Then
nowstring = MSComm1.Input
For i = LBound(nowstring) To UBound(nowstring)
InString = InString & CStr(Hex(Val(nowstring(i)))) & " "
Next i
nowstring = ""
end if
比如我发送的数据是 01 04 00 00 00 10 F1 C6
接收的数据应该为01 04 20 04 B2 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 B1 1B
可是有时这个数据接收过来是正确的，有时只接受到01 04 20 04 B2 00 00 00
怎样才能正确接收啊？
我设置的MSCOMM的属性为
MSComm1.Settings = "19200,8,N,1"
MSComm1.CommPort =1
MSComm1.SThreshold = 1
MSComm1.RThreshold = 1
MSComm1.InputLen = 0
MSComm1.PortOpen=true
MSComm1.InputMode = comInputModeBinary

请各位大侠帮忙啊！在下不胜感激！
...全文
1462 点赞 收藏 20
写回复
20 条回复
切换为时间正序
当前发帖距今超过3年，不再开放新的回复
发表回复
wumingyuan001001 2007-04-16
在VB6.0中使用datagrid
怎么样双击表头进行双向排序
在网上找了一些例子不使用
不知道怎么写
有那位兄弟有这方面的事例
不是在（。NET）
 回复 赞
newnazi 2007-04-14
使用TIMER控件效率是很底的.
1 检查你的初始化 是否正确, 波特率设置的不要太高建议使用9600,可能232的晶震不能提供这么高的频率
2 MSComm1.RThreshold 值根据需要设置可以设置的大一些.
3 用"串口调试助手"调试
4 如果你是要与单片机(C51 128 )通信应该使用 双字节的16进制编码.
 回复 赞
Gutta 2007-04-12
串口通讯一般都是单双工的，所以发送以后返回的数据具体是什么内容应该是明确的．

个人推荐使用timer，一般设置为１００ms就可以了，因为在９６００bps速率下，１００ms的间隔可以等待大概１００bytes的数据，而一般通讯而言，对于单独一次的通讯应该不可能返回超过１００bytes的数据吧？

在发送的时候设置一个fgSEND，以便在下一个timer事件中直接进行判断这次返回的数据是什么数据，还有使用了timer的话，一定要设置RThreshold = 0，这样能保证把接受缓冲区的数据全部收到程序的Buffer() as Byte字节数组中进行处理．

还有，用ＶＢ写一般通讯程序，如果使用ＯＮＣＯＭＭ事件来进行不断通讯的处理的话，程序的其他操作就会比较卡，所以可以考虑用后台ActiveX EXE组件来实现，在前台只要处理一下返回的数据就可以了，然后其他前台的操作也不受通讯的影响，比较不错．

我们公司当前的监控管理软件系统就是这么做的．

个人观点，请大家多多批评．
 回复 赞
VIV777 2007-04-12
呵呵，谢谢啊，问题已经解决！
现在就结贴！
 回复 赞
littlestone08 2007-04-12
呵,感觉楼上的方法虽然能解决问题,却都是治标不治本的方法.

这个问题根本就不是一个BUG,而是使用方法的问题.
如果用TIME等去查询,就失去了使用事件的意义,而且如果上位机工作压力过大的话,很有可以失掉数据,用TIME延时的时间也不好控制,太大了不好,太小了还是会丢数据.

实际的根源在于:当你响应ON_COMM时,这时候,很有可能控件已经再接收到了新的数据,此时的数据数目已经不再是你刚进入事件处理程序时取得的数据长度了,所以,删除数据时的依据不能以刚刚进入程序时取得的数据长度为准.就说这么多了,希望对大家有点帮助.
 回复 赞
yl01152005 2007-04-12
这问题我碰到过，是mscomm控件本身的问题，尤其在不间断发出请求时尤其明显，必须加延迟或者加大传输率，这是我的解决方法
 回复 赞
zdingyun 2007-04-11
所以建议使用TIMER控件来控制轮询数据。我2007-04-11 15:20:53 及2007-04-11 15:58:17的答贴代码可供你参考,祝好运.使用TIMER控件来控制轮询数据实质就是延迟空出间隔来处理MSComm1_OnComm事件的接收.
 回复 赞
VIV777 2007-04-11
是单工的，我都测试了一下
比如01 04 00 00 00 02 71 CB
01 04 00 00 00 06 70 08
01 04 00 00 00 0A 70 0D
01 04 00 00 00 0E 71 CE
01 04 00 01 00 02 20 0B
01 04 00 01 00 06 21 C8
01 04 00 01 00 0A 21 CD
01 04 00 01 00 0E 20 0E
01 04 00 02 00 02 D0 0B
01 04 00 02 00 06 D1 C8
01 04 00 02 00 0A D1 CD
01 04 00 02 00 0E D0 0E
。。。。。。。
01 04 00 0D 00 02 E0 08
01 04 00 0E 00 02 10 08
这些接收时必须要设短点才能接收到正确的结果，否则错误
 回复 赞
zdingyun 2007-04-11
查下你下位机是用RS232还是RS485。RS232是双工，RS485是单工。
 回复 赞
VIV777 2007-04-11
发送数据 01 04 00 00 00 0A 70 0D
应该接收到01 04 14 04 B2 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 7B 67

可是为什么不设断点的时候就接收错误，只有设了断点以后逐步调试才能接收到正确的数据，这是为什么？
 回复 赞
guyehanxinlei 2007-04-11
帮顶
 回复 赞
zdingyun 2007-04-11
那你应使用TIMER控件来控制轮询数据。
Private Sub Timer1_Timer()
Dim i As Integer
Static j As Byte
Dim bytData(1) As Byte
j = j + 1
For i = 0 To 1
bytData(i) = &H0 + j
Next
If j >= 4 Then
j = j - 4
End If
Call SendData(bytData) '发送
End Sub
在窗体初始化设置
Timer1.Interval = 100 '数字可调，最小55，TIMER控件每秒系统提供18次变化
 回复 赞
VIV777 2007-04-11
谢谢了
 回复 赞
programart_life 2007-04-11
需要延时是因为第一端口通讯需要时间，第二下位机响应更需要时间。如果是非双工模式，这个时间更明显。
 回复 赞
zdingyun 2007-04-11
将MSComm1.Settings = "19200,n,8,1"中19200改9600试试。
发送命令时间间隔调大些。
RS232串口连接距离不宜过长，可能有干扰。在接收代码中增加判断代码。
建议返回数据固定字节长，可补足字节长。不回接收出错，字节长尽可能为8的倍数。
 回复 赞
VIV777 2007-04-11
to zdingyun()
我接受的数据不是固定的，这得看我发送的数据是多少
比如我发送的数据是
01 04 00 00 00 10 f1 c6
那么我的数据长度就是10，即16位
而此时我接受的数据就是16*2=32位
另外的数据是地址、功能和校验码
如果我发送的数据是，这里就是37位
01 04 00 00 00 07 B1 C8
那么数据长度就是07 ，即14位
接收的数据就为28位
如果再加上其他的数据总共是33位

发送和接收的数据都是十六进制
现在这个问题我已经解决了
加入了延时，可是我还是不明白为什么加入延时才可以呢？
 回复 赞
zdingyun 2007-04-11
Private Sub Form_Load()
MSComm1.CommPort = 1 'COM端口
MSComm1.Settings = "19200,n,8,1"
MSComm1.InputMode = comInputModeBinary '采用二进制传输
MSComm1.InBufferCount = 0 '清空接受缓冲区
MSComm1.OutBufferCount = 0 '清空传输缓冲区
'MSComm1.SThreshold = 1 '如果传输缓冲区完全空时产生MSComm事件
MSComm1.RThreshold = 1 '产生MSComm事件
MSComm1.PortOpen = True
Text3 = "" '打开端口
End Sub

Private Sub MSComm1_OnComm()
On Error Resume Next
Dim BytReceived() As Byte
Dim strBuff As String
Dim strData As String
Dim i As Integer
Dim x As Integer
Select Case MSComm1.CommEvent
Case 2
MSComm1.InputLen = 0
strBuff = MSComm1.Input
BytReceived() = strBuff
For i = 0 To UBound(BytReceived)
If Len(Hex(BytReceived(i))) = 1 Then
strData = strData & "0" & Hex(BytReceived(i))
Else
strData = strData & Hex(BytReceived(i))
End If
Next
Text3 = Text3 + strData
If Left(strData, 2) = "00" And Len(strData) = 8 Then '接收4字节
Text1(0).Text = Left(strData, 8)
Call DataClear
ElseIf Left(strData, 2) = "01" And Len(strData) = 74 Then '接收37字节
Text1(1).Text = Left(strData, 74)
Call DataClear
End If
End Select
End Sub

Public Sub DataClear()
MSComm1.OutBufferCount = 0 '清空发送缓冲区
MSComm1.InBufferCount = 0
Text3 = ""
End Sub
 回复 赞
VIV777 2007-04-11
to zdingyun()
接收数据的长度是不固定的
 回复 赞
CathySun118 2007-04-11
Setting the SThreshold property to 0 (the default) disables the OnComm event for data transmission events. Setting the SThreshold property to 1 causes the Comm control to generate the OnComm event when the transmit buffer is completely empty.

If the number of characters in the transmit buffer is less than value, the CommEvent property is set to comEvSend, and the OnComm event is generated. The comEvSend event is fired only once, when the number of characters crosses the SThreshold property. For example, if SThreshold equals five, the comEvSend event occurs only when the number of characters drops from five to four in the output queue. If there are never more than SThreshold characters in the output queue, the event is never fired.
 回复 赞
zdingyun 2007-04-11
设置MSComm1.RThreshold = 37
 回复 赞
相关推荐
请C++高手帮忙：关于MSCOMM控件接受数据保存的问题 请高手指点！！ ×××××××××××××××××××××××××× void CMy00Dlg::OnOnCommMscomm1() { VARIANT variant_inp; LONG len,k; switch(m_mscom.GetCommEvent())/*判断是否有接收数据*/ { case 2: k...
高手们朝这里看啊！！！BCB数据转换出问题了望帮帮忙！！！！ 具体程序如下：希望高手帮忙修改修改！ void __fastcall TForm1::MSComm1Comm(TObject *Sender) { unsigned int len,k; char a_cBuf[100]; OleVariant s; //声明一个用于接收数据的OleVariant变量。 AnsiString str;...
关于MSComm接收到数据进行处理问题 现在做一个项目关于用MSComm接收数据然后进行处理，现在遇到一个问题，这个项目里接收数据量比较大而且比较频繁，所以想到一方法：开启一个线程专门用来接收到的数据，把这些数据储存到一个列表（list）里，然后再...
vb mscomm控件output发送数据出错的问题！急急急！！！！ 问题描述如下： 小弟做的是一个基于FPGA的LED的点阵显示系统。FPGA那边做好了，一直等待通过串口发送数据过去。上位机用VB写的通讯程序... 请高手帮忙解决一下！谢谢！！！！！真的急用，马上要论文答辩了，谢谢xdjm！
mscomm控件接收数据多行显示内存增大的问题！ mscomm控件接收数据多行显示，在显示过程中内存增大，代码如下; if(m_ctrlComm.GetCommEvent()==2) //事件值为2表示接收缓冲区内有字符 ... 就是执行了这句后内存一直增大，不知道什么原因，请高手帮忙分析下怎么解决！
请高手帮忙，关于MSCOMM控件接受二进制数据的问题（附原码）？ 我的代码如下： '设定 InputMode 读取二进制数据 MSComm1.InputMode = comInputModeBinary '等待直到输入缓冲区有字节 '按16进制接收数据 Do Until MSComm1.InBufferCount 往缓冲区存二进制数据 Buffer = MSComm1....
MFC串口编程中遇到的问题，希望有高手帮忙解决！ WeighDlg m_WeighDlg; if(m_WeighDlg.m_mscomm1.get_PortOpen()) { ...//发送 } 大概的的代码就是这样的，调试过程中也没有出现错误，可通过串口工具就是不能接收数据，我想问一下这是什么原因。这个问题又如何解决？
再次求救，急！关于串口通讯 MSCOMM 控件的使用的几个问题！ 它硬件就会把数据放入缓冲区，格式当然也按上面的，只要按照上面的格式把数据接收过来就行，再把数据分离出来放入数据库 请教高手帮忙啊，真的很急 啊，能不能帮我写个测试程序啊？？？ 我的联系方式： MSN：efengxu...
关于msgbox 的问题，请各位高手帮忙！ 当msgbox弹出时，其他的窗口全部失去焦点，而且连mscomm也不能从串口接收到信息，请问msgbox能否只显示在最上层，而不使其他窗口失去焦点，不影响串口接收信息。
问一个关于inputbox的问题，请高手帮忙！ 当intputbox弹出时，其他的窗口全部失去焦点，而且连mscomm也不能从串口接收到信息，请问inputbox能否只显示在最上层，而不使其他窗口失去焦点，不影响串口接收信息。
关于mscomm的问题,哪位高手帮忙看看这段代码 // 指定接收缓冲区大小 this.axMSComm1.InBufferCount = 0; // 清空接收缓冲区 this.axMSComm1.InputMode =0; // 设置数据获取方式 this.axMSComm1.InputLen = 0; // 设置读取方式 this.axMSComm1.RThreshold= 1; ...
MSComm控件接收到数后不能赋值给字节数组变量，急啊！！！ 1：Private Sub MSComm1_OnComm() 2： Dim Receive() As Byte 3： MSComm1.InputLen = 0 4： MSComm1.InputMode = comInputModeBinary 5： Receive = MSComm1.Input 6：End Sub 窗体...希望高手能帮忙给个详解，谢谢！
天呀，都4天了，妈的出鬼了！！这问题也忒奇怪了吧！强烈要求高手帮忙！！ CommSMS.Input '这句接收不到字符 MsgBox("Command_Renamed1:" + Command_Renamed & vbCrLf + m_strCommBuffer)’弹出Command_Renamed1： '''处理代码 '''处理代码 Loop While VB.Timer() 另小弟做了大量的实验，...
mscomm问题，为什么接收不到comEvReceive事件,只能接受comEvCTS,大家帮忙,顶有分! MSComm1.PortOpen = True '打开串口 MSComm1.SThreshold = 0 '不触发发送事件 MSComm1.RThreshold = 1 '每一个字符到接收缓冲区都触发接收事件 MSComm1.OutBufferCount = 0 '清除发送缓冲区数据 MSComm1....
mscomm控件接收数据问题 请高手指点，MSCOMM控件中的OnComm（）响应函数代码如下 void CMscommLianxiDlg::OnComm() { // TODO: Add your control notification handler code here ...能力有限改了这里东西好多次不能实现，请高手帮忙吧 谢谢 ！
关于USB转RS232虚拟串口的问题,高手帮忙啊！～！！！！解决问题者一定高分相送！！！！ 做了一个基于mscomm32控件的串口数据采集系统，在台式PC上运行很正常。但在笔记本上运行时由于笔记本没有串口只好用USB转RS232的线连接，这时程序就不能正常的接收数据了，更严重的是运行发送数据的程序还会崩溃。我...
请高手帮忙？急！串行通信问题。 问题：1 一次接受两字节的数据，但总与实际数不一致。因此接受两次，把第一次的高字节取出，把第二次的低字节取出，拼起来就可以。不知为什么？虽然该程序调试通过了，但接收效率不高。 2 没写 On Error Resume Next...
100分请教.用vb后遇到的最匪夷所思的问题,请各位高手帮忙! 这段程序是在MSComm_OnComm事件中校验重串口接收的数据的代码,接到的数据前41位(0——40)为信息,第42位order(41)为校验和，即前41位的加和转换为16进制后取后两位。现在是每次接收到信息，如果在1、2、3行中任意一处...
『串口通讯』熟悉MSComm控件的高手来帮帮忙！thx 我通过一台计算机的串口发数据，另外一台计算机接收数据，发送方为VC的系统，接收方为Delphi写的，使用MSComm控件接收。 请问是否能通讯； 如能通讯，是否和波特率，奇偶效验，数据位，停止位等有关（已经遗失:(） ...
拜托各位高手帮帮忙！！谢谢！！！ A2程序里只用了一个MSCOMM控件和单片机通讯，同时有一段程序用来读取主机发出来的数据。...我想再加一个MSCOMM控件来监视COM1，又担心引起冲突（因为A1已经在监视COM1了）请各位高手帮忙，小弟感激不尽！！
高手帮忙.mscomm通信,路上使用了232/485转换,接收不正确 如果不用232/485转换,程序可以正常工作,用了232/485转换口程序接收到的都不是协议范围内的数据,但是通过串口助手可以正确接收,为什么呢?是设置问题吗?
vc中MSCOMM与单片机通讯问题，望高手帮帮忙 串口配置： if(m_ctrlComm.GetPortOpen()) //如果串口是打开的，则行关闭串口 { m_... //更新编辑框内容 } 遇到的问题：一收数据就产生应用程序错误 “0x5f5624b0”指令引用的"0x0000205d"内存，该内存不能为"read
问一个vb中通讯的问题，高手帮帮忙啊！！ '处理接收字符 MSComm1.InputMode = comInputModeBinary '设置返回数据的类型为二进制形式 intInputLen = MSComm1.InBufferCount '返回缓冲区中等待接受的数据 bytInput = MSComm1.Input '返回为二进制形式 '把缓冲...
一个关于串口通信中VARIANT数据类型的问题，请各位高手指教！！ 用MSCOMM控件通信，接收到的数据可以是数组吗？如果不是的话，那可以是什么类型呢？MSDN看的不是很懂，E文不好，没有办法，请各位多多指教。 还有就是我准备把读出来的数据在对话框静态文本框中显示，这样又要如何...
使用MSCOMM接收字符不全的问题 刚问了一个接收字节不全的问题，再问一个接收字符不全的问题。 再xp下，装的vb6。 我要收到的字符串是这样的：B$1C20010101^158^200407132^E$ 结果我收到后用Memo显示是这样的： B$1C2001 0101 8 00407132 中间的“^...
挑战VB的高手们！帮忙解释一下这些代码，并说说最终代码实现的是什么功能！小弟在这谢谢各位大侠了！ "" 'Unload Me End Sub Private Sub Dial_up() Dim Number$, temp$, T Number$ = strCallNo '断开与调制解调器的连接 MSComm1.Output = "ATH" + vbCr '清除接收缓冲区 MSComm1.InBufferCount = 0 MSComm1.Output = ...
juniper路由器学习资料 从网络搜集的关于juniper的资源，包含 fru-mx960-acoustic.pdf fru-mx960-cable-manager.pdf JNCIA_学习指南中文.pdf Juniper_EX交换机中文操作手册V1.0.pdf Juniper_MX_路由器介绍.pdf Juniper_MX960配置模板v1.2.docx Juniper_netscreen.ppt Juniper路由器（M10i）配置手册.pdf Juniper路由器命令行配置手册.pdf Juniper路由器实验手册.pdf junos-cli.pdf junos-release-notes-13.3.pdf mx960-hwguide.pdf mx960-install-quick-start.pdf MX960操作维护介绍.pdf MX960路由器操作手册.pdf mx-series-line-card-guide.pdf
OpenGL-Shader 共六章 1.基础章节,从Shader1.0版本到新的4.5版本,介绍每一个版本中特性的用法; 2.Tesslattion Shader应用/基础案例分析 3.Gemotry Shader应用/基础案例分析 4.Compute Shader应用/基础案例分析 5.通过大量案例讲解分析/结合新特性，介绍用法 6.性能调优，如果借助shader加速应用,让你的程序支撑百万级别的场景对象轻松应对 全面解析OpenGL Shader语言,从1.0到4.5版本,全面掌握shader编成,并能够熟练的应用
中国象棋人工智能论文集 这是本人收集的有关中国象棋人工智能的论文集 2009计算机博弈专辑文章.pdf Computer Games Are an Efficient Tool for Event Game Theory.pdf MINORS HASH TABLE IN COMPUTER CHINESE CHESS.pdf 中国象棋机器博弈的时间自适应分配策略研究.pdf 中国象棋计算机博弈中搜索算法的研究与改进.pdf 中国象棋计算机博弈关键技术分析.pdf 人工神经元网络结合TD(λ)算法在中国象棋机器博弈中的应用.pdf 博弈论的里程碑成果与局限性分析.pdf 基于剪枝策略的中国象棋搜索引擎研究.pdf 基于机器博弈的作战模拟系统探讨.pdf 大师级象棋机器人研究与开发.pdf 机器博弈研究面临的各种挑战.pdf 棋牌游戏与事件对策.pdf 积极开展民间棋类的计算机博弈活动.pdf 解剖大象的眼睛-中国象棋开发.pdf 计算机博弈原理与方法学概述.pdf
（2,1,6）卷积码的维特比译码 标准（2,1,6）卷积码及其删除码的维特比译码，可以自动判断模糊、码率
发帖
VB基础类
创建于2007-09-28

7489

社区成员

19.7w+

社区内容

VB 基础类
申请成为版主
帖子事件
创建了帖子
2007-04-11 01:46
社区公告
暂无公告