如何模拟仪表串口

① c# 语言怎么模拟串口模拟COM口

其实模拟串口是下下之策，本地机器上，在只有一个 com口的时候，也能就行数据的收发。只要把9针口的五个的那排 从上到下把第二和第三个连接起来，你就可以在本地上，做com口收发的实验，比模拟出来的省事多。

② VB与仪表串口通讯

推荐看书 Visual_Basic与_RS-232_串行通信控制

③ 如何在Proteus中实现单片机的串口调试功能

Proteus中有一个虚拟终端，利用它就可以调试单片机的串口通信程序。

见下图，在虚拟仪表中

单片机的数码管显示的是键盘输入的字符的ASCII码值。

不过，一定要把单片机的时钟频率改成11.0592M ，否则通信就会失败。

④ vb与智能仪表串口通信

建议按Byte字节数组组织指令发送.
LZ的发送指令应该按9个指令轮询(没看到LZ的通信协议),接收可以放在OnComm事件中实现.
修改代码如下:
Option Explicit
Dim temp As Integer '仪表号循环变量
Dim data1T As Single, data2T As Single, data3T As Single
Dim data1F As Single, data2F As Single, data3F As Single
Dim data1Q As Single, data2Q As Single, data3Q As Single
Dim bytSend(1 To 4) As Byte
'串口初始化
Private Sub Form_Load()
MSComm1.CommPort = 1 '设置通信端口号为COM1
MSComm1.InputMode = 1 '以二进制格式读取数据
MSComm1.RThreshold = 1 '设置并返回的要接收的字符数
MSComm1.SThreshold = 1 '设置并返回传输缓冲区中允许的最小字符数
MSComm1.Settings = "4800,n,8,2" '设置串口参数
MSComm1.PortOpen = True '打开串口
Timer1.Interval = 200
End Sub

'改变仪表序号
Private Sub Timer1_Timer()
temp = temp + 1
Call order_num
If temp > 9 Then temp = 0
End Sub
'周期发出请求指令，自动连续采集
'循环向仪表发送读数据命令串
'不同的仪表号发送不同的读指令
Sub order_num()
If temp = 1 Then
bytSend(1) = &H81
bytSend(2) = &H81
bytSend(3) = &H52
bytSend(4) = &H1
MSComm1.Output = bytSend 'Chr(&H8181) + Chr(&H52) + Chr(&H1)
ElseIf temp = 2 Then
bytSend(4) = &H2
MSComm1.Output = bytSend 'Chr(&H8181) + Chr(&H52) + Chr(&H2)
ElseIf temp = 3 Then
bytSend(4) = &H3
MSComm1.Output = bytSend 'Chr(&H8181) + Chr(&H52) + Chr(&H3)
ElseIf temp = 4 Then
bytSend(2) = &H82
bytSend(4) = &H1
MSComm1.Output = bytSend 'Chr(&H8182) + Chr(&H52) + Chr(&H1)
ElseIf temp = 5 Then
bytSend(4) = &H2
MSComm1.Output = bytSend 'Chr(&H8182) + Chr(&H52) + Chr(&H2)
ElseIf temp = 6 Then
bytSend(4) = &H3
MSComm1.Output = bytSend 'Chr(&H8182) + Chr(&H52) + Chr(&H3)
ElseIf temp = 7 Then
bytSend(2) = &H83
bytSend(4) = &H1
MSComm1.Output = bytSend 'Chr(&H8183) + Chr(&H52) + Chr(&H1)
ElseIf temp = 8 Then
bytSend(4) = &H2
MSComm1.Output = bytSend 'Chr(&H8183) + Chr(&H52) + Chr(&H2)
ElseIf temp = 9 Then
bytSend(4) = &H3
MSComm1.Output = bytSend 'Chr(&H8183) + Chr(&H52) + Chr(&H3)
Else
Exit Sub
End If
End Sub
希望对你能有所帮助。