Uhr mit TCL

[ten13]

Hi ich hab folgendes Problem :

Ich will mir Uhr in ein Label einbauen. Diese soll sich jede Minute updaten, sprich wie eine echt Uhr laufen (nach Systemzeit)

Kann mir jmd. weiter helfen.

Vielen Dank im voraus

ten13

[ten13]

ok edanke ich hab meine lösung : )

hat jetzt doch geklappt

#Uhr + Datum

set uhrzeit [clock format [clock seconds] -format {%H:%M:%S}]

proc uhr {} {

set zeit [clock format [clock seconds] -format {%H:%M:%S}]

.systemzeit configure -text $zeit

after 1000 uhr

}

label .systemzeit -text $uhrzeit

pack .systemzeit

uhr

set datum [clock format [clock seconds] -format {%d.%m.%Y}]

proc dat {} {

set zeit [clock format [clock seconds] -format {%d.%m.%Y}]

.tagesdatum configure -text $zeit

after 1000 dat

}

label .tagesdatum -text $datum

pack .tagesdatum

dat

[micrate]

cool noch jemand, der mit tcl programmiert :e@sy

[ten13]

: ) japp ist bei mir in der abteilung standart

ist ne nette sprache - einfach und effektiv :uli

[micrate]

hihi, ich programmier auch berufllich damit...:-)

in welchem zusammenhang macht ihr da was?

[ten13]

unsere Mover werden mit TCL programmiert um unsere Prozesse zu automatiesieren weil wir alle so faul sind : )