Autorisation : Membre
Nb de messages : 3767
Inscrit le : Lun 19 Oct 2009, 21:25
Posté le : Dim 08 Mai 2011, 17:17
Je démarre toujours à 3 dollards et mes dépenses ne sont pas comptées.
=>tu n'initialises pas B et tu ne fait pas B-A->B
La ligne du cheval 5 fait des pointillés.
=>il manque un Pxl-On
Il y a un 5 à la place d'un 6.
Hormis ces pépins c'est bien. Il ne manque plus qu'une gestion par liste et For (plus légers mais parfois légèrement plus lents).
EDIT=corrections+modif
Code
ClrHome
Output(3,3,"COURSE
Output(4,5,"CHEVAUX
Output(5,5,"BY SNAP
Pause
ClrHome
500->B
Lbl Q
Menu("JOUER?","OUI",1,"NON",P
Lbl 1
ClrList L1
6->dim(L1
Disp "TU AS",B,"DOLLARDS
If B=0:Goto W
Input "TU MISES: ",A
If A>B or A<0:Goto 1
Disp "SUR QUEL CHEVAL?","de 1 a 6
Input "",C
DispGraph
ClrDraw
AxesOff
FnOff
94->Xmax:0->Xmin
62->Ymax:0->Ymin
Fill(10,L1
Text(7,1,"1
Text(15,1,"2
Text(23,1,"3
Text(31,1,"4
Text(39,1,"5
Text(47,1,"6
Repeat max(L1)>75
For(W,1,6
L1(W)+randInt(1,3->L1(W
Pxl-On(2+8W,L1(W
Pxl-On(2+8W,L1(W)-1
Pxl-On(2+8W,L1(W)-2
End
End
For(W,1,6
If L1(W)=max(L1
W->H
End
Text(1,8,"LE CHEVAL
Text(1,42,H
Text(1,50,"A GAGNE
Pause
If not(C=H:Goto Z
ClrHome
Output(4,1,"TAS GAGNE
Pause
B+A*4->B
Goto Q
Lbl Z
ClrHome
Output(4,4,"TAS PERDU
B-A->B
Pause
Goto Q
Lbl P
Output(1,1," "
Stop
Lbl W
ClrHome
Output(4,4,"TA PLUS DARGENT
500->B
Pause
Goto 1
---------------------- ti82statfr: 2008, inscrit: 2009, ti84pocketfr: noël2011, ti30xbmultiview: iut 2012-2014
Perfectionniste, manque tact. Pas le temps de tout publier depuis 2011. Répond toujours aux questions. (rédigé juin 2014)
Autorisation : Membre
Nb de messages : 3767
Inscrit le : Lun 19 Oct 2009, 21:25
Posté le : Mar 10 Mai 2011, 22:32
Oui c'est plus léger, mais surtout grâce à des petits gnagnas.
Le for était évident mais est efficace.
En revanche le Text avec des virgules je l'avait complètement oublié. BIEN
Merci de la part de tous.
---------------------- ti82statfr: 2008, inscrit: 2009, ti84pocketfr: noël2011, ti30xbmultiview: iut 2012-2014
Perfectionniste, manque tact. Pas le temps de tout publier depuis 2011. Répond toujours aux questions. (rédigé juin 2014)
Autorisation : Membre
Nb de messages : 369
Inscrit le : Dim 13 Fév 2011, 14:17
Posté le : Mer 11 Mai 2011, 16:48
Merci pour ces améliorations. Pour ma part j'ai encore amélioré... ou pas
Alor voila la nouvelle version en reprenant ce que vous m'avez conseillé de modifier.
Code
ClrHome
Output(3,3,"COURSE
Output(4,5,"CHEVAUX
Output(5,5,"BY SNAP
Pause
ClrHome
Lbl Q
Menu("Menu","jouer",1,"quota",E,"Quitter",P
Lbl 1
6->dim(L1
8 ->dim(LCHE
Disp "TU AS",LCHE(1),"DOLLARDS
If not(LCHE(1):Goto W
Input "TU MISES: ",A
If A>LCHE(1 or A<0:Goto 1
LCHE(1)-A -> LCHE(1
Lbl K
Disp "SUR QUEL CHEVAL?","de 1 a 6
Input "",C
If C>6 ou C<1 : Goto K
DispGraph
ClrDraw
AxesOff
FnOff
94->Xmax:0->Xmin
62->Ymax:0->Ymin
Fill(10,L1
For(N,1,6
Text(8N-1,1,N
End
Repeat max(L1)>75
For(W,1,6
L1(W)+randInt(1,3->L1(W
Pxl-On(2+8W,L1(W
Pxl-On(2+8W,L1(W)-1
Pxl-On(2+8W,L1(W)-2
End
End
For(W,1,6
If L1(W)=max(L1
W->H
End
Text(1,8,"LE CHEVAL ",H," A GAGNE
LCHE(8)+1 -> LCHE(8
LCHE(H+1)+1 ->LCHE(H+1
Pause
If C inégal H:Goto Z
ClrHome
Output(4,1,"T'AS GAGNE
Pause
LCHE(1)+A*4 -> LCHE(1
Goto Q
Lbl Z
ClrHome
Output(4,4,"TAS PERDU
Pause
Goto Q
Lbl P
Output(1,1," "
Stop
Lbl W
ClrHome
Output(4,4,"TA PLUS D'ARGENT
500->LCHE(1
Pause
Goto 1
Lbl E
Output(1,1,"CHEVAL 1 :
Output(1,12,LCHE(2
Output(2,1,"CHEVAL 2 :
Output(2,12,LCHE(3
Output(3,1,"CHEVAL 3 :
Output(3,12,LCHE(4
Output(4,1,"CHEVAL 4 :
Output(4,12,LCHE(5
Output(5,1,"CHEVAL 5 :
Output(5,12,LCHE(6
Output(6,1,"CHEVAL 6 :
Output(6,12,LCHE(7
Output(8,1,"COURSE TOTAL:
Output(8,14,LCHE(8
Pause
EffEcr
Goto Q
853 octets
LCHE : petit L dans catalogue puis CHE à écrire vous même.
Voila. dites moi ce que vous en pensez et apportez vos modification.
Autorisation : Membre
Nb de messages : 3767
Inscrit le : Lun 19 Oct 2009, 21:25
Posté le : Mer 11 Mai 2011, 22:23
Les coordonnées des chevaux ont-ils besoin d'être sauvées ? Perso j'utiliserais plutôt L1 si c'est non.
Le score est sauvé dans la liste mais tu n'es pas obligé de la mentionner à chaque fois. Utilise une variable intermédiaire : initialise là au début et sauve la à la fin avec la liste LCHE, ainsi la saisie du milieu du code sera plus simple (en tout cas pour le score).
Ce qui te manque à chaque fois est la notion de boucle For.
Regarde ici et dans les améliorations que nous t'avons fournit.
A appliquer
Tu as placé la dépense d'office au début, c'est mieux que nous mais ça réduit le gain (c'était 4*A et maintenant c'est 3*A)
---------------------- ti82statfr: 2008, inscrit: 2009, ti84pocketfr: noël2011, ti30xbmultiview: iut 2012-2014
Perfectionniste, manque tact. Pas le temps de tout publier depuis 2011. Répond toujours aux questions. (rédigé juin 2014)
Autorisation : Membre
Nb de messages : 369
Inscrit le : Dim 13 Fév 2011, 14:17
Posté le : Jeu 12 Mai 2011, 16:37
Ok. Je suis pas encore un bon pogrammeur comme je le disais alors les trucs avec for j'en trouve pas beaucoup^^ Après les améliorations ne me viennent pas comme sa^^ Faut que je cherche longteps avant de trouver que je peut utiliser une variable comme tu le disai. Quand j'orai le temps Je changerai le programme avec les améliorations que tu m'azs donné. Mais pour l'instant j'ai 2 DS demain alors je vais réviser^^