61
ElseIf (StrComp(iPortResp$, "/BC0") = 0) Then
' i2cStick Baud Change 0 {19.2K}
TextBox.Text = "i2cStick Baud Change 0 {19.2K} "
ElseIf (StrComp(iPortResp$, "/BC1") = 0) Then
' i2cStick Baud Change 1 {57.6K}
TextBox.Text = "i2cStick Baud Change 1 {57.6K} "
ElseIf (StrComp(iPortResp$, "/BC2") = 0) Then
' i2cStick Baud Change 2 {115.2K}
TextBox.Text = "i2cStick Baud Change 0 {115.2K} "
' Test for i2cStick 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
' Test for i2cStick Response Messages
ElseIf (StrComp(iPortResp$, "****") = 0) Then
TextBox.Text = "* i2cStick Ready" 'Update Display
ElseIf (StrComp(iPortResp$, "/SNA") = 0) Then
TextBox.Text = "/SNA Slave Not Acknowledging"
ElseIf (StrComp(iPortResp$, "/I81") = 0) Then
TextBox.Text = "/I81 i2cStick Busy" 'Update Display
ElseIf (StrComp(iPortResp$, "/I83") = 0) Then
