π
<-

prgm Loupe

prgm Loupe

Unread postby pigman » 05 May 2014, 17:01

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


Code: Select all
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
La signature charge... Merci de patienter...

53%
User avatar
pigman
Niveau 4: MC (Membre Confirmé)
Niveau 4: MC (Membre Confirmé)
Level up: 72%
 
Posts: 7
Joined: 05 May 2014, 16:38
Gender: Not specified
Calculator(s):
MyCalcs profile
Class: 2nde

Re: prgm Loupe

Unread postby Adriweb » 05 May 2014, 17:03

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 :P)
(au passage : utilise la balise [code] ;) )

MyCalcs: Help the community's calculator documentations by filling out your calculators info!
MyCalcs: Aidez la communauté à documenter les calculatrices en donnant des infos sur vos calculatrices !
Inspired-Lua.org: All about TI-Nspire Lua programming (tutorials, wiki/docs...)
My calculator programs
Mes programmes pour calculatrices
User avatar
AdriwebAdmin
Niveau 16: CC2 (Commandeur des Calculatrices)
Niveau 16: CC2 (Commandeur des Calculatrices)
Level up: 79.9%
 
Posts: 14839
Images: 1131
Joined: 01 Jun 2007, 00:00
Location: France
Gender: Male
Calculator(s):
MyCalcs profile
Twitter: adriweb
GitHub: adriweb

Re: prgm Loupe

Unread postby pigman » 05 May 2014, 17:05

Ok dac :D mais alors comment change t-on la langue sur une ti 82 ? (ps : je suis nouveau sur Ti Planet, je découvre)
La signature charge... Merci de patienter...

53%
User avatar
pigman
Niveau 4: MC (Membre Confirmé)
Niveau 4: MC (Membre Confirmé)
Level up: 72%
 
Posts: 7
Joined: 05 May 2014, 16:38
Gender: Not specified
Calculator(s):
MyCalcs profile
Class: 2nde

Re: prgm Loupe

Unread postby Bisam » 05 May 2014, 17:17

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 !
User avatar
BisamAdmin
Niveau 15: CC (Chevalier des Calculatrices)
Niveau 15: CC (Chevalier des Calculatrices)
Level up: 69.6%
 
Posts: 5670
Joined: 11 Mar 2008, 00:00
Location: Lyon
Gender: Male
Calculator(s):
MyCalcs profile

Re: prgm Loupe

Unread postby pigman » 05 May 2014, 18:16

Merci, je devrais donc me débrouiller autrement !
La signature charge... Merci de patienter...

53%
User avatar
pigman
Niveau 4: MC (Membre Confirmé)
Niveau 4: MC (Membre Confirmé)
Level up: 72%
 
Posts: 7
Joined: 05 May 2014, 16:38
Gender: Not specified
Calculator(s):
MyCalcs profile
Class: 2nde

Re: prgm Loupe

