XProfan

CLS
Déclarer int t, d, h, m, s, start, ende
t = &gettickcount
start = 10 * 1000'Zeit dans Millisekunden
ende = 0 * 1000' Zum Hochzählen start et ende vertauschen

Tandis que 1

    Sleep 100
    d = Abs(Si(start>ende,start+1000,start*-1)-(&gettickcount - t))
    h = Abs((d mod 86400000) /3600000)
    m = Abs((d mod 3600000) / 60000)
    s = Abs((d mod 60000) / 1000)
    Settext %hwnd, Str$(h) + "h; " + Str$(m) + "m; "+Str$(s)+"s"

    Si Si(start>ende,d<=ende+100,d>=ende+100)

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

    EndIf

Endwhile