fonction inkey()

[claudibus]

Débutant en PureBasic mais avec des anciennes connaisances en Basic ( DAI 1982 ) j'essaye les fonctions comme celle la

OpenConsole()

debut:
If Inkey()<>""


touche$=Inkey()
num=RawKey()

PrintN ("[ " + touche$+ "]" + Str(num))

PrintN (Str(i))

EndIf
Goto debut


Et la fenetre me renvois toujours
[ ] 0

quelque soit la touche utilisé
une petite aide serait la bienvenu

[bernard13]

svp essaye de poster ton code comme ceci :

Code : Tout sélectionner

OpenConsole()

debut:
If Inkey()<>""


touche$=Inkey()
num=RawKey()

PrintN ("[ " + touche$+ "]" + Str(num))

PrintN (Str(i))

EndIf
Goto debut


Et la fenetre me renvois toujours
[ ] 0

[Octavius]

Ton problème c'est que tu fais appel deux fois à la fonction Inkey()
Ecrit plutôt ton code comme ça :

Code : Tout sélectionner

OpenConsole()

Repeat

touche$=Inkey()
num=RawKey()

If touche$<>""
  PrintN ("["+touche$+"]"+Str(num))
EndIf

Forever

Evite les Goto quand tu peux aussi.

[claudibus]

bonsoir
j'ai essayé votre code et maintenant cela marche bien
merci et certainement a bientot