Posté le 24/08/2007 à 14:28Edité par loclamor le 25/08/2007 à 20:24 Membre depuis le 24/08/2007, 729 messages
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 !
avatarloclamor
Mondo Photo
Le voyage en photo et en 1 clic
Posté le 24/08/2007 à 14:33 Membre depuis le 15/03/2005, 3470 messages
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
Posté le 24/08/2007 à 18:33 Membre depuis le 09/07/2003, 21783 messages
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
Posté le 24/08/2007 à 22:31Edité par MulX le 13/06/2008 à 15:05 Membre depuis le 16/04/2007, 56 messages
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
Posté le 25/08/2007 à 17:03 Membre depuis le 24/08/2007, 729 messages
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 !
avatarloclamor
Mondo Photo
Le voyage en photo et en 1 clic
Posté le 25/08/2007 à 17:23Edité par loclamor le 25/08/2007 à 20:23 Membre depuis le 24/08/2007, 729 messages
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]
avatarloclamor
Mondo Photo
Le voyage en photo et en 1 clic
Posté le 25/08/2007 à 19:26 Membre depuis le 09/07/2003, 21783 messages
sinon si tu utilise tigl tu peux aussi filer un lien vers la .8xp hehe
Posté le 25/08/2007 à 20:22 Membre depuis le 24/08/2007, 729 messages
je sai pa ce que c ton "tigl" je fai mes prgm directo sur la calto ac l'éditeur...
avatarloclamor
Mondo Photo
Le voyage en photo et en 1 clic
Posté le 25/08/2007 à 20:40 Membre depuis le 15/03/2005, 3470 messages
C'est TI Graph Link, le logiciel pour créer ses programmes en TI-Basic sur PC.
Posté le 26/08/2007 à 03:09 Membre depuis le 09/07/2003, 21783 messages
( ou éventuellemen juste pour que t'enregistre ça sur un fichier, c'est plus pratique pour ceux qui ont le câble happy )
Posté le 26/08/2007 à 11:45 Membre depuis le 11/04/2007, 1076 messages
LABEL GOOD PRGM aposed by The Best Program Corporation
C'est quoi ce truc?

Il sert à quoi ton deuxième prog?
Posté le 26/08/2007 à 17:04 Membre depuis le 24/08/2007, 729 messages
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.
avatarloclamor
Mondo Photo
Le voyage en photo et en 1 clic
Posté le 26/08/2007 à 18:43 Membre depuis le 09/07/2003, 21783 messages
Décerné par lui-même hehe
Posté le 27/08/2007 à 11:00 Membre depuis le 24/08/2007, 729 messages
ba oui, pour le moment, mais si je trouve d'autres prgm inteéressant qui tournent bien, je le met aussi ^^
avatarloclamor
Mondo Photo
Le voyage en photo et en 1 clic
Posté le 27/08/2007 à 11:01 Membre depuis le 24/08/2007, 729 messages
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)
avatarloclamor
Mondo Photo
Le voyage en photo et en 1 clic
Posté le 27/08/2007 à 11:38 Membre depuis le 24/08/2007, 729 messages
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 !
avatarloclamor
Mondo Photo
Le voyage en photo et en 1 clic
Posté le 27/08/2007 à 11:45 Membre depuis le 15/03/2005, 3470 messages
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).
Posté le 27/08/2007 à 17:32 Membre depuis le 24/08/2007, 729 messages
vla donc la bonne version alors !tromb Fichier joint : TCHATCH2.8XP
avatarloclamor
Mondo Photo
Le voyage en photo et en 1 clic
Posté le 28/08/2007 à 15:20 Membre depuis le 11/04/2007, 1076 messages
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...
Posté le 28/08/2007 à 20:22 Membre depuis le 24/08/2007, 729 messages
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...
avatarloclamor
Mondo Photo
Le voyage en photo et en 1 clic
Posté le 29/08/2007 à 15:11 Membre depuis le 11/04/2007, 1076 messages
Ok!! Je te comprends, pour moi c'est un plaisir de programmer! Tu as fait d'autres programmes?
Posté le 29/08/2007 à 20:37 Membre depuis le 24/08/2007, 729 messages
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.
avatarloclamor
Mondo Photo
Le voyage en photo et en 1 clic
Posté le 30/08/2007 à 11:04 Membre depuis le 11/04/2007, 1076 messages
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
Posté le 30/08/2007 à 20:40 Membre depuis le 24/08/2007, 729 messages
je connait déjà, c'est de là que je suis arrivé sur ce forum ^^
avatarloclamor
Mondo Photo
Le voyage en photo et en 1 clic
Posté le 03/09/2007 à 09:44 Membre depuis le 10/10/2004, 541 messages
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
Posté le 03/09/2007 à 10:53 Membre depuis le 24/08/2007, 729 messages
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^^)
avatarloclamor
Mondo Photo
Le voyage en photo et en 1 clic
Posté le 03/09/2007 à 10:59 Membre depuis le 09/07/2003, 21783 messages
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..)
Posté le 03/09/2007 à 11:03 Membre depuis le 10/10/2004, 541 messages
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.
Posté le 03/09/2007 à 11:18 Membre depuis le 24/08/2007, 729 messages
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)
avatarloclamor
Mondo Photo
Le voyage en photo et en 1 clic
Posté le 03/09/2007 à 11:24 Membre depuis le 09/07/2003, 21783 messages
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 ! )