[R] Tester la durée du clic sur un bouton

[pierrotm777]

Bonjour à tous,

Existe t-il une solution qui permettraiit de tester si l'on appuie longuement sur un bouton.
Le but étant d'avoir deux actions pour un même bouton, une suit à un click, une autre suite à un bouton cliqué et tenu !

Merci par avance de votre aide

[Tlem]

En faisant simple, je dirait que _IsPressed suffit largement.
Faites la détection de l'appui sur la touche donnée et exécutez 'un compteur' qui s'incrémentera ou alors utilisez TimerInit puis une boucle, etc ...
Bref vous avez le choix.

Après en plus poussé, vous avez l'utilisation d'une CallBack telle que GUIRegisterMsg, mais c'est déjà un chouilla plus complexe.

[legend]

un bouton n'est pas forcément une touche clavier.
c'est pourquoi je vais poser cette question
c'est quoi l’équivalent de _IsPressed si il s'agit d'un bouton de gui.
merci et bonne journée

[Tlem]

_IsPressed fonctionne pour le clavier, mais pour la souris aussi ...
Comme pour cliquer sur un bouton, on utilise le clic de souris, il suffit de capturer le temps pendant lequel le clic est appuyé.

Ceci dit, en utilisant GUIGetMsg(1) (mode avancé), il est possible de capturer les événements :

• $GUI_EVENT_PRIMARYDOWN
  $GUI_EVENT_PRIMARYUP
  $GUI_EVENT_SECONDARYDOWN
  $GUI_EVENT_SECONDARYUP

Ce qui laisse pas mal de possibilités dans les tests.

[SurPriseS]

La fonction que j'utilise, c'est moche, mais sa marche...

Code : Tout sélectionner

func _next()

                    
                    
        while 1
            $p = 0  
            For $i = 1 to 15
                If _IsPressed ("01", $dll) Then
                    sleep(10)
                    $p = $p + 1
                EndIf   
            Next 
            if $p = 15 Then
                $current = _BASS_ChannelGetPosition ($MusicHandle, $BASS_POS_BYTE)
                $current = $current  + 500000
                _BASS_ChannelSetPosition ($MusicHandle, $current , $BASS_POS_BYTE + $BASS_MUSIC_POSRESET)
                $m = 1
            Else
                if $m = 0 Then
                    _BASS_ChannelStop ($MusicHandle)
                    send("{DOWN}")
                    _play(1)
                    _play_pause(2)
                    ExitLoop
                Else
                    ExitLoop
                EndIf   
            EndIf   
        WEnd
$m = 0


EndFunc

[timmalos]

N'oubliez pas de passer en résolu si tout est bien dans le meilleur des mondes.

[pierrotm777]

Ce n'est pas encore résolu car je suis en train de me creuser les méninges dessus

[Tlem]

Voici un modèle basé sur ce que j'ai dit :

► Afficher le texte

Code : Tout sélectionner

#include <GUIConstantsEx.au3>

$Form1 = GUICreate("Form1", 255, 122, 192, 124)
$Button1 = GUICtrlCreateButton("Cliquez moi un certain temps", 50, 45, 150, 25)
GUISetState(@SW_SHOW)

Global $TimeDown = 0

While 1
    $nMsg = GUIGetMsg(1) ; Utilisation du mode avancé
    Switch $nMsg[0]
        Case $GUI_EVENT_CLOSE
            Exit

        Case $GUI_EVENT_PRIMARYDOWN
            If $TimeDown = 0 Then $TimeDown = TimerInit() ; On initialise $TimeDown si ce n'est pas déja fait

        Case $GUI_EVENT_PRIMARYUP
            Local $DureeDuClic =  Round(TimerDiff($TimeDown)/1000, 2) ; on calcul la durée sur deux décimales
            MsgBox(64, "Durée du clic", "Vous avez cliqué le bouton" & @CRLF & _
            "pendant " & $DureeDuClic & " secondes")
            $TimeDown = 0 ; On réinitialise la variable

        Case $Button1
    EndSwitch
WEnd

Ceci dit, si vous devez en plus connaitre l'ID du bouton, cela ce complique. Il faudra rajouter l'appel à une CallBack.

[pierrotm777]

C'est parfait Tlem je vais adapter cela à mon besoin.

Merci

[pierrotm777]

Aprés essai, mon besoin est légèrement différent de ce que vous me proposez !

Je souhaiterais en fait que le test se fasse sur la durée d'un bouton tenu et non sur une durée puis la levée du bouton !

J'ai donc tenté cela, mais sans succés!

► Afficher le texte

Code : Tout sélectionner

#include <GUIConstantsEx.au3>

$Form1 = GUICreate("Form1", 255, 122, 192, 124)
$Button1 = GUICtrlCreateButton("Cliquez moi un certain temps", 50, 45, 150, 25)
GUISetState(@SW_SHOW)

Global $TimeDown = 0

While 1
    $nMsg = GUIGetMsg(1) ; Utilisation du mode avancé
    Switch $nMsg[0]
        Case $GUI_EVENT_CLOSE
            Exit

        Case $GUI_EVENT_PRIMARYDOWN
            If $TimeDown = 0 Then $TimeDown = TimerInit() ; On initialise $TimeDown si ce n'est pas déja fait
            Local $DureeDuClic =  Round(TimerDiff($TimeDown)/1000, 2) ; on calcul la durée sur deux décimales
            If $DureeDuClic >=2 and $nMsg[0] = $GUI_EVENT_PRIMARYDOWN Then;si bouton toujours tenu après 2 secondes
                MsgBox(64,"Info","Click tenu depuis plus de 2 secondes")
            EndIf
            $TimeDown = 0 ; On réinitialise la variable

        Case $Button1
    EndSwitch
WEnd

Avec une action A si le bouton est appuyé puis relaché de suite et une action B si le bouton est maintenu appuyé plus de 2 secondes .

[pierrotm777]

Bon , j'ai travaillé un peu le sujet afin de l'adapter à mon type de Gui PNG et voici le résultat:

Cliquez dans les rectangles rouges pour tester un click court ou long.
Je prend comme hypothèse qu'un click long est supérieur à 1 seconde