HP-41C, HP-12C ; Casio FX-702P, FX-850P, FX-602P, FX-3900P, FX-4000P, FX-180Pv ;
TI 57 avec adaptation d'une pile LR9 et une originale, accus HS; Newton MP 120FR, MP 2100US, MP 130US...
[***Apple //e, 7100, 8500, Atari Mega ST1 ***], PB-540c, PISMO, [***CPC-6128, MO5***]... et bien d'autres trucs
[--- plus ---] http://astrophoto.free.fr/
Le PC-1246 n'accepte que des strings que 7 caractères, trop petit pour les 9 chiffres. On encode donc chiffre par chiffre:
(...)
Il n'affiche aussi que la chef
Ben
Ton 1246 accepte aussi au moins 10 chiffres ?
Alors adapte mon code pour FX-702P !
Tu admets que 9 chiffres entiers sont saisis....
le dixième est calculé.
Ça évitera les 9 saisies
HP-41C, HP-12C ; Casio FX-702P, FX-850P, FX-602P, FX-3900P, FX-4000P, FX-180Pv ;
TI 57 avec adaptation d'une pile LR9 et une originale, accus HS; Newton MP 120FR, MP 2100US, MP 130US...
[***Apple //e, 7100, 8500, Atari Mega ST1 ***], PB-540c, PISMO, [***CPC-6128, MO5***]... et bien d'autres trucs
[--- plus ---] http://astrophoto.free.fr/
Le PC-1246 n'accepte que des strings que 7 caractères, trop petit pour les 9 chiffres. On encode donc chiffre par chiffre:
(...)
Il n'affiche aussi que la chef
Ben
Ton 1246 accepte aussi au moins 10 chiffres ?
Alors adapte mon code pour FX-702P !
Tu admets que 9 chiffres entiers sont saisis....
le dixième est calculé.
Ça évitera les 9 saisies
Mon essai pour PC1245... à debuguer (écrit depuis un émulateur)
10:DIM B$(9)
20:INPUT "ISBN:",N:N=INT(ABS(N)):T=0
30:FOR I=1 TO 9
40:N=N/10:C=(N-INT(N))*10:N=INT(N):T=T+(10-I)*C
50:B$(10-I)=STR$(C):NEXT I
60:M=T-INT(T/11)*11
70:FOR I=1 TO 9
80:PRINT B$(I);
90:NEXT I:IF M=10 PRINT "-X"
100:IF M<10 PRINT M
110:END
J'obtiens ERROR 1 IN 80
Il n'existe pas de fonction Frac() ?
Pour chaîner un affichage, il ne faut pas écrire un ; après le PRINT ?
Edit : j'ai compris que A([1..26]) était équivalent à A...Z
HP-41C, HP-12C ; Casio FX-702P, FX-850P, FX-602P, FX-3900P, FX-4000P, FX-180Pv ;
TI 57 avec adaptation d'une pile LR9 et une originale, accus HS; Newton MP 120FR, MP 2100US, MP 130US...
[***Apple //e, 7100, 8500, Atari Mega ST1 ***], PB-540c, PISMO, [***CPC-6128, MO5***]... et bien d'autres trucs
[--- plus ---] http://astrophoto.free.fr/
Modifié en dernier par Thierry Loiseau le 15 mars 2017 15:17, modifié 1 fois.
HP-41C, HP-12C ; Casio FX-702P, FX-850P, FX-602P, FX-3900P, FX-4000P, FX-180Pv ;
TI 57 avec adaptation d'une pile LR9 et une originale, accus HS; Newton MP 120FR, MP 2100US, MP 130US...
[***Apple //e, 7100, 8500, Atari Mega ST1 ***], PB-540c, PISMO, [***CPC-6128, MO5***]... et bien d'autres trucs
[--- plus ---] http://astrophoto.free.fr/
10:DIM B$(0)*9
20:INPUT "ISBN:",B$(0):N=VAL(B$(0)):T=0
30:FOR I=9 TO 1 STEP -1
40:N=N/10:C=(N-INT(N))*10:N=INT(N):T=T+I*C
50:NEXT I
60:N=T-INT(T/11)*11
70:C$=STR$(N):IF N=10 LET C$="X"
80:PRINT "ISBN:"+B$(0)+"-"+C$
90:END
On peut spécifier la longueur de la chaîne de caractères — ici B$(0) — jusqu'à 16.
Je précise donc 9... et ça raccourcit le programme.
Je supprime également le INT(ABS()). Après tout, on est censé savoir ce que l'on saisit
HP-41C, HP-12C ; Casio FX-702P, FX-850P, FX-602P, FX-3900P, FX-4000P, FX-180Pv ;
TI 57 avec adaptation d'une pile LR9 et une originale, accus HS; Newton MP 120FR, MP 2100US, MP 130US...
[***Apple //e, 7100, 8500, Atari Mega ST1 ***], PB-540c, PISMO, [***CPC-6128, MO5***]... et bien d'autres trucs
[--- plus ---] http://astrophoto.free.fr/
Merci pour cette nouvelle version... yapuka comprendre
HP-41C, HP-12C ; Casio FX-702P, FX-850P, FX-602P, FX-3900P, FX-4000P, FX-180Pv ;
TI 57 avec adaptation d'une pile LR9 et une originale, accus HS; Newton MP 120FR, MP 2100US, MP 130US...
[***Apple //e, 7100, 8500, Atari Mega ST1 ***], PB-540c, PISMO, [***CPC-6128, MO5***]... et bien d'autres trucs
[--- plus ---] http://astrophoto.free.fr/
Bonsoir
Rien de bien compliqué:
ATOX supprime le premier caractère du registre Alpha et met son code ASCII dans X
XTOA ajoute le caractère de code ASCII X au registre Alpha (en dernière position).
Le code ASCII de "0" =48, "1" =49 etc... d'où le 48 -.
Le registre Y sert de compteur et vaut 10.009 quand on sort de la boucle LBL 00 ....GTO 00
j'utilise donc sa partie entière pour le test du "X".
L'idée est de voire si le module X-Functions peut apporter un plus.
Ok. C'est rigolo, avec l'émulateur utilisé, je viens de découvrir qu'il permettait aussi de connecter l'imprimante sur l'HP-41C. C'est un peu déroutant pour "la connecter" et l'utiliser mais ça marche. Exemple avec une de mes versions précédemment présentée :
HP-41C, HP-12C ; Casio FX-702P, FX-850P, FX-602P, FX-3900P, FX-4000P, FX-180Pv ;
TI 57 avec adaptation d'une pile LR9 et une originale, accus HS; Newton MP 120FR, MP 2100US, MP 130US...
[***Apple //e, 7100, 8500, Atari Mega ST1 ***], PB-540c, PISMO, [***CPC-6128, MO5***]... et bien d'autres trucs
[--- plus ---] http://astrophoto.free.fr/
"CODE ISBN ?" BRK STO A STO D 9 STO B 0 STO C
LBL 00
RCL A /10= STO A FRC *10* RCL B = ST+ C RCL A INT STO A DSZ B GTL 00
RCL C /11= INT *11= ST- C COL 10 MRG D COL 10 "-" 10 IF= C GTL 01
OLD COL 12 MRG C COL 12 DEL RTN
LBL 01
OLD COL 11 "X" HLT
Une machine attachante que l'on "voit" trop peu sur le forum.