1

Voici un exemple programme assez utile : il donne les racines d’une équations du second degré. Nommer ce programme DEGRE2.
éspace mémoire : environ 515


Lbl 1
0→A:0→B:0→C:0→V:0→W:0→D
ClrHome
Output(6,1,"EDIT BY LOCLAMOR"
Output(7,1,"----------------"
Disp "ax2+bx+c=0   a≠0"
Input "a=",A
If A=0:Goto 1
Output(6,1,"EDIT BY LOCLAMOR"
Output(7,1,"----------------"
Input "b=",B
Output(6,1,"EDIT BY LOCLAMOR"
Output(7,1,"----------------"
Input "c=",C
B2-4AC→D
ClrHome
Disp "DELTA ="
Output(1,9,D
If D>0:Then
Disp "DEUX SOLUTIONS :"
Disp "x1 ="
(-B+√(D))/(2A)→V
Output(3,6,V
Disp "x2 ="
(-B-√(D))/(2A)→W
Output(4,6,W
End
If D=0:Then
Disp "UNE SOLUTION :"
Disp "x1 ="
-B/(2A)→V
Disp ""
Output(3,6,V
End
If D<0:Then
Disp "PAS DE SOLUTION","",""
End
Disp ""
Output(5,1," x1=V      x2=W"
Disp "EDIT BY LOCLAMOR"
Disp "----------------"
Output(1,1,""


[right]LABEL GOOD PRGM aposed by The Best Program Corporation[/right]

un de mes premier prgm smile tjs aussi pratique !
avatar
loclamor
Mondo Photo
Le voyage en photo et en 1 clic

2

Met ton code entre les balises 'pre' et '/pre' (entre crochets) si tu veux que ce soit plus lisible (puis si les smileys te dérange il éxiste une balise 'nosmile' elle aussi entre crochet, mais qui ne se referme pas à la fin smile

edit : Voilà je l'ai modifier smile

3

Y'a quand même le 'une solution' (y'en a plutôt deux qui coïncident, ou une double racine quoi.. ) et 'pas de solutions' ( c'est vrai que sur |R ) qui sont gênants. haaa ces profs de maths du lycée, pire que des physiciens cheeky
«Les gens exigent la liberté d’expression pour compenser la liberté de pensée qu’ils préfèrent éviter.» - Sören Kierkegaard

La République, c’est comme la syphilis : quand on l’a attrapée, soit on se fait sauter le caisson, soit on essaie de vivre avec.

4

j'avais fait a peut près la même chose mais je travaille aussi avec i (mais en utilisant OmniCalc)
je crois qu'il est là : http://ti8x.fr.googlepages.com/delta ou là : http://www.mulx.net/guppy/dwnld.php?lng=fr&pg=24 (les 2 sites sont a moi mais j'ai jamais eu (enfin pris) le temps de tout regrouper sur mon site triso
EDIT : Mise a jour URL vers nouvelle URL
Programme en : basic pour TI84+ (83+ si possible)

5

deeph (./2) :
Met ton code entre les balises 'pre' et '/pre' (entre crochets) si tu veux que ce soit plus lisible (puis si les smileys te dérange il éxiste une balise 'nosmile' elle aussi entre crochet, mais qui ne se referme pas à la fin smile


Merci pour le onseil, je "débute" sur ce forum

Pour les interressés, prochainement en ligne, un programme de chat entre deux caltos : TCHAT2.4.

A utiliser en cours, et sans modération !
avatar
loclamor
Mondo Photo
Le voyage en photo et en 1 clic

6

PgrmTCHATCH2.4
Édité par LOCLAMOR
Pour TI 83+ et ultérieures
éspace mémoire : environ 1830



ClrHome
{8,16}&#8594;dim([J]
Fill(0,[J])
Output(2,4,”TCHATCH2.4”
Output(5,3,”PRESS ENTER”
Output(8,1,”EDIT BY LOCLAMOR”
Repeat K=105
GetKey&#8594;K
Output(5,3,”PRESS ENTER”
69!:69!:69!:69!
Output(5,3,”           ”
69!:69!:69!:69!
End
ClrHome
1&#8594;B
1&#8594;A
1&#8594;C
1&#8594;L
Lbl4
Fill(0,[J])
Lbl 0
0&#8594;K
If B<1
Then
16&#8594;B
A-1&#8594;A
End
If A<1:1&#8594;A
Output(8,13,”QUIT”
Output(8,1,”EN”
Output(A,B,”&#9643; “
Repeat K&#8800;0
GetKey&#8594;K
End
If K=11
Then
0&#8594;C
Output(8,1,”PR.ENT.”
Pause
Goto 3
End
Lbl 1
If A=1 and B=1:ClrHome
If K=15 or L=15
Then
ClrHome
Stop
End
If K&#8800;11 or K&#8800;15 or K&#8800;13:K&#8594;[J](A,B)
If K=32:Output(A,B,”,”
If K=33:Output(A,B,”’”
If K=41:Output(A,B,”A”
If K=42:Output(A,B,”B”
If K=43:Output(A,B,”C”
If K=51:Output(A,B,”D”
If K=52:Output(A,B,”E”
If K=53:Output(A,B,”F”
If K=54:Output(A,B,”G”
If K=55:Output(A,B,”H”
If K=61:Output(A,B,”I”
If K=62:Output(A,B,”J”
If K=63:Output(A,B,”K”
If K=64:Output(A,B,”L”
If K=65:Output(A,B,”M”
If K=71:Output(A,B,”N”
If K=72:Output(A,B,”O”
If K=73:Output(A,B,”P”
If K=74:Output(A,B,”Q”
If K=75:Output(A,B,”R”
If K=81:Output(A,B,”S”
If K=82:Output(A,B,”T”
If K=83:Output(A,B,”U”
If K=84:Output(A,B,”V”
If K=85:Output(A,B,”W”
If K=91:Output(A,B,”X”
If K=92:Output(A,B,”Y”
If K=93:Output(A,B,”Z”
If K=94:Output(A,B,”!”
If K=95:Output(A,B,”:”
If K=102:Output(A,B,” ”
If K=103:Output(A,B,”.”
If K=104:Output(A,B,”?”
If K=24:B-2&#8594;B
If K=102:Output(A,B,” “ 
If K=45
Then
ClrHome
1&#8594;A
0&#8594;B
End
If K=105
Then
0&#8594;[J](A,B)
Pause
1&#8594;A
1&#8594;B
Output(1,1,”                                                         
                                                       “
(en gros efface tt l'écran sauf la ligne du bas : 112 espaces)
Goto 4
End
B+1&#8594;B
If B>16
Then
1&#8594;B
A+1&#8594;A
End
If A=8 and B=1:1&#8594;A
Lbl 3
If C=1:Goto 0
Output(8,1,”RE              “
0&#8594;K
0&#8594;D
Repeat D&#8800;0 or K&#8800;0 or J=15
GetCalc([J])
[J](1,1) &#8594;D
GetCalc(K)
GetKey&#8594;J
End
ClrHome
If K=11
Then
1&#8594;C
1&#8594;A
1&#8594;B
Goto 0
End
If K=15 or J=15
Then
ClrHome
Stop
End
1&#8594;A
1&#8594;B
Repeat K=0
[J](A,B) &#8594;K
If K=32:Output(A,B,”,”
If K=33:OutputA,B,”’”
If K=41:Output(A,B,”A”
If K=42:Output(A,B,”B”
If K=43:Output(A,B,”C”
If K=51:Output(A,B,”D”
If K=52:Output(A,B,”E”
If K=53:Output(A,B,”F”
If K=54:Output(A,B,”G”
If K=55:Output(A,B,”H”
If K=61:Output(A,B,”I”
If K=62:Output(A,B,”J”
If K=63:Output(A,B,”K”
If K=64:Output(A,B,”L”
If K=65:Output(A,B,”M”
If K=71:Output(A,B,”N”
If K=72:Output(A,B,”O”
If K=73:Output(A,B,”P”
If K=74:Output(A,B,”Q”
If K=75:Output(A,B,”R”
If K=81:Output(A,B,”S”
If K=82:Output(A,B,”T”
If K=83:Output(A,B,”U”
If K=84:Output(A,B,”V”
If K=85:Output(A,B,”W”
If K=91:Output(A,B,”X”
If K=92:Output(A,B,”Y”
If K=93:Output(A,B,”Z”
If K=94:Output(A,B,”!”
If K=95:Output(A,B,”:”
If K=102:Output(A,B,” ”
If K=103:Output(A,B,”.”
If K=104:Output(A,B,”?”
0&#8594;[J](A,B)
B+1&#8594;B
If B>16
Then
1&#8594;B
A+1&#8594;A
End
End
Goto 3


[right]LABEL GOOD PRGM aposed by The Best Program Corporation[/right]
avatar
loclamor
Mondo Photo
Le voyage en photo et en 1 clic

7

sinon si tu utilise tigl tu peux aussi filer un lien vers la .8xp hehe
«Les gens exigent la liberté d’expression pour compenser la liberté de pensée qu’ils préfèrent éviter.» - Sören Kierkegaard

La République, c’est comme la syphilis : quand on l’a attrapée, soit on se fait sauter le caisson, soit on essaie de vivre avec.

8

je sai pa ce que c ton "tigl" je fai mes prgm directo sur la calto ac l'éditeur...
avatar
loclamor
Mondo Photo
Le voyage en photo et en 1 clic

9

C'est TI Graph Link, le logiciel pour créer ses programmes en TI-Basic sur PC.

10

( ou éventuellemen juste pour que t'enregistre ça sur un fichier, c'est plus pratique pour ceux qui ont le câble happy )
«Les gens exigent la liberté d’expression pour compenser la liberté de pensée qu’ils préfèrent éviter.» - Sören Kierkegaard

La République, c’est comme la syphilis : quand on l’a attrapée, soit on se fait sauter le caisson, soit on essaie de vivre avec.

11

LABEL GOOD PRGM aposed by The Best Program Corporation
C'est quoi ce truc?

Il sert à quoi ton deuxième prog?

12

le second programme, mon ami, il sert à chater entre deux calto, ttes deux équipées du progamme, et reliées par le cable.
L'une se met en mode réception (RE) et la seconde reste sur le mode par défaut : le mode envoi (EN).
Comme tu t'en doute surement, seule celle en mode envoi peu écrire. Pour envoyer un message, apré l'avoir écrit, tu appui sur [F1] (EN), et la calto se met en pause, le tps de transmettre les infos à la seconde calto. Apuis sur [ENTER], et tu passe en mode réception (RE) tandit que la seconde calto passe automatiquement en mode envoi (EN).
Quelque soit le mode, fait [F5] (QUIT) pour quitter le programme.


Sinon, le label GOOD PRGM aposé par The Best Program Corporation est un gage de bonne qualiter du programme.
avatar
loclamor
Mondo Photo
Le voyage en photo et en 1 clic

13

Décerné par lui-même hehe
«Les gens exigent la liberté d’expression pour compenser la liberté de pensée qu’ils préfèrent éviter.» - Sören Kierkegaard

La République, c’est comme la syphilis : quand on l’a attrapée, soit on se fait sauter le caisson, soit on essaie de vivre avec.

14

ba oui, pour le moment, mais si je trouve d'autres prgm inteéressant qui tournent bien, je le met aussi ^^
avatar
loclamor
Mondo Photo
Le voyage en photo et en 1 clic

15

tromb Fichier joint : TCHATCH2.8XP ==> dites moi si c'est bon, parce que l'éditeur me proposé que des instruction en francai alors que moi ma calto est en anglai, et je les ai dc mis en anglais dans le script :s (genre ClrHome donne EffEcran en fr)
(comme on me l'a demandé...smile)
avatar
loclamor
Mondo Photo
Le voyage en photo et en 1 clic

16

Sinon, vous avez pas des idées de jeux ou d'utilitaires que je pourrai programmer sur ma TI83+?
En ce moment je m'emmerde pas mal, et quand je me fait chier je programme... Seul probléme, g plus beaucoup d'inspiration, vu que g déjà un peut fait le tour dans les programmes de jeux simple (morpion, 11septembre, circuit de course aléatoire,...) sad

Merci d'avance !
avatar
loclamor
Mondo Photo
Le voyage en photo et en 1 clic

17

Arf désolé, je t'ai passer la version française, je me souvenait plus qu'elle mettait les instruction en français... Bref : désinstalle la version tigl que t'as pour le moment et installe celle là : TI Graph Link (Anglais).

18

vla donc la bonne version alors !tromb Fichier joint : TCHATCH2.8XP
avatar
loclamor
Mondo Photo
Le voyage en photo et en 1 clic

19

Ca m'arrange bien de dire ça, mais ton prog, faut ke faire en asm... Ca a aucun interet s'il faut changer de mode en permanence...
Je crois que sinon, omnicalc propose des tokens qui sont plus flexibles pour le transfert de données par cable...
Qui plus est, il y a déjà plein d'équivalents sur ticalc...

20

ha bon... ben je savais pas...
Mais là, au moins, j'ai le plaisir d'utiliser un prgm que g fait moi même, pour moi c'est ca le plus important...
avatar
loclamor
Mondo Photo
Le voyage en photo et en 1 clic

21

Ok!! Je te comprends, pour moi c'est un plaisir de programmer! Tu as fait d'autres programmes?

22

au také, même que g presque plus de place sur la calto RAM et ARC confondu... même en suprimant des APPS...!
Mais je les ai pas sur l'ordi. Donc faut le tps que je les recopies.
avatar
loclamor
Mondo Photo
Le voyage en photo et en 1 clic

23

Faut t'acheter un cable!
Si tu veux un site où envoyer des progs sympas (regarde d'abord s'ils existent pas déjà), je te conseille http://www.ti83plus.online.fr/home.php

24

je connait déjà, c'est de là que je suis arrivé sur ce forum ^^
avatar
loclamor
Mondo Photo
Le voyage en photo et en 1 clic

25

Ton programme de Chat, c'est pas trop lent avec tous les if?
Essaie de faire un programme ou on n'est pas obligé de passer du mode reception à l'autre, sinn ça doit être embetant

Pour les idées, tu peux essayer de faire un serpent pas trop lent , c'est un petit défis déjà en basic wink Ou un jeux de labyrinthe (vu de dessus) avec générateur aléatoire de map, ça peut être sympas
Ah ah ! Sacré Gödel, il avait l'idée de vouloir mettre au chômage tous les mathématiciens ce fourbe !

26

Pour les idées, tu peux essayer de faire un serpent pas trop lent , c'est un petit défis déjà en basic


G déjà essayé ca, sa démare bien, pis apré, plus ca va, plus ca rame... smile
Ou un jeux de labyrinthe (vu de dessus) avec générateur aléatoire de map, ça peut être sympas


j'avais vu ca sur casio par un pote, javais récup le script, mais même en l'ayant adapté pour TI ca marché pas.
avant les vacs, j'avais commencé a travailler sur un labyrinthe 3D, mais apré, faute au bac de francais et aux vacances loin de ma chère TI, j'ai pas eu le temps de le finir (en fait j'ai encore rien codé, a par le sreen de base^^)
avatar
loclamor
Mondo Photo
Le voyage en photo et en 1 clic

27

Loclamor (./26) :

G déjà essayé ca, sa démare bien, pis apré, plus ca va, plus ca rame... smile.gif


Typique des trucs mal codés (généralement des goto interrompant dans des boucles ou chose de ce genre..)
«Les gens exigent la liberté d’expression pour compenser la liberté de pensée qu’ils préfèrent éviter.» - Sören Kierkegaard

La République, c’est comme la syphilis : quand on l’a attrapée, soit on se fait sauter le caisson, soit on essaie de vivre avec.

28

j'avais vu ca sur casio par un pote, javais récup le script, mais même en l'ayant adapté pour TI ca marché pas.

Faut refaire ton propre code et pas essayer d'adapter un code tout fait, qui plus est, est sur casio!! roll
Typique des trucs mal codés (généralement des goto interrompant dans des boucles ou chose de ce genre..)

Oui! Par exemple
Si tu veux que ça rallentisse pas avec un serpent en basic, faut que tu n'augmente pas trop la charge d'éléments pris en compte, donc faut par exemple ne réafficher que le premier et le dernier carré du serpent.
Ah ah ! Sacré Gödel, il avait l'idée de vouloir mettre au chômage tous les mathématiciens ce fourbe !

29

Typique des trucs mal codés (généralement des goto interrompant dans des boucles ou chose de ce genre..)


Coman ta pu deviné que ce prgm contient au taqué de goto ??? Mais ceux ci ne servent qu'a déterminé ou effacé la queu (le serpend peu grandir quan on mange les objet ; et je n'affiche que le premier carré, les autres restant affichés)
avatar
loclamor
Mondo Photo
Le voyage en photo et en 1 clic

30

c'est assez typique des ralentissement grandissant.. ( quand c'st bien codé, la vitesse d'exécution est ~constante )

Essaye de te passer complètement des goto sauf pour les menus. (et en tout cas surtout pas dans d'autres boucles ! )
«Les gens exigent la liberté d’expression pour compenser la liberté de pensée qu’ils préfèrent éviter.» - Sören Kierkegaard

La République, c’est comme la syphilis : quand on l’a attrapée, soit on se fait sauter le caisson, soit on essaie de vivre avec.