Unterrichtseinheit: Unterprogramme - Klassenwiki

PDF­XCHANGE
w w w.docu­track.co m
Click to buy NOW!
PDF­XCHANGE
w w w.docu­track.co m
Click to buy NOW!
Arbeits­/Infoblatt
Datum:
Unterrichtseinheit: Unterprogramme
(mit Parameterübergabe, mit Rückgabewert)
Hier sind zwei Werte
für dich Funktion
Mittelwet!
Und hier gebe ich dir was
zurück Sub Berechnung!
Manchmal ist es sogar so, dass eine Prozedur, der Werte übergeben wurden, etwas
Neues berechnet und dann an die aufrufende Prozedur zurückgibt. Solche Prozeduren,
die einen Rückgabewert besitzen, nennt man in VBA Funktionen "Function"!
Hier ein Beispiel:
Private Sub cmd_Berechnung_Click()
Dim a As Integer
Dim b As Integer
Dim c As Double
a = txt_Zahl1.Text
b = txt_Zahl2.Text
c = Mittelwert(a,b)
WICHTIG: Wenn das Ergebnis einer Funktion
an das aufrufende Programm zurückgegeben
werden soll, so muss dieses Ergebnis in
einer Variablen gespeichert werden, welche
den Namen der Prozedur trägt!
End Sub
Call Ausgabe(c)
Private Function Mittelwert(x as Integer,y
as Integer)as Double
Mittelwert = (x + y) / 2
End Function
Private Sub Ausgabe(z as Double)
lbl_Mittelwert.Caption = z
End Sub
Formal hört sich das so an:
Prozeduren können auch einen Rückgabewert besitzen, d.h. der Prozeduraufruf hat wie ein
Ausdruck ein Ergebnis, das in der Regel in der Anweisung wieter verarbeitet wird (z.B. durch
Zuweisung auf eine Variable). Solche Teilprogramme bezeichnet man im Allgemeinen auch
als "Funktionen", da sie wie mathematische Funktionen ein Ergebnis leifern (z.B. sin(0) hat
als Ergebnis 0).

PDF­XCHANGE
w w w.docu­track.co m
Click to buy NOW!
PDF­XCHANGE
w w w.docu­track.co m
Click to buy NOW!
Arbeits­/Infoblatt
Datum:
Unterrichtseinheit: Unterprogramme
(mit Parameterübergabe, mit Rückgabewert)
Übung 3
Taxiunternehmer Schaefer lässt die Abrechnung der Fahrten elektronisch
verarbeiten. Der Anfangs­ und Endkilometerstand einer Tour soll aus dem
Tacho ausgelesen werden und der Fahrpreis automatisch ermittelt werden (in
der Entwicklungsphase müssen Sie diese Werte selbstverständlich von Hand
eingeben). Einen ersten Entwurf finden Sie im Quellcode zum Formular
frm_Uebung3.
Scheiben Sie den Entwurf derart um, dass das Hauptprogramm lediglich die Prozeduren Eingabe,
Verarbeitung und Ausgabe aufruft.
Übergeben Sie die Variablen so oft wie möglich (Tipp: In VBA ist es nur mit einem Kniff
möglich mehrere Werte aus einer Prozedur zurückzugeben. Überlegen Sie daher welche Information
aus ihrer Eingabe­Prozedur im weiteren Programm benötigt wird).
Es sollen keine globalen Variablen verwendet werden.
Rahmendaten: Pauschale je Fahrt: 1,50 €; Pauschale je Kilometer: 0,5 €.
Übung 4
Erinnern Sie sich an die Übung mit der Select­Case Kontrollstruktur
Eine mögliche Lösung könnte wie folgt aussehen:
Private Sub cmd_Praemie_Click()
Dim jahre As Integer
jahre = txt_jahre.Text
Select Case jahre
Case 0 To 1
lbl_Nachlass_Aus.Caption = basis ­ basis * (1 ­ 0 / 100)
lbl_Praemie_Aus.Caption = basis * (1 ­ 0 / 100)
Case 2 To 4
lbl_Nachlass_Aus.Caption = basis ­ basis * ((1 ­ 5 / 100))
lbl_Praemie_Aus.Caption = basis * ((1 ­ 5 / 100))
Case 5 To 6
lbl_Nachlass_Aus.Caption = basis ­ basis * (1 ­ 7 / 100)
lbl_Praemie_Aus.Caption = basis * (1 ­ 7 / 100)
Case 7 To 10
lbl_Nachlass_Aus.Caption = basis ­ basis * (1 ­ 9 / 100)
lbl_Praemie_Aus.Caption = basis * (1 ­ 9 / 100)
Case Else
lbl_Nachlass_Aus.Caption = basis ­ basis * (1 ­ 11 / 100)
lbl_Praemie_Aus.Caption = basis * (1 ­ 11 / 100)
End Select
txt_jahre.Text = ""
txt_jahre.SetFocus
End Sub
Selbstverständlich kann diese Lösung unseren heutigen Anforderungen nicht mehr
genügen!
Arbeitsauftrag
Schreiben Sie unter Verwendung von Prozeduren den Quellcode um. Es soll möglichst
oft mit Parameterübergabe und –Rückgabe gearbeitet werden.