ECPP40-01_深圳長欣自動化設備有限公司

品牌：A-B	規格：全新	材質：原裝
產地：其它

ECPP40-01

程序代碼

　　在（通用）（聲明）中定義程序所用變量：

　　Dim ab(4) As Byte '字節數據類型數組，用來存貯接收到的一組字節數據

　　Dim av As Variant '用來從接收緩衝區讀取數據

　　Dim i As Integer

　　Dim j As Integer

　　Dim w As Integer '接收數據個數計數器

　　Dim b1 As Single

　　Dim b2 As Single

　　Dim WW As Single '十進制檢測值

　　Dim TD(8) as Boolean '通道狀態數組

　　Dim Wmax(8) As Single '大值數組

　　Dim Wmin(8) As Single '小值數組

　　在窗體中添加名為Command1的[開始]按鈕和名為MSComm1的MSComm控件。

　　[開始]按鈕的Click事件處理程序主要是對MSComm1控制的參數初始化設置，程序中大部分參數在設計時可在MSComm1控制的屬性窗口中設置:

Private Sub Command1_Click() '開始按鈕

With MSComm1

　　 mPort=2 '使用COM2

　　 .Setting="9600,N,8,1" '設置通信口參數

　　 .InBufferSize=40 '設置MSComm1接收緩衝區為40字節

　　 .OutBufferSize=2 '設置MSComm1發送緩衝區為2字節

　　 .InputMode = comInputModeBinary　　'設置接收數據模式為二進制形式

　　 .InputLen = 1　　　　　　　　　　 '設置Input 一次從接收緩衝讀取字節數為1

　　 .SThreshold = 1 '設置Output 一次從發送緩衝讀取字節數為1

　　 .InBufferCount = 0 '清除接收緩衝區

　　 .OutBufferCount = 0 '清除發送緩衝區

　　 For i=1 to 8

　　 Wmax(i) = -99 '大值賦初值

　　 Wmin(i) = 99 '小值賦初值

　　 Next i

　　 w = 0 '數據個數計數器清零

　　 .RThreshold = 1 '設置接收一個字節產生OnComm事件

　　 On Error Resume Next　　　　　　 '改變錯誤處理的方式。

　　 Err.Clear

　　 If .PortOpen = False Then '判斷通信口是否打開

　　　　.PortOpen = True '打開通信口

　　　　If Err Then '錯誤處理

　　　　 MsgBox "串口通信無效"

　　　　 Exit Sub

　　　　End If

End With

End Sub

　　為了達到實時數據採集目的，實時數據採集處理程序採用MSComm事件驅動方式。MSComm1_OnComm 的事件處理程序只處理comEvReceive事件，首先判斷幀數據的開始字節，關閉OnComm接收事件，然後接收數據字節，將壓縮BCD進行還原轉換，再接收符號字節，判斷數據符號，判斷數據大小值，後打開OnComm接收事件，等待下一次OnComm事件產生：

Private Sub MSComm1_OnComm()

With MSComm1

Select Case mEvent '判斷MSComm1通訊事件

　　Case comEvReceive '收到Rthreshold個字節產生的接收事件

　　 av = .Input '讀取一個接收字節

　　 ab(1) = av(0) '轉換保存到字節數據類型數組

　　 If ab(1) = 170 Then '判斷是否為數據開始標志，0FAH=170

　　　　 .RThreshold = 0 '關閉OnComm事件接收

　　　　 W=W+1 　　　　'計數器加1

　　　　 av = .Input '讀取通道狀態字節

　　　　 ab(0) = av(0) '轉換保存到字節數據類型數

　　　　 For i = 1 To 8 '通道狀態數組復位

　　　　 TD(i) = False

　　　　 Next i

　　　　 cn = 2　　　　　　　　　　 '幀長度賦初值，一個開始字，一個狀態字

　　　　 If ab(0) >= 128 Then　　　　'判斷第八通狀態

　　　　 TD(8) = True　　　　　　 '第八道是真

　　　　 ab(0) = ab(0) - 128　　 '第7位置零