`on uhrAktualisieren
revSetSpeechSpeed 270
put fld „uhr“ into zeitwert
subtract 1 from zeitwert
put zeitwert into fld „uhr“
revSpeak fld „uhr“
add 1 to fld „meineZahl“
if zeitwert > 0 then
send uhrAktualisieren to me in 1 seconds
else
subtract 30 from fld „meineZahl“
put the foregroundColor of the button „W“ into the fld „au“
set backgroundColor of stack „Timer down“ to white
set the foregroundColor of fld „uhr“ to black
set the foregroundColor of fld „Schalter“ to black
set the foregroundColor of fld „meineZahl“ to black
set the foregroundColor of fld „vorlesen“ to black
set the foregroundColor of fld „Geschichte“ to black
beep
if the hilited of widget „farben“ then
set backgroundColor of stack „Timer down“ to blue
set the foregroundColor of fld „uhr“ to white
set the foregroundColor of fld „Schalter“ to white
set the foregroundColor of fld „meineZahl“ to white
set the foregroundColor of fld „vorlesen“ to white
set the foregroundColor of fld „Geschichte“ to white
end if
if the hilited of widget „lesen“ then
revSetSpeechSpeed 210
revSpeak fld „Geschichte“
end if
end if
end uhrAktualisieren
Hallo Klaus,
hast du das so gemeint mit Code Tags?
