Je galère avec inkey$

[Céline]

Bonjour,

je ne m'en sors pas avec la fonction inkey$.

Code : Tout sélectionner

10 A$=INKEY$:IF A$="" THEN GOTO 10
20 IF A$="O" THEN PRINT "OUI":GOTO 40
30 PRINT "NON"
40 END

Ca marche très bien sur Casio PB770, c'est plutôt aléatoire sur Sharp pc-1262 avec des bidouillages avec WAIT que je ne maitrise pas trop et des trucs bizarres si je commence la ligne 10 par "M": Et sur Sharp pc-1500 je n'arrive à rien.
Help !!!

[Marge]

Je n'ai plus trop ça en tête, mais sur le 1403 de Sharp il y a, de mémoire, un problème avec cette fonction qui est aléatoire (elle peut fonctionner ou ne pas fonctionner si on accède au programme par [DEF] + une touche). C'est mentionné dans le manuel.
Je ne sais si ça peut t'aider...

[Céline]

Bon c'est déjà une première réponse. def et inkey$ semblent aussi faire mauvais ménage sur pc-1262. Merci Marge.
Et sur pc-1500 ça marche comment ?

[charognard]

Bogué le SHARP ..... Bande d'incultes

Sur certain SHARP le INKEY$ intercepte les codes ASCII des touches et notamment celle CHR$(13) qui correspond à la touche [ENTER]
Ton code fonctionne super bien en fait mais lorsque du lance ton programme si tu reste appuyé sur [ENTER] il passe en 30 et t'affiche 'NON'

voilà ce qu'il faut faire :

Code : Tout sélectionner

10 IF INKEY$ <>"" THEN 10
20 A$=INKEY$:IF A$="" THEN 20
30 IF A$="O" PRINT "OUI":END
30 PRINT "NON"

Explication :
----------------
le IF INKEY$ <>"" THEN 10 vérifie qu'une touche n'est actuellement pas appuyée et vide le buffer


J'avais bien galéré sur ce problème, il y a plus de 30ans et ça met resté en mémoire

Pour la touche DEF le problème est le même, la touche après le DEF est interceptée si appui pas suffisamment rapide

[Céline]

Oh yess ça marche !

J'avais bien galéré sur ce problème, il y a plus de 30ans et ça met resté en mémoire

Merci qui pour ce petit souvenir nostalgique ?

[Marge]

Il n'empêche que ce dysfonctionnement est mentionné dans le manuel du PC-1403. Tant mieux si ce bout de programme fonctionne.

[charognard]

Il n'empêche que ce dysfonctionnement est mentionné dans le manuel du PC-1403. Tant mieux si ce bout de programme fonctionne.

Page 176 je suppose !

avec l'exemple DEF Z qui intercepte le Z du DEf sur inkey
c'est ce que je dis mon code attend qu'il n'y ai plus de pression de touche donc DEF fonctionne très bien.

Exemple si j'ajoute le DEF Z mon code fonctionne nickel

Code : Tout sélectionner

10 "Z" IF INKEY$ <>"" THEN 10
20 A$=INKEY$:IF A$="" THEN 20
30 IF A$="O" PRINT "OUI":END
30 PRINT "NON"

[Marge]

Oui, oui, oui.

[pir2]

Et avec le DEF X, on peut mettre un AREAD pour lire immédiatement la valeur d'avant le lancement (je sais, ce n'est pas le même besoin )

Code : Tout sélectionner

10 "X" AREAD A$
20 IF A$="OUI" GOTO 100
30 PRINT A$
40 GOTO 110
100 PRINT "JE FAIS CE QUE JE VEUX DU OUI"
110 END

(code tapé de tête)

[charognard]

Et avec le DEF X, on peut mettre un AREAD pour lire immédiatement la valeur d'avant le lancement (je sais, ce n'est pas le même besoin )

Code : Tout sélectionner

10 "X" AREAD A$
20 IF A$="OUI" GOTO 100
30 PRINT A$
40 GOTO 110
100 PRINT "JE FAIS CE QUE JE VEUX DU OUI"
110 END

(code tapé de tête)

Le AREAD n'est qu'un INPUT inversé
il fonctionne avec le mode DEF et est exclusif aux SHARP
Une instruction permettant la création de fonctions uniquement mono paramètres.


à noter que le retour d'un PRINT peut être pris en paramètre

Exemple :

Code : Tout sélectionner

10 "A" AREAD A
20 PRINT A+2

2
[DEF] A
[DEF] A
[DEF] A

donnera 8