einfaches Prüfprogramm

Dieses kleine Programm soll es uns ermöglichen, jeden beliebigen Befehl an jede Adresse senden zu können.
Wir können damit sowohl Magnetartikel als auch Lokomotiven ansprechen und steuern.

Dazu brauchen wir 2 Textboxen, in die wir Befehl und Adresse eingeben können und eine Taste, mit welcher wir die Instruktionen an das Interface übertragen.

Wir installieren 2 Textboxen und 1 Taste auf dem Form

Von Vorteil, aber nicht unbedingt nötig, ist die Begrenzung der maximal einzugebenden Zeichen in die Textboxen.
Wir setzen dazu die Textbox-Eigenschaft MaxLength auf 3.
Mehr als 3 Ziffern werden wir auf absehbare Zeit wohl nicht eingeben können.

Der benötigte Quellcode lautet:

Form
Private Sub Form_Load()
RS232.PortOpen = True
End Sub

Private Sub Form_Unload(Cancel As Integer)
RS232.PortOpen = False
End Sub

 

btnInstruktionSenden
Private Sub btnInstruktionSenden_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Call Senden(txtBefehl.Text, txtAdresse.Text)
End Sub

 

Public Sub Senden
Public Sub Senden(ByVal Befehl As String, Adresse As String)
Dim A as Integer
Dim B as Integer

A = Val(Adresse)
B = Val(Befehl)

RS232.Output = Chr(B) & Chr(A)
End Sub

Die Funktion dieses kleinen Programms:
Zur Laufzeit wird in die Textboxen der Befehl und die Adresse eingetragen. Wenn dann die Taste btnInstruktionSenden anklickt wird, werden die Daten

Wie leicht zu erkennen ist, senden wir in diesem Beispiel die Daten mit der Taste btnInstruktionSenden nicht direkt an das Interface sondern machen einen Umweg über die Prozedur (oder Routine) Senden.
Was uns dieser Umweg bringt, erfahrt ihr im Kapitel 'die Prozedur Senden'