prgm Loupe

[pigman]

Petit prgm qui sert de loupe :
Tout d'abord faite un dessin sur le coin haut-gauche du graph, puis lancez le prgm.

Code: Tout sélectionner

0→Xmin:94→Xmax
0→Ymin:62→Ymax
Verticale 30
Horizontale 41
0→A
0→B
22→Z
31→Y
Lbl 0
pxl-Test(A,B)→C
If C=1:Goto 2
Lbl 3
B+1→B
Y+2→Y
If B=30:Goto 1
Goto 0
Lbl 1
If A=19:Goto 4
A+1→A
0→B
Z+2→Z
31→Y
Goto 0
Lbl 2
Pxl-On(Z,Y)
Pxl-On(Z+1,Y+1)
Pxl-On(Z+1,Y)
Pxl-On(Z,Y+1)
Goto 3
Lbl 4
Texte(10,70,"FIN")
Goto 4

[Adriweb]

Je n'ai pas testé ou autre, mais je tiens juste à dire qu'il est conseillé de ne pas coder avec la calculatrice en Français (ca peut créer des problèmes, et puis ce n'est pas joli )
(au passage : utilise la balise [code] )

[pigman]

Ok dac mais alors comment change t-on la langue sur une ti 82 ? (ps : je suis nouveau sur Ti Planet, je découvre)

[Bisam]

Je suppose que tu parles d'une TI82 Stats.fr (car les TI-82 sont une autre calculette, bien plus ancienne, et qui n'a pas grand chose à voir !) ... dans ce cas, tu ne peux pas changer de langue !

[pigman]

Merci, je devrais donc me débrouiller autrement !

[grosged]

Je ne sais pas si ça marcherait aussi avec la TI82 Stats.fr, mais en ce qui concerne ma TI84 Pocket.fr,
elle était aussi, lors de mon achat, en français
Trop habitué à l'anglais, j'avais tenté une manipulation : retirer à la fois les piles "crayons" et surtout la mini pile "plate"...Hé bien après avoir remis tout ça : Oh miracle !! c'était (re)passé en anglais !!!

[Hayleia]

Sur les z80 à mémoire flash (comme ta 84 Pocket.fr), il suffit de désinstaller l'application qui traduit. Soit en la lançant et en choisissant l'anglais, soit en faisant un RAM Clear ou pire.
Par contre la 82 Stats.fr n'est pas à mémoire flash (en tout cas, non disponible pour l'utilisateur) et la traduction est "incluse" dans l'OS, pas installable et installée, et donc pas désinstallable.

[grosged]

Merci pour l'explication, c'est plus clair, à présent ...J'avais donc employé la méthode "bourrin", alors !

[m@thieu41]

Bonsoir,

Tu utilises les Goto/Lbl à outrance... Il y a moyen de mieux faire en utilisant des structures If et un peu de boucles
Pourquoi une "boucle" infinie à la fin?

Code: Tout sélectionner

//Ceci est un commentaire

///////////////////
//Attention : changer le zoom provoquera l'effacement de l'écran... (voir code de substitution plus loin)
0→Xmin:94→Xmax
0→Ymin:62→Ymax
Vertical 30
Horizontal 41
///////////////////

For(B,0,29 //On parcourt chaque colonne
For(A,0,19 //On parcourt chaque ligne

If pxl-Test(A,B //Si le pixel est allumé
Then
Pxl-On(22+2A,31+2B //On allume les 4 correspondants
Pxl-On(23+2A,32+2B
Pxl-On(23+2A,31+2B
Pxl-On(22+2A,32+2B
End

End
End
Text(10,70,"FIN  //Les parenthèses/guillemets n'ont pas besoin d'être fermées

Voici un bout de code qui permet de tenir compte du zoom d'origine, et n'efface donc pas quelque soit le zoom (permet de remplacer le début qui est balisé):

Code: Tout sélectionner

Vertical Xmin+30PasX //PasX  = deltaX en anglais.
Horizontal Ymin+41PasY //PasY = delatY

On prends donc à chaque fois le minimum, et on ajoute le pas (qui correspond à la distance par rapport au zoom entre 2 pixels), multiplié par la distance en pixels voulue : on ne modifie pas le zoom : il n'y a pas d'effacement!

PS: un lien qui pourrait t'être utile: http://tout82.forumactif.org/t50-candid ... timisation

[Hayleia]

Merci pour l'explication, c'est plus clair, à présent ...J'avais donc employé la méthode "bourrin", alors !

Disons qu'aller jusqu'à enlever les piles est effectivement assez bourrin
Par contre, le RAM Clear est une "méthode" que j'utilise souvent, par exemple pour supprimer mes programmes, vu que le menu Memory est moins bien foutu que le menu Programs, et vu que zStart est bien foutu aussi

Show/Hide spoilerAfficher/Masquer le spoiler

On est un peu off-topic donc je raconte ma vie en spoiler.
En gros, au lieu d'aller dans Memory, ce qui prend déjà 2nd,+,2,7, puis d'appuyer sur Bas vingt fois pour arriver devant mon programme avant d'enfin appuyer sur Del, Yes, Clear, j'appuie sur prgm, puis sur la première lettre du nom de mon programme (alpha, lettre) puis sur Bas moins de vingt fois, puis sur ON+*, puis clear, ON+7 (ce qui RAM Clear chez moi), et c'est tout.