EasyLinux Programme und Skripte (Vorschau)

LibreOffice Basic
Titel
links in einer Baumstruktur
auch Ihr aktuelles Dokument
anzeigt (im Beispiel: easylinux01.ods).
Der Eintrag Meine
Makros sollte einen Untereintrag
Standard haben, und darunter
finden Sie Module1. Im
rechten Bereich steht unter
Vorhandene Makros in Module1
nur Main: Klicken Sie
auf diesen Eintrag und dann
auf Bearbeiten.
Der Dialog verschwindet, und
stattdessen erscheint ein Editorfenster,
in dem Sie programmieren
können (Abbildung 2). Zunächst
stehen dort nur ein Kommentar und eine
leere Prozedur namens Main.
Wechseln Sie in dieses Fenster und springen
Sie im rechten Editorbereich ans
Ende. Fügen Sie dort eine Leerzeile und
dann den Code aus Listing 1 ein. Das ist
noch nicht die Lösung, sondern ein Teil
des Wegs dorthin: Wenn Sie nun in die
Tabelle zurück wechseln und in eine freie
Zelle die Formel
=MeinWert(A1:A5)
eingeben, erscheint darin ein Text, der
aus den fünf Zellinhalten (von A1 bis A5)
besteht; die Werte sind darin durch Leerzeichen
voneinander getrennt. Der Sinn
dieses ersten Listings ist, dass Sie erkennen,
wie Sie auf die Zellen zugreifen können,
die Sie über die Formel =MeinWert
(A1:A5) an die Funktion übergeben.
Da die BASIC-Funktion nicht wissen
kann, wie viele Zellen zu bearbeiten
sind, nutzt sie die Funktionen LBound
(Lower Bound) und UBound (Upper
Bound), die für einen rechteckigen Bereich
jeweils den kleinsten und größten
Zeilen- oder Spalten-Index zurück geben:
Wenn das zweite Argument 1 ist,
geht es um Zeilen, falls es 2 ist, arbeitet
es mit Spalten.
Damit die Funktion alle Zelleninhalte
auswerten kann, verwendet sie eine geschachtelte
Schleife: Die äußere Schleife
läuft über alle Zeilennummern, die innere
über alle Spaltennummern, und der
Zugriff auf die Zellen ist dann über
Zellen (Zeile, Spalte) möglich – Zellen
hat die MeinWert-Funktion als Argument
erhalten.
Wichtig ist hier zu verstehen, dass Sie
zwar in der Tabelle die Formel =Mein
Wert(A1:A5) verwenden können, dass
aber A1:A5 nicht das Argument ist, das
Abb. 1: Aus Calc heraus rufen Sie die Verwaltung der Makros
auf. Über „Bearbeiten“ aktivieren Sie den Editor.
die Funktion erhält. Auf dem Weg von der
Tabelle in die Funktion wird A1:A5 in ein
zweidimensionales Array umgewandelt,
dessen Elemente die Funktion über die Indizes
(Zeile, Spalte) anspricht.
BASIC-Funktionen in LibreOffice geben
einen Wert immer durch eine Zuweisung
zurück, im Beispiel MeinWert = Ausgabe.
Was wie das Setzen einer Variable aussieht,
ist tatsächlich die Festlegung des
Rückgabewerts; Sie erkennen das nur daran,
dass hier der Name der Funktion verwendet
wird.
Maximum und Minimum
Zurück zur Aufgabenstellung:
Das Ziel war, in der Tabelle anstelle
von
=(MAX(A1:A5)+MIN(A1:A5)) / 2
die Formel
=MeinWert(A1:A5)
verwenden zu können. In Listing
1 sind im Prinzip schon
die wichtigsten Features enthalten,
um das zu erreichen
– nämlich der Zugriff auf alle
Zellen. Auf den ersten Blick
könnte man hoffen, dass die
Aufgabe viel leichter ist:
Wenn Sie in die MeinWert-
Funktion nur MeinWert =
(Max(Zellen)+Min(Zellen))/
2 schreiben, funktioniert das
nicht: Es gibt im BASIC keine
Max- und Min-Funktionen,
also müssen wir deren Funktionalität
nachbauen.
Die Lösung der Aufgabe sehen
Sie in Listing 2. Das Kernstück bildet auch
hier die geschachtelte Schleife, die Sie
schon aus Listing 1 kennen. Innerhalb der
Schleife berechnet die Funktion nun das
Maximum und das Minimum. Das funktioniert
so:
l Vor der Schleife ermittelt die Funktion
die Indizes der ersten betroffenen Zelle
und speichert diese in den Variablen
StartX und StartY.
l Über Zellen (StartX, StartY) liest sie
den Wert in der ersten Zelle aus und
Listing 1
Function MeinWert (Zellen)
Ausgabe = ""
For Zeile = LBound(Zellen, 1) To UBound(Zellen, 1)
For Spalte = LBound(Zellen, 2) To UBound(Zellen, 2)
Ausgabe = Ausgabe + Str( Zellen(Zeile, Spalte) )
Next
Next
MeinWert = Ausgabe
End Function
Abb. 2: Im Editor können Sie Funktionen und Prozeduren eingeben, die Sie dann in
Calc-Tabellen zusammen mit den Standardfunktionen von Calc nutzen.
EasyLinux
03/2013
www.easylinux.de
45