Unread postby grosged » 06 Jul 2014, 18:15

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 !!! :D
User avatar
grosgedVIP++
Niveau 14: CI (Calculateur de l'Infini)
Niveau 14: CI (Calculateur de l'Infini)
Level up: 30.2%
 
Posts: 770
Images: 75
Joined: 14 Sep 2011, 12:29
Gender: Not specified
Calculator(s):
MyCalcs profile

Re: prgm Loupe

Unread postby Hayleia » 06 Jul 2014, 18:57

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.

Image
ImageImageImage
Pokemon Topaze (Axe) discussion and download links here
(19:29:36) noelnadal: plus sérieusemen​t, j'ai très peu de problèmes
(22:45:44) Clifward: J'aime rire du malheur des autres :troll:

(2017.11.18 - 17:07:12) Fireworks: Hayleia !!!!!
(2017.11.18 - 17:07:19) TI-Bot: Fireworks has been logged out (Kicked).
(2017.11.18 - 17:07:22) TI-Bot: Ban of user Fireworks revoked.
(2017.11.18 - 17:07:25) TI-Bot: Fireworks logs into the Chat.
(2017.11.18 - 17:07:28) Fireworks: <3
(2017.11.18 - 17:07:31) Fireworks: 208
User avatar
HayleiaGénéreux
Niveau 17: GM (Grand Maître des calculatrices)
Niveau 17: GM (Grand Maître des calculatrices)
Level up: 43.8%
 
Posts: 2509
Images: 2
Joined: 30 Aug 2011, 08:22
Gender: Not specified
Calculator(s):
MyCalcs profile
Class: Templar

Re: prgm Loupe

Unread postby grosged » 06 Jul 2014, 19:14

Merci pour l'explication, c'est plus clair, à présent ;) ...J'avais donc employé la méthode "bourrin", alors ! :p
User avatar
grosgedVIP++
Niveau 14: CI (Calculateur de l'Infini)
Niveau 14: CI (Calculateur de l'Infini)
Level up: 30.2%
 
Posts: 770
Images: 75
Joined: 14 Sep 2011, 12:29
Gender: Not specified
Calculator(s):
MyCalcs profile

Re: prgm Loupe

Unread postby m@thieu41 » 06 Jul 2014, 22:31

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? :o

Code: Select all
//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: Select all
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
User avatar
m@thieu41Premium
Niveau 11: LV (Légende Vivante)
Niveau 11: LV (Légende Vivante)
Level up: 71.3%
 
Posts: 230
Joined: 20 Jun 2013, 14:24
Gender: Male
Calculator(s):
MyCalcs profile
Class: TS

Re: prgm Loupe

Unread postby Hayleia » 07 Jul 2014, 06:45

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

Disons qu'aller jusqu'à enlever les piles est effectivement assez bourrin :P
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.

Image
ImageImageImage
Pokemon Topaze (Axe) discussion and download links here
(19:29:36) noelnadal: plus sérieusemen​t, j'ai très peu de problèmes
(22:45:44) Clifward: J'aime rire du malheur des autres :troll:

(2017.11.18 - 17:07:12) Fireworks: Hayleia !!!!!
(2017.11.18 - 17:07:19) TI-Bot: Fireworks has been logged out (Kicked).
(2017.11.18 - 17:07:22) TI-Bot: Ban of user Fireworks revoked.
(2017.11.18 - 17:07:25) TI-Bot: Fireworks logs into the Chat.
(2017.11.18 - 17:07:28) Fireworks: <3
(2017.11.18 - 17:07:31) Fireworks: 208
User avatar
HayleiaGénéreux
Niveau 17: GM (Grand Maître des calculatrices)
Niveau 17: GM (Grand Maître des calculatrices)
Level up: 43.8%
 
Posts: 2509
Images: 2
Joined: 30 Aug 2011, 08:22
Gender: Not specified
Calculator(s):
MyCalcs profile
Class: Templar

Next

Return to TI-Basic

Who is online

Users browsing this forum: ClaudeBot [spider] and 4 guests

-
Search
-
Social TI-Planet
-
Featured topics
Comparaisons des meilleurs prix pour acheter sa calculatrice !
"1 calculatrice pour tous", le programme solidaire de Texas Instruments. Reçois gratuitement et sans aucune obligation d'achat, 5 calculatrices couleur programmables en Python à donner aux élèves les plus nécessiteux de ton lycée. Tu peux recevoir au choix 5 TI-82 Advanced Edition Python ou bien 5 TI-83 Premium CE Edition Python.
Enseignant(e), reçois gratuitement 1 exemplaire de test de la TI-82 Advanced Edition Python. À demander d'ici le 31 décembre 2024.
Aidez la communauté à documenter les révisions matérielles en listant vos calculatrices graphiques !
1234
-
Donations / Premium
For more contests, prizes, reviews, helping us pay the server and domains...
Donate
Discover the the advantages of a donor account !
JoinRejoignez the donors and/or premium!les donateurs et/ou premium !


Partner and ad
Notre partenaire Jarrety Calculatrices à acheter chez Calcuso
-
Stats.
1903 utilisateurs:
>1887 invités
>8 membres
>8 robots
Record simultané (sur 6 mois):
6892 utilisateurs (le 07/06/2017)
-
Other interesting websites
Texas Instruments Education
Global | France
 (English / Français)
Banque de programmes TI
ticalc.org
 (English)
La communauté TI-82
tout82.free.fr
 (Français)