30.12.2012 Aufrufe

Skript Tcl/Tk - Praktische Informatik / Datenbanken - Universität Kassel

Skript Tcl/Tk - Praktische Informatik / Datenbanken - Universität Kassel

Skript Tcl/Tk - Praktische Informatik / Datenbanken - Universität Kassel

MEHR ANZEIGEN
WENIGER ANZEIGEN

Sie wollen auch ein ePaper? Erhöhen Sie die Reichweite Ihrer Titel.

YUMPU macht aus Druck-PDFs automatisch weboptimierte ePaper, die Google liebt.

46<br />

Prozeduren: Syntax (Forts.)<br />

Allg. Hinweise:<br />

Programmierung graphischer Benutzerschnittstellen mit <strong>Tcl</strong>/<strong>Tk</strong><br />

• Aufteilung auf mehrere Zeilen syntaktisch nicht notwendig<br />

• Achtung: Leerzeichen auf keinen Fall weglassen!<br />

• Alle außerhalb der Prozedur mit set definierten Variablen sind<br />

innerhalb der Prozeduren zunächst unbekannt<br />

• Besondere Kommandos innerhalb von Prozeduren:<br />

– Kommando global:<br />

global varname ?varname...?<br />

zur Deklaration der externen Variablen, die auch innerhalb der<br />

Prozedur nutzbar sein sollen<br />

– Aufruf von global jederzeit und mehrfach innerhalb der prozedur<br />

möglich<br />

– Kommando return:<br />

return ?list?<br />

beendet die Ausführung der Prozedur; list ist die Rückgabeliste<br />

der Prozedur<br />

Beispiel: Prozeduren (Schenk)<br />

set c 5<br />

proc plusC {a b} {<br />

global c<br />

set result [expr $a+$b+$c]<br />

return $result<br />

}<br />

puts [plusC 3 4]<br />

=><br />

12<br />

Zweites Beispiel (Wegner/Schweinsberg)<br />

% proc max2 {a b} {if {$a > $b} {return $a} else {return $b}}<br />

% max2 30 50<br />

50<br />

% max2 40 20<br />

40<br />

% max2 {20 "max2 30 40" }

Hurra! Ihre Datei wurde hochgeladen und ist bereit für die Veröffentlichung.

Erfolgreich gespeichert!

Leider ist etwas schief gelaufen!