純軟件實現(xiàn)串口地址轉換的最大優(yōu)勢就在于通用性。由于不同廠家對地址碼的定義不一樣，軟件的實現(xiàn)可以非常方便地設置各種不同的地址編碼方案。比如有以$開頭，以！開頭的地址編碼，只要在本軟件界面的地址碼前綴填寫$或者！，后綴空著即可。
在同一個RS-232/RS-485總線中可以同時接入的地址轉換軟件的數(shù)量理論上無限。甚至可以將不同地址編碼方案的軟件一起使用。使用時將這地址分別設置為不同的值即可。將所有地址轉換軟件的上位機串口共同接入到一個總線并接到上位機的RS-232或RS-485口。 計算機必須至少有兩個RS-232或者RS-485串口，擴展串口可以采用USB-串口轉換器等。這樣就實現(xiàn)了兩個串口之間的地址轉換。
本軟件用Visual Basic軟件編寫，串口用MSCOMM控件實現(xiàn)。核心功能就是將Mscomm1接收的數(shù)據(jù)立即送到Mscomm2的發(fā)送區(qū)。難點在于對16進制數(shù)據(jù)的轉換處理。
Mscomm的核心代碼如下：
Private Sub MSComm1_OnComm()
Dim BytReceived() As Byte
Dim strBuff As String
Dim i As Integer
Select Case MSComm1.CommEvent '事件發(fā)生
Case 2
MSComm1.InputLen = 0 '讀入緩沖區(qū)全部內(nèi)容
strBuff = MSComm1.Input '讀入到緩沖區(qū)
If MSComm1.InputMode = comInputModeBinary Then
BytReceived() = strBuff '如果是二進制接收模式則進行數(shù)據(jù)處理，否則直接顯示字符串
For i = 0 To UBound(BytReceived)
If Len(Hex(BytReceived(i))) = 1 Then
strData = strData & "0" & Hex(BytReceived(i)) & " "
'如果只有一個字符，則前補0，如F顯示0F，最后補空格
Else '方便顯示觀察如： 00 0F FE
strData = AdressCode+strData & Hex(BytReceived(i)) & " "
End If
Next
Text1 = strData
Call hexSend2 ' '發(fā)送一個16進制
strData = ""
Else
Text1 = Text1 & strBuff
If MSComm2.PortOpen = False Then
MsgBox "請打開串口B"
End If
On Error GoTo uerror3
MSComm2.Output = strBuff
Label14.Caption = Label14.Caption + Len(strBuff) '發(fā)送計數(shù)
End If
End Select
uerror3:
End Sub
本文介紹的串口地址轉換的純軟件方法和程序，對不帶地址的串口多機通信具有一定的使用價值。本軟件不僅僅實現(xiàn)了地址的轉換，還同時實現(xiàn)了波特率、校驗位、數(shù)據(jù)位和停止位的轉換。文中介紹的軟件可以從波仕電子的網(wǎng)站下載。純軟件地址轉換的不足之處在于占用了一臺計算機，并且必須配有兩個專門用于地址轉換的串口。如果要實現(xiàn)方便簡單的地址轉換，還是要用具有雙串口的單片機或者FPGA。通過對單片機或者FPGA的兩個串口進行地址等格式的設置，而兩個串口在內(nèi)部進行數(shù)據(jù)地址幀的加減。這種產(chǎn)品就是硬件串口地址轉換器，我們將以另外文章《串口地址轉換的純硬件實現(xiàn)》予以介紹。
