Übertragung von Steuerbytes

---

Die Kommunikation mit elektronischen Geräten verwendet oft einzelne Bytes statt Textzeichen. Die möglichen Zahlenwerte zwischen 0 und 255 können z. B. einzelnen Befehlen zugeordnet sein. Das Beispielprogramm öffnet wieder COM1 mit 1200 Baud (1200 Bits pro Sekunde), ohne Paritätsbit, mit acht Bits pro Zeichen und einem Stopbit.

OPENCOM "COM1:1200,N,8,1"

Das Programm ähnelt dem Text-Terminal mit dem Unterschied, dass man nun Zahlenwerte bis 255 eingeben muss, die auch wieder als Zahlenwerte empfangen werden.

Für einen ersten Test können Sie auch hier die Leitungen TXD und RXD direkt verbinden. Sie empfangen dann die gesendeten Bytes im Empfangsfenster.

Das Programm kann verwendet werden, um zwei PCs zu verbinden. Man kann sich gegenseitig Steuerkommandos zuschicken. Die Bedeutung der einzelnen Bytes muss der Aufgabe entsprechend festgelegt 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