Question

VB中关于MSComm通信的问题

你好，我想问下关于vb的问题，我想在一个窗口中用mscomm控件编发送和接收数据的程序，我在实验室用了一台电脑，老师给我一个两头都有串口接口的头，一头接到电脑串口，另一头用一个电线做了个回路连起来了，老师说这样就能把数据从这台电脑再发送到这台电脑上，应该怎么弄啊，这是主要程序
MSComm1.CommPort = 2
MSComm1.Settings = "9600,n,8,1"
MSComm1.InputLen = 0
MSComm1.InBufferSize = 256
MSComm1.OutBufferSize = 256
'MSComm1.PortOpen = True
MSComm1.SThreshold = 1
MSComm1.RThreshold = 1
MSComm1.InputMode = 0
End Sub
Private Sub Command2_Click()
If Not IsNumeric(Text7.Text) Then
MsgBox "不能发送", vbExclamation, "请重新设置参数"
Text7.Text = ""
Text7.SetFocus
ElseIf Not IsNumeric(Text12.Text) Then
MsgBox "不能发送", vbExclamation, "请重新设置参数"
Text12.Text = ""
Text12.SetFocus
Else
MSComm1.Output = Text7.Text
MSComm1.Output =Text12.Text
Text12.Text = ""
Text7.Text = ""
End If
Text16.Text =MSComm1.Input
End Sub
但是这个不好使，接收数据的text不显示，求帮帮忙，拜托了哈
图片点击发送数据，然后要显示在最左边的text中

Answer 1

接收代码放MsComm控件的OnComm事件中.

追问

具体怎么写啊，我做新手都不会啊，那个一样的问题是我提问完后在我的提问里没有，我又重发了一遍，浪费我10分啊，成功后两个问题的分都给你哈，谢谢了哈

追答

Option Explicit
Dim strSj As String
Private Sub Form_Load()
MSComm1.CommPort = 1
MSComm1.Settings = "9600,n,8,1"
MSComm1.InputLen = 0
MSComm1.InBufferSize = 1024
MSComm1.OutBufferSize = 512
MSComm1.RThreshold = 1
MSComm1.InputMode = comInputModeText
MSComm1.PortOpen = True
Text1.Text = ""
Text2.Text = ""
End Sub
Private Sub Command2_Click()
If Not IsNumeric(Text1.Text) Then
MsgBox "不能发送", vbExclamation, "请重新设置参数"
Text1.Text = ""
Text1.SetFocus
ElseIf Not IsNumeric(Text2.Text) Then
MsgBox "不能发送", vbExclamation, "请重新设置参数"
Text2.Text = ""
Text2.SetFocus
Else
MSComm1.Output = Text1.Text
MSComm1.Output = Text2.Text
Text1.Text = ""
Text2.Text = ""
End If
End Sub

Private Sub MSComm1_OnComm()
Select Case MSComm1.CommEvent
Case 2
strSj = strSj & MSComm1.Input
Text3 = strSj
'strSj = ""
End Select
End Sub

追问

显示操作用下面这个就能显示，你那个重复发送会连起来，比如发送两次1，文本框中就显示11，这个就只显示1，我想知道怎么把两个文本框中的内容分别显示在另外的两个文本框中啊？就是text3显示text1的内容，text4显示text2的内容，谢谢啦哈o(∩_∩)o...
Private Sub MSComm1_OnComm()
text3.text=MSComm.Input
End Sub

追答

你这些需要依据实际的数据约定和通信协议,进行判别和分割.