Forum

Catégorie : Programmes
Forum : Les programmes des internautes
Vues : 6015
Réponses : 24
Type : discussion
Etat : réponses autorisées
Avertissement :
Il s'agit d'une page optimisée pour la navigation mobile. Voir la page originale.

Des chiffres et des lettres sur ti-82 !!! - Page 1 / 2

Stupid le 02/01/2007 à 17:00
Le jeu culte de la télevision française sur ti82!!!(sans Laurent Romejko)
Les regles officielles pour le temps, un mode chiffre et un mode lettre pour s'entrainer, un mode continuer pour reprendre une partie en cours...

un lien pour les regles:http://fr.wikipedia.org/wiki/D[...]_et_des_lettres
(y'a un lien pour un gars qui s'est invité dans l'émission pour faire dun nimp,www.nimportequi.com si vous connaissez

(Je les ai pas mises dans le prog mais j'ai mit le lbl,si vous voulez les rajoutez)

Si y'a des masos qui recopient ou si ils y'en a qui veulent l'avoir par le cable qu'ils le disent.

Y'a des lignes que vous pouvez virez comme quand le compte s'affiche, mais c'est du plus bel effet clown.gif

Si ça bug ou si j'ai fait une erreur dites le car je sais pas si c'est juste mes generateurs de nmbrs aléatoires et d'autres trucs...

ü:[sto] ÷:plus petit ou égal Á:theta




Code
:ClrHome
:0ü ( ) Z:0ü ( ) F:0ü ( ) G:0ü ( ) H:1ü ( ) Á:0ü ( ) V
:16ü ( ) H:0ü ( ) W:17ü ( ) U
:Lbl U
:G+.5ü ( ) G
:H-.5ü ( ) H
:B+1ü ( ) B
:If B=17
:Goto X
:Output(2,B,"*
:Output(4,U,"*
:Output(6,round(G,0),"*
:Output(6,round(H,0),"*
:Goto U
:Lbl X
:Output(8,1,"(C)COPYRIGHT2006
:Output(5,2,"UN JEU DE JOJO
:Output(3,2,"ET DES LETTRES"
:Output(1,3,"DES CHIFFRES
:Pause :ClrHome
:0ü ( ) T:0ü ( ) S:0ü ( ) U
:Lbl L
:Menu("***BIENVENUE!***","JEU COMPLET",A,"CONTINUER",AÁ,"LETTRES",B,"CHIFFRES",C,"REGLES",AA

:Lbl AA
:Goto L
:Lbl A
:1ü ( ) S:Goto D
:Lbl B
:1ü ( ) T:Goto AU
:Lbl C
:1ü ( ) U:Lbl AU
:Disp "COMBIEN DE
:Input "TOURS?",L
:Goto 93
:Lbl AÁ
:Input "MANCHE:",F
:Input "SCORE J1:",W
:Input "SCORE J2:",V
:F-1ü ( ) F
:Lbl D
:ClrHome
:0ü ( ) Z
:F+1ü ( ) F
:If U=1 or T=1 and L=F
:Goto E
:If S=1 and F=2 or F=3 or F=5 or F=6 or F=8 or F=9 or F=11 or F=12
:Then
:0ü ( ) Z
:Goto 1
:End
:Lbl 93
:ClrHome
:Lbl 1
:Output(1,4,"         
:If Á=1
:Output(1,1,"J1:
:If Á=0
:Output(1,1,"J2:
:Output(2,1,"****************
:If S=1
:Then
:Output(6,8,F
:Output(6,1,"MANCHE:
:End
:If T=1 and L<1000000:Then
:Output(6,1,"MANCHES
:Output(8,1,"RESTANTES:
:Output(8,11,L
:End
:If Z=9
:Goto 8
:getKeyü ( ) X
:If X=43
:Then
:Z+1ü ( ) Z
:int rand117ü ( ) Y
:If Y=1
:Output(3,Z,"X
:If Y=2
:Output(3,Z,"Z
:If Y=3
:Output(3,Z,"K
:If Y=4
:Output(3,Z,"W
:If Y>4 and Y÷ ( ) 10
:Output(3,Z,"F
:If Y>10 and Y÷ ( ) 22
:Output(3,Z,"R
:If Y>22 and Y÷ ( ) 34 or Y=60
:Output(3,Z,"S
:If Y>34 and Y÷ ( ) 42
:Output(3,Z,"C
::If Y>42 and Y÷ ( ) 53
:Output(3,Z,"T
:If Y>53 and Y÷ ( ) 59
:Output(3,Z,"D
:If Y>60 and Y÷ ( ) 72
:Output(3,Z,"N
:If Y>72 and Y÷ ( ) 82
:Output(3,Z,"L
:If Y>82 and Y÷ ( ) 89
:Output(3,Z,"M
:If Y>90 and Y÷ ( ) 96
:Output(3,Z,"B
:If Y>96 and Y÷ ( ) 101
:Output(3,Z,"V
:If Y>101 and Y÷ ( ) 104
:Output(3,Z,"J
:If Y>104 and Y÷ ( ) 108
:Output(3,Z,"G
:If Y>108 and Y÷ ( ) 114
:Output(3,Z,"P
:If Y>114
:Output(3,Z,"H
:If Y=90
:Output(3,Z,"Q
:Output(1,4,"CONSONNE
:If Á=1
:Then
:0ü ( ) Á
:Goto 9
:End
:If Á=0:1ü ( ) Á
:End
:If X=84
:Then
:Z+1ü ( ) Z
:Output(1,11,"
:Output(1,4,"VOYELLE
:int rand100ü ( ) Y
:If Y=100
:Output(3,Z,"Y
:If Y>35 and Y÷ ( ) 55
:Output(3,Z,"A
:If Y>55 and Y÷ ( ) 75
:Output(3,Z,"I
:If Y>75 and Y÷ ( ) 87
:Output(3,Z,"O
:If Y>87 and Y÷ ( ) 99
:Output(3,Z,"U
::If Y>0 and Y÷ ( ) 35
:Output(3,Z,"E
:If Á=1:Then
:0ü ( ) Á:Goto 9
:End
:69!:69!
:69!:69!
:69!:69!
:Goto 1
:Lbl 8
:0ü ( ) X:17ü ( ) Y
:Lbl TA
:Y+1ü ( ) Y
:X+1ü ( ) X
:If X=17
:Goto MR
:Output(6,X,"*
:Output(8,Y,"*
:Goto TA
:Lbl MR
:ú ( ) .5ü ( ) X
:0ü ( ) Y
:Output(1,1,"   
:Lbl 7
:X+.0787ü ( ) X
:round(X,1)ü ( ) Y
:Output(7,round(Y+1,0),"Á
:If Y=15
:Then
:Goto 6
:End
:Goto 7
:Lbl 6
:ClrHome
:Input "J1",X
:Input "J2",Y
:If Y>X:Then
:Output(4,1,"BIEN JOUE J2
:V+Yü ( ) V
:End
:If X>Y:Then
:Output(4,1,"BIEN JOUE J1
:W+Xü ( ) W
:End
:If X=Y
:Then
:Output(4,1,"EGALITE
:W+Yü ( ) W
:V+Xü ( ) V
:End
:Pause
:ClrHome
:If F<12
:Then
:Output(1,1,"LE SCORE:
:Output(3,1,"J1:
:Output(3,10,"J2:
:Output(3,4,W
:Output(3,13,V
:Pause :ClrHome
:End
:Goto 10
:Lbl H
:If S=1
:Then
:Output(5,8,F
:Output(5,1,"MANCHE:
:End
:If U=1
:Then
:Output(5,1,"MANCHES
:Output(7,1,"RESTANTES:
:Output(7,11,L
:int rand899+100ü ( ) X
:If X÷ ( ) 350
:int rand4+8ü ( ) N
:If X÷ ( ) 675 and X>350
:int rand3+10ü ( ) N
:If X>675
:int rand4+11ü ( ) N
:If N=11:25ü ( ) N
:If N=12:50ü ( ) N
:If N=13:75ü ( ) N
:If N=14:100ü ( ) N
:69!:69!:69!
:Output(1,1,N
:Lbl 11
:int rand10+1ü ( ) M
:If M=N
:Goto 11
:For(G,1,550
:End
:Output(1,8,M
:Lbl 12
:int rand10+1ü ( ) H
:If H=N or H=M
:Goto 12
:For(G,1,550
:End
:Output(1,15,H
:Lbl 13
:int rand10+1ü ( ) O
:If O=N or O=M or O=H
:Goto 13
:For(G,1,550
:End
:Output(3,1,O
:Lbl 14
:int rand10+1ü ( ) K
:If K=N or K=M or K=H or K=O
:Goto 14
:For(G,1,550
:End
:Output(3,8,K
:Lbl 15
:int rand10+1ü ( ) Q
:If Q=N or K=Q or Q=H or Q=O or Q=M
:Goto 15
:For(G,1,550
:End
:Output(3,15,Q
:For(G,1,550
:End
:0ü ( ) B:17ü ( ) R
:Lbl V
:B+1ü ( ) B
:R-1ü ( ) R
:If R=0
:Goto W
:Output(5,B,"*
:Output(7,R,"*
:Goto V
:Lbl W
:69!:69!:69!
:Output(6,1,"LE COMPTE:
:69!:69!:69!
:Output(6,11,1
:53!
:Output(6,12,2
:53!
:Output(6,13,3
:53!
:Output(6,11,2
:53!
:Output(6,12,3
:53!
:Output(6,13,4
:53!
:Output(6,11,3
:53!
:Output(6,12,4
:53!
:Output(6,13,5
:53!
:Output(6,11,4
:53!
:Output(6,12,5
:53!
:Output(6,13,6
:53!
:Output(6,11,5
:53!
:Output(6,12,6
:53!
:Output(6,13,7
:53!
:Output(6,11,6
:53!
:Output(6,12,7
:53!
:Output(6,13,8
:53!
:Output(6,13,7
:53!
:Output(6,12,8
:53!
:Output(6,13,9
:53!
:Output(6,11,X
:Output(6,12,9
:51!:51!
:Output(6,13,1
:51!:51!
:Output(6,12,0
:51!:51!
:Output(6,13,2
:51!:51!
:Output(6,12,1
:51!:51!
:Output(6,13,3
:51!:51!
:Output(6,12,2
:51!:51!
:Output(6,13,4
:51!:51!
:Output(6,12,3
:51!:51!
:Output(6,13,5
:51!:51!
:Output(6,12,4
:51!:51!
:Output(6,13,6
:51!:51!
:Output(6,12,5
:51!:51!
:Output(6,13,7
:51!:51!
:Output(6,11,X
:Output(6,13,8
:49!:49!:49!
:Output(6,13,9
:49!:49!:49!
:Output(6,13,0
:49!:49!:49!
:Output(6,13,1
:49!:49!:49!
:Output(6,13,2
:49!:49!:49!
:Output(6,13,3
:49!:49!:49!
:Output(6,13,4
:49!:49!:49!
:Output(6,13,5
:49!:49!:49!
:Output(6,13,6
:49!:49!:49!
:Output(6,13,X
:49!:49!:49!
:ú ( ) .5ü ( ) N
:0ü ( ) Y
:Lbl Q
:.111+Nü ( ) N
:If Y=14
:Goto P
:round(N,1)ü ( ) Y
:Output(8,round(Y+1,0),"Á
:Goto Q
:Lbl P
:For(N,1,550
:End
:Input "J1",K
:Input "J2",O
:If abs (K-X)<abs (O-X) and K-Xø0
:Then
:Disp "J1 PLUS PROCHE
:W+6ü ( ) W
:End
:If abs (K-X)>abs (O-X) and O-Xø0
:Then
:Disp "J2 PLUS PROCHE
:V+6ü ( ) V
:End
:If abs (K-X)=abs (O-X) and K-Xø0
:Then
:Disp "EGALITE
:W+6ü ( ) W:V+6ü ( ) V
:End
:If K-X=0 and O-Xø0
:Then
:Disp "J1 A LE BON COMPTE
:W+9ü ( ) W
:End
:If abs O-X=0 and K-Xø0
:Then
:Disp "J2 A LE BON COMPTE
:V+9ü ( ) V
:End
:If K-X=0 O-X=0
:Then
:Disp "J1 EST J2 ONT LE","BON COMPTE
:V+9ü ( ) V
:W+9ü ( ) W
:End
:For(Q,1,500
:Output(6,1,"J1:      J2:
:Output(6,4,W
:Output(6,13,V
:Pause
:ClrHome
:If S=1
:Goto 10
:If U=1
:Then
:L-1ü ( ) L
:If L=0
:Goto E
:Goto 93
:Lbl E
:ClrHome
:Disp "SCORE FINAL:","","J1:      J2:
:Output(3,4,W
:Output(3,13,V
:If W>V
:Disp "VICTOIRE DU J1!
:If V>W
:Disp "VICTOIRE DU J2!
:If W=V:Then
:ClrHome
:Disp "IL FAUT UN","VAINQUEUR!
:Pause
:ClrHome
:Disp "","1:PILE,2:FACE
:int rand2+1ü ( ) X
:int rand2+1ü ( ) Y
:If Y=1
:Input "J2,PILE OU FACE?",R
:If Y=2
:Input "J1,PILE OU FACE?",R
:ClrHome
:If R=X
:Disp "TU GAGNES!!!
:If RøX
:Disp "PAS DE CHANCE!
:Pause
:ClrHome
:Disp "DES CHIFFRES","ET DES LETTRES","DU LUNDI AU","VENDREDI A 17H35","SUR FRANCE 3
:Output(8,1,"VOTEZ JOJO!
:Pause
Stupid le 07/01/2007 à 14:25
personne pour le recopier???
Sangohan38 le 07/01/2007 à 14:27
Pas de violence c'est les vacances.

Sangohan38
Stupid le 07/01/2007 à 14:28
ouias, plus que 17 heures 37 minutes avant de retourner en maths...
Wolves le 07/01/2007 à 16:08
Et les gars se jeu est extra je l'ai recopier il y a un ou deux beug que je vais te coriger et le jeu sera parfait.


Ps: Je commense a 11H demain.
el spectro le 08/01/2007 à 11:46
tu n'aurais pas le lien pour le jeu en 82p. ?
darkbilbo le 08/01/2007 à 13:03
Ouai, ça pourrait être sympa de pas etre obligé de le recopier(j'ai trop de devoirs en ce moment^^)
el spectro le 08/01/2007 à 16:41
Moi aussi j'ai des devoir mais bon j'arrive a faire avec.. karate.gif
Stupid le 08/01/2007 à 17:28
c'est possible les bugs,j'ai recopié vite, mais le miens marche parfaitement, par contre je suis pas sur pour la frequence de sortie des lettres...
Stupid le 20/01/2007 à 15:21
je crois que y'a un bug si vous faites "continuer"...
TI-instructeur le 22/01/2007 à 09:29
Salut ! dans l'ensemble ton programme est bien, mais il manque des lignes de code : Ou sont les Lbl 9 et 10 ? Tu te sers de Goto pour des valeurs alors que tu pourrais te servir de While-End ! Ton programme prendrais nettement moins de place ! Je suis en train de faire moi aussi des chiffres et des lettres, il devrait prendre seulement 1000 à 2000 de place... frozen.gif
Stupid le 22/01/2007 à 17:48
oui mais t'enleves du soin à la présentation...(tu vires la présentation, l'effet de style pour les lettres et les chiffres avec les étoiles,quand le compte s'affiche, la fin du programme avec un pile ou face et la pub pour l'émission, et les quelques autres textes) et tu l'a les 1500 octets
peut-etre que j'ai des fautes içi mais sur mon prog y'en a aucune.
Sangohan38 le 23/01/2007 à 13:14
Pourquoi mettre des While/End ou FOr/end si ceux-ci ralentissent la calculette au point de mettre une erreure.
Et puis, le label 10 n'est possible qu'as partir de la ti-82 STATS or, si il y en as un, il faut le préciser.

Sangohan38

PS: S'appeler Ti-Instructeur et oser donner des leçons sans jamais poster, je trouver cela pas correct.
Stupid le 23/01/2007 à 16:47
oui j'ai eu une erreur à la derniere manche ce matin et ça ma mit erreur mémoire (c'est pour ça qu'il y' a une option continuer!!!), à cause de la grande boucle des lettres, je voudrai savoir ce que c'est merci..
TI-Instructeur le 24/01/2007 à 12:14
SI tu avais mis des While et des For cela ne serait jamais arrivé.
tu as mis des goto dans des groupes if/then/else donc il remplis la pile jusqu'a ne plus avoir de place (vive l'assembleur, il faut connaitre l'assembleur d'un CPU (ici z80) pour pouvoir programmer en basic (meme TI))
les groupes if/then/else ne se "finnissent" pas lorsqu'il y a des goto à l'interieur ce qui entraîne un chargement (saturation) de la pile du processeur (situé dans la RAM)
AH AH AH
Stupid le 24/01/2007 à 13:06
le AH AH AH me fait vraiment plaisir...
j'en ai rien à foutre j'ai l'option continuer et c'est arrivé une fois en 30 parties...

y'a un petit bug dans lettres, j'ai oublié de recopier une ligne...
Sangohan38 le 24/01/2007 à 13:59
Alors les boucles Whiles If, Then, End Elses bouffent la pile bien plus vite que les labels/gotos.
Alors avant de parler, regarde ce que j'ai mit.

Sangohan38
Stupid le 28/01/2007 à 14:41
les boucles for ralentissent bien plus vite, j'ai fait l'expérience, donc ti-instrructeur arrete de dire de la m...
webmaster le 29/01/2007 à 10:17
On reste de bon humeur ?!

@+ Le Webmaster beer.gif
Stupid le 29/01/2007 à 17:27
pourquoi mayonnaise c'est interdit???
Avertissement :
Il s'agit d'une page optimisée pour la navigation mobile. Voir la page originale.