Testez / Utilisez les boutons G et D de votre souris

Bonjour à tous,

Ci-dessous, un petit source pour tester / utiliser les boutons gauche et droit de la souris.

Tapez ESC pour sortir du programme !

Bonne journée à tous !

Code:: DIM boutonG,boutonD

CAPTION 0,"===> ESC pour sortir !"
PICTURE 2
FULL_SPACE 2
COLOR 2,160,0,0
2D_PEN_COLOR 0,0,0
2D_FILL_OFF
2D_RECTANGLE 175,30,415,410
2D_RECTANGLE 190,50,290,250
2D_RECTANGLE 300,50,400,250
2D_FLOOD 210,70,255,255,255
2D_FLOOD 310,70,255,255,255

WHILE SCANCODE <> 27
   IF MOUSE_LEFT_DOWN(2) = 1
   basculeG()
   END_IF

   IF MOUSE_LEFT_UP(2) = 1
   basculeG()
   END_IF
   IF MOUSE_RIGHT_DOWN(2) = 1
   basculeD()
   END_IF
   IF MOUSE_RIGHT_UP(2) = 1
   basculeD()
   END_IF

   PAUSE 20 :' pour ne pas emballer le processeur ;-)
END_WHILE

TERMINATE
END

SUB basculeG()
   IF boutonG = 0
   boutonG = 1
   2D_FLOOD 210,70,90,90,90
   ELSE
   boutonG = 0

   2D_FLOOD 210,70,255,255,255
   END_IF
END_SUB

SUB basculeD()
   IF boutonD = 0
   boutonD = 1
   2D_FLOOD 310,70,90,90,90
   ELSE
   boutonD = 0
   2D_FLOOD 310,70,255,255,255
   END_IF
END_SUB

Spoiler:

Bonjour à tous !

Dans mon précédent post, pour l’utilisation des boutons droit et gauche de la souris, j’ai employé une boucle WHILE qui scanne en permanence l’état des boutons de la souris.

Dans ce nouvel exemple, afin de m’affranchir d’une boucle WHILE, qui est contraignante dans certains cas, j’utilise les événements ON_MOUSE_UP et ON_MOUSE_DOWN pour effectuer la même chose.

A bientôt !

Code:: DIM boutonG,boutonD
LABEL down, up

PICTURE 2
FULL_SPACE 2
COLOR 2,160,0,0
2D_PEN_COLOR 0,0,0
2D_FILL_OFF
2D_RECTANGLE 175,30,415,410
2D_RECTANGLE 190,50,290,250
2D_RECTANGLE 300,50,400,250
2D_FLOOD 210,70,255,255,255
2D_FLOOD 310,70,255,255,255
ON_MOUSE_DOWN 2,down
ON_MOUSE_UP 2,up
END

down:
   OFF_MOUSE_DOWN 2
   OFF_MOUSE_UP 2

   IF MOUSE_LEFT_DOWN(2) = 1
   basculeOnG()
   END_IF

   IF MOUSE_RIGHT_DOWN(2) = 1
   basculeOnD()
   END_IF

   ON_MOUSE_DOWN 2,down
   ON_MOUSE_UP 2,up
RETURN

up:
   OFF_MOUSE_UP 2
   OFF_MOUSE_DOWN 2

   IF MOUSE_LEFT_UP(2) = 1
   basculeOffG()
   END_IF

   IF MOUSE_RIGHT_UP(2) = 1
   basculeOffD()
   END_IF

   ON_MOUSE_DOWN 2,down
   ON_MOUSE_UP 2,up
RETURN

SUB basculeOnG()
   2D_FLOOD 210,70,90,90,90
END_SUB

SUB basculeOffG()
   2D_FLOOD 210,70,255,255,255
END_SUB

SUB basculeOnD()
   2D_FLOOD 310,70,90,90,90
END_SUB

SUB basculeOffD()
   2D_FLOOD 310,70,255,255,255
END_SUB

Nombre de messages : 2747 Date d'inscription : 13/09/2009

Tu prépares un jeu avec des fenêtres qui s'allument et qui s'éteignent ?
Laughing

Bonjour à tous !

Salut Jjn4 !
C’est juste une mise en application des événements souris qui sont mis à disposition par Jack dans le langage Panoramic. Ils fonctionnent parfaitement bien, je n’ai pas constaté de dysfonctionnement.
J’ai mis dans le programme plusieurs branchements possibles suivant l’événement que l’on souhaite exploiter : bouton gauche appuyé, bouton gauche lâché et idem pour le bouton droit.
Si ça peut servir à quelqu’un, j’en serai ravi. Wink

A bientôt !

» Des jolis boutons
» BOUTONS INTENABLES
» Tester votre réseau local et votre connexion Internet
» Sondage : Quel navigateur internet utilisez-vous ?
» Boutons (un peu) fantaisie