Forum

Ou ùPocketophile pour ceux qu'on le complexe du CPC Amstrad (seul ceux qu'en on eu un peuvent comprendre !)

Par contre pour la manipulation des chaines c'est intéressant et tu touche la les mécanismes de l'autoprogrammation

Locate x,y,[VAR] ou Locate x,y,"TEXTE"
mais ne fonctionne qu'en mode graph

ça doit etre en décimal codé binaire. Mets une valeur dans X et étudie les octets X est en simple précision donc 7 octets dans ces 7 octets tu as le typage, la mantisse, l'exposant en faisant ton LD dans le premier octet sais-tu ce que tu modifie ? Mettons 100 dans X les 7 octets sont (en decimal) 6...

Salut !

pourquoi
DATA 3E,0,3C,BF,64,DA,71,05,32,44,06,C9
alors que @X=1580 (dans ton cas) ?

de plus LD (nn),A ne met pas 64 dans X mais modifie X qui est codé sur respectivement :
5 octets en INT
7 en simple précision
11 en double

Voici ma proposition. Elle ne respecte pas tous les critères mais ça ne fait rien (c'est mon côté rebelle). Pour Sharp PC-1500 5 : WAIT 0:CALL &E243:PRINT CHR$(PEEK(&FE80+PEEK &7B0F - 128) + 1);:GOTO 5 En FAIT elle ne respecte rien ;) Pas de décalage de Z-->Z Utilisation d'une fonction équivalente ...

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 à : for b=0 to 1:a=asc inkey$:b=a > 31:ne...

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 pa...

@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 : 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 comprendr...

Nickel j'avais une autre proposition disons .... moins conventionnelle Mais plus longue. 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 Pou...

Voici ma proposition qui tourne sur sharp pc1500: 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 SO...

jvernet a écrit :sans ELSE ça risque d'être chô .

Mais possible

Ce n'est pas tout, si tu reste en appuie sur la touche tu en a plusieurs qui arrivent. Et ça pas le droit : il faut liberer la touche et à nouveau appuyer dessus pour qu'elle soit prise en compte Bref l'équivalent de 10 A$= INKEY$: IF A$="" GOTO10 Traitement 100 IF INKEY$ <>"" GOTO 100 110 GOTO 10 M...

Oui mais non

La traduction DOIT ETRE FAITE à la volée sans pression de la touche [ENTER]
sinon il n'y a aucune difficulté en fait

Bref tu appuie sur la touche [A] ça t'affiche B

Genre avec INKEY$

Tu as du mal lire
- Pas de fonction genre INP$ (et GETKEY est en plein dedans)
- Sur Pocket
- Z devient A

Disons que le C64 est un gros Pocket.
Tu dois utiliser GET ou INKEY$ et inclure la gestion de Z