主板上面有com1，com2,485口，我想编写vb程序通过485传输数据，我vb里面串口部分应该怎么写？

Question

如题所述

Answer 1

485口的配套口是RS232,所以编写的代码与RS232数据传输相同
我不久前写了一段相关代码,你看是否有用:用MSCOMM控件通信的
Private Sub initcom() 串口初始化程序块
MSComm1.CommPort = 1 '选用com1串行口
MSComm1.Settings = "9600,N,8,1" '波特率9600，无奇偶校验位，8位数据位1位停止位
MSComm1.InputLen = 0 'input将读取接收缓冲区的全部内容
MSComm1.InBufferSize = 1024 '设置接收缓冲区的字节长度
'MSComm1.PortOpen = True '打开通信口
MSComm1.InBufferCount = 0 '清除接收缓冲区数据
MSComm1.OutBufferCount = 0 '清除发送缓冲区数据
MSComm1.InputMode = comInputModeText
'MSComm1.InputMode = comInputModeBinary
'periodic.inteval = 100 '设置ls定时间隔，使遥测命令每隔ls发送1次
End Sub

Private Sub MSComm1_OnComm() 接收,发送处理事件
MSComm1.RThreshold = 0
Dim b As String
If MSComm1.CommEvent = comEvReceive Then
b = MSComm1.Input
Text1.Text = Text1.Text & b & " "
Text1.SelStart = 0 'Len(Text1.Text)
Call confirm(b)
End If
MSComm1.RThreshold = 148
End Sub
更多相关:还有以后我的网站yu3zx.com有相关代码收集自加HTTP

Answer 2

没有错！
就当 RS232 一样

建议看书
Visual_Basic与_RS-232_串行通信控制

Answer 3

与RS232相同。