Übung
12
Programmierung (Visual Basic)
in
PowerPoint 2007
Ziel: Einfache
Programmierungen im Dienst von Lernprogrammen.
Voraussetzung: Stellen Sie die
Sicherheitsstufe bei Ihrem PowerPoint auf "Mittel" (Extras, Makros,
Sicherheit, Mittel).
Legende: Befehle (fett) und einzusetzende Werte
(kursiv).
1. Schritt: Eingabe-Box anlegen.
- Laden Sie das Beispiel "uebung12a.ppt". Die Datei enthält drei
Folien: Folie 1 zeigt das Ergebnis, Folie 2 enthält den Quelltext für
das später benötigte Skript, Folie 3 ist leer und steht für Ihre Übung
zur Verfügung. Wählen Sie Folie 3 aus.
- Lassen Sie sich die Symbolleiste Entwicklertools anzeigen:
Microsoft Office Schaltfläche, PowerPoint Optionen, Häkchen bei
Entwicklerregisterkarte in der Multifunktionsleiste anzeigen, OK.
- Wählen Sie das Element Textfeld (ActiveX-Steuerelement) aus und legen eines auf der
Folie durch Ziehen an. Hier geschieht später die Eingabe.
- Nun benötigt man einen Steuerknopf, der die Ausführung des
VB-Programmes auslöst. Dazu kann man das Steuerelement Befehlsschaltfläche verwenden. Wählen Sie es in der Symbolleiste an
und legen Sie es durch Ziehen an (Empfehlung: ca. 6-7cm lang und 1cm
breit). Der Befehlsschaltfläche wird zunächst automatisch die
Beschriftung CommandButton1 zugewiesen.
- Ändern Sie die Beschriftung z.B. auf OK oder Fertig!,
indem Sie mit der rechten Maustaste (R) drauf klicken und Eigenschaften wählen. Es erscheint das Menü
Eigenschaften.
Die Zeile Caption enthält die Beschriftung. Überschreiben Sie in
dem Menü.
- Nun legt man das Skript an. Es ist "im Rohbau" für Sie schon fertig
auf Folie 2. Markieren Sie den roten Text (bitte NUR den Text im
Textfeld!!!) und kopieren Sie ihn in die Zwischenablage.
- Klicken Sie jetzt doppelt (KK) auf die Befehlsschaltfläche in
Folie 3. Es öffnet sich ein neues Fenster mit dem VB-Editor und zwei
vorgegebenen Zeilen. Fügen Sie das Skript aus der Zwischenablage
zwischen diese beiden Zeilen ein.
- Schließen Sie den VB-Editor durch Anklicken des (roten)
Schließen-Kreuzes. Das Skript sollte schon funktionieren. Testen Sie es
im Präsentations-Modus.
2. Schritt: Anpassen des Skriptes an die eigenen Bedürfnisse.
Bevor man ein Skript ändert sollte man wissen, was es überhaupt tut ;-)
Lesen Sie nun bitte auf Folie 2 den grünen Text genau durch und vergleichen
Sie damit die (roten) VB-Befehle. Probieren Sie verschiedene Änderungen aus.
3. Schritt: Erweitern auf mehrere Boxen.
- Duplizieren Sie Folie 3. Sie erhalten Folie 4.
- Kopieren Sie (z.B. durch Strg+Ziehen) das Textfeld an eine 2.
Stelle.
- Öffnen Sie den Editor durch KK auf die Befehlsschaltfläche.
- Markieren Sie im Quelltext die Zeilen von TextBox1.BackColor
bis zum ersten Befehl End If. Kopieren Sie den Bereich in die
Zwischenablage.
- Fügen Sie diesen Absatz nach dem Befehl End If ein.
- Nun müssen einige Bezeichnungen geändert werden: alle Ziffern 1 in
der Kopie sollten auf 2 geändert werden.
- Sie können den zweiten Soll-Wert ändern (oder auch nicht).
- Der Test auf richtig und falsch wird etwas komplizierter: die letzte
If-Abfrage muss nun lauten If CheckTextBox1 And
CheckTextBox2 = True Then
- Testen (im Präsentations-Modus!).
- Spielen.
- Für die Hand des Schülers sollten Sie eine *.pps - Datei erzeugen.
Dazu müssen Sie alle Eingaben zurücksetzen: die Farben der Boxen zurück
auf weiß (R auf das Textfeld, Eigenschaften und im sich
öffnenden Fenster in der Zeile BackColor weiß wählen)
sowie die Eingabe durch Löschen des Wertes aus der Zeile Value.
Nun als pps abspeichern.
(Wen es noch interessiert: 4. Schritt: Erweitern auf elegantere
Art.
Wir bieten Ihnen
uebung12b.pptm mit einer
eleganteren Lösung für mehr als 2 Eingabefelder an. In dieser Datei finden
Sie auf Folie 1 das Ergebnis und auf Folie 2 das entsprechende Skript mit
Kommentaren. Versuchen Sie zu verstehen, was das Skript leistet und toben
Sie sich aus!)
Download des
PowerPoint-Ergebnisses, uebung12a.pptm 39k,
uebung12b.pptm 66k
E-Mail:
Walter.Wagner ät uni-bayreuth.de
| 