XProfan

Source wurde am 15.07.2007 aus der MMJ-Quellcodesammlung (Dietmar Horn) in die Babyklappe auf XProfan.Com abgelegt:
Wecker (Erinnerer) programmieren (Timer)
Lauffähig ab Profan-Version 6.6
 $P*
Declare T$,Z%,Ende%,BE%
WindowStyle 26
WindowTitle Erinnerer
Window 200,200 - 95,45
SetWindowPos %HWnd=200,200-95,45;-1
MessageBox programmiert von Sven Schneider 1999,Erinnerer :,0
Let T$ = @Input$(Bitte geben Sie die Meldung ein :,Erinerer :,Die Zeit ist wieder abgelaufen !!!)
Let Z% = @Input$(Bitte geben Sie den Zeitabschnitt ein :,Erinnerer :,Geben Sie hier den Zeitabschnitt (in Sekunden) ein, der gewartet werden soll.)
Let Z% = Z% * 1000
Let BE% = @CreateButton(%Hwnd,Ende,0,0,106,20)
SetTimer Z%

WhileNot Ende%

    If %wmTimer

        MessageBox T$,Erinnerer :,4096
        KillTimer
        SetTimer Z%

    EndIf

    Case @GetFocus(BE%) : Ende% = 1

Wend

KillTimer