VisualBasic串口通訊調試方法
現有電子秤一臺，使用串口與計算機進行通訊。編寫VB程序來訪問串口，達到讀取電子秤上顯示的數據。該電子秤為BE01型儀表，輸出為RS-232C標準接口，波特率為300-9600、偶校驗、7個數據位、2個停止位。所有字符均發送11位ASCII碼，一個起始位。在VB中與串口通訊需要引入控件MSComm串口通訊控件（在Microsoft Comm Control 6.0中）。具體程序如下：控件簡稱：MSC
（儀表每秒發送50幀數據，微機收到一幀完整數據至少需要20 ms時間，然后再進行數據處理。如果微機在下一幀數據接收前即20ms內能將數據計算處理完畢，則接收緩沖區內只會保存有一幀數據，不會存有兩幀以上數據，接收緩沖區的大小不會影響實時監測效果（接收緩沖區>4字節），這時完全可以實現實時監測或實時控制；如果微機在20ms內不能將數據計算處理完畢，接收緩沖區設置得又很大，在數據計算處理完畢前，接收緩沖區內就會保存有兩幀以上數據，而且一次工作時間越長，緩沖區內滯留數據幀就越多，數據采集和數據處理之間產生逐漸增大的額外時間差，當接收緩沖區充滿后，時間差不再增大，固定在某一值，部分數據因不能及時采集到接收緩沖區中，數據產生丟失現象，真實工作情況就會和微機處理結果產生較大的時間差，對實時監測和實時控制很不利，這種情況下接收緩沖區的大小就會影響實時監測效果，所以接收緩沖區設置不能過大，以保證數據處理的實時性。） 小結：本文所用的儀表為梅特勒公司出產的BE01型電子秤，其輸出的每個編碼均為標準的ASCII碼。其他的儀表存在發射的編碼中含有BCD壓縮碼，而且分為高低位，需要接收后對其進行解碼換算，之后還要將高位和低位數字進行相加，即可以將其BCD碼換算成實數。另還存在誤差的可能：判斷最大值，儀表在剛開始工作時有干擾，會傳導一些亂碼，位移傳感器有參數偏差，最大值一般都略大于50毫米，所以取51為極限最大值，取－51為極限最小值。暫時先寫這些，當然其他的情況可以依此類推！
| Dim Out(12) As Byte '接收var中的值 Dim var As Variant '接收MSC.input中的數值 Dim nRece As Integer '計算MSC.inputbuffer的個數 Dim i As Integer, j As Integer '隨即變量，計算循環 **************************************************************************** Private Sub Form_Load() ClearText With MSC .CommPort = 1 '設置Com1為通信端口 .Settings = "9600,E,7,2" '設置通信端口參數 9600赫茲、偶校驗、7個數據位、1個停止位.（這里需要進一步說明的是：.Setting=”BBBB,P,D,S”。 含義是：B：Baud Rate（波特率）；P：Parity（奇偶）；D：Data Bit；S：Stop Bit） .InBufferSize = 40 '設置緩沖區接收數據為40字節 .InputLen = 1 '設置Input一次從接收緩沖讀取字節數為1 .RThreshold = 1 '設置接收一個字節就產生OnComm事件 End With End Sub **************************************************************************** Private Sub ClearText() Text3.Text = "" Text2.Text = "5" Text1.Text = "" End Sub Private Sub Command1_Click() ClearText ' nRece = 0 '計數器清零 With MSC .InputMode = comInputModeBinary '設置數據接收模式為二進制形式 .InBufferCount = 0 '清除接收緩沖區 If Not .PortOpen Then .PortOpen = True '打開通信端口 End If End With End Sub Private Sub MSC_OnComm() DelayTime ‘用來延續時間 ClearText With MSC Select Case .CommEvent '判斷通信事件 Case comEvReceive: '收到Rthreshold個字節產生的接收事件 SwichVar 1 If Out(1) = 2 Then '判斷是否為數據的開始標志 .RThreshold = 0 '關閉OnComm事件接收 End If Do DoEvents Loop Until .InBufferCount >= 3 '循環等待接收緩沖區>=3個字節 ' nRece = nRece + 1 For i = 2 To 12 SwichVar i Text1.Text = Text1.Text & Chr(Out(i)) Next Text1.Text = LTrim(Text1.Text) Text2.Text = Text2.Text & CStr(nRece) .RThreshold = 1 '打開MSComm事件接收 Case Else ' .PortOpen = False End Select End With End Sub **************************************************************************** Private Sub DelayTime() Dim bDT As Boolean Dim sPrevious As Single, sLast As Single bDT = True sPrevious = Timer (Timer可以計算從子夜到現在所經過的秒數，在Microsoft Windows中，Timer函數可以返回一秒的小數部分) Do While bDT If Timer - sPrevious >= 0.3 Then bDT = False Loop bDT = True End Sub （通信傳輸速率為9600bps，則最快速度1.04ms發送一個字節，儀表每秒發送50幀數據，每幀數據有4個字節，即每秒發送200個字節，平均5.0ms 發送一個字節，連續讀取串口數據時要在程序中添加循環等待程序） Private Sub SwichVar(ByVal nNum As Integer) DelayTime var = Null var = MSC.Input Out(nNum) = var(0) End Sub （設置接收數據模式采用二進制形式，即 InputMode=comInputModeBinary，但用Input屬性讀取數據時，不能直接賦值給 Byte 類型變量，只能通過先賦值給一個 Variant 類型變量，返回一個二進制數據的數組，再轉換保存到Byte類型數變量中。） Private Sub Text1_Change() Text3.Text = CText(Text1.Text) - CText(Text2.Text) End Sub **************************************************************************** Private Function CText(ByVal str As String) As Currency If str <> "" Then CText = CCur(Val(str)) Else CText = 0 End If End Function |
（儀表每秒發送50幀數據，微機收到一幀完整數據至少需要20 ms時間，然后再進行數據處理。如果微機在下一幀數據接收前即20ms內能將數據計算處理完畢，則接收緩沖區內只會保存有一幀數據，不會存有兩幀以上數據，接收緩沖區的大小不會影響實時監測效果（接收緩沖區>4字節），這時完全可以實現實時監測或實時控制；如果微機在20ms內不能將數據計算處理完畢，接收緩沖區設置得又很大，在數據計算處理完畢前，接收緩沖區內就會保存有兩幀以上數據，而且一次工作時間越長，緩沖區內滯留數據幀就越多，數據采集和數據處理之間產生逐漸增大的額外時間差，當接收緩沖區充滿后，時間差不再增大，固定在某一值，部分數據因不能及時采集到接收緩沖區中，數據產生丟失現象，真實工作情況就會和微機處理結果產生較大的時間差，對實時監測和實時控制很不利，這種情況下接收緩沖區的大小就會影響實時監測效果，所以接收緩沖區設置不能過大，以保證數據處理的實時性。） 小結：本文所用的儀表為梅特勒公司出產的BE01型電子秤，其輸出的每個編碼均為標準的ASCII碼。其他的儀表存在發射的編碼中含有BCD壓縮碼，而且分為高低位，需要接收后對其進行解碼換算，之后還要將高位和低位數字進行相加，即可以將其BCD碼換算成實數。另還存在誤差的可能：判斷最大值，儀表在剛開始工作時有干擾，會傳導一些亂碼，位移傳感器有參數偏差，最大值一般都略大于50毫米，所以取51為極限最大值，取－51為極限最小值。暫時先寫這些，當然其他的情況可以依此類推！