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

Communication Event Processing

Static Sub Comm1_OnComm ()

Static LineBuf$

While Comm1.InBufferCount

Msg$ = Comm1.Input ' Get Comm input character

CharIn$ = Msg$

If Msg$ = Chr$(13) Then Msg$ = "" ' Remove CR

If Msg$ = Chr$(10) Then Msg$ = "" ' Remove LF

If Msg$ = "*" Then ' if iPort/USB 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/USB 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 "

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

Sem comentários

MCC MIIC-203 Guia do Utilizador Página 71