VB中关于MSComm控件通信的问题
你好,我想问下关于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中 展开
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中 展开
2个回答
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询