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) |
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) |
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'