Question

VB中mscomm实现pc间的通信的问题

我用下面这段程序，怎么只能发送不能接受信息啊？
ps.我是用一台计算机的2个232串口连接起来，一个程序开通com1一个com2

SendMeg = Text1.Text
MSComm1.OutBufferCount = 0 '...清空输出寄存器
MSComm1.Output = SendMeg '发送数据
End Sub

Private Sub Command2_Click()
MSComm1.PortOpen = False
Unload Me
End Sub

Private Sub Form_Load()
MSComm1.CommPort = 1 '...使用Com1口
MSComm1.Settings = "9600,n,8,1" '...设置通讯参数
MSComm1.PortOpen = True '...打开串口
End Sub

Private Sub MSComm1_OnComm()
Dim RecMeg As String
Select Case MSComm1.CommEvent
Case comEvReceive '...有接受事件发生
RecMeg = MSComm1.Input
Text2.Text = RecMeg '...接受显示数据
Print Text2.Text
MSComm1.InBufferCount = 0 '...清空输入寄存器
End Select
End Sub
这是另一个程序
Private Sub Command1_Click()
Dim SendMeg As String
SendMeg = Text1.Text
MSComm1.OutBufferCount = 0 '...清空输出寄存器
MSComm1.Output = SendMeg '发送数据
End Sub

Private Sub Command2_Click()
MSComm1.PortOpen = False
Unload Me
End Sub

Private Sub Form_Load()
MSComm1.CommPort = 2 '...使用Com2口
MSComm1.Settings = "9600,n,8,1" '...设置通讯参数
MSComm1.PortOpen = True '...打开串口
End Sub

Private Sub MSComm1_OnComm()
Dim RecMeg As String
Select Case MSComm1.CommEvent
Case comEvReceive '...有接受事件发生
RecMeg = MSComm1.Input
Text2.Text = RecMeg '...接受显示数据
Print Text2.Text
MSComm1.InBufferCount = 0 '...清空输入寄存器
End Select
End Sub

Answer 1

既然使用OnComm事件来接收,必须设置MSComm控件的属性RThreshold 为不等于零的值.
RThreshold 属性
在 MSComm 控件设置 CommEvent 属性为 comEvReceive 并产生 OnComm 之前，设置并返回的要接收的字符数。
说明
当接收字符后，若 Rthreshold 属性设置为 0（缺省值）则不产生 OnComm 事件。
例如，设置 Rthreshold 为 1，接收缓冲区收到每一个字符都会使 MSComm 控件产生 OnComm 事件。

Answer 2

你用两个MSComm控件分别控制com1和com2，再试试。。

Answer 3

如果都是 电脑 的 串口，连接线 上 2 3 应该 交叉！

这个是关键！

祝你顺利