Prog avec appui sur touches clavier [Résolu]

Signaler
Messages postés
8
Date d'inscription
vendredi 28 avril 2006
Statut
Membre
Dernière intervention
27 juin 2006
-
Messages postés
3874
Date d'inscription
mardi 8 mars 2005
Statut
Modérateur
Dernière intervention
7 novembre 2014
-
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

6 réponses

Messages postés
3874
Date d'inscription
mardi 8 mars 2005
Statut
Modérateur
Dernière intervention
7 novembre 2014
11
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.
Messages postés
15814
Date d'inscription
jeudi 8 août 2002
Statut
Modérateur
Dernière intervention
4 mars 2013
102
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 !
Messages postés
3874
Date d'inscription
mardi 8 mars 2005
Statut
Modérateur
Dernière intervention
7 novembre 2014
11
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.
Messages postés
630
Date d'inscription
vendredi 5 mai 2006
Statut
Membre
Dernière intervention
17 février 2007

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.
Messages postés
3874
Date d'inscription
mardi 8 mars 2005
Statut
Modérateur
Dernière intervention
7 novembre 2014
11
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...
Messages postés
3874
Date d'inscription
mardi 8 mars 2005
Statut
Modérateur
Dernière intervention
7 novembre 2014
11
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