如何模擬儀表串口

① 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
希望對你能有所幫助。