XProfan

 $H Windows.ph
Def AppHeight(0) %WinBottom - %WinTop
Def AppWidth(0) %WinRight - %WinLeft
Utilisateur Messages $10
Var hFont& = ~GetStockObject(11)
SetDialogFont hFont&
Déclarer hStunden&[],hMinuten&[],hSekunden&[],MaxIndexSek%,MaxIndexMin%,MaxIndexStn%
Déclarer hStartIcon&[]
Déclarer hTimeTxt&[]
Déclarer Stunden%,Minuten%,Sekunden%
Déclarer erledigt%
Var xx% = 2
Var yy% = 16 + ~GetSystemMetrics(~SM_CYCAPTION)
Titre de la fenêtre "Push Me - qui Dezimaluhr"
Fenêtre Style %11010 | 1024
Fenêtre %maxx +10,0 - (60 * 18 -30),(3*22+~GetSystemMetrics(~SM_CYSMCAPTION)+1)
'Hauptfenster versteckt erstellen

Proc MakeTimeLine

    Paramètres hParent&,AnzX%,AnzY%,À gauche%,Top%,Br%,H%,AbstX%,AbstY%,Icon1$,Icon2$,txt%
    Déclarer Arr&[],hdl&,x%,y%
    x% = À gauche%
    y% = Top%

    WhileLoop AnzY%

        WhileLoop 0,AnzX% -1

            Si %pcount = 12

                'que voici sieht on im Moment pas. était trop Testzwecken.
                Créer("Text",hParent&,Str$((59-&Boucle) mod 10),x%,y%,Br%,H%)
                Inc x%,Br% + AbstX%
                Continue

            EndIf

            hdl& = Créer("Icon",%hwnd,Icon1$,% X, y%)
            SetWindowPos hdl& = (x%),(Y%) - 16,16
            'Kästchen erzeugen
            Arr&[&Boucle] = Créer("Icon",hdl&,Icon2$,0,0)
            ShowWindow(Arr&[&Boucle],0)
            'Icônes pour Zeitanzeige Montrer et juste verstecken
            Inc x%,Br% + AbstX%

        Wend

        hStartIcon&[Sizeof(hStartIcon&[])] = Créer("Icon",hdl&,"Weg",0,0)
        'test& = Sizeof(hStartIcon&[])
        ShowWindow(hStartIcon&[Sizeof(hStartIcon&[])-1],0)
        Inc y%,H% + AbstY%
        x% = À gauche%

    Wend

    Retour Arr&[]

ENDPROC

Proc GetTimeValues

    Sekunden% = dt("getsec",!now)
    Minuten% = dt("getmin",!now)
    Stunden% = dt("gethour",!now)

ENDPROC

Proc TF$

    Paramètres t%
    Retour Format $("00",t%)

ENDPROC

Proc tPrev

    Paramètres t%
    Retour Si(t% = 59,0,t% - 1)

ENDPROC

Proc tNext

    Paramètres t%
    Retour Si(t% = 0,59,t% - 1)

ENDPROC

Proc ShowTimeDec

    Paramètres Arr&[],time%,Aufruf%
    Var mxi% = SizeOf(Arr&[])-1
    Var Sleep% = 40 - time%\4
    Var tPrev% = tPrev(time%)-1
    Var tNext% = tNext(time%)-1

    WhileLoop 0,mxi%

        ShowWindow( Arr&[mxi% - &Boucle],1)
         $IFDEF COMPILER
        'sieht chez mir zumindest besser aus, comme si je
        'Sleep aussi im compilé Programme nehme.
        WaitInput Sleep%

        Si %umessage = $10

            'aussi ici sur Abbruch checken, avec cela qui Klick aufs Croix direct wirkt
            Pause

        EndIf

         $ELSE
        Sleep Sleep%
         $ENDIF
        ShowWindow( Arr&[mxi% - &Boucle],&Boucle = time%)
        SetText hTimeTxt&[Aufruf%-1],TF$(&Boucle)
        Décembre Sleep%,1
        Cas Sleep% < 0:Sleep% = 1

        Si &Boucle > time%

            ShowWindow(Arr&[0],0)
            Pause

        EndIf

    Wend

    var Icon& = SizeOf(hStartIcon&[])

    Si Aufruf% = 1

        WhileLoop SizeOf(hStartIcon&[])-1,0,-1

            Icon& = hStartIcon&[&Boucle]
            ShowWindow(Icon&,1)
            WaitInput 10
            ShowWindow(Icon&,0)
            Waitinput 10
            Cas %umessage = $10:Pause

        Wend

        ShowWindow(Arr&[mxi%],1)

    EndIf

    SetText hTimeTxt&[Aufruf%-1],TF$(time%)

ENDPROC

