原本是这样的
Private Sub Command1_Click() 'send
oo$=Text1.Text
MSComm1.Output = oo$ + Chr(13)
End Sub

Private Sub Command2_Click() 'recieve
a$ = MSComm1.Input
Text2.Text = a$
End Sub

都很正常，但是要依次按2个按钮，嫌麻烦，于是乎，修改成……

Private Sub Command1_Click() 'send
oo$=Text1.Text
Text3.Text = oo$
MSComm1.Output = oo$ + Chr(13)
Sleep 2000  '延迟2秒
a$ = MSComm1.Input
Text2.Text = a$
End Sub
于是问题来了……
每次必须点2次command1才能执行所有的代码(不是双击).点第一次，只能发送，点第二次，才能收到数据……

再修改一下，变成

Private Sub Command1_Click() 'send
oo$=Text1.Text
MSComm1.Output = oo$ + Chr(13)
Command2_Click
End Sub

Private Sub Command2_Click() 'recieve
a$ = MSComm1.Input
Text2.Text = a$
End Sub

也是同样的问题……

困惑ing.....





-----------------------------------
通过串口连接一单片机

由于施工现场环境恶劣，加上产品硬件质量很操蛋……经常链接中断，就是数据传不过去也输不过来……

于是想做一个监控功能，就是一旦掉线，就会自动提示，比如弹出个msgbox之类的功能。

开始的想法是向单片机发送一个指令，单片机会自动响应，并传回一个指令，只要做一下对比（计时），就可以了。这个过程每1秒执行一次。

但是这样肯定要占用端口，会影响正常数据传输……

求解决办法，最佳答案我一个礼拜激骚都给你！！

[ 本帖最后由 shixn 于 2009-4-10 00:33 编辑 ]

呃，RS232链接的。。。。。

VB不是简单么，该用VC总不能把全部程序推翻重写吧……

4#的方法不太懂，能详细说说么

我水平很菜。。

引用:

原帖由 leonWong 于 2009-4-8 18:14 发表
有现成软件可以监控RS232口的，而且不占用端口......

求求求！！！最好有源码……

引用:

原帖由 camille 于 2009-4-9 10:16 发表
对楼主的要求不是太了解，vb里面有个MSCOMM32.OCX，可以直接用，很好用啊，楼主最好跟帖把需求说清楚

那个控件我正在用。

PC通过RS232口和一单片机通信，传输各种数据。但是这个通信过程经常断线，等半天程序没反应，才知道断线了。

现在就像做一个功能，断线就弹出提示（弹出msgbox），就是这个意思……

方案越简单越好，我也就3月的开发经验……

谢谢LS，就是差不多这种东西。

不过我希望可以有源码，自己编到我的程序里。

另在追加在追加一个问题……