XProfan

Français

p.specht

qui DLL-Funktion timeGettime() qui API ist (dans XProfan-11) cela Pendant zur XProfan-Variable &gettickcount et stellt qui Zeit dans Millisekunden depuis dem Hochfahren de Windows dar - allerdings sans Energiesparzeiten. Daher peux on relativ léger une "Uptime"-Funktion daraus faire, vorausgesetzt qui Timerkapazität de 2^ 32 ms (1 Monate 2 Wochen 5 Tage etc.) wird pas überschritten, quoi chez Servern mais léger passer peux. Anmerkung: Dem pourrait on z.B. par Mitschreiben qui change de - sur + ergänzend beikommen, mais cela überlasse je anderen. attention: cela ganze verschwindet pour 5 Sekunden Anzeige-Zeit wieder vom Schirm - s'il te plaît pas wundern!

Kompilieren Marque Séparation

Déclarer ue$,txt$,n&,tm!,ende&
ue$="    cet  Windows  fonctionne  ununterbrochen  depuis  "
Windowstyle 24:font 2:Fenêtre 40,140 - %maxx-2*40,0:cls rgb(200,200,255)
repeat:locate 2,2:tm!=&gettickcount:cas tm!<0:tm!=tm!+2^32'weil unsigned
txt$=ue$:n&=tm!/1000/60/60/24/365.2425

si n&>0:txt$=txt$+" "+format$("###########0",n&)+" Jahr"+si(n&>1,"en",»)

    tm!=tm!-n&*1000*60*60*24*365.2425
    endif:n&=tm!/1000/60/60/24/30.436875

    si n&>0:txt$=txt$+" "+format$("###########0",n&)+" Monat"+si(n&>1,"en",»)

        tm!=tm!-n&*1000*60*60*24*30.436875
        endif:n&=tm!/1000/60/60/24/7

        si n&>0:txt$=txt$+"  "+format$("###########0",n&)+" Woche"+si(n&>1,"n",»)

            tm!=tm!-n&*1000*60*60*24*7
            endif:n&=tm!/1000/60/60/24

            si n&>0:txt$=txt$+"  "+format$("###########0",n&)+" Tag"+si(n&>1,"en",»)

                tm!=tm!-n&*1000*60*60*24
                endif:n&=tm!/1000/60/60

                si n&>0:txt$=txt$+"  "+format$("###########0",n&)+" Stunde"+si(n&>1,"n",»)

                    tm!=tm!-n&*1000*60*60
                    endif:n&=tm!/1000/60

                    si n&>0:txt$=txt$+"  "+format$("###########0",n&)+" Minute"+si(n&>1,"n",»)

                        tm!=tm!-n&*1000*60
                        endif:n&=tm!/1000
                        txt$=txt$+"  "+format$("###########0",n&)," Sekunde"+si(n&>1,"n und"," und")
                        tm!=tm!-n&*1000:txt$=txt$+"  "+format$("###########0",tm!)+" Millisek."
                        Titre de la fenêtre upper$(txt$):waitinput 1000:inc ende&

                    until ende&>5'Sekunden Einblendzeit

                    Fin