Zum Kultusportal
Druckansicht von http://lehrerfortbildung-bw.de/faecher/mathematik/hs/tabelle/pythagoras/buttons1.htm, Stand 26. May. 2012
|
 |
Pythagoras / Buttons
Command- und Option-Buttons bearbeiten
Im Entwurfsmodus öffnet ein Doppelklick auf den Button „Berechne die Hypotenuse c“ den VB-Editor.
Wir öffnen hier noch den Ordner Module. Dort finden wir die zuvor aufgezeichneten Makros. Klick auf das Pluszeichen vor dem Ordner, anschließend Doppelklick auf „Modul1“ Wir markieren nun das Makro Pythagoras, kopieren es (günstig mit „Strg + c) und fügen es bei Tabelle 1 unter „Private Sub CommandButton1_Click() ein. Achtung, am Ende darf nur einmal „End Sub“ stehen.
Wir öffnen hier noch den Ordner Module. Dort finden wir die zuvor aufgezeichneten
Makros. Klick auf das Pluszeichen vor dem Ordner, anschließend Doppelklick
auf „Modul1“ Wir markieren nun das Makro Pythagoras, kopieren es
(günstig mit „Strg + c) und fügen es bei Tabelle 1 unter „Private
Sub CommandButton1_Click() ein. Achtung, am Ende darf nur einmal „End
Sub“ stehen.
Ebenso verfahren wir mit dem Button „Ergebnis Löschen“. Entwurfsmodus
einschalten, Doppelklick auf den Button, in „Module – Modul1 das
Makro „löschen kopieren und bei Tabelle1 einfügen.
Jetzt müssen wir nur noch den OptionButtons ihre Aufgaben zuweisen. Das ist ja eine Arbeit, die pro Button, also 5-mal durchgeführt werden muss. Um die Arbeit abzukürzen, klicken wir im Entwurfsmodus jeden Button der Reihe nach doppelt an. (VB-Editior mit Hilfe der Maus so verkleinern, dass die Buttons angeklickt werden können)So erhalten wir im VB-Editor die 5 OptionButtons. Wir kopieren anschließend aus „Module – Modul1“ das Makro „Größeneinheit“ und fügen es 5-mal bei Tabelle1 an den entsprechenden Stellen ein. Am Schluss müssen wir nur noch die Größeneinheiten ändern, fertig!
Der VB-Editor zeigt die 5 OptionButtons. Öffnen wir nun Modul1 und kopieren von dort, wie oben gesagt, das Makro „Größeneinheit“ in die Zwischenablage. (Strg + c)
Das Makro „Größeneinheit wird kopiert.
Mit der Tastenkombination „Strg + v“ fügen wir nun das Makro aus der Zwischenablage 5-mal an die vorgesehene Stelle zwischen „Private Sub OptionButton1_Click() und End Sub“ ein. Dabei achten wir darauf, dass wir das vorhandene „End Sub“ überschreiben. Es wie auch schon vorhin nicht zweimal hintereinander stehen. Wenn wir beim Kopieren das „End Sub“ nicht mit in den Zwischenspeicher genommen haben, achten wir darauf, das es vorhanden ist. Es schließt den Befehl ab.
Nun ändern wir noch die Größeneinheiten.
Der VB-Editor nach dem Einkopieren des Makros „Größeneinheit“.
Nach dem Schließen des VB-Editors beendet man den Entwurfsmodus und kann
das Funktionieren der Berechnung der Hypotenuse im rechtwinkligen Dreieck testen.
Zur Lösung einer Aufgabe wählt man nun zunächst die Größeneinheit aus, gibt die Werte der Katheten a und b ein und klickt auf die Befehlsschaltfläche „Berechne die Hypotenuse c“. Anschließend löscht man das Ergebnis mit der Befehlsschaltfläche „Ergebnis löschen“ und kann eine neue Aufgabe lösen.
zurück |
|
||
 |
Startseite |
Impressum |
© Copyright |
Zuständige Redakteurin: Barbara Abel, abellehrerfortbildung-bw.de
© Landesakademie für Fortbildung und Personalentwicklung an Schulen,
für diese Seite gilt http://lehrerfortbildung-bw.de/impressum/copyright/urheber_standard.html
Letzte Änderung: 25.07.2004