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
Help !!!
Modérateur : Politburo
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
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"
Merci qui pour ce petit souvenir nostalgique ?charognard a écrit :J'avais bien galéré sur ce problème, il y a plus de 30ans et ça met resté en mémoire
Page 176 je suppose !Marge a écrit :Il n'empêche que ce dysfonctionnement est mentionné dans le manuel du PC-1403. Tant mieux si ce bout de programme fonctionne.
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"
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
Le AREAD n'est qu'un INPUT inversépir2 a écrit :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 tapé de tête)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 : Tout sélectionner
10 "A" AREAD A
20 PRINT A+2