[Challenge mono-ligne] Traitement chaine II

[C.Ret]

Ce n'est pas tout, si tu reste en appuie sur la touche tu en a plusieurs qui arrivent.[...]

Très juste, c'est come le GET sur mon Commodore. A chaque passage, le canal clavier est lu et si une touche a était appuyée, le caractère correspondant est mis dasn A$.
Donc quand je n'appuye pas, la boucle tourne avec A$ vide et le ASC qui retourne 0 pour afficher un CHR$(0) - en fait un CHR$(14) sur Commodore VIC/C64 pour éviter le plantage -

Bon faut que je trouve un Pocket autre que mon SHARP PC-1211 afin de vérifier si ça fonctionne de même et que le ASC A$ renvoi bien 0 si A$ est vide.

[bernouilli92]

Voici ma proposition qui tourne sur sharp pc1500:

Code : Tout sélectionner

1 B=A:A=ASC(INKEY$):PAUSE CHR$((A<>B)*(A>0)*(A+(A>32)-(A=90)*26));:IF A<>47 THEN 1

[charognard]

Voici ma proposition qui tourne sur sharp pc1500:

Code : Tout sélectionner

1 B=A:A=ASC(INKEY$):PAUSE CHR$((A<>B)*(A>0)*(A+(A>32)-(A=90)*26));:IF A<>47 THEN 1

Ne fonctionne pas car
- Pas en traduction instantanée (PAUSE au lieu de PRINT en WAIT 0).
- On ne peut pas appuyer 2 fois sur la même touche.

Il FAUT QUE LA FRAPPE SOIT TRADUITE A LA VOLÉE, mais sans rémanence de touche

[bernouilli92]

Voici ma proposition qui tourne sur sharp pc1500:

Code : Tout sélectionner

1 B=A:A=ASC(INKEY$):PAUSE CHR$((A<>B)*(A>0)*(A+(A>32)-(A=90)*26));:IF A<>47 THEN 1

Ne fonctionne pas car
- Pas en traduction instantanée (PAUSE au lieu de PRINT en WAIT 0).
- On ne peut pas appuyer 2 fois sur la même touche.

Il FAUT QUE LA FRAPPE SOIT TRADUITE A LA VOLÉE, mais sans rémanence de touche

On peut appuyer deux fois sur la même touche.
Par contre il y a effectivement une certaine lenteur due à l'utilisation de PAUSE.

Voici la version corrigée:

Code : Tout sélectionner

1 WAIT 0:B=A:A=ASC(INKEY$):PRINT CHR$((A<>B)*(A>0)*(A+(A>32)-(A=90)*26));:IF A<>47 THEN 1

[Rom1500]

Bien, ça l'fait !

[charognard]

Nickel

j'avais une autre proposition disons .... moins conventionnelle Mais plus longue.

Code : Tout sélectionner

20 WAIT 0 : FOR B=0 TO 32:B=ASC INKEY$: NEXT B: PRINT CHR$ (B-26*(B=91)-(B=33)+2* SGN COS 90);:FOR C=0 TO 1: C=INKEY$="": NEXT C: IF B<>48 THEN 1

