串口接收数据问题!!急,在线等待! 你可以在OnComm事件中判断接收到的字节数(inputbuffercount),一个汉字要占两个字节,你那种方法有可能会取半个汉字,所以会乱码 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 llsus(lls) :可否帮我写一下上面的代码?我急用,谢了先! Private Sub Com1_OnComm() '等50毫秒 Start = Timer Do While Timer < Start + 0.2 Loop CurInput = Com1.Input If Len(CurInput) = 0 Then Exit Sub End If...... 用文本模式接受就可以了。dim strBuf as stringMSComm1.InputMode=comInputModeTextMSComm1.InputLen=100strBuf = MSComm1.InputtxtReceive.Text = strBuf 这两天我没有看这个帖子,对不起你是否知道发送端要发送多少字节? 如果知道你在OnComm事件中判断.inputbuffercount属性,当数量等于发送的字节数就用.input属性去读取并显示 如果不知道,你在OnComm事件中取出.input的内容放在一个数组中,不要显示,检查数组的最后一个元素是否>128(汉字是由两个>128的ASCII扩展码组成的),不大于可以直接转换成字符显示,否则等下一笔数据来了再判断 怎样捕捉TAB键? 自己发的贴子不知道怎么修改 请教一个诡异的问题: 前辈们,我怎么觉得拿VB6做程序这么慢啊~~~~~~ 关于比较的简单问题~~~~~!!!!!!!!!!~~~~~~~~~~~ 插入的问题 急需VB或VC编程人员 **100分**怎样产生一个限定不同范围的随机数然后录入数据库?100哦~ 如何用代码建立DSN? 怎样在vb里执行"debug run.exe <c:\y.dat"200分奉上我急疯了 为什么在对话框的load事件里执行Close()却无法关闭对话框? 关于maskedit的问题
'等50毫秒
Start = Timer
Do While Timer < Start + 0.2
Loop
CurInput = Com1.Input
If Len(CurInput) = 0 Then
Exit Sub
End If......
MSComm1.InputMode=comInputModeText
MSComm1.InputLen=100
strBuf = MSComm1.Input
txtReceive.Text = strBuf
你是否知道发送端要发送多少字节?
如果知道你在OnComm事件中判断.inputbuffercount属性,当数量等于发送的字节数就用.input属性去读取并显示
如果不知道,你在OnComm事件中取出.input的内容放在一个数组中,不要显示,检查数组的最后一个元素是否>128(汉字是由两个>128的ASCII扩展码组成的),不大于可以直接转换成字符显示,否则等下一笔数据来了再判断