GetTimeValues' montre Initialisieren
'MakeTimeLine(%hwnd,60,1,18,130,16,16,1,-4,»,»,1)
hSekunden&[]=MakeTimeLine(%hwnd,60,1,xx%,yy%,16,16,1,-4,"Knopf2","Weg")
hTimeTxt&[0] = Créer("Text",%hwnd,TF$(Sekunden%),AppWidth() - 26,yy%,20,12)
'Kästchen pour Anzeige erzeugen
Décembre yy%,20
hMinuten&[]=MakeTimeLine(%hwnd,60,1,xx%,yy%,16,16,1,-4,"Knopf2","Wasser")
hTimeTxt&[1] = Créer("Text",%hwnd,TF$(Minuten%),AppWidth() - 26,yy%,20,12)
Décembre yy%,20
Inc xx%,612
hStunden&[]=MakeTimeLine(%hwnd,24,1,xx%,yy%,16,16,1,-4,"Knopf2","Muenze")
hTimeTxt&[2] = Créer("Text",%hwnd,TF$(Stunden%),AppWidth() - 26,yy%,20,12)
MaxIndexSek% = SizeOf(hSekunden&[]) - 1
'on pourrait ici aussi direct 59 eingeben, mais so bleibt es pour weitere Entwicklungen flexibler
MaxIndexMin% =  SizeOf(hMinuten&[]) - 1
MaxIndexStn% =  SizeOf(hStunden&[]) - 1
GetTimeValues' montre Initialisieren
Cls ~GetSysColor(~COLOR_3DFACE)
SetWindowPos %hwnd = 0,0 - (60 * 18 -30),(3*22+~GetSystemMetrics(~SM_CYSMCAPTION)+1);-1
'la fenêtre Montrer
ShowTimeDec(hSekunden&[],Sekunden%,1)
SetText hTimeTxt&[0],TF$(Sekunden%)
ShowTimeDec(hMinuten&[],Minuten%,2)
SetText hTimeTxt&[0],TF$(Sekunden%)
ShowTimeDec(hStunden&[],Stunden%,3)
SetText hTimeTxt&[0],TF$(Sekunden%)
'Sekunden aktualisieren

Tandis que 1

    WaitInput 1
    GetTimeValues' l'heure aktualisieren

    Si %Umessage = $10

        Pause

    ElseIf Val(Right$(dt("getTime",1),3)) > 500

        'Zeit Montrer.  qui Animation beginnt ca 1/2 seconde auparavant

        Si erledigt% <> Sekunden%

            erledigt% = Sekunden%
            '    Sekunden Montrer.
            ShowTimeDec(hSekunden&[],Sekunden%,1)
            Cas Sekunden% = MaxIndexSek%:ShowTimeDec(hMinuten&[],Minuten%,2)
            '   Minuten Montrer
            Cas Stunden% = MaxIndexStn%:ShowTimeDec(hStunden&[],Stunden%,3)
            '   Stunden Montrer

        EndIf

    EndIf

Wend

Windowtitle "POTTHÄSSLICHE UHR":Fenêtre Style 16 | 64
'Fenêtre (%maxx-%maxy)/2,0 - %maxy,%maxy-41:Cls
Fenêtre 0,0 - %maxx,%maxy
'(CL)CopyLeft 2017-11 by P.Specht, Wien; aucun cependant geartete Gewähr!
var xx&=width(%hwnd):var yy&=height(%hwnd):var xh!=xx&/2:var yh!=yy&/2
declare t!,r0&,r1&,r2&,r3&,b0&,b1&,b2&,b3&,b9& ,pi2!
r0&=300 : r1&=130 : r2&=210 : r3&=260: pi2!=2*pi()
b0&=7   : b1&=28  : b2&=20  : b3&=8  : b9&=3
MCLS xx&,yy&:REPEAT
t!=(val(mid$(time$(0),1,2))*60+val(mid$(time$(0),4,2))+val(mid$(time$(1),1,2))/60)*pi2!
Début de peinture -1:ClS si(between(t!,2260,6785),$F0F0F0,$707070)':locate 1,1:imprimer t!;"    ";
usebrush 1,$E0E0E0:usepen 0,2*b0&,$000000:Ellipse xh!+r0&+2,yh!+r0&+2 - xh!-r0&+2,yh!-r0&+2
usebrush 0,$E0E0E0:usepen 0,b0&,$A0A000:Ellipse xh!+r0&,yh!+r0& - xh!-r0&,yh!-r0&
usepen 0,b9&,0:line xh!,0 - xh!,yy& : line 0,yh! - xx&,yh!
usepen 0,b1&,$A00000:line xh!,yh! - xh!+r1&*sin(t!/720),yh!-r1&*cos(t!/720)
usepen 0,b2&,0:line xh!,yh! - xh!+r2&*sin(t!/60),yh!-r2&*cos(t!/60)
usepen 0,b3&,200:line xh!,yh! - xh!+r3&*sin(t!),yh!-r3&*cos(t!)
EndPaint:MCopyBMP 0,0-xx&,yy& > 0,0;0
waitinput 1000:UNTIL (%clé>0) or %mousepressed
end

Windowstyle 24
Fenêtre %maxx/2-100,(%maxy/2-100) - 200,77
UseIcon "MUENZE":Font 2
Déclarer tm&
tm&=&gettickcount + 1000*60*4\1
Showmin

Repeat

    si &gettickcount>tm&

        showNormal
        Windowtitle "ALARM depuis "+str$((tm&-&gettickcount)\1000)+" s"
        CLS rgb(Tour(256),Tour(256),Tour(256))
        locate 2,2
        imprimer " FENSTER SCHLIESSEN!  "
        sound 1000,60

    d'autre

        Windowtitle "Alarm dans  "+str$((tm&-&gettickcount)\1000)+" s"

    endif

    waitinput 1000

until (%clé=27) or (%clé=32)

FIN