XProfan

Español

RudiB.

Hab veces otra vez qué gebastelt....una TIMER-BUTTON

simplemente veces probieren, Yo hoffe es selbsterklärend...

Ventana 100,100-800,500
Título de la ventana "Es se el Tiempo gemessen , como largo el Temporizador-Button gedrückt restos..."
Declarar zeit&,sek&,sekundaer_sek&,stop&,Edit&,texto$,z&,button&,Button_dummy&,button_ende&,button_Anleitung&,edit_status&,Font3%
FONT3%=@Crear("FONT","MS SANS SERIF",25,10,1,0,0)
button&=create("Button",%Hwnd,"Timer-Button",150,200,120,80)
edit_status&=Control("EDIT","",$540100C1,50,150,650,30,%Hwnd,0,%hInstance,$0)
setfont edit_status&,font3%
edit&=Control("EDIT","",$540100C1,30,50,60,18,button&,0,%hInstance,$0)
settext edit&,"0.00 ms"
enablewindow edit&,0
button_dummy& = CONTROL("Button","Dummy Buttton  CLS ", $54012000,300,200,80,80, %HWnd,1, %HINSTANCE)
button_ende&=create("Button",%Hwnd,"Ende",500,200,80,80)
button_Anleitung&=create("Button",%Hwnd,"Anleitung",400,200,80,80)
Stop&=0
CLS
Conjunto("Decimals",2)
zeit&=&gettickcount

Mientras que 1'Endlosschleife! (Button-Abfrage)

    If Getfocus(button_dummy&)

        CLS:setfocus(%Hwnd)
        Settext edit_status&,"Dummy-Button wurde gerade geklickt >>> CLS"

    ElseIf getfocus(button_Anleitung&)

        Anleitung

    ElseIf getfocus(button_ende&)

        End

    Más

        GetStatus_TimerButton

    endif

EndWhile

End

Proc GetStatus_TimerButton

    z&=SendMessage(Button&,$00F2,0,0)'Statuswert des Buttons (Button Message : bm_GetState)

    If z&>600'Linke Botón del ratón gedrückt

        inc stop&
        sek&=((&gettickcount-zeit&)/10)-sekundaer_sek&
        Settext edit_status&,"Linke Botón del ratón en Temporizador-Button es gerade gedrückt"

    Más

        sekundaer_sek&=((&gettickcount-zeit&)/10)

    EndIf

    If (stop&>=1) And (z&>600)

        settext edit&,str$(sek&/100)+" ms"

    EndIf

    z&=SendMessage(Button&,$00F2,0,0)'Statuswert Temporizador-Button neu auslesen

    If (z& <600) And (sek&>0)

        settext edit&,str$(sek&/100)+" ms"
        Texto$="Timer-Button wurde "+str$(sek&/100)+" Sekunden lang gedrückt ......    "
        Settext edit_status&,Texto$
        setfocus(%Hwnd)
        settext edit&,str$(sek&/100)+" ms"
        '-------------------------------------------------------------------------------------------
        '------In Abhängigkeit vom Temporizador-Valor se hier una Aktion ausgeführt ---------------------

        If sek&/100>1.5

            Rectángulo 200,350 - 550,400

        Endif

        If (sek&/100>1.0) And (sek&/100<1.5)

            Ellipse 200,350 - 550,400

        Endif

        If (sek&/100>.5) And (sek&/100<1)

            Line 200,350 - 550,400

        Endif

        If sek&/100<.5

            Cls

        Endif

        '-------------------------------------------------------------------------------------------
        sek&=0

    EndIf

    z&=SendMessage(Button&,$00F2,0,0)'Statuswert Temporizador-Button neu auslesen

    If (z&>0) And (stop&=0)

        sek&=0
        stop&=0
        sekundaer_sek&=0
        zeit&=&gettickcount

    EndIf

    If (%mousepressed=2) And (z&>0)'Rechter Mausklick en Temporizador-Button (Timerwert se en 0.00 gesetzt)

        settext edit&,"0.00 ms"
        Settext edit_status&,"Rechte Botón del ratón en Temporizador-Button wurde gerade geklickt"

    EndIf

ENDPROC

Proc Anleitung

    Localizar 1,1
    Imprimir "Linke Botón del ratón en Temporizador-Button gedrückt halten...Tiempo se en ms en el Temporizador-Button-Editar angezeigt"
    Imprimir "In Abhängigkeit vom Timerwert se una Aktion ausgeführt...Nur a Demo-Zwecken."
    Imprimir "mehr como 1,5 sek -------- lo se una Rechteck gezeichnet"
    Imprimir "zwischen 1,0 - 1,5 sek -- lo se una Ellipse gezeichnet"
    Imprimir "zwischen 0,5 - 1,0 sek -- lo se una Linie gezeichnet"
    Imprimir "weniger como 0,5 sek ----- Lo se una CLS ausgeführt."
    Imprimir "Rechte Botón del ratón en Temporizador-Button clic setzt el Timerwert en 0.00 ms zurück..."
    Imprimir "Dummy-Button macht simplemente sólo una CLS...."
    Imprimir "Ende-Button muss Yo no erklären, oder ???"
    setfocus(%Hwnd)

