Rückgabe mehrerer Werte durch Funktionen
|
In manchen Fällen ist es notwendig, mehrere Werte an das aufrufende
Programm zurückzugeben. Das ist in Basic nicht vorgesehen.
Ein Beispiel dafür ist die Berechnung der 2dimensionalen Koordinaten
eines Punktes mit einem Algorithmus, der beide Koordinaten X und Y liefert.
▼
In den Beispielen wird das Ergebnis zur Vereinfachung nicht wirklich berechnet,
sondern nur der Punkt (123,234) simuliert.
|
Dazu gibt es mehrere Möglichkeiten:
■
Variante 1: Sie erstellen getrennte Funktionen. Jede davon berechnet die komplette
Lösung, gibt aber nur eines der Ergebnisse zurück. Langsam, aber sicher.
■
Variante 2: Sie rechnen nur einmal und speichern die Ergebnisse in globalen
Variablen. Mehrere Rückgabe-Functions geben je eines der Ergebnisse zurück.
Schnell, aber riskant.
■
Variante 3: Sie geben mehrere Ergebnisse als String zurück und zerlegen
diesen anschließend in seine Bestandteile. Ziemlich schnell, sehr sicher.
|
■
Lösungs-Variante 1:
Sie erstellen eigene Funktionen für jedes Rückgabe-Datum. Jede davon berechnet
die komplette Lösung, gibt aber nur eines
der beiden Ergebnisse zurück.
Anwendung: In je eine Zelle werden die
Formeln =calc_x() bzw. =calc_y()
eingetragen.
Vorteil: einfache und saubere Lösung.
Nachteil: Der gesamte Algorithmus wird mehrfach berechnet,
je einmal für jedes einzelne Ergebnis.
Verwenden sie diese Variante bei kurzen und schnellen Algorithmen, und wenn nur wenige
Daten zurückzugeben sind. Hier macht es wenig aus, mehrfach zu rechnen.
|
Dim x, y As Double ' Global !
Function calc_x()
calc_xy()
calc_x = x
End Function
Function calc_y()
calc_xy(bereich)
calc_y = y
End Function
Private Function calc_xy()
' Modell-Algorithmus
x = 123
y = 234
End Function
|
■
Lösungs-Variante 2:
Der Algorithmus wird nur einmal ausgeführt und speichert seine Ergebnisse
in globalen Variablen. Anschließend (!) werden die einzelnen Ergebnis-Daten
durch eigene Rückgabe-Functions zurückgegeben.
►
Die Function calc_xy() wird (wie jede andere) neu
berechnet,wenn sich ihre Argumente geändert haben. Das wird hier mit dem
Argument t (Trigger) simuliert. Je nach Basic-Version
genügt es nicht, dass ein Trigger-Argument angegeben wird, man muss es
manchmal auch verwenden - hier mit der ansonsten wirkungslosen
Anweisung t=t+1
►
Function calc_xy() gibt einen Zufalls-Wert zurück,
der als Trigger (Auslöser) für die Berechnung der beiden anderen Functions
verwendet wird. Damit wird sichergestellt, dass die Rückgabe-Funktionen erst
nach der fertigen 'Berechnung' aufgerufen werden.
►
Die beiden Rückgabe-Functions übertragen lediglich je ein Ergebnis der
Berechnung von den globalen Daten an die Kalkulation. Sie werden daher sehr schnell
ausgeführt.
Anwendung
Formel in Zelle E1: =calc_xy(987)
(Ignorieren sie den in E1 berechneten Wert)
Formel in Zelle E2: =return_x(E1)
Formel in Zelle E2: =return_x(E1)
Die Berechnung wird nach jeder Änderung der Argumente
von calx_xy() neu durchgeführt.
Vorteil: Schnellstes Verfahren.
Nachteil: Die Reihenfolge der
Berechnung muss unbedingt sichergestellt werden.
Verwenden sie diese Variante bei längeren Berechnungen - Diese werden dann nur
einmal ausgeführt. Die richtige Anwendung (Ergebnis von calc_xy()
als Trigger für die Rückgabe) muss unbedingt befolgt werden, ansonsten liefert die
Methode evtl. falsche Werte !
|
Dim x, y As Double
Function calc_xy(t)
' Modell-Algorithmus
t = t + 1
x = 123
y = 234
calc_xy = Rnd
End Function
Function return_x(t)
t = t + 1 ' Trigger
return_x = x
End Function
Function return_y(t)
t = t + 1 ' Trigger
return_y = y
End Function
Schnell aber riskant !
Wenn sie einen Trigger (t) nicht innerhalb der Function
(beliebig) verwenden, dann wird diese Function auch bei Änderung des Triggers
nicht neu berechnet !
●
Die Methode funktioniert nur dann, wenn man die Bedingungen der Anwendung einhält.
Sie ist daher nur für eigene Kalkulationen geeignet, nicht zur Weitergabe.
|
■
Lösungs-Variante 3:
Der Algorithmus wird nur einmal ausgeführt, gibt jedoch mehrere Daten
als String zurück, getrennt durch ein vereinbartes Trennzeichen
(hier ; Strichpunkt).
Vorteil: Ziemlich schnell, sehr sicher.
Nachteil: Sie benötigen eine zusätzliche Funktion
zur Aufspaltung des Rückgabe-Strings.
Verwenden sie diese Variante, wenn der Algorithmus lang und zeitraubend ist,
oder wenn er mehr als 2 Daten zurückgeben soll.
Rechts ein Beispiel der Decodier-Function extract()
Verwenden sie eine Kalkulations-Zelle für das String-Ergebnis von
calc_xy(), je eine weitere für jede im String enthaltene Variable, z.B.
A1 =calc_xy()
A2 =extract(A1;0)
A3 =extract(A1;1)
|
Option Base 0
Function calc_xy() As String
' Modell-Algorithmus
x = 123
y = 234
calc_peak = x & ";" & y
End Function
Function extract(strg, n) As Double
Dim sa() As String
sa = Split(text, ";")
Select Case index
Case Is < 0
Err.Raise 13
Case Is <= UBound(sa)
extract = sa(index - 1)
Case Else
Err.Raise 13
End Select
End Function
|
Wenn die Extraktion einer Variablen aus dem String scheitert, dann gibt die
Funktion den Fehler #WERT zurück.
Wenn sie mehrere Variable ausschließlich innerhalb
Basic übergeben wollen, dann eigen sich dazu am besten Arrays.
♦
Details im Kapitel Basic-Arrays.
|
Kalkulations-Programme kennen keine Arrays, dafür jedoch Bereiche (Range).
Aus unbekannten Gründen dürfen Basic-Functions keine Daten in Bereiche
eintragen. Dafür kann man Basic-
→ Subs ('Unterprogramme') verwenden, denen dieses Recht erlaubt ist.
|
Basic
Alternative (je nach Excel-Version) Menü 
-Symbol.