MCC MIIC-203 Guía de usuario descargar pdf (Pagina 72)

ElseIf (StrComp(iPortResp$, "/BC0") = 0) Then

' iPort/USB Baud Change 0 {19.2K}

TextBox.Text = "iPort/USB Baud Change 0 {19.2K} "

ElseIf (StrComp(iPortResp$, "/BC1") = 0) Then

' iPort/USB Baud Change 1 {57.6K}

TextBox.Text = "iPort/USB Baud Change 1 {57.6K} "

ElseIf (StrComp(iPortResp$, "/BC2") = 0) Then

' iPort/USB Baud Change 2 {115.2K}

TextBox.Text = "iPort/USB Baud Change 0 {115.2K} "

' Test for iPort/USB 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 iPort/USB Response Messages

ElseIf (StrComp(iPortResp$, "****") = 0) Then

TextBox.Text = "* iPort/USB 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/USB Busy" 'Update Display

ElseIf (StrComp(iPortResp$, "/I83") = 0) Then

1 2 ... 67 68 69 70 71 72 73 74 75 76 77

Sin comentarios

MCC MIIC-203 Guía de usuario Pagina 72