Autorisation : Membre
Nb de messages : 96
Inscrit le : Jeu 20 Oct 2011, 0:22
Posté le : Sam 12 Nov 2011, 16:03
Salut salut !
Alors cette fois-ci, j'aimerais savoir comment faire lorsque:
-On perd, on retourne automatiquement au menu source pour rejouer, et pas devoir relancer le prog...
-On va dans "Instructions", et qu'on appuie sur "Entrer", on puisse retourner au menu source...
3üdim(áSCORE
ClrHome
Disp "SLALOM V1.0","-----------
Output(4,1,"MODIFIE PAR DREAMS-TI
Pause
ClrHome
Menu("SLALOM V1.0","JOUER",J,"INSTRUCTIONS",I,"QUITTER",Q
Lbl J
ClrHome
Output(3,6,"PRET ?
For(T,0,400
End
Output(3,5,"PARTEZ !
For(T,0,300
End
ClrHome
0üA
0üS
0üV
0üX
0üB
0üK
4üA
0üS
3üV
Lbl 0
ClrHome
Output(1,1,"SCORE:
Output(2,1,S
round(7rand+1,0üX
If Xø1
Output(X-1,8,"+
If Xø8
Output(X+1,8,"+
16üB
Lbl 1
Output(A,B,"=
B-1üB
getKeyüK
If (K=105 or K=25 and Aø1
A-1üA
If (K=104 or K=34 and Aø8
A+1üA
If A=X and B=8
S+1üS
If AøX and B=8
Then
ClrHome
Disp "","TU AS LOUPE","UNE PORTE !","SCORE:
Output(4,8,S
SüL(4
SortD(L
3üdim(L
(ln((8L+Ä/2Ü^3/log(ëÜ-Ä+3üáSCORE
Disp "RECORDS:",L
Pause
ClrHome
Goto Q
End
If B=1
Goto 0
Goto 1
Goto 0
Lbl I
Output(1,2,"DIRIGE TOI AVEC
Output(2,3,"HAUT/BAS ET
Output(3,1,"PASSE ENTRE LES
Output(4,6,"PORTES
Output(8,1,"[RETOUR]
Pause
If (K=105
Then
ClrHome
Goto 0
End
ClrHome
Lbl Q
Pause
Output(4,2,"(C).MAXIME
Pause
ClrHome
Merci par avance de votre aide !
---------------------- Reprise du dev Ti-Basic !
( mais passé à html5/css3 et c#)
Autorisation : Membre
Nb de messages : 3738
Inscrit le : Lun 19 Oct 2009, 21:25
Posté le : Sam 12 Nov 2011, 17:08
Ce que tu veux faire se réalise en ajoûtant ou remplaçant des goto et Lbl aux bons endroits.
Code
3üdim(áSCORE
ClrHome
Disp "SLALOM V1.0","-----------
Output(4,1,"MODIFIE PAR DREAMS-TI
Pause
Lbl 3 // ajoûté
ClrHome
Menu("SLALOM V1.0","JOUER",J,"INSTRUCTIONS",I,"QUITTER",Q
Lbl J
ClrHome
Output(3,6,"PRET ?
For(T,0,400
End
Output(3,5,"PARTEZ !
For(T,0,300
End
ClrHome
0üA
0üS
0üV
0üX
0üB
0üK
4üA
0üS
3üV
Lbl 0
ClrHome
Output(1,1,"SCORE:
Output(2,1,S
round(7rand+1,0üX
If Xø1
Output(X-1,8,"+
If Xø8
Output(X+1,8,"+
16üB
Lbl 1
Output(A,B,"=
B-1üB
getKeyüK
If (K=105 or K=25 and Aø1
A-1üA
If (K=104 or K=34 and Aø8
A+1üA
If A=X and B=8
S+1üS
If AøX and B=8
Then
ClrHome
Disp "","TU AS LOUPE","UNE PORTE !","SCORE:
Output(4,8,S
SüL(4
SortD(L
3üdim(L
(ln((8L+Ä/2Ü^3/log(ëÜ-Ä+3üáSCORE
Disp "RECORDS:",L
Pause
Goto 3 // remplacé
End
If B=1
Goto 0
Goto 1
Goto 0 // supprimmé car innutile
Lbl I
Output(1,2,"DIRIGE TOI AVEC
Output(2,3,"HAUT/BAS ET
Output(3,1,"PASSE ENTRE LES
Output(4,6,"PORTES
Pause
Goto 3 // remplacé
Lbl Q
Pause
Output(4,2,"(C).MAXIME
Pause
ClrHome
Encore une chose : le premier goto 3 est entre un Then et un End.
Ce n'est pas une bonne chose mais dans ce programme cela ne se remarque pas.
---------------------- 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)
