Filter
Top Products
51
If Msg$ = Chr$(13) Then Msg$ = "" ' Remove CR
If Msg$ = Chr$(10) Then Msg$ = "" ' Remove LF
If Msg$ = "*" Then ' if iPort/AFM Ready
Msg$ = "****" ‘ Substitute Token
CharIn$ = Chr$(13) ‘ Terminate Line
End If
LineBuf$ = LineBuf$ + Msg$ 'Add new text to line buffer
If CharIn$ = Chr$(13) Then ' if Carriage Return detected
iPortResp$ = Left$(LineBuf$, 4) 'Isolate Response Code
' Test for iPort/AFM Synchronous Interface Events
If (StrComp(iPortResp$, "/OCC") = 0) Then
' Open Connection Complete Processing
TextBox.Text = "/OCC Open Connection Complete"
ElseIf (StrComp(iPortResp$, "/MTC") = 0) Then
' Master Transmit Complete Processing
TextBox.Text = "/MTC Master Tx Complete"
ElseIf (StrComp(iPortResp$, "/MRC") = 0) Then
' Master Rx Complete Processing
TextBox.Text = LineBuf$ 'Update Display
ElseIf (StrComp(iPortResp$, "/STC") = 0) Then
' Slave Tx Complete Processing
TextBox.Text = "/STC Slave Tx Complete"
ElseIf (StrComp(iPortResp$, "/CCC") = 0) Then
' Close Connection Complete Processing
TextBox.Text = "/CCC Close Connection Complete "
ElseIf (StrComp(iPortResp$, "/BC0") = 0) Then
' iPort/AFM Baud Change 0 {19.2K}
TextBox.Text = "iPort/AFM Baud Change 0 {19.2K} "
ElseIf (StrComp(iPortResp$, "/BC1") = 0) Then
' iPort/AFM Baud Change 1 {57.6K}
TextBox.Text = "iPort/AFM Baud Change 1 {57.6K} "