ElseIf (StrComp(iPortResp$, "/BC2") = 0) Then
' iPort/AFM Baud Change 2 {115.2K}
TextBox.Text = "iPort/AFM Baud Change 0 {115.2K} "
' Test for iPort/AFM Asynchronous Interface Events
ElseIf (StrComp(iPortResp$, "/SRC") = 0) Then
' Slave Rx Complete Processing |
|
TextBox.Text = LineBuf$ | 'Update Display |
ElseIf (StrComp(iPortResp$, "/GRC") = 0) Then ' General Call Rx Complete Processing
TextBox.Text = LineBuf$ | 'Update Display |
ElseIf (StrComp(iPortResp$, "/STR") = 0) Then | |
' Slave Tx Request Processing |
|
Comm1.Output = "/S~00~01" | 'Send Slave Tx Msg |
Comm1.Output = Chr$(13) | 'Terminate Command |
TextBox.Text = LineBuf$ | 'Update Display |
ElseIf (StrComp(iPortResp$, "/NSA") = 0) Then
' iNterrupt Signal Assert Detected
TextBox.Text = iNterrupt Signal Assert Detected
'Update Display
ElseIf (StrComp(iPortResp$, "/NSR") = 0) Then
' iNterrupt Signal Release Detected
TextBox.Text = iNterrupt Signal Release Detected
'Update Display
' Test for iPort/AFM Response Messages
ElseIf (StrComp(iPortResp$, "****") = 0) Then TextBox.Text = "* iPort/AFM Ready" 'Update Display
ElseIf (StrComp(iPortResp$, "/SNA") = 0) Then TextBox.Text = "/SNA Slave Not Acknowledging"
ElseIf (StrComp(iPortResp$, "/I81") = 0) Then TextBox.Text = "/I81 iPort/AFM Busy" 'Update Display
ElseIf (StrComp(iPortResp$, "/I83") = 0) Then
52