ENDPROC

Xprofan X4
Rudolf Beske / München

Hardware: NB Intel I9 - 16GByte RAM

28.05.2021 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

p.specht

"In Abhängigkeit vom Temporizador-Valor se hier una Aktion ausgeführt..." - coole Concepto!

Mehrfachausnutzung de Buttons bedarf aber uno klaren Trennung zwischen KURZEM y LANGEM DRUCK. En mi chinesischen Würfelradio-bluetooth-mp3player klicke Yo regelmäßig falso. Damit fängt el 1-Stunden-Vortrag en mp3 jedesmal de vorne a, en lugar de en Pause a ir. Also: Eindeutige Veces son wichtig!

XProfan 11
Computer: Gerät, daß es in Mikrosekunden erlaubt, 50.000 Fehler zu machen, zB 'daß' statt 'das'...

28.05.2021 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

RudiB.

Und ni más Variante des Temporizador-Buttons ....hier kommt Farbe en el Spiel.

timer-button_2.prf	7 kB

Hochgeladen:	28.05.2021

Ladeanzahl:
		Descargar

XProfan X4
Xprofan X4
Rudolf Beske / München

Hardware: NB Intel I9 - 16GByte RAM

28.05.2021 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

RudiB.

"In Abhängigkeit vom Temporizador-Valor se hier una Aktion ausgeführt..." - coole Concepto!

Nun sí....soooo weit Yo ahora todavía no pensamiento. Im Moment bastele Yo más sólo a el Optik. Der Rest kommt entonces....

XProfan X4
Xprofan X4
Rudolf Beske / München

Hardware: NB Intel I9 - 16GByte RAM

28.05.2021 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Georg
Teles

Nabend,

coole Concepto !
para algo CPU Entlastung eventuell WaitInput y Temporizador hinzufügen wäre bien

Kompilieren Marca Separación

Ventana 100,100-800,500
Título de la ventana "Es se el Tiempo gemessen , como largo el Temporizador-Button gedrückt restos..."
Declarar zeit&,sek&,sekundaer_sek&,stop&,Edit&,texto$,z&,button&,Button_dummy&,button_ende&,button_Anleitung&,edit_status&,Font3%
'Declarar a&.b&,c&,d&,e&
Def LoadImage(6) !"USER32","LoadImageA"
FONT3%=@Crear("FONT","MS SANS SERIF",25,10,1,0,0)
button&=control("Button","Timer-Button",$54010400,150,220,120,40,%hwnd,1,%HINSTANCE)
edit_status&=Control("EDIT","",$540100C1,50,150,650,30,%Hwnd,0,%hInstance,$0)
setfont edit_status&,font3%
edit&=Control("EDIT","",$540100C1,30,50,60,18,button&,0,%hInstance,$0)
showwindow(edit&,0)
Var a&=  Control("STATIC", "Test", $5400110E, 10, 22, 10, 10, Button&,0, %hInstance)
Var b&=  Control("STATIC", "Test", $5400110E, 25, 22, 10, 10, Button&,0, %hInstance)
Var c&=  Control("STATIC", "Test", $5400110E, 40, 22, 10, 10, Button&,0, %hInstance)
Var d&=  Control("STATIC", "Test", $5400110E, 55, 22, 10, 10, Button&,0, %hInstance)
Var e&=  Control("STATIC", "Test", $5400110E, 70, 22, 10, 10, Button&,0, %hInstance)
Var f&=  Control("STATIC", "Test", $5400110E, 85, 22, 10, 10, Button&,0, %hInstance)
Var g&=  Control("STATIC", "Test", $5400110E, 100, 22, 10, 10, Button&,0, %hInstance)
'Var e&=  Control("STATIC", "Test", $5400110E, 10, 68, 10, 10, Button&,0, %hInstance)
settext edit&,"0.00 ms"
enablewindow edit&,0
button_dummy& = CONTROL("Button","Dummy Buttton  CLS ", $54012000,300,200,80,80, %HWnd,1, %HINSTANCE)
button_ende&=create("Button",%Hwnd,"Ende",500,200,80,80)
button_Anleitung&=create("Button",%Hwnd,"Anleitung",400,200,80,80)
Stop&=0
CLS
Conjunto("Decimals",2)
zeit&=&gettickcount
SetTimer 10

Mientras que 1'Endlosschleife! (Button-Abfrage)

    WaitInput

    If %wmtimer

        If Getfocus(button_dummy&)

            CLS:setfocus(%Hwnd)
            Settext edit_status&,"Dummy-Button wurde gerade geklickt >>> CLS"

        ElseIf getfocus(button_Anleitung&)

            Anleitung

        ElseIf getfocus(button_ende&)

            End

        Más

            GetStatus_TimerButton

        endif

    EndIf

EndWhile

KillTimer
End

