XProfan

Français

RudiB.

Hab la fois wieder quoi gebastelt....une TIMER-BUTTON

simple la fois essayer, je hoffe c'est selbsterklärend...

Fenêtre 100,100-800,500
Titre de la fenêtre "Es wird qui Zeit gemessen , comment longtemps qui Minuteur-Button gedrückt bleibt..."
Déclarer zeit&,sek&,sekundaer_sek&,stop&,Edit&,text$,z&,button&,Button_dummy&,button_ende&,button_Anleitung&,edit_status&,Font3%
FONT3%=@Créer("FONT","MS SANS SERIF",25,10,1,0,0)
button&=create("Button",%Hwnd,"Timer-Button",150,200,120,80)
edit_status&=Contrôle("EDIT",»,$540100C1,50,150,650,30,%Hwnd,0,%HINSTANCE,$0)
setfont edit_status&,font3%
edit&=Contrôle("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
Set("Décimal",2)
zeit&=&gettickcount

Tandis que 1'Endlosschleife! (Button-Abfrage)

    Si Getfocus(button_dummy&)

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

    ElseIf getfocus(button_Anleitung&)

        Anleitung

    ElseIf getfocus(button_ende&)

        Fin

    D'autre

        GetStatus_TimerButton

    endif

Endwhile

Fin

Proc GetStatus_TimerButton

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

    Si z&>600'Linke Bouton de la souris gedrückt

        inc stop&
        sek&=((&gettickcount-zeit&)/10)-sekundaer_sek&
        Settext edit_status&,"Linke Bouton de la souris sur Minuteur-Button ist justement gedrückt"

    D'autre

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

    EndIf

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

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

    EndIf

    z&=SendMessage(Button&,$00F2,0,0)'Statuswert Minuteur-Button récente auslesen

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

        settext edit&,str$(sek&/100)+" ms"
        Text$="Timer-Button wurde "+str$(sek&/100)+" Sekunden long gedrückt ......    "
        Settext edit_status&,Text$
        setfocus(%Hwnd)
        settext edit&,str$(sek&/100)+" ms"
        '-------------------------------------------------------------------------------------------
        '------dans dépendance vom Minuteur-Wert wird ici une Aktion fonctionnement ---------------------

        Si sek&/100>1.5

            Rectangle 200,350 - 550,400

        Endif

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

            Ellipse 200,350 - 550,400

        Endif

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

            Line 200,350 - 550,400

        Endif

        Si sek&/100<.5

            Cls

        Endif

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

    EndIf

    z&=SendMessage(Button&,$00F2,0,0)'Statuswert Minuteur-Button récente auslesen

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

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

    EndIf

    Si (%mousepressed=2) And (z&>0)'Rechter Mausklick sur Minuteur-Button (Timerwert wird sur 0.00 gesetzt)

        settext edit&,"0.00 ms"
        Settext edit_status&,«Les droits Bouton de la souris sur Minuteur-Button wurde justement geklickt"

    EndIf

ENDPROC

Proc Anleitung

    Localiser 1,1
    Imprimer "Linke Bouton de la souris sur Minuteur-Button gedrückt tenir...Zeit wird dans ms im Minuteur-Button-Éditer angezeigt"
    Imprimer "In dépendance vom Timerwert wird une Aktion fonctionnement...seulement trop Demo-Zwecken."
    Imprimer "mehr comme 1,5 sek -------- es wird un Rechteck gezeichnet"
    Imprimer "zwischen 1,0 - 1,5 sek -- es wird une Ellipse gezeichnet"
    Imprimer "zwischen 0,5 - 1,0 sek -- es wird une ligne number gezeichnet"
    Imprimer "weniger comme 0,5 sek ----- Es wird un CLS fonctionnement."
    Imprimer «Les droits Bouton de la souris sur Minuteur-Button klicken mets den Timerwert sur 0.00 ms zurück..."
    Imprimer "Dummy-Button pouvoir simple seulement un CLS...."
    Imprimer "Ende-Button muss je pas expliquer, ou bien ???"
    setfocus(%Hwnd)

ENDPROC

Xprofan X4
Rudolf Beske / München

Hardware: NB Intel I9 - 16GByte RAM

28.05.2021 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

p.specht

"In dépendance vom Minuteur-Wert wird ici une Aktion fonctionnement..." - coole concept!

Mehrfachausnutzung de Buttons besoin mais einer klaren Trennung entre KURZEM et LANGEM DRUCK. chez meinem chinesischen Würfelradio-bluetooth-mp3player klicke je régulier faux. avec cela commence qui 1-Stunden-Vortrag sur mp3 chaque fois de vorne à, statt dans récréation pour aller. alors: Eindeutige Zeiten sommes important!

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

28.05.2021 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

RudiB.

et encore une plus variante des Minuteur-Buttons ....ici venez la couleur ins Spiel.

timer-button_2.prf	7 kB

Hochgeladen:	28.05.2021

Downloadcounter:
		Download

XProfan X4
Xprofan X4
Rudolf Beske / München

Hardware: NB Intel I9 - 16GByte RAM

28.05.2021 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

RudiB.

"In dépendance vom Minuteur-Wert wird ici une Aktion fonctionnement..." - coole concept!

eh bien....soooo large habe je maintenant encore pas gedacht. Im Moment bastele je plutôt seulement à qui optique. qui reste venez ensuite....

XProfan X4
Xprofan X4
Rudolf Beske / München

Hardware: NB Intel I9 - 16GByte RAM

28.05.2021 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

Georg
Teles

Nabend,

coole concept !
pour quelque chose CPU Entlastung eventuell WaitInput et Minuteur hinzufügen wäre bien

Kompilieren Marque Séparation

Fenêtre 100,100-800,500
Titre de la fenêtre "Es wird qui Zeit gemessen , comment longtemps qui Minuteur-Button gedrückt bleibt..."
Déclarer zeit&,sek&,sekundaer_sek&,stop&,Edit&,text$,z&,button&,Button_dummy&,button_ende&,button_Anleitung&,edit_status&,Font3%
'Déclarer a&.b&,c&,d&,e&
Def LoadImage(6) !"User32","LoadImageA"
FONT3%=@Créer("FONT","MS SANS SERIF",25,10,1,0,0)
button&=control("Button","Timer-Button",$54010400,150,220,120,40,%hwnd,1,%HINSTANCE)
edit_status&=Contrôle("EDIT",»,$540100C1,50,150,650,30,%Hwnd,0,%HINSTANCE,$0)
setfont edit_status&,font3%
edit&=Contrôle("EDIT",»,$540100C1,30,50,60,18,button&,0,%HINSTANCE,$0)
showwindow(edit&,0)
Var a&=  Contrôle("STATIC", "Test", $5400110E, 10, 22, 10, 10, Button&,0, %hInstance)
Var b&=  Contrôle("STATIC", "Test", $5400110E, 25, 22, 10, 10, Button&,0, %hInstance)
Var c&=  Contrôle("STATIC", "Test", $5400110E, 40, 22, 10, 10, Button&,0, %hInstance)
Var d&=  Contrôle("STATIC", "Test", $5400110E, 55, 22, 10, 10, Button&,0, %hInstance)
Var e&=  Contrôle("STATIC", "Test", $5400110E, 70, 22, 10, 10, Button&,0, %hInstance)
Var f&=  Contrôle("STATIC", "Test", $5400110E, 85, 22, 10, 10, Button&,0, %hInstance)
Var g&=  Contrôle("STATIC", "Test", $5400110E, 100, 22, 10, 10, Button&,0, %hInstance)
'Var e&=  Contrôle("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
Set("Décimal",2)
zeit&=&gettickcount
SetTimer 10

Tandis que 1'Endlosschleife! (Button-Abfrage)

    WaitInput

    Si %wmtimer

        Si Getfocus(button_dummy&)

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

        ElseIf getfocus(button_Anleitung&)

            Anleitung

        ElseIf getfocus(button_ende&)

            Fin

        D'autre

            GetStatus_TimerButton

        endif

    EndIf

Endwhile

KillTimer
Fin

Proc GetStatus_TimerButton

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

    Si z&>600'Linke Bouton de la souris gedrückt

        inc stop&
        sek&=((&gettickcount-zeit&)/10)-sekundaer_sek&
        Settext edit_status&,"Linke Bouton de la souris sur Minuteur-Button ist justement gedrückt"

        Si sek&>25

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

        EndIf

        Si sek&>50

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

        EndIf

        Si sek&>75

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

        EndIf

        Si sek&>100

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

        EndIf

        Si sek&>125

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

        EndIf

        Si sek&>150

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

        EndIf

        Si sek&>175

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

        EndIf

        SetFocus(Button&)

    D'autre

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

    EndIf

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

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

    EndIf

    z&=SendMessage(Button&,$00F2,0,0)'Statuswert Minuteur-Button récente auslesen

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

        settext edit&,str$(sek&/100)+" ms"
        Text$="Timer-Button wurde "+str$(sek&/100)+" Sekunden long gedrückt ......    "
        Settext edit_status&,Text$
        setfocus(%Hwnd)
        settext edit&,str$(sek&/100)+" ms"
        '-------------------------------------------------------------------------------------------
        '------dans dépendance vom Minuteur-Wert wird ici une Aktion fonctionnement ---------------------

        Si sek&/100>1.5

            Rectangle 200,350 - 550,400

        Endif

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

            Ellipse 200,350 - 550,400

        Endif

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

            Line 200,350 - 550,400

        Endif

        Si 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 Minuteur-Button récente auslesen

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

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

    EndIf

    Si (%mousepressed=2) And (z&>0)'Rechter Mausklick sur Minuteur-Button (Timerwert wird sur 0.00 gesetzt)

        settext edit&,"0.00 ms"
        Settext edit_status&,«Les droits Bouton de la souris sur Minuteur-Button wurde justement geklickt"

    EndIf

ENDPROC

Proc Anleitung

    Localiser 1,1
    Imprimer "Linke Bouton de la souris sur Minuteur-Button gedrückt tenir...Zeit wird dans ms im Minuteur-Button-Éditer angezeigt"
    Imprimer "In dépendance vom Timerwert wird une Aktion fonctionnement...seulement trop Demo-Zwecken."
    Imprimer "mehr comme 1,5 sek -------- es wird un Rechteck gezeichnet"
    Imprimer "zwischen 1,0 - 1,5 sek -- es wird une Ellipse gezeichnet"
    Imprimer "zwischen 0,5 - 1,0 sek -- es wird une ligne number gezeichnet"
    Imprimer "weniger comme 0,5 sek ----- Es wird un CLS fonctionnement."
    Imprimer «Les droits Bouton de la souris sur Minuteur-Button klicken mets den Timerwert sur 0.00 ms zurück..."
    Imprimer "Dummy-Button pouvoir simple seulement un CLS...."
    Imprimer "Ende-Button muss je pas expliquer, ou bien ???"
    setfocus(%Hwnd)

ENDPROC

PROC FAERBESTATIC

    Déclarer wfb#,h&,bild$
    Paramètres statbild&,breitobj&,hochobj&,hwndfarb%
    bild$="DUMMY.BMP"
    MCLS breitobj&,hochobj&
    STARTPAINT -1
    SetPixel 0,0,hwndfarb%
    Savebmp bild$,0,0-1,1;0
    ENDPAINT
    Faible wfb#,Len(bild$)+1
    String wfb#,0=bild$
    Laisser h&=LoadImage(%HINSTANCE,wfb#,0,breitobj&,hochobj&,$50)
    SendMessage(statbild&,$172,0,h&)
    DISPOSE wfb#
    ASSIGN #1,"DUMMY.BMP"
    ERASE #1

ENDPROC