XProfan

Italia

Source wurde am 15.07.2007 aus der MMJ-Quellcodesammlung (Dietmar Horn) in die Babyklappe auf XProfan.Com abgelegt:
Countdown
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%
    Let Zaehler%=1000                1000 = 1 Sekunde
    Let Dlg% = @CreateDialog(%Hwnd,Countdown,ACenterX(200),ACenterY(100),200,100)
    Let Zeittext% = @CreateText(Dlg%,,10,20,100,20)
    Settext Zeittext%,Add$(Add$(Noch ,Str$(Countdown%)), Sekunden)
    Die Schleife für den Countdown
    Dec Countdown%

    Whilenot Lt(Countdown%,0)

        SetTimer Zaehler%
        Waitinput

        If %wmtimer

            Settext Zeittext%,Add$(Add$(Noch ,Str$(Countdown%)), Sekunden)
            KillTimer
            Dec Countdown%

        Endif

    Endwhile

Endproc

Countdown 5
End