' Fire Rx Event Every Two Bytes
MSComm1.RThreshold = 5
' When Inputting Data, Input 2 Bytes at a time
MSComm1.InputLen = 5
' 2400 Baud, No Parity, 8 Data Bits, 1 Stop Bit
MSComm1.Settings = "9600,N,8,1"
' Make sure DTR line is low to prevent Stamp reset
MSComm1.DTREnable = False
' Open COM3
MSComm1.CommPort = 3
MSComm1.PortOpen = True
End Sub
Private Sub MSComm1_OnComm()
Dim sData As String
Dim lHighByte As Long
Dim lLowByte As Long
Dim lByte As Long
' If Rx Event then get data and process
If MSComm1.CommEvent = comEvReceive Then
If MSComm1.Input = "<" Then
Do
sData = MSComm1.Input ' Get data
Label2.Caption = sData
Loop Until sData =">"
Label2.Caption = sData
End If
End If
End Sub