L'idée était d'utiliser la boucle FOR..NEXT comme temporiseur
Pour Incrémentation ou la décrémentation je vérifie le mode RADIAN ou DEGREE que j'aurais précédement programmé sur 2 touches de mon PC1262
DEGREE@ et RADIAN@ (le @ est la validation [ENTER]

[jvernet]

Rooh toucher au compteur de FOR ç.est mal!

[badaze]

Nickel

j'avais une autre proposition disons .... moins conventionnelle Mais plus longue.

Code : Tout sélectionner

20 WAIT 0 : FOR B=0 TO 32:B=ASC INKEY$: NEXT B: PRINT CHR$ (B-26*(B=91)-(B=33)+2* SGN COS 90);:FOR C=0 TO 1: C=INKEY$="": NEXT C: IF B<>48 THEN 1

L'idée était d'utiliser la boucle FOR..NEXT comme temporiseur
Pour Incrémentation ou la décrémentation je vérifie le mode RADIAN ou DEGREE que j'aurais précédement programmé sur 2 touches de mon PC1262
DEGREE@ et RADIAN@ (le @ est la validation [ENTER]

Sauf que ta ligne est 20 et que tu fais un THEN 1.

En tous cas. Chapeau les gars.

[bernouilli92]

@charognard: très intéressant cette utilisation des boucles FOR.
Par contre je ne comprends pas pourquoi tu n'utilises pas la première boucle FOR comme la seconde, du genre :

Code : Tout sélectionner

FOR C=0 TO 1:B=ASC INKEY$: C=B<>0: NEXT C

[gege]

Rooh toucher au compteur de FOR ç.est mal!

Si tu as peur quand on fait ça, surtout ne lis pas la Gazette n°5... on y fera un truc pas conventionnel avec For...
(teasing teasing...)
G.E.

[tyann]

Bonjour

jvernet a écrit:
Rooh toucher au compteur de FOR ç.est mal!

N'étant pas informaticien de métier, je me demande pourquoi ?
Car il m'est arrivé souvent de faire ceci lorsque le langage ne comporte pas d'instruction
Break ou Exit.

[charognard]

@charognard: très interes cette utilisation des boucles FOR.
Par contre je ne comprends pas pourquoi tu n'utilises pas la première boucle FOR comme la seconde, du genre :

Code : Tout sélectionner

FOR C=0 TO 1:B=ASC INKEY$: C=B<>0: NEXT C

Parce que
FOR C=0 TO 1:C=INKEY$="":NEXT C
revient au même mais en plus court

comprendre C=(INKEY$="")

[charognard]

Bonjour

jvernet a écrit:
Rooh toucher au compteur de FOR ç.est mal!

N'étant pas informaticien de métier, je me demande pourquoi ?
Car il m'est arrivé souvent de faire ceci lorsque le langage ne comporte pas d'instruction
Break ou Exit.

Un peu comme dans MATRIX en fait
Il y en a qui jurent que par le respect stricte des règles et d'autre qui les transgresse.
Mais là je ne quitte pas le FOR brutalement mais je lui provoque sa terminaison

Essai ce code maintenant

Code : Tout sélectionner

10 B=0
20 FOR A=1 to 10 : B=B+1: PRINT B:GOTO 40
30 NEXT A
40 BEEP 1:GOTO 20

Il va conduire au plantage rapidement pour un problème de profondeur de pile ( 5 de mémoire sur le 125X/126X).
Et ça c'est PAS CONSEILLÉ DU TOUT

PAR CONTRE

Code : Tout sélectionner

10 B=0
20 FOR A=1 to 10 : B=B+1: PRINT B: A=11
30 NEXT A:BEEP 1 :GOTO20

Pas de problème pour être utilisé

[bernouilli92]

@charognard: très interes cette utilisation des boucles FOR.
Par contre je ne comprends pas pourquoi tu n'utilises pas la première boucle FOR comme la seconde, du genre :

Code : Tout sélectionner

FOR C=0 TO 1:B=ASC INKEY$: C=B<>0: NEXT C

Parce que
FOR C=0 TO 1:C=INKEY$="":NEXT C
revient au même mais en plus court

comprendre C=(INKEY$="")

Je parlais de la première boucle FOR.

[charognard]

Ok compris
parce que la premiere boucle FOR va jusqu'a 32
de cette façon elle embarque un test pour que le code ASCII soit celui d'un caractère (ascii>= 32) et non un code de controle. De plus elle affecte directement ascii+1 a B


bref mon code est équivalent à :

Code : Tout sélectionner

for b=0 to 1:a=asc inkey$:b=a > 31:next b:b=a+1