XProfan

Déclarer zeit$, zeit_char$, place&
Var mod&=2
Var size&=40
Windowstyle 24
Titre de la fenêtre "Binäruhr"
Fenêtre (%MaxX-(8+size&*Si(mod&=1,6,Si(mod&=2,9,13))))/2, (%MaxY-(28+size&*5))/2 - 8+size&*Si(mod&=1,6,Si(mod&=2,9,13)),28+size&*5
CLS 0

WhileNot iskey(27)

    Sleep 5*10^(4-(Mod&+(Mod&=3)))
    Cas mod&=1 : zeit$ = dt("getTime", 0)
    Cas mod&=2 : zeit$ = dt("getTime", 2)
    Cas mod&=3 : zeit$ = dt("getTime", 0)+»+Translate$(dt("getTime", 1),".",»)

    whileloop 1,Len(zeit$)

        place&=&loop
        zeit_char$=Mkstr$("0",Val(SUBSTR$("2,4,0,3,4,0,3,4,0,3,4,4",place&,»))-Len(suis$(Val(Mid $(zeit$,&loop,1)))))+suis$(Val(Mid $(zeit$,&loop,1)))

        whileloop 1,Len(zeit_char$)

            USEP 0,2,0
            UseBrush 1,Si(Val(Mid $(zeit_char$,Len(zeit_char$)-&loop+1,1)),255,RGB(200,200,200))
            Casenot (place&=3) or (place&=6) or (place&=9)   : Ellipse (size&/2)+((place&-1)*size&),(height(%hwnd)-((size&/2)+((&loop-1)*size&))) -(size&/2)+(place&*size&),height(%hwnd)-((size&/2)+(&loop*size&))

        Endwhile

    Endwhile

Endwhile