Ihre erste Ausführung gefällt dem Meister nicht, da es auf die fachlich richtige Ausführung und auf die Schönheit der Arbeit ankommt, was Sie nach seinen aufmunternden Erklärungen einsehen. Er weist Sie erneut darauf hin, dass Sie die Aufgabe genau so ausführen sollen, wie es Ihnen im Muster vorgegeben ist.
Wir lernen seit unserer Kindheit ja sehr vieles durch Nachahmung, also tun Sie das bitte nun auch, indem Sie sich das Programmbeispiel hier herunterladen und Ihre Visual-Basic-Entwicklungsoberfläche starten.
Ausschaltung1 hier downloaden
Zusätzlich soll abweichend von der Wirklichkeit beim Programmlauf der Schaltzustand der Schaltfläche, die den Ausschalter symbolisiert, links daneben in einem Textfeld angezeigt werden. Sie haben die Visual Basic-Entwicklungsumgebung auf Ihrem Rechner installiert und das kleine Programm geladen.
Wenn Sie jetzt die einzelnen Bauelemente Ihrer Schaltung aus der Werkzeugsammlung links z. B. die einzelnen Leitungen (Line) anklicken, erhalten Sie rechts unten die Informationen dazu, wie z.B. Breite (BorderWidth), Farbe (BorderColor), Anfangs- und Endkoordinaten(X1, Y1,X2,Y2), Ausführung der Linie(BorderStyle). Durch Anklicken können Sie z. B. die Farbe durch Auswählen einer anderen im Bereich Palette oder System ändern. Oder Sie nehmen eine andere Breite für die Linie, die für die Leitung steht. Sie können ja immer wieder zu dem Musterbeispiel zurückkehren, das vorgegeben ist.
Wenn Sie eine der Linien verschieben, rastet diese nur an bestimmten Stellen ein. Das ist mit etwas Fantasie vergleichbar mit dem Aufbau einer Installationsschaltung auf einer gelochten Metallplatte, die auf Grund der regelmäßigen Anordnung der gestanzten Löcher die Befestigung der Bauelemente (Abzweigdosen, Schalter usw.) nur an bestimmten Stellen zulässt.
Sie können dieses Einrasten im Menü oben abschalten, wenn Sie unter Tools Options General das Häkchen der sogenannten CheckBox bei Align Control to Grid anklicken, damit dieses verschwindet, und es später wieder setzen, wenn Sie es möchten.
Als Abzweigdosen habe ich sogenannte Shape-Controls gewählt, deren Form und Farbe Sie ändern können. Auch dazu erhalten Sie beim Anklicken die Informationen rechts unten.
Als Schalter habe ich das sogenannte Frame-Symbol gewählt, das mir die Möglichkeit bietet, Schaltflächen zu Gruppen zusammenzufassen. Darin befindet sich eine Schaltfläche CommandButton, die den Schalter in der Ausschaltung symbolisiert.
Die Lampe besteht aus sogenannten Shapes, nämlich einem Lampengehäuse und der Leuchte, hier als rote Leuchtdiode dargestellt mit zwei kleinen weißen Shapes links oben im Symbol, die wichtig sind, da erst mit ihnen die Leuchtdiode ein wirklichkeitsnahes Aussehen erhält. Schauen Sie sich bitte deren Eigenschaften im Feld rechts unten genau an!
In einem Textfeld neben dem Schalter wird sein Schaltzustand durch Anzeigen einer 1 für Zustand Ein bzw. einer 0 für Zustand Aus dargestellt.
Wenn das Programm gestartet wird, soll die Lampe erst leuchten, wenn der Schalter betätigt wird. Erneutes Betätigen bedeutet Ausschalten der Lampe usw.
Zuerst wird mit Dim a As Byte eine Variable a festgelegt, die im Programm verwendet wird.
Wenn Sie die Schaltfläche anklicken, geben Sie zwischen Private Sub Command1_Click() und End Sub den im Bild gezeigten Text ein.
Klicken Sie Form1 an, sind dort die beiden Zeilen einzufügen, wie es im Bild zu erkennen ist.
Wie funktioniert das Programm nach dem Start?
Beim Anklicken der Schaltfläche wird die Variable a um 1 erhöht, aber nur, bis 1 erreicht ist, da es ja in der Wirklichkeit auch nur zwei Schaltzustände eines Ausschalters gibt, nämlich Ein und Aus. Wird 1 überschritten, wird a wieder 0. Dies geschieht mit den Anweisungen If Then.. End If
Der Wert von a wird jeweils in einem Textfeld daneben angezeigt.
Danach folgt die Auswertung mit Select Case a. Nimmt a den Zustand 0 an, soll die Leuchtdiode nicht leuchten (festgelegt durch Shape4.FillColor = &H80&) , also wird das ihr zugeordnete Shape dunkelrot dargestellt, während im Falle, dass a =1 (Schalter in Ein-Stellung) ein Leuchten durch ein helles Rot symbolisiert wird. Der Hexadezimalwert für die Farbe ist jetzt &HFF&. Am Ende von Select Case muss End Select stehen.
Wird das Programm zum ersten Mal gestartet, soll die Leuchtdiode nicht leuchten, also ist bei seinem Entwurf zwischen Private Sub Form_Load() und End Sub der oben angeführte Text einzufügen, damit beim Programmlauf das geschieht, was man möchte.
Der Meister hat der Auszubildenden/dem Auszubildenden nach erfolgreicher Ausführung zwei Zusatzaufgaben gestellt:
- Die Lampe, die geschaltet wird, soll sich unter der linken Abzweigdose befinden
- Der Ausschalter schaltet eine Lampe unter der linken und eine unter der rechten Abzweigdose.
Versuchen Sie die beiden für Visual Basic abgewandelten Zusatzaufgaben durch Veränderung des Programmbeispiels zu lösen, indem Sie zuerst für die Lampe links per Programm eine grüne Leuchtdiode einsetzen, während Sie bei der Lösung der zweiten Zusatzaufgabe links eine rote und rechts eine grüne Leuchtdiode darstellen lassen, die beim Betätigen der Schaltfläche ein- bzw. ausgeschaltet werden können.
Literatur:
Peter Mondadjemi „Jetzt lerne ich Visual Basic", Verlag Markt + Technik, 2003
Michael Kolberg „Richtig Ein und Umsteigen mit Visual Basic 2005 Express Edition", Franzis-Verlag, 2007
