Erreur dans mon code Basic (jeu du + ou -)
Posté le 02/09/2013 16:42
Bonjour tout le monde
Je suis en train d'apprendre à programmer en BASIC et j'ai créé mon premier jeu, le fameux + ou -.
J'ai d'abord fais le système de jeu 1 joueur avec le random, puis j'ai rajouté les intros, mis un système de compteur de coups, j'ai ensuite rajouté le choix d'echelle, et enfin le système 2 joueurs.
Jusqu'à cette dernière étape tous fonctionner bien. Mais en ajoutant toute la partie 2 joueurs, la partie 1 joueur a un bug
Le truc c'est que je sais pas à quoi c'est du. La calto me dit "Erreur saut" avant de me renvoyer à cette partie du code: "Y<2⇒Goto 0" (j'ai pas mis de guillemet dans mon code).
J'ai vérifié il y a qu'un seul Lbl 0 et d'après ce que j'ai lu on peut très bien mettre plusieurs Goto avec la même valeur dans le code.
J'ai tout retapé mon code ici
(Au départ je voulais pas, je voulais directement le transféré Calto → PC → Forum mais j'ai mis 1h30 avant de me dire que c'est un bordel incommensurable pour qu'une calculette Graph 35+ USB soit reconnu sur un PC)
0→A~Z
Locate 4,4,"LE NOMBRE JUSTE"◢
ClrText
Locate 4,2,"NOMBRE DE JOUEUR"
Locate 5,4,"1-JOUEUR"
Locate 5,5,"2-JOUEUR"
?→Y
ClrText
Locate 4,2,"CHOISIR ECHELLE"
Locate 9,4,"100"
Locate 9,5,"1000"
Locate 9,6,"10000"
?→K
[blue]If[/blue] K<1000
Then 100→K
Else [blue]If[/blue] K<10000
Then 1000→K
Else 10000→K
[green]IfEnd
IfEnd[/green]
ClrText
Locate 1,2,"VOUS DEVEZ ENTRER UN"
Locate 1,3,"NOMBRE ENTRE 1 ET"
Y<2⇒Locate 1,5,"LA CALC A FAIT PAREIL"
Y>1⇒Locate 1,5,"J-2 CHERCHE LE NOMBRE"
Locate 1,6,"LES 2 NOMBRES DOIVENT"
Locate 1,7,"ETRE LES MEMES"
Locate 18,3,K◢
ClrText
Y>1⇒Goto 1
[red]Y<2⇒Goto 0[/red]
Lbl 1
Locate 2,3,"JOUEUR 1 ENTREZ UN"
Locate 2,4,"NOMBRE ENTRE 1 ET"
Locate 19,4,K
?→A
A>K⇒K
ClrText
Lbl 0
0→V
Locate 4,3,"APPUYEZ SUR"
Locate 5,4,"POUR DEMARRER"
Locate 7,5,"LA PARTIE"
Do
Locate 16,3,"EXE"
Locate 16,3," "
LpWhile Getkey≠31
ClrText
Y>1⇒Goto 2
Int (KRan# +1)→A
Lbl 2
Do
?→B
[blue]If[/blue] B>A
Then "C'EST MOINS"
Else [blue]If[/blue] B<A
Then "C'EST PLUS"
[green]IfEnd
IfEnd[/green]
V+1→V
LpWhile A≠B
ClrText
Locate 3,4,"VOUS AVEZ REUSSI!"
Locate 3,5,"NOMBRE DE COUPS:"
Locate 19,5,V
Locate 3,3,"REPONSE:"
Locate 12,3,B◢
ClrText
Locate 1,3,"REJOUER?"
Locate 1,4,"1-OUI"
Locate 1,5,"2-NON"
?→R
ClrText
R<1⇒Stop
[blue]If[/blue] Y>1 And R=1
Then Goto 1
Else [blue]If[/blue] Y<2 And R=1
Then Goto 0
[green]If End[/green]
Si vous voyez où est l'erreur dans mon code et me le dire ça serai sympas
Si vous avez d'autre remarque j'accepte aussi !
Citer : Posté le 03/09/2013 11:15 | #
J'ai déjà un peu regardé avant, d’ailleurs c'est la que j'ai appris à utilisé les Goto et Lbl (je sais pas si ça était une bonne chose
Mais je vais bien sûr continuer à regarder
Citer : Posté le 03/09/2013 18:39 | #
Les tutos du premier lien sont vraiment axés programmation de jeux