Tescom MTP200B, Operating Manual, Page: 101 / 172

Sample Source Code
85
txt_read.Text = rd
End If
serial.DiscardInBuffer()
End If
index = index + 1
SendCommand(index)
End Sub
Private Sub bt_Send_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles bt_Send.Click
SendCommand(index)
End Sub
Private Sub SendCommand(ByVal idx As Integer)
Dim cmd As String
If idx >= commands.Length Then
MsgBox("End of commands")
Application.Exit()
Exit Sub
End If
cmd = commands(idx)
If String.IsNullOrEmpty(cmd) = False Then
serial.Write(cmd + Chr(&HA))
End If
End Sub
End Class