VB用MSComm實現串口數據采集

Private Sub MSComm_OnComm()

'MSComm 的 OnComm 事件程序?

'根據 CommEvent 屬性值的不同，將各自的程序代碼寫入?

'相關的子程序中

'在此例中，只要 屬性RThresold 中設定字符數到達時

'便會使得 CommEvent 屬性值變成 comEvReceive

'因此接收的子程序便會被執行

''''''''''''''''''''''''''''''''''''''

Select Case MSComm.CommEvent

Case comEvReceive ' 收到 RThreshold # of

BB = MSComm.Input

For jj = 0 To UBound(BB)

Call bbPrintVVV(BB(jj))

txtReceive = Str(BB(jj)) & txtReceive

Next jj

DDi = DDi + 1

' tt = StrConv(MSComm.Input, vbUnicode) '返回按指定類型轉換的 Variant (String)。

' DD = AscW(tt) '首字符的(16位編碼方案)字符代碼 ， 0 - 255

' txtReceive = txtReceive & " " & tt & "(" & DD & ")"

' Case comEvSend ' 傳輸緩沖區有 Sthreshold 個字符

' Case comEvCD ' CD 線的狀態發生變化

'

' Case comEvCTS ' CTS 線的狀態發生變化

'

' Case comEvDSR ' DSR 線的狀態發生變化

'

' Case comEvRing ' Ring Indicator 變化

'

End Select

End Sub