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} "
51
