•  作者:boshika
  •  積分:426
  •  等級:四年級
  •  2014/10/23 20:07:19
  •  
  • 樓主(閱讀:2754/回復:0)串口波特率轉換的純軟件實現

    串口波特率轉換的純軟件實現

    串口通信,就是RS-232/RS-485通信,要求通信的雙方波特率等通信格式一樣才可以通信成功?墒窃谠S多情況下,兩種不同格式比如不同波特率的串口也要相互通信,這就必須進行串口波特率等格式的轉換。本文介紹了如何用純軟件實現串口波特率的轉換。

    如果串口設備1與串口設備2之間需要通信,但是它們之間的通信波特率不一樣。純軟件實現串口波特率的轉換的原理就是利用計算機的兩個串口,稱為串口A和串口B,分別設置為不同的波特率、不同的校驗位、不同的數據位和不同的停止位。其中串口A按照串口A設置的波特率等格式接收數據立即從串口B按照串口B設置的波特率等格式發送出去,同樣串口B以串口B設置波特率等格式收到的數據立即從串口A以串口A設置的波特率等格式發送出去。

    將計算機的串口A接設備1,串口A的通信波特率設置為設備1的波特率、校驗位、數據位和停止位。將計算機的串口B接設備2,串口B的通信波特率設置為設備2的波特率、校驗位、數據位和停止位。計算機必須至少有兩個RS-232串口,擴展串口可以采用USB-串口轉換器等。這樣就實現了串口設備1與串口設備2之間的通信。

    串口波特率轉換軟件的界面如圖。左邊分別是兩個串口的設置框,分別可以設置COM口的號碼、波特率、校驗位、數據位、停止位,默認的格式為(9600,N,8,1)?梢赃x擇的COM口號碼為1到16號。COM串口號可以從操作系統的“設備管理器”只能夠的“端口”看到。波特率的可選擇范圍為:256000、128000、115200、57600、38400、28800、19200、14400、9600、 4800、2400、1200、600。校驗位可選擇:n(無)、o(偶)、e(奇)。數據位可選擇:8、7、6、5、4。停止位可選擇1和0。

    設置好串口格式后,按“打開串口”。注意A和B兩個串口都要打開。成功打開串口后會在“打開串口”按鈕的旁邊顯示紅色的圓圈!按蜷_串口”按鈕下面為“清空計數”按鈕和本串口接收和發送數據的個數。正常情況下,由于串口A接收到的數據都立即發送給了串口B,所以串口A接收的計數與串口B發送的計數時一樣的。同理串口B接收的計數與串口A發送的計數時一樣的。

    串口波特率轉換軟件的界面右邊為測試和檢測部分,正常工作時不需要操作。按“手動發送A串口”可以測試串口A的設置是否生效,是否可以正確與設備1通信,接收到的數據顯示在“接收區A”框內。串口B的部分是同樣的功能。右下角有“字符格式”和“十六進制”的選項,默認為“字符格式”。當選擇“十六進制”時,本軟件可以實現16進制數據的格式轉換,特別適合MODBUS等工控軟件。

    如果在軟件界面上只打開一個串口,比如串口A或者串口B,那么本軟件就是一個功能齊全的串口調試助手軟件,可以進行每個串口的設置、數據收發等。

    本軟件用Visual Basic軟件編寫,串口用MSCOMM控件實現。核心功能就是將Mscomm1接收的數據立即送到Mscomm2的發送區。難點在于對16進制數據的轉換處理。

    Mscomm的核心代碼如下:

    Private Sub MSComm1_OnComm()

    Dim BytReceived() As Byte

    Dim strBuff As String

    Dim i As Integer

    Select Case MSComm1.CommEvent    '事件發生

    Case 2

    MSComm1.InputLen = 0     '讀入緩沖區全部內容

    strBuff = MSComm1.Input '讀入到緩沖區

    If MSComm1.InputMode = comInputModeBinary Then

    BytReceived() = strBuff '如果是二進制接收模式則進行數據處理,否則直接顯示字符串

    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 = strData & Hex(BytReceived(i)) & " "

    End If

    Next

    Text1 = strData

    Call hexSend2          ' '發送一個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) '發送計數

    End If

    End Select

    uerror3:  

    End Sub

    本文介紹的串口波特率轉換的純軟件方法和程序,對不同格式之間的串口通信具有一定的使用價值。本軟件不僅僅實現了波特率的轉換,還同時實現了校驗位、數據位和停止位的轉換。文中介紹的軟件可以從波仕電子的網站下載。純軟件波特率轉換的不足之處在于占用了一臺計算機,并且必須配有兩個專門用于波特率轉換的串口。如果要實現方便簡單的波特率轉換,還是要用具有雙串口的單片機或者FPGA。通過對單片機或者FPGA的兩個串口進行波特率等格式的設置,而兩個串口在內部進行數據透明傳輸。這種產品就是硬件波特率轉換器,我們將以另外文章《串口波特率轉換的純硬件實現》予以介紹

    波仕與您暢游RS232/RS485串口的世界


    目前不允許游客回復,請 登錄 注冊 發表言論。
     
    第一章厨房春潮他含她的乳,宝宝太紧了松一点会断的,宝宝你看你喷的到处都是,我的徒弟每天都想着上我