小弟初学VB编程,现在想实现串口通信,知道是用MSComm控件,但是程序不会,求大神们解答,点燃我编程的激情,谢谢!
我找到一个范例,程序调试成功,但是结果不正确。程序如下:
Public Class Form1 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Me.AxMSComm1.CommPort = ComboBox1.Text
AxMSComm1.DTREnable = True “打开串口”
Button1.Enabled = False
End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
AxMSComm1.Output = TextBox1.Text “发送数据”
MsgBox("数据发送成功")
End Sub Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
TextBox2.Text = AxMSComm1.Input “接收数据”
MsgBox("数据接收成功")
End Sub Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
ComboBox1.Text = 1 “默认串口号为1”
End Sub
End Class现在运行程序后,点击打开串口,然后光标在“发送数据框”内,输入数据,比如:abcd,点击发送数据按钮,弹出如图所示情况:怎么办,求大神们解答,急!
我找到一个范例,程序调试成功,但是结果不正确。程序如下:
Public Class Form1 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Me.AxMSComm1.CommPort = ComboBox1.Text
AxMSComm1.DTREnable = True “打开串口”
Button1.Enabled = False
End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
AxMSComm1.Output = TextBox1.Text “发送数据”
MsgBox("数据发送成功")
End Sub Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
TextBox2.Text = AxMSComm1.Input “接收数据”
MsgBox("数据接收成功")
End Sub Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
ComboBox1.Text = 1 “默认串口号为1”
End Sub
End Class现在运行程序后,点击打开串口,然后光标在“发送数据框”内,输入数据,比如:abcd,点击发送数据按钮,弹出如图所示情况:怎么办,求大神们解答,急!
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货