Question

vb如何使用串口通讯

Answer 1

用PC机的9针RS232接口，用VB6 含有的MSComm 控件编程

两台PC机串行通信串行口的接线图：

 

'==============================
'PC机串行口用命令按钮启动接收/发送VB程序

Private Sub Form_Load()
  MSComm1.PortOpen = True  '开启通信控件的端口
End Sub

'点击“发送”命令按钮发送数据
Private Sub Command1_Click()
   MSComm1.Output = Text1.Text  '将文本框Text1的数据发送至对方
End Sub

'点击“接收”命令按钮接收数据
Private Sub Command2_Click()
   Dim st As String
   st = MSComm1.Input
   Text2.Text = st             '将接收到的数据至入文本框Text2
End Sub

 

'==============================
’PC机串行口定时自动接收/发送VB程序

Private Sub Form_Load()
   MSComm1.PortOpen = True  '开启通信控件的端口
   Timer1.Interval = 100   ’自动传送时间间隔100毫秒
End Sub

Private Sub MSComm1_OnComm()
   Dim st As String
   If MSComm1.InBufferCount > 0 Then
      st = MSComm1.Input
      Text2.Text = st  '将收到的数据放入Text2文本框
   End If
End Sub

Private Sub Timer1_Timer()
  MSComm1.Output = Text1.Text  '发送Text1文本框内容
End Sub

Answer 2

这个是链接串口的代码
Private Sub initial_com(com_num As Integer)
MSComm1.CommPort = com_num
MSComm1.OutBufferSize = 1024
MSComm1.InBufferSize = 1024
MSComm1.InputMode = 1
MSComm1.InputLen = 0
MSComm1.InBufferCount = 0
MSComm1.SThreshold = 1
MSComm1.RThreshold = 1
MSComm1.settings = "9600,N,8,1"
MSComm1.PortOpen = True
End Sub

Answer 3

最简单的是使用MSComm控件

Answer 4

没有错！

先模拟一下，了解一下串口通信的大概，再深入了解

你可以找个 串口通讯测试的软件，推荐 accessport。
硬件嘛，你已经了解了，就是 单台计算机，将串口线的一段接电脑串口，另一端 2 3 端短接。
在accessport里发送数据，就能看到接收到的数据！

也可以 2台电脑联机 试验，这时 用用到 空调制器(Null Modem)!其实，就是做一个一端 2 3 交换 的串口线！

其他都一样！

用 空调制器，可以 双机串口通讯，还可以用 超级终端 登录 到另外 的机器！

就这样，祝你顺利，也欢迎交流！