Das LotusScript-Entwicklerbuch für Notes/Domino 8 - Addison-Wesley

Weitere Magazine

Empfehlungen

Info

Eine eigene Prozedur schreiben 51 Hier fallen zwei Dinge auf. Erstens erhält der Funktionsname mit As String einen Zusatz wie bei einer Variablendeklaration. Damit wird der Datentyp der Rückgabe angegeben. Je nach Rückgabewert sind natürlich auch andere Deklarationen denkbar, wie Integer, Variant usw. Zweitens sehen Sie in der letzten Zeile der Funktion, dass der berechnete Wert aus strTimeText dem Namen der Funktion zugewiesen wird. Dadurch erfährt sie, welchen Wert sie ausgeben soll. Möchten wir den Wert der Funktion von unserem Agenten ausgeben lassen, so müssen wir den Aufruf ein wenig umschreiben. Denn wir müssen ja den Rückgabewert »abholen« und dann zur Ausgabe bringen: Sub Initialize Messagebox GetTime End Sub Listing 3.6 Der Aufruf von GetTime Wir können den Rückgabewert auch erst einer Variablen zuweisen und dann weitere Berechnungen vornehmen: Sub Initialize Dim strTime$ Dim strPrefix$ } Hinweis Es gehört zum guten Programmierstil, diese Zuweisung erst zum Schluss zu tätigen. Natürlich könnte man bei dieser kurzen Berechnung statt der Variablen str- TimeText gleich den Ausdruck zuweisen. Das wäre in diesem Fall in Ordnung, da die Zuweisung auch dann ja am Ende erfolgen würde. Die vorgenommene strikte Trennung ist aber am übersichtlichsten und soll Ihnen den Grundsatz vor Augen führen. Theoretisch kann man den Funktionsnamen sogar wie eine lokale Variable behandeln und ihren Inhalt zwischendurch abfragen, verarbeiten und erneut zuweisen. Davon ist aber auf jeden Fall abzuraten. strPrefix = {Der Agent sagt: strTime = GetTime Messagebox strPrefix & strTime End Sub Listing 3.7 Berechnung mit dem Rückgabewert von GetTime IBM SOFTWARE PRESS
52 Einführung in die LotusScript-Programmierung Wenn Sie die Erstellung des ersten Textteils (strPrefix) betrachten, wird Ihnen auffallen, dass die Zeichenkette diesmal nicht von Anführungszeichen, sondern von geschweiften Klammern umrandet ist und sich in die übernächste Zeile erstreckt. Das hat den Grund, dass wir einen doppelten Zeilenumbruch für die Ausgabe benötigen. Anstatt ihn mit den betriebssystemspezifischen Zeichen zu kodieren, schreiben wir ihn einfach hin. Das geht aber nur mit geschweiften Klammern (oder mit der noch verbleibenden Alternative, den senkrechten Strichen ||). Die Ausgabe sehen Sie in Abbildung 3.21. Abbildung 3.21 Anzeige des verarbeiteten Rückgabewertes der Funktion GetTime 3.5.4 Parameter und Programmverzweigungen Allen Prozeduren können Parameter übergeben werden. Mit diesen steuern Sie das Verhalten der Prozedur. Parameter Parameter sind Variablen, die im Prozedurkopf angegeben werden (also in der Zeile, in der der Prozedurname steht). Parameter stehen innerhalb der Prozedur wie lokale Variablen zur Verfügung. Sie können abgefragt und bearbeitet werden. Wenn eine solche Prozedur aufgerufen wird, dann muss ihr für jeden Parameter ein Wert mitgegeben werden. Die Funktion GetTime gibt bislang nur deutsche Texte aus. Wenn wir in einem internationalen Umfeld arbeiten, dann benötigen wir wahrscheinlich auch eine englische Ausgabe. Um nicht für jede Sprachausgabe eine eigene Funktion schreiben zu müssen, parametrisieren wir sie und übergeben ein Kürzel, das sie anweist, eine deutsche oder eine englische Ausgabe zu generieren. Function GetTime(in_strLanguage As String) As String Dim strTimeText$ If in_strLanguage = “de” Then strTimeText = "Wir schreiben den " & Date & _ ". Die Uhrzeit ist: " & Time Else strTimeText = "Today it is the " & Date & _ ". Current time: " & Time End If
Seite 2: Grundlagen Teil I führt Sie auf pr
Seite 5 und 6: 32 Einführung in die LotusScript-P
Seite 23: 50 Einführung in die LotusScript-P

Das LotusScript-Entwicklerbuch für Notes/Domino 8 - Addison-Wesley

Erfolgreiche ePaper selbst erstellen

Template löschen?

Als Template speichern?