Universelles Terminalprogramm

---

Wenn ein unbekanntes Gerät an der seriellen Schnittstelle betrieben werden soll, muss zunächst geklärt werden, wie die Kommunikation definiert ist. Es lassen sich einzelne Bytes oder Texte senden und empfangen. Das Universalterminal kann beides. Zusätzlich können dieses Mal alle Schnittstellenparameter frei eingestellt werden. Außerdem hat man freien Zugriff auf die Handshake-Leitungen.

Im Beispiel wurde das Programm mit "COM2:1200,N,8,1" geöffnet. Aus dem Text-Sendefenster heraus wurden die Textzeichen A bis C gesendet. Im Byte-Fenster werden sie mit ihrem ASCII-Zahlenwert 65 bis 67 dargestellt. Ebenso kann man z. B. ein Byte 65 abschicken, das beim Empfang als Textzeichen A gelesen wird.

 

Für einen ersten Test sind die Leitungen TXD und RXD direkt zu verbinden. Ebenso können natürlich auch wieder zwei Schnittsellen über Kreuz verbunden werden.

Private Sub Text1_Change()
  If Text1.Text > "" Then Char = Asc(Right$
             (Text1.Text, 1))
  If Char = 10 Then
    Byt$ = (Right$(Text1.Text, 5))
    Dat = Val(Byt$)
    Dat = Dat And 255
    SENDBYTE Dat
  End If
End Sub

Private Sub Timer1_Timer()
  Dat = READBYTE
  If Dat > -1 Then
    Text2.Text = Text2.Text + Str$(Dat) + " "
     n = n + 1
     If n = 8 Then n = 0: Text2.Text = Text2.Text + Chr(13) + Chr(10)
     Text2.Refresh
  End If
End Sub

zurück
weiter