XProfan

Español

KHR

¡Hola miteinander,

.
neulich beim Kunden: Zuerst fiel me el verflixte Stoppuhr de el Hand en el Mischer y luego mußte Todavía soooo largo warten a seine Anlage bereit war. Also tener Hice el Not una Tugend gemacht y me en rápido ne Stoppuhr en el Notebook en XProfan gebastelt.

Sie es weder schön programmiert todavía schön gestaltet - aber ellos ha funktioniert. Es alles qué gezählt ha.

Yo denke. como se sicher alguien Verbesserungen anbringen puede

Kompilieren Marca Separación

Stoppuhr en Xprofan 10
Karl-Heinz Rattay 04/2008
Clic en:
Start:         Uhr beginnt neu a laufen
Zwischenzeit:  Umschalten zwischen Anzeige se ejecuta oder es
Stopp:         Endzeit se adecuado, sowie Start-, Endzeit y Dauer en Tabla eingetragen
Uhr beginnt neu a laufen
RESET:         Tabla se gelöscht.
declarar Startzeit&
declarar Laufzeit&
declarar rohzeit&
declarar rohzent&
declarar rohsek&
declarar rohmin&
declarar rohstd&
declarar ProgEnde%
declarar run_Clock%
declarar GridEintrag$
declarar StoppZeit$
Declarar Button1&, Button2&, Button3&, Button4&, Button5&, Button6&
Def @AGetSysColor(1) ! USER32,GetSysColor

proc UhrZeit

    usefont Arial,26,0,0,0,0
    drawtext  30,90, ZeitString$()
    drawtext  160,90, date$(1)

ENDPROC

proc ZeitString$

    volver @Left$(@Time$(0)+:+@Time$(1),8)

ENDPROC

proc show_clock

    rohzeit&  = ((&GetTickCount - Startzeit&)/100)
    rohzent&   =  Rohzeit&-@int(Rohzeit& /10)*10
    rohsek&   =  @int((Rohzeit& /10))
    rohstd&   =  @int((Rohzeit& /36000))
    rohmin&   =  @MOD ( Rohzeit&,36000)
    rohsek&   =  @int(Rohzeit&/10)
    rohStd&   =  @int(RohSek&/3600)
    rohsek&   =  rohSek& - (RohStd&*3600)
    rohMin&   =  @int(RohSek&/60)
    rohsek&   =  rohSek& - (RohMin&*60)
    usefont Arial,80,0,0,0,0
    @Conjunto(NumWidth,1)
    StoppZeit$= @left$(@Formato$(00,RohStd&)+:+@Formato$(00,RohMin&)+:+@Formato$(00,RohSek&)+:+@str$(Rohzent&),10)
    drawtext  30,5, StoppZeit$
    windowtitle StoppZeit$

ENDPROC

window 10,10-400,520
CLS @AGetSysColor(10)
Button1&  = @CREATE( BUTTON   , %HWnd , Start         ,  10, 320, 110, 30 )
Button2&  = @CREATE( BUTTON   , %HWnd , Stopp         , 250, 320, 110 ,30 )
Button3&  = @CREATE( BUTTON   , %HWnd , Zwischenzeit  , 130, 320, 110, 30 )
Button4&  = @CREATE( BUTTON   , %HWnd , RESET         , 250, 380, 110, 30 )
Button5&  = @CREATE( BUTTON   , %HWnd , Ende          ,  10, 380, 110, 30 )
declarar hGrid%,Titel$,GridBox&
GridBox&     = Crear(Diálogo, %Hwnd, Stoppuhr Logfile, 420, 90, 260, 280)
1. Spalten definieren
Titel$ = Start;0;60;Ende;0;60;Tiempo;0;100
2. Gridbox redactar
hGrid%   = Crear(GridBox, GridBox&, Titel$, 0, 0, 0, 230, 290)
settimer 100
run_clock% = 0
clearlist (hGrid%)
Startzeit& = &GetTickCount
show_clock

whilenot ProgEnde%

    caso run_clock% = 1 :  show_clock
    UhrZeit
    WaitInput

    if %KEY = 2

        ProgEnde% = 1

    elseif @Clicked(Button1&)  Start

        Startzeit& = &GetTickCount
        run_clock% = 1
        GridEintrag$ = ZeitString$()+|

    elseif @Clicked(Button2&)  Stopp

        run_clock% = 0
        show_clock
        GridEintrag$ = GridEintrag$+ZeitString$()+|+StoppZeit$
        Eintrag Zeitstring en el Grid
        AddStrings(hGrid%, GridEintrag$)
        Zeitstring neu aufsetzten
        GridEintrag$ = ZeitString$()+|
        windowtitle Stoppuhr
        Startzeit& = &GetTickCount

    elseif @Clicked(Button3&) Zwischenzeit

        if run_clock% = 0

            run_clock% = 1

        más

            run_clock% = 0

        endif

    elseif @Clicked(Button4&)   Reset

        clearlist (hGrid%)
        Startzeit& = &GetTickCount
        show_clock

    elseif @Clicked(Button5&)

        ProgEnde% = 1

    endif

endwhile

killtimer