La recherche a retourné 4411 résultats

par charognard
17 mai 2015 01:07
Forum : Tous les Pockets
Sujet : Pocketophile ?
Réponses : 9
Vues : 3884

Re: Pocketophile ?

Ou ùPocketophile pour ceux qu'on le complexe du CPC Amstrad (seul ceux qu'en on eu un peuvent comprendre !)
par charognard
29 mars 2015 10:35
Forum : Tous les Pockets
Sujet : aide assembleur
Réponses : 5
Vues : 1916

Re: aide assembleur

Par contre pour la manipulation des chaines c'est intéressant et tu touche la les mécanismes de l'autoprogrammation
par charognard
28 mars 2015 00:53
Forum : Tous les Pockets
Sujet : Un rêve utopique
Réponses : 7
Vues : 2588

Re: Un rêve utopique

Locate x,y,[VAR] ou Locate x,y,"TEXTE"
mais ne fonctionne qu'en mode graph
par charognard
27 mars 2015 23:46
Forum : Tous les Pockets
Sujet : aide assembleur
Réponses : 5
Vues : 1916

Re: aide assembleur

ç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...
par charognard
27 mars 2015 19:41
Forum : Tous les Pockets
Sujet : aide assembleur
Réponses : 5
Vues : 1916

Re: aide assembleur

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
par charognard
20 févr. 2015 08:30
Forum : Tous les Pockets
Sujet : [Challenge mono-ligne] Traitement chaine II
Réponses : 32
Vues : 5113

Re: [Challenge mono-ligne] Traitement chaine II

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 ...
par charognard
19 févr. 2015 15:12
Forum : Tous les Pockets
Sujet : [Challenge mono-ligne] Traitement chaine II
Réponses : 32
Vues : 5113

Re: [Challenge mono-ligne] Traitement chaine II

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...
par charognard
19 févr. 2015 09:29
Forum : Tous les Pockets
Sujet : [Challenge mono-ligne] Traitement chaine II
Réponses : 32
Vues : 5113

Re: [Challenge mono-ligne] Traitement chaine II

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...
par charognard
19 févr. 2015 09:19
Forum : Tous les Pockets
Sujet : [Challenge mono-ligne] Traitement chaine II
Réponses : 32
Vues : 5113

Re: [Challenge mono-ligne] Traitement chaine II

@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...
par charognard
18 févr. 2015 23:27
Forum : Tous les Pockets
Sujet : [Challenge mono-ligne] Traitement chaine II
Réponses : 32
Vues : 5113

Re: [Challenge mono-ligne] Traitement chaine II

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...
par charognard
18 févr. 2015 20:56
Forum : Tous les Pockets
Sujet : [Challenge mono-ligne] Traitement chaine II
Réponses : 32
Vues : 5113

Re: [Challenge mono-ligne] Traitement chaine II

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...
par charognard
18 févr. 2015 15:33
Forum : Tous les Pockets
Sujet : [Challenge mono-ligne] Traitement chaine II
Réponses : 32
Vues : 5113

Re: [Challenge mono-ligne] Traitement chaine II

jvernet a écrit :sans ELSE ça risque d'être chô ;).
Mais possible
par charognard
18 févr. 2015 14:15
Forum : Tous les Pockets
Sujet : [Challenge mono-ligne] Traitement chaine II
Réponses : 32
Vues : 5113

Re: [Challenge mono-ligne] Traitement chaine II

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...
par charognard
18 févr. 2015 12:48
Forum : Tous les Pockets
Sujet : [Challenge mono-ligne] Traitement chaine II
Réponses : 32
Vues : 5113

Re: [Challenge mono-ligne] Traitement chaine II

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$
par charognard
18 févr. 2015 10:38
Forum : Tous les Pockets
Sujet : [Challenge mono-ligne] Traitement chaine II
Réponses : 32
Vues : 5113

Re: [Challenge mono-ligne] Traitement chaine II

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

Aller sur la recherche avancée