XProfan

CLS
Declare int t, d, h, m, s, c
t = &gettickcount
c = 60'Anzahl der Minuten

While 1

    d = (c*60000)-(&gettickcount - t) + 1000
    h = (d mod 86400000) /3600000
    m = (d mod 3600000) / 60000
    s = (d mod 60000) / 1000
    Settext %hwnd, Str$(h) + "h; " + Str$(m) + "m; "+Str$(s)+"s"

    If (d<=0)

        Messagebox("Die Zeit ist abgelaufen","MELDUNG",0)
        end

    EndIf

EndWhile

Declare Btn1&, Btn2&, edit1&, text1&
WindowTitle "Mein Fenster"
Window 600, 400
Btn1&    = @Create("Button", %HWnd, "Ende", 5, 10, 60, 25)
Btn2&    = @Create("Button", %HWnd, "Start Watch", 80, 10, 100, 25)
text1&   = @Create("Text",   %HWnd, "Eingabe : ", 5, 40, 80, 25)
edit1&   = @Create("Edit", %HWnd, "", 85, 40, 120, 25)
AddHotkey 1001, 19, 0' Pause - Taste

WhileNot @Clicked(Btn1&)

    WaitInput

    If @Clicked(Btn2&)

        pExec("|StartWatch", %HWnd, 1)

    EndIf

    If MenuItem(1001)

        Messagebox("Die Zeit ist abgelaufen","MELDUNG",0)

    EndIf

    Case %Key = 2 : Break' Schließen-Kreuz abfragen

EndWhile

End

Proc StartWatch

    Parameters handle&, c&
    Declare d&, h&, m&, s&, t&
    Var ende% = 0
    t& = &GetTickCount

    WhileNot ende%

        d& = (c& * 60000)-(&gettickcount - t&) + 1000
        h& = (d& mod 86400000) /3600000
        m& = (d& mod 3600000) / 60000
        s& = (d& mod 60000) / 1000
        Settext handle&, Str$(h&) + "h; " + Str$(m&) + "m; "+Str$(s&)+"s"
        case getText$(handle&) = "" : ende% = 1

        If (d& <= 0)

            SendKey(handle&, 19)
            ende% = 1

        EndIf

    EndWhile

EndProc

WindowTitle "Programm - Gerüst"
Window 640, 400
ClearClip
Print "Gerüst wird geschrieben...."
PutClip "'$I ' Hier können .inc Dateien eingebunden werden" + Chr$(13)
PutClip "WindowTitle " + Chr$(34) + "Mein Fenster" + Chr$(34) + Chr$(13)
PutClip "Window 640, 400" + Chr$(13)
PutClip "Declare ende%, Btn1&, Btn2&" + Chr$(13)
PutClip "' Hier werden die Dialogelemente definiert" + Chr$(13)
PutClip "Btn1& = @Create(" + Chr$(34) + "Button" + Chr$(34) + ", %HWnd," + Chr$(34) + "Ende" + Chr$(34) + ", 10, 10, 60, 25)" + Chr$(13)
PutClip "Btn2& = @Create(" + Chr$(34) + "Button" + Chr$(34) + ", %HWnd," + Chr$(34) + "Mach was" + Chr$(34) + ", 100, 10, 80, 25)" + Chr$(13)
PutClip "ende% = 0" + Chr$(13)
PutClip "' Hier kommt die Ereignis - Schleife" + Chr$(13)
PutClip "WhileNot ende%" + Chr$(13)
PutClip "     WaitInput" + Chr$(13)
PutClip "     If @Clicked(Btn1&)" + Chr$(13)
PutClip "        ende% = 1" + Chr$(13)
PutClip "     ElseIf @Clicked(Btn2&)" + Chr$(13)
PutClip "        MachWas()" + Chr$(13)
PutClip "     EndIf" + Chr$(13)
PutClip "     Case %Key = 2 : ende% = 1 ' Schließen-Kreuz abfragen" + Chr$(13)
PutClip "EndWhile" + Chr$(13)
PutClip "' Hier können die Procs für das Programm geschrieben werden" + Chr$(13)
PutClip "Proc MachWas" + Chr$(13)
PutClip "     MessageBox(" + Chr$(34) + "Hallo" + Chr$(34) + ", " + Chr$(34) + "Info" + Chr$(34) + ", 0)" + Chr$(13)
PutClip "EndProc" + Chr$(13)
PutClip "End" + Chr$(13)
Print "Quellcode kann aus Zwischenablage kopiert werden !"
Print "Zum Beenden Taste drücken !"
WaitKey
End