Poster un nouveau sujet Poster une réponse Page: 1,      >>
Des chiffres et des lettres sur ti-82 !!!
Auteur Message
Stupid



Autorisation : Membre
Nb de messages : 768
Inscrit le : Jeu 28 Sep 2006, 18:42
Posté le : Mar 02 Jan 2007, 17:00   Citer 

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/Des_chiffres_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



 Adresse email Haut de page Bas de page 
 
Stupid



Autorisation : Membre
Nb de messages : 768
Inscrit le : Jeu 28 Sep 2006, 18:42
Posté le : Dim 07 Jan 2007, 14:25   Citer 

personne pour le recopier???

 Adresse email Haut de page Bas de page 
 
Sangohan38



Autorisation : Membre
Nb de messages : 3370
Inscrit le : Sam 31 Déc 2005, 19:48
Posté le : Dim 07 Jan 2007, 14:27   Citer 

Pas de violence c'est les vacances.

Sangohan38

 Adresse email Haut de page Bas de page 
 
Google_AdSense



Publicité    



 
Stupid



Autorisation : Membre
Nb de messages : 768
Inscrit le : Jeu 28 Sep 2006, 18:42
Posté le : Dim 07 Jan 2007, 14:28   Citer 

ouias, plus que 17 heures 37 minutes avant de retourner en maths...

 Adresse email Haut de page Bas de page 
 
Wolves



Autorisation : Membre
Nb de messages : 41
Inscrit le : Dim 29 Oct 2006, 16:17
Posté le : Dim 07 Jan 2007, 16:08   Citer 

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.

----------------------
---}http://goldorama.ifrance.com{---
 Adresse email Haut de page Bas de page 
 
Google_AdSense



Publicité    



 
el spectro



Autorisation : Membre
Nb de messages : 123
Inscrit le : Ven 15 Déc 2006, 16:07
Posté le : Lun 08 Jan 2007, 11:46   Citer 

tu n'aurais pas le lien pour le jeu en 82p. ?

----------------------
désolé pour mon absence mais mon temps sur le net était occupé par un exposé...
 Adresse email Haut de page Bas de page 
 
darkbilbo



Autorisation : Membre
Nb de messages : 27
Inscrit le : Ven 05 Jan 2007, 20:06
Posté le : Lun 08 Jan 2007, 13:03   Citer 

Ouai, ça pourrait être sympa de pas etre obligé de le recopier(j'ai trop de devoirs en ce moment^^)

----------------------
Vive le snowboard!!
 Adresse email Haut de page Bas de page 
 
el spectro



Autorisation : Membre
Nb de messages : 123
Inscrit le : Ven 15 Déc 2006, 16:07
Posté le : Lun 08 Jan 2007, 16:41   Citer 

Moi aussi j'ai des devoir mais bon j'arrive a faire avec.. karate.gif

----------------------
désolé pour mon absence mais mon temps sur le net était occupé par un exposé...
 Adresse email Haut de page Bas de page 
 
Stupid



Autorisation : Membre
Nb de messages : 768
Inscrit le : Jeu 28 Sep 2006, 18:42
Posté le : Lun 08 Jan 2007, 17:28   Citer 

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...

 Adresse email Haut de page Bas de page 
 
Stupid



Autorisation : Membre
Nb de messages : 768
Inscrit le : Jeu 28 Sep 2006, 18:42
Posté le : Sam 20 Jan 2007, 15:21   Citer 

je crois que y'a un bug si vous faites "continuer"...

 Adresse email Haut de page Bas de page 
 
TI-instructeur



Autorisation : Membre
Nb de messages : 26
Inscrit le : Lun 22 Jan 2007, 9:25
Posté le : Lun 22 Jan 2007, 9:29   Citer 

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

----------------------
Vive TEXAS INSTRUMENTS !!! Mes sites web (en construction) : trucetastuces.infordi.googlepages.com
cij-softwares.site.voila.fr/index.html
N'hésitez pas à m'envoyer des mails pour des commentaires ou des idées !!!
 Adresse email Haut de page Bas de page 
 
Stupid



Autorisation : Membre
Nb de messages : 768
Inscrit le : Jeu 28 Sep 2006, 18:42
Posté le : Lun 22 Jan 2007, 17:48   Citer 

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.

 Adresse email Haut de page Bas de page 
 
Sangohan38



Autorisation : Membre
Nb de messages : 3370
Inscrit le : Sam 31 Déc 2005, 19:48
Posté le : Mar 23 Jan 2007, 13:14   Citer 

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.

 Adresse email Haut de page Bas de page 
 
Stupid



Autorisation : Membre
Nb de messages : 768
Inscrit le : Jeu 28 Sep 2006, 18:42
Posté le : Mar 23 Jan 2007, 16:47   Citer 

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..

 Adresse email Haut de page Bas de page 
 
TI-Instructeur



Autorisation : Membre
Nb de messages : 26
Inscrit le : Lun 22 Jan 2007, 9:25
Posté le : Mer 24 Jan 2007, 12:14   Citer 

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

----------------------
Vive TEXAS INSTRUMENTS !!! Mes sites web (en construction) : trucetastuces.infordi.googlepages.com
cij-softwares.site.voila.fr/index.html
N'hésitez pas à m'envoyer des mails pour des commentaires ou des idées !!!
 Adresse email Haut de page Bas de page 
 
Stupid



Autorisation : Membre
Nb de messages : 768
Inscrit le : Jeu 28 Sep 2006, 18:42
Posté le : Mer 24 Jan 2007, 13:06   Citer 

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...

 Adresse email Haut de page Bas de page 
 
Sangohan38



Autorisation : Membre
Nb de messages : 3370
Inscrit le : Sam 31 Déc 2005, 19:48
Posté le : Mer 24 Jan 2007, 13:59   Citer 

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

 Adresse email Haut de page Bas de page 
 
Stupid



Autorisation : Membre
Nb de messages : 768
Inscrit le : Jeu 28 Sep 2006, 18:42
Posté le : Dim 28 Jan 2007, 14:41   Citer 

les boucles for ralentissent bien plus vite, j'ai fait l'expérience, donc ti-instrructeur arrete de dire de la m...

 Adresse email Haut de page Bas de page 
 
webmaster
Avatar

Autorisation : Administrateur
Nb de messages : 792
Inscrit le : Mer 18 Aoû 2004, 22:13
Posté le : Lun 29 Jan 2007, 10:17   Citer 

On reste de bon humeur ?!

@+ Le Webmaster beer.gif

 Adresse email Haut de page Bas de page 
 
Stupid



Autorisation : Membre
Nb de messages : 768
Inscrit le : Jeu 28 Sep 2006, 18:42
Posté le : Lun 29 Jan 2007, 17:27   Citer 

pourquoi mayonnaise c'est interdit???

 Adresse email Haut de page Bas de page 
 
Poster un nouveau sujet Poster une réponse Page: 1,      >>





  Powered by Fire-Soft-Board v1.0.10 © 2004 - 2024 Groupe FSB
Page générée en 9 requêtes
BlackOne par Grimmlink