MCC MIIC-203 Guia do Utilizador descarregar pdf (Página 67)

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

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

' 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

1 2 ... 62 63 64 65 66 67 68 69 70 71

Sem comentários

MCC MIIC-203 Guia do Utilizador Página 67