Private Sub Form- Load( )
MSComm1.CommPort=1‘選擇通信端口1’
MSComm1.InputLen=0‘串行數(shù)據(jù)接收緩沖區(qū)初始化’
MSComm1.Settings=“9600, n, 8, 1”
設(shè)置端口參數(shù): 波特率為9 600 b/s, 無(wú)奇偶校驗(yàn)位, 8 位數(shù)據(jù), 1 位停
止位。
MSComm1.PortOpen=True ‘打開(kāi)串口’
MSComm1.RThreshold=1 ‘有一個(gè)字符就接收’
ENDSub
Private Sub MSComm1_OnComm( )
Select Case MSComm1.CommEvent
Case comEvReceive
DimBuffer As Variant, i
MSComm1.InputMode=comInputModeBinary
MSComm1.InputLen=0
Do’該循環(huán)判斷輸入緩沖區(qū)是否有數(shù)據(jù)
DoEvents
Loop Until MSComm1.InBufferCount>=1
Buffer=MSComm1.Input
For i = LBound( Buffer) To UBound( Buffer)
List1.AddItemBuffer( i) ‘把接收到的數(shù)據(jù)顯示在列表框中’
Next i
Case Else
End Select
End Sub
Private Sub CommandClose- Click( )
IfMSComm1.PortOpen=True Then
MSComm1.PortOpen=False
‘關(guān)閉串行端口’
x=MsgBox(“關(guān)閉通信! ”, 16)
End If
ENDSub