Countdown mit Abbruchmöglichkeit

'Countdown mit Abbruchmöglichkeit

Beitrag, 15.07.2007 22:03:

'Source wurde am 15.07.2007 aus der MMJ-Quellcodesammlung (Dietmar Horn) in die Babyklappe auf XProfan.Com abgelegt:

'Countdown mit Abbruchmöglichkeit
'Lauffähig ab Profan-Version 5.0
'
'Andreas Miethe * Juli 1998
'***********************************************
'Definitionen für die Zentrierung des Hauptfensters
DEF @ACenterx(1) sub(div(%maxx,2),div(@!(1),2))
DEF @ACentery(1) sub(div(%maxy,2),div(@!(1),2))

SetTruecolor 1
Windowstyle $30
Windowtitle "Countdown"
Window ACenterX(400),ACenterY(300)-400,300
CLS @rgb(192,192,192)
Usefont "Arial",15,0,0,0,0
Setdialogfont 1

Proc Countdown
Decimals 0                      ' keine Nachkommastellen
Parameters Countdown%
Declare Dlg%,Zeittext%,Zaehler%,Button%
Let Zaehler%=1000               ' 1000 = 1 Sekunde
Let Dlg% = @CreateDialog(%Hwnd,"Countdown",ACenterX(200),ACenterY(100),200,100)
Let Button% = @CreateButton(Dlg%,"Abbruch",60,50,80,24)
Let Zeittext% = @CreateText(Dlg%,"",50,20,180,20)
Settext Zeittext%,Add$(Add$("Noch ",Str$(Countdown%))," Sekunden")

'Die Schleife für den Countdown
Dec Countdown%
Whilenot Lt(Countdown%,0)
         SetTimer Zaehler%
         Waitinput
         Case @GetFocus(Button%):let countdown%=-1
         If %wmtimer
                 Settext Zeittext%,Add$(Add$("Noch ",Str$(Countdown%))," Sekunden")
                 KillTimer
                 Dec Countdown%
         Endif
Endwhile
Endproc

Countdown 15
End

Dies ist die Offlinevariante vom Thread [Countdown mit Abbruchmöglichkeit].