66
ElseIf (StrComp(iPortResp$, "/BC0") = 0) Then
' iPort/LAN Baud Change 0 {19.2K}
TextBox.Text = "iPort/LAN Baud Change 0 {19.2K} "
ElseIf (StrComp(iPortResp$, "/BC1") = 0) Then
' iPort/LAN Baud Change 1 {57.6K}
TextBox.Text = "iPort/LAN Baud Change 1 {57.6K} "
ElseIf (StrComp(iPortResp$, "/BC2") = 0) Then
' iPort/LAN Baud Change 2 {115.2K}
TextBox.Text = "iPort/LAN Baud Change 0 {115.2K} "
' Test for iPort/LAN 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/LAN Response Messages
ElseIf (StrComp(iPortResp$, "****") = 0) Then
TextBox.Text = "* iPort/LAN 2 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/LAN 2 Busy" 'Update Display
ElseIf (StrComp(iPortResp$, "/I83") = 0) Then
Содержание iPort/LAN 2
Страница 1: ...User s Guide Ethernet to I2 C Host Adapter ASCII Fast Mode with Circuit Sense www mcc us com ...
Страница 26: ...18 Part 2 iPort Utility Pack for Windows Part 2 iPort Utility Pack for Windows ...
Страница 52: ...44 Part 3 iPort LAN 2 Programmer s Reference Part 3 Programmer s Reference ASCII Command Interface Definitions ...