je fatigue ou bug ?

[Backup]

testez moi ça s'il vous plait

moi le debug ne renvoi rien !

Code : Tout sélectionner

Resultat = OpenConsole()
ConsoleCursor(0)
ConsoleTitle("")
yy:
Chaine$ = Inkey()
Debug Str(RawKey())
Goto yy

[SPH]

Moi il m'envoie une infinité de 0

[Backup]

Moi il m'envoie une infinité de 0

oui c'est pas normal , il devrai envoyer le code de la touche appuyée !!

RawKey()

[SPH]

Code : Tout sélectionner

Resultat = OpenConsole() 
ConsoleCursor(0) 
ConsoleTitle("") 
yy: 
Chaine$ = Inkey() 
If RawKey()
Debug Str(RawKey()) 
EndIf
Goto yy 

ou :

Code : Tout sélectionner

Resultat = OpenConsole() 
ConsoleCursor(0) 
ConsoleTitle("") 
yy: 
Chaine$ = Inkey() 
Debug Str(RawKey()) 
Delay(500)
Goto yy 

[Ollivier]

Il te l'envoie mais, c'est un résultat sur plusieurs centaines de 0 alors difficile de voir la valeur de ses touches comme ça !

Il faut éviter d'écrire toute les valeurs inutiles :

Code : Tout sélectionner

Resultat = OpenConsole() 
ConsoleCursor(0) 
ConsoleTitle("") 
yy: 
Chaine$ = Inkey()
If Chaine$ <> "" ; Un petit tri s'impose
  If RawKey() 
    Debug Str(RawKey()) 
  EndIf
EndIf 
Goto yy 

[Backup]

oui ça marche maintenant ,
cependant, pourquoi faut il un delay()
alors qu'avant il en fallait pas , ya quand meme un truc etrange

[SPH]

oui ça marche maintenant ,
cependant, pourquoi faut il un delay()
alors qu'avant il en fallait pas , ya quand meme un truc etrange

nan mais je pense que dans le flot de 0, tu ne peux pas voir ta touche appuyée. Pour ca que j'aéi mis un delay

[Ollivier]

Et pour le CPU qui fume, on rajoute un Delay :

Code : Tout sélectionner

Resultat = OpenConsole() 
ConsoleCursor(0) 
ConsoleTitle("") 
Repeat
  Delay(2)
  Chaine$ = Inkey() 
  If Chaine$ <> "" ; Un petit tri s'impose 
    If RawKey() 
      Debug Str(RawKey()) 
    EndIf 
  EndIf
ForEver

[Ollivier]

Oups! Les messages s'interposent...

Pour le pourquoi du Delay : je ne sais pas, tournant en version 4.10 B2, la documentation sur RawKey() m'indique de faire un tri. S'il n'y a rien au clavier, c'est un delay que l'on exécute. Pour cette version, c'est déjà comme ça.

Code : Tout sélectionner

Resultat = OpenConsole() 
ConsoleCursor(0) 
ConsoleTitle("") 
Repeat 
  Chaine$ = Inkey() 
  If Chaine$ <> "" ; Un petit tri s'impose 
    If RawKey() 
      Debug Str(RawKey()) 
    EndIf 
  Else
    Delay(5)
  EndIf 
ForEver

[Backup]

ça ça ne marche pas en mode debug pas a pas !!
pourtant y a du delay en mode pas a pas

Code : Tout sélectionner

Resultat = OpenConsole()
ConsoleCursor(0)
ConsoleTitle("")
CallDebugger
yy:
Chaine$ = Inkey()
Debug Chaine$
Debug RawKey()
Delay(10)
Goto yy

[Ollivier]

Ton truc ne marche pas. En revanche, les 2 petits codes source au-dessus fonctionnent bien.

Il n'y a qu'un souci : la console n'est pas forcément au premier plan au démarrage. Il faut parfois aller la chercher dans la barre des tâches...

[Backup]

Ton truc ne marche pas. En revanche, les 2 petits codes source au-dessus fonctionnent bien.

oui je sais mon code ne marche pas !!
c'est pour ça que je signale un bug !!

tes code fonctionnent , mais les miens devraient marcher aussi

surtout en mode debugger avec le trace Pas a Pas !!

[Ollivier]

Tes codes marchent aussi Dobro, Seulement, va analyser que j'ai appuyé sur la touche [Echap] avec une séquence comme-ça dans la fenêtre de déboguage :

Code : Tout sélectionner

0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
27
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0

[Backup]

surtout en mode debugger avec le trace Pas a Pas !!

[Ollivier]

Je suis conscient que la période de fin de semaine est dure, pourtant je me permets de te dire que, saturant la touche F7 (ou autre touche spécifique) pour «continuer» ce que tu as arrêté avec CallDebugger, il est évident que tu n'as pas le temps de satisfaire la routine d'un appui perceptible de touche.