Proc GetStatus_TimerButton

    z&=SendMessage(Button&,$00F2,0,0)'Statuswert des Buttons (Button Message : bm_GetState)

    If z&>600'Linke Botón del ratón gedrückt

        inc stop&
        sek&=((&gettickcount-zeit&)/10)-sekundaer_sek&
        Settext edit_status&,"Linke Botón del ratón en Temporizador-Button es gerade gedrückt"

        If sek&>25

            FAERBESTATIC a&,10,10,RGB(0,255,0)

        EndIf

        If sek&>50

            FAERBESTATIC b&,10,10,RGB(127,255,0)

        EndIf

        If sek&>75

            FAERBESTATIC c&,10,10,RGB(255,255,0)

        EndIf

        If sek&>100

            FAERBESTATIC d&,10,10,RGB(255,193,0)

        EndIf

        If sek&>125

            FAERBESTATIC e&,10,10,RGB(255,165,0)

        EndIf

        If sek&>150

            FAERBESTATIC f&,10,10,RGB(255,69,0)

        EndIf

        If sek&>175

            FAERBESTATIC g&,10,10,RGB(255,0,0)

        EndIf

        Setfocus(Button&)

    Más

        sekundaer_sek&=((&gettickcount-zeit&)/10)

    EndIf

    If (stop&>=1) And (z&>600)

        settext edit&,str$(sek&/100)+" ms"

    EndIf

    z&=SendMessage(Button&,$00F2,0,0)'Statuswert Temporizador-Button neu auslesen

    If (z& <600) And (sek&>0)

        settext edit&,str$(sek&/100)+" ms"
        Texto$="Timer-Button wurde "+str$(sek&/100)+" Sekunden lang gedrückt ......    "
        Settext edit_status&,Texto$
        setfocus(%Hwnd)
        settext edit&,str$(sek&/100)+" ms"
        '-------------------------------------------------------------------------------------------
        '------In Abhängigkeit vom Temporizador-Valor se hier una Aktion ausgeführt ---------------------

        If sek&/100>1.5

            Rectángulo 200,350 - 550,400

        Endif

        If (sek&/100>1.0) And (sek&/100<1.5)

            Ellipse 200,350 - 550,400

        Endif

        If (sek&/100>.5) And (sek&/100<1)

            Line 200,350 - 550,400

        Endif

        If sek&/100<.5

            Cls

        Endif

        '-------------------------------------------------------------------------------------------
        FAERBESTATIC a&,10,10,RGB(229,229,229)
        FAERBESTATIC b&,10,10,RGB(229,229,229)
        FAERBESTATIC c&,10,10,RGB(229,229,229)
        FAERBESTATIC d&,10,10,RGB(229,229,229)
        FAERBESTATIC e&,10,10,RGB(229,229,229)
        FAERBESTATIC f&,10,10,RGB(229,229,229)
        FAERBESTATIC g&,10,10,RGB(229,229,229)
        'Setfocus(%Hwnd)
        Setfocus(Button&)
        settext edit&,"0.00 ms"
        sek&=0

    EndIf

    z&=SendMessage(Button&,$00F2,0,0)'Statuswert Temporizador-Button neu auslesen

    If (z&>0) And (stop&=0)

        sek&=0
        stop&=0
        sekundaer_sek&=0
        zeit&=&gettickcount

    EndIf

    If (%mousepressed=2) And (z&>0)'Rechter Mausklick en Temporizador-Button (Timerwert se en 0.00 gesetzt)

        settext edit&,"0.00 ms"
        Settext edit_status&,"Rechte Botón del ratón en Temporizador-Button wurde gerade geklickt"

    EndIf

ENDPROC

Proc Anleitung

    Localizar 1,1
    Imprimir "Linke Botón del ratón en Temporizador-Button gedrückt halten...Tiempo se en ms en el Temporizador-Button-Editar angezeigt"
    Imprimir "In Abhängigkeit vom Timerwert se una Aktion ausgeführt...Nur a Demo-Zwecken."
    Imprimir "mehr como 1,5 sek -------- lo se una Rechteck gezeichnet"
    Imprimir "zwischen 1,0 - 1,5 sek -- lo se una Ellipse gezeichnet"
    Imprimir "zwischen 0,5 - 1,0 sek -- lo se una Linie gezeichnet"
    Imprimir "weniger como 0,5 sek ----- Lo se una CLS ausgeführt."
    Imprimir "Rechte Botón del ratón en Temporizador-Button clic setzt el Timerwert en 0.00 ms zurück..."
    Imprimir "Dummy-Button macht simplemente sólo una CLS...."
    Imprimir "Ende-Button muss Yo no erklären, oder ???"
    setfocus(%Hwnd)

ENDPROC

PROC FAERBESTATIC

    Declarar wfb#,h&,bild$
    Parámetros statbild&,breitobj&,hochobj&,hwndfarb%
    bild$="DUMMY.BMP"
    MCLS breitobj&,hochobj&
    STARTPAINT -1
    SetPixel 0,0,hwndfarb%
    Savebmp bild$,0,0-1,1;0
    ENDPAINT
    Dim wfb#,Len(bild$)+1
    String wfb#,0=bild$
    Let h&=LoadImage(%hInstance,wfb#,0,breitobj&,hochobj&,$50)
    SendMessage(statbild&,$172,0,h&)
    DISPOSE wfb#
    ASSIGN #1,"DUMMY.BMP"
    ERASE #1

ENDPROC