Test Clavier

Aller en bas

Test Clavier

Message par Atlantis le Lun 15 Oct - 16:53

Salut les pros du GFA

Petite question.
Pour tester le clavier sans que la souris ne vienne polluer les valeurs vous faites comment ?

Exemple : J'ai besoin de savoir si j'appuie les touches de fonctions (F1-F10) par exemple et la souris doit pouvoir bouger également.
KEYTEST et &FFFC02 sont pollués par les mouvements de la souris, vous connaissez autre-chose d'efficace ?

Merci d'avance
Atlantis
avatar
Atlantis

Messages : 39
Date d'inscription : 20/02/2018
Localisation : Seine et Marne

Voir le profil de l'utilisateur http://www.safargames.fr

Revenir en haut Aller en bas

Re: Test Clavier

Message par ManuM le Mar 16 Oct - 2:25

Avec KEYGET ou INP(2) ma valeur de touche a l'air correct mais le pointeur de souris clignote,
Do
Vsync
Showm
If mousek<>0 then
Var=inp(2)
Print at(0,0); var,mousek,mousex,mousey
Endif
Loop until mousek=3

ManuM

Messages : 47
Date d'inscription : 01/01/2018
Localisation : Loir et Cher

Voir le profil de l'utilisateur

Revenir en haut Aller en bas

Re: Test Clavier

Message par Atlantis le Mar 16 Oct - 16:47

Salur ManuM

Et merci pour ta réponse.
Le pb avec inp(2) c'est qu'il attend la frappe.
Je fait ce test dans une boucle principale et je ne peux pas m'arrêter pour attendre une touche !
D’où l’intérêt de taper dans le hard avec (genre) key|=BYTE(PEEK(&FFFC02) and &FF) mais bouger la souris "renseigne" aussi cet octet !
avatar
Atlantis

Messages : 39
Date d'inscription : 20/02/2018
Localisation : Seine et Marne

Voir le profil de l'utilisateur http://www.safargames.fr

Revenir en haut Aller en bas

Re: Test Clavier

Message par lp060 le Mer 17 Oct - 18:08

Small change to above code might work?
IF INP?(2) !key was pressed?
var=INP(2) !get key
ELSE
var=0 !no key
ENDIF
avatar
lp060

Messages : 6
Date d'inscription : 10/02/2018
Localisation : USA

Voir le profil de l'utilisateur http://gfabasic.net/

Revenir en haut Aller en bas

Re: Test Clavier

Message par Atlantis le Mer 17 Oct - 19:03

Very interesting !
Thanks very much ip060, it seems that this code could be very helpful to me !

Sinon, je vais créer un Topic pour un jeu d'aventure en GFA (et 68000) : Athanor 2.
Faites un petit tour dans la section programmation, ou je reparle un peu de SpeedPacker.
avatar
Atlantis

Messages : 39
Date d'inscription : 20/02/2018
Localisation : Seine et Marne

Voir le profil de l'utilisateur http://www.safargames.fr

Revenir en haut Aller en bas

Re: Test Clavier

Message par ManuM le Jeu 18 Oct - 21:07

Thank you LP060 Smile

ManuM

Messages : 47
Date d'inscription : 01/01/2018
Localisation : Loir et Cher

Voir le profil de l'utilisateur

Revenir en haut Aller en bas

Re: Test Clavier

Message par Shadow272 le Ven 19 Oct - 8:09

Sans devoir attendre la pression d'une touche et pouvoir continuer a utiliser la souris:
KEYTEST.

EX:
DO
KEYTEST k%
EXIT if KEYTEST > 0
.
. Autres fonctions genre MOUSE mx%,my%,mk%
.
.
LOOP

avatar
Shadow272
Admin

Messages : 137
Date d'inscription : 28/12/2017
Age : 60
Localisation : Hainaut Belgique

Voir le profil de l'utilisateur http://toutatari.blog4ever.xyz/

Revenir en haut Aller en bas

Re: Test Clavier

Message par Contenu sponsorisé


Contenu sponsorisé


Revenir en haut Aller en bas

Revenir en haut

- Sujets similaires

 
Permission de ce forum:
Vous ne pouvez pas répondre aux sujets dans ce forum