Prog avec appui sur touches clavier [Résolu]

Messages postés
8
Date d'inscription
vendredi 28 avril 2006
Statut
Membre
Dernière intervention
27 juin 2006
- - Dernière réponse : cs_rt15
Messages postés
3982
Date d'inscription
mardi 8 mars 2005
Statut
Modérateur
Dernière intervention
7 novembre 2014
- 27 juin 2006 à 21:14
bonjour a tous !!!

je suis entrain de faire un projet de fin d'année, et j'aimerais commander un robot a distance avec plusieurs fleches( par exemple avancer a droite, reculer a gauche)
toute la partie liaison a distance et protocole de com est deja fait, il me mank juste le pti bou de prog pour envoyer une info lorske j'appuie sur plusieur touche en meme tps, mais seulemen ken g plusieur touches

dc j'aimerai savoir si kelkun sais commen generer du code seuelemen apres appui sur plusieur touches du clavier
merci d'avance
Afficher la suite 

6 réponses

Meilleure réponse
Messages postés
3982
Date d'inscription
mardi 8 mars 2005
Statut
Modérateur
Dernière intervention
7 novembre 2014
9
3
Merci
lol


Pardon pour le triple post, mais la solution de Gobillaut est sympa aussi !


Merci de na pas poser 2 fois la même question... Surtout après avoir eu une réponse constructives.

Dire « Merci » 3

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources 194 internautes nous ont dit merci ce mois-ci

Commenter la réponse de cs_rt15
Messages postés
15815
Date d'inscription
jeudi 8 août 2002
Statut
Modérateur
Dernière intervention
4 mars 2013
82
0
Merci
Attention à ton orthographe, si tu continue à utiliser le langage SMS, je supprimerai tes prochains posts !

On est sur un forum ici, pas un portable, tu peux prendre le temps de te relire et de bien taper tes phrases !
Commenter la réponse de cs_DARKSIDIOUS
Messages postés
3982
Date d'inscription
mardi 8 mars 2005
Statut
Modérateur
Dernière intervention
7 novembre 2014
9
0
Merci
Bonjour,


Ma méthode est bourrine (je bourine trops) mais elle est fonctionnelle si tu trouves rien d'autre :


Option Explicit


Dim bUp As Boolean

Dim bDown As Boolean


Private Sub Form_Activate()

Me.SetFocus

End Sub


Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)

bUp IIf(KeyCode vbKeyUp, True, bUp)

bDown IIf(KeyCode vbKeyDown, True, bDown)

If bUp And bDown Then Label1.Caption = Label1.Caption & " code"

End Sub


Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer)

bUp IIf(KeyCode vbKeyUp, False, bUp)

bDown IIf(KeyCode vbKeyDown, False, bDown)

End Sub


Je note simplement toutes les touches appuyées et désappuyées.
Commenter la réponse de cs_rt15
Messages postés
630
Date d'inscription
vendredi 5 mai 2006
Statut
Membre
Dernière intervention
17 février 2007
0
Merci
Ouaip, ta question commence bien et se termine en SMS, fatigue ?
A part ça, si j'ai bien compris ta question, cherche sur le site ou dans la MSDN ce qui concerne les évènements KeyPress, KeyUp et KeyDdown.
Commenter la réponse de Dolphin Boy
Messages postés
3982
Date d'inscription
mardi 8 mars 2005
Statut
Modérateur
Dernière intervention
7 novembre 2014
9
0
Merci
Pivate Sub Form_Activate()

Me.SetFocus

End Sub


Ne sert à rien.


Aïeu mon code pose problème lorsque la form perd le focus. Et l'évènement LostFocus semble récalcitrant...
Commenter la réponse de cs_rt15
Messages postés
3982
Date d'inscription
mardi 8 mars 2005
Statut
Modérateur
Dernière intervention
7 novembre 2014
9
0
Merci
C'est mieux comme ça :


Option Explicit


Dim bUp As Boolean

Dim bDown As Boolean


Private Sub Form_Deactivate()

bUp = False

bDown = False

End Sub


Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)

bUp IIf(KeyCode vbKeyUp, True, bUp)

bDown IIf(KeyCode vbKeyDown, True, bDown)

If bUp And bDown Then Label1.Caption = Label1.Caption + " code"

End Sub


Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer)

bUp IIf(KeyCode vbKeyUp, False, bUp)

bDown IIf(KeyCode vbKeyDown, False, bDown)

End Sub
Commenter la réponse de cs_rt15