Les membres ayant 30 points peuvent parler sur les canaux annonces, projets et hs du chat.
La shoutbox n'est pas chargée par défaut pour des raisons de performances. Cliquez pour charger.

Forum Casio - Autres questions


Index du Forum » Autres questions » Garder les scores dans un jeu
-silver- Hors ligne Membre Points: 3 Défis: 0 Message

Garder les scores dans un jeu

Posté le 02/05/2012 15:27

Bonjour, j'ai un petit problème. Je viens de programmé un jeu (pong) et je voudrais savoir comment on pouvait faire pour sauvegarder les scores, enfin les 5 meilleurs par exemple et que à chaque qu'il y en a un qui est battu mettre à jour ce "tableau des scores". J'ai essayé avec les listes et matrices mais bon comme je débute je n'y arrive pas trop merci de m'aider


Tibo28l Hors ligne Membre Points: 118 Défis: 0 Message

Citer : Posté le 15/01/2016 08:08 | #


J'ai une graph 35+ avec l'OS d'une 75
Mon erreur c'est pour la ligne If Dim List 1=/=3
C'est une erreur de syntaxe
Mes Programmes :
Cliquer pour enrouler

- Mystery Key
- Khi2
Totoyo Hors ligne Membre d'honneur Points: 16102 Défis: 102 Message

Citer : Posté le 15/01/2016 10:50 | #


Tu n'aurais pas oublié de fermer le guillemet à la ligne précédente.
Tu sais, si tu on avait le code sous les yeux, on trouverait plus facilement le bug.
Là, on est obligé d'avancer à l'aveuglette.
Tibo28l Hors ligne Membre Points: 118 Défis: 0 Message

Citer : Posté le 15/01/2016 13:44 | #


0ãA~ZÙ
1ãIÙ
DoÙ
RanBin#(25,79)ãAÙ
LpWhile A=30 Or A=34 Or A=40 Or A=50 Or A=60 Or A=70Ù
31ãAÙ
Intg (AÁ10)ãVÙ
A-VÀ10ãWÙ
"Bienvenue dans       Mystery Key ·!· Dans   ce jeu il faut       trouver la touche #E601  laquelle pense la    calculatrice ·!·"Ù
For 0ãZ To 5000Ù
NextÙ
ClrTextÙ
"Lorsqu'un #E60Acran      blanc appara#E60Ftra     vous pourrez appuyer sur une touche ·!· La  touche AC/@E74F@E74E n'est   pas dans le jeu ·!·    BONNE CHANCE ·!··!··!··!·"Ù
For 0ãZ To 5000Ù
NextÙ
ClrTextÙ
GetkeyãYÙ
While AÈYÙ
GetkeyãYÙ
Intg (YÁ10)ãªÙ
Y-ªÀ10ãäÙ
Abs (V-ª)+Abs (W-ä)ãUÙ
If UÈG And YÈ0Ù
Then Ù
ClrTextÙ
UÉ2×"BOUILLANT"Ù
UÉ4 And U>2×"CHAUD"Ù
U>4 And UÉ6×"TIEDE"Ù
U>6 And UÉ9×"FROID"Ù
UÊ10×"ICEBERG"Ù
UãGÙ
Isz IÙ
IfEndÙ
WhileEndÙ
IãSÙ
ClrTextÙ
Locate 8,1,"Bravo ·!·"Ù
Locate 1,2,"Tu as trouv#E60A the KEY"Ù
Locate 1,4,"Nbr de coup(s) :"Ù
Locate 18,4,IÙ
Locate 1,6,"La KEY #E60Atait :"Ù
A=79×Locate 16,6,"F1"Ù
A=78×Locate 16,6,"SHIFT"Ù
A=77×Locate 16,6,"ALPHA"Ù
A=76×Locate 16,6,"X,#E547,T"Ù
If A=75Ù
Then Locate 16,5,"#E6A6"Ù
Locate 16,7,"#E6A5"Ù
Locate 16,6,"-"Ù
IfEndÙ
A=74×Locate 16,6,"7"Ù
A=73×Locate 16,6,"4"Ù
A=72×Locate 16,6,"1"Ù
A=71×Locate 16,6,"0"Ù
A=69×Locate 16,6,"F2"Ù
A=68×Locate 16,6,"OPTN"Ù
A=67×Locate 16,6,"X#E5C2"Ù
A=66×Locate 16,6,"log"Ù
A=65×Locate 16,6,"F#E690#E691D"Ù
A=64×Locate 16,6,"8"Ù
A=63×Locate 16,6,"5"Ù
A=62×Locate 16,6,"2"Ù
A=61×Locate 16,6,"."Ù
A=59×Locate 16,6,"F3"Ù
A=58×Locate 16,6,"VARS"Ù
A=57×Locate 16,6,"í"Ù
A=56×Locate 16,6,"ln"Ù
A=55×Locate 16,6,"("Ù
A=54×Locate 16,6,"9"Ù
A=53×Locate 16,6,"6"Ù
A=52×Locate 16,6,"3"Ù
A=51×Locate 16,6,"À10#E5DD"Ù
A=49×Locate 16,6,"F4"Ù
A=48×Locate 16,6,"MENU"Ù
A=47×Locate 16,6,"EXIT"Ù
A=46×Locate 16,6,"sin"Ù
A=45×Locate 16,6,")"Ù
A=44×Locate 16,6,"DEL"Ù
A=43×Locate 16,6,"À"Ù
A=42×Locate 16,6,"+"Ù
A=41×Locate 16,6,"(-)"Ù
A=39×Locate 16,6,"F5"Ù
A=38×Locate 16,6,"#E69A"Ù
A=37×Locate 16,6,"#E69D"Ù
A=36×Locate 16,6,"cos"Ù
A=35×Locate 16,6,","Ù
A=33×Locate 16,6,"Á"Ù
A=32×Locate 16,6,"-"Ù
A=31×Locate 16,6,"EXE"Ù
A=29×Locate 16,6,"F6"Ù
A=28×Locate 16,6,"#E69C"Ù
A=27×Locate 16,6,"#E69B"Ù
A=26×Locate 16,6,"tan"Ù
A=25×Locate 16,6,"ã"Ù
For 0ãZ To 5000Ù
NextÙ
ClrTextÙ
For 0->B To 300:NextÙ
"SCORE"->List 1[0Ù
If Dim List 1?3Ù    [red]ERREUR SYNTAXE[/red]
ThenÙ
{.1,.2,.3->List 1Ù
{0,0,0->List 2Ù
IfEndÙ
""->Str 1Ù
0->LÙ
Locate 7,4,"[        ]"Ù
DoÙ
DoÙ
DoÙ
Getkey->GÙ
LpWhile Not GÙ
If G?31Ù
Then If G=44Ù
Then If LÙ
ThenÙ
L-1->LÙ
StrLeft(Str 1,L)->Str 1Ù
Locate 8+L,4," "Ù
For 0->B To 150:NextÙ
IfEndÙ
0->ZÙ
Else .1G->GÙ
6-10Frac G->RÙ
8-Int G+5R+R(R<3->ZÙ
IfEndÙ
IfEndÙ
LpWhile (Z<1 Or Z>26) And G?31Ù
If G?31Ù
ThenÙ
Prog "INT2TXT"Ù
Str 1+Str 6->Str 1Ù
Locate 8,4,Str 1Ù
Isz LÙ
For 0->B To 150:NextÙ
IfEndÙ
LpWhile L<8 And G?31Ù
RanInt#(1,1000->BÙ
If B=List 1[3Ù
Then Str 1->Str 6Ù
Prog "TXT2INT"Ù
10Frac List 1[3->CÙ
B+.1C->List 1[3Ù
Z->List 2[CÙ
SortD(List 1Ù
IfEndÙ
ClrTextÙ
For 1->L To 3Ù
List 1[LÙ
Locate 1,L,Int AnsÙ
List 2[10Frac Ans->ZÙ
Prog "INT2TXT"Ù
Locate 6,L,Str 6Ù
NextÙ

Je viens de copier/coller à partir de FA-124
Merci de me consacrer du temps
Mes Programmes :
Cliquer pour enrouler

- Mystery Key
- Khi2
Totoyo Hors ligne Membre d'honneur Points: 16102 Défis: 102 Message

Citer : Posté le 15/01/2016 14:17 | #


Tu utilises bien le symbole ≠ ?
If Dim List 1[b][red]≠[/red][/b]3

Le debuggueur en ligne n'a rien donné, ça semble ok.

Tu peux quand même me donner la version du système d'exploitation de ta calculatrice ?
Tibo28l Hors ligne Membre Points: 118 Défis: 0 Message

Citer : Posté le 16/01/2016 01:00 | #


Oui j'utilise ce symbole
Graph 35+ Tweaké sur OS graph 75 version 2.02
Mes Programmes :
Cliquer pour enrouler

- Mystery Key
- Khi2
Totoyo Hors ligne Membre d'honneur Points: 16102 Défis: 102 Message

Citer : Posté le 16/01/2016 12:16 | #


Comme ça, je ne vois pas d'erreur.
Copie ce code :
For 0→B To 300:Next
"SCORE"→List 1[0
If Dim List 1≠3
Then
{.1,.2,.3→List 1
{0,0,0→List 2
IfEnd

Puis crée un nouveau programme où tu colleras ce code.
Lance le programme. As-tu toujours une erreur ?
Tibo28l Hors ligne Membre Points: 118 Défis: 0 Message

Citer : Posté le 18/01/2016 19:26 | #


Là ça marche ... Bizarre ... Mais super merci !

Ajouté le 18/01/2016 à 19:46 :
Tibo28l a écrit :
0ãA~ZÙ
1ãIÙ
DoÙ
RanBin#(25,79)ãAÙ
LpWhile A=30 Or A=34 Or A=40 Or A=50 Or A=60 Or A=70Ù
31ãAÙ
Intg (AÁ10)ãVÙ
A-VÀ10ãWÙ
"Bienvenue dans       Mystery Key ·!· Dans   ce jeu il faut       trouver la touche #E601  laquelle pense la    calculatrice ·!·"Ù
For 0ãZ To 5000Ù
NextÙ
ClrTextÙ
"Lorsqu'un #E60Acran      blanc appara#E60Ftra     vous pourrez appuyer sur une touche ·!· La  touche AC/@E74F@E74E n'est   pas dans le jeu ·!·    BONNE CHANCE ·!··!··!··!·"Ù
For 0ãZ To 5000Ù
NextÙ
ClrTextÙ
GetkeyãYÙ
While AÈYÙ
GetkeyãYÙ
Intg (YÁ10)ãªÙ
Y-ªÀ10ãäÙ
Abs (V-ª)+Abs (W-ä)ãUÙ
If UÈG And YÈ0Ù
Then Ù
ClrTextÙ
UÉ2×"BOUILLANT"Ù
UÉ4 And U>2×"CHAUD"Ù
U>4 And UÉ6×"TIEDE"Ù
U>6 And UÉ9×"FROID"Ù
UÊ10×"ICEBERG"Ù
UãGÙ
Isz IÙ
IfEndÙ
WhileEndÙ
IãSÙ
ClrTextÙ
Locate 8,1,"Bravo ·!·"Ù
Locate 1,2,"Tu as trouv#E60A the KEY"Ù
Locate 1,4,"Nbr de coup(s) :"Ù
Locate 18,4,IÙ
Locate 1,6,"La KEY #E60Atait :"Ù
A=79×Locate 16,6,"F1"Ù
A=78×Locate 16,6,"SHIFT"Ù
A=77×Locate 16,6,"ALPHA"Ù
A=76×Locate 16,6,"X,#E547,T"Ù
If A=75Ù
Then Locate 16,5,"#E6A6"Ù
Locate 16,7,"#E6A5"Ù
Locate 16,6,"-"Ù
IfEndÙ
A=74×Locate 16,6,"7"Ù
A=73×Locate 16,6,"4"Ù
A=72×Locate 16,6,"1"Ù
A=71×Locate 16,6,"0"Ù
A=69×Locate 16,6,"F2"Ù
A=68×Locate 16,6,"OPTN"Ù
A=67×Locate 16,6,"X#E5C2"Ù
A=66×Locate 16,6,"log"Ù
A=65×Locate 16,6,"F#E690#E691D"Ù
A=64×Locate 16,6,"8"Ù
A=63×Locate 16,6,"5"Ù
A=62×Locate 16,6,"2"Ù
A=61×Locate 16,6,"."Ù
A=59×Locate 16,6,"F3"Ù
A=58×Locate 16,6,"VARS"Ù
A=57×Locate 16,6,"í"Ù
A=56×Locate 16,6,"ln"Ù
A=55×Locate 16,6,"("Ù
A=54×Locate 16,6,"9"Ù
A=53×Locate 16,6,"6"Ù
A=52×Locate 16,6,"3"Ù
A=51×Locate 16,6,"À10#E5DD"Ù
A=49×Locate 16,6,"F4"Ù
A=48×Locate 16,6,"MENU"Ù
A=47×Locate 16,6,"EXIT"Ù
A=46×Locate 16,6,"sin"Ù
A=45×Locate 16,6,")"Ù
A=44×Locate 16,6,"DEL"Ù
A=43×Locate 16,6,"À"Ù
A=42×Locate 16,6,"+"Ù
A=41×Locate 16,6,"(-)"Ù
A=39×Locate 16,6,"F5"Ù
A=38×Locate 16,6,"#E69A"Ù
A=37×Locate 16,6,"#E69D"Ù
A=36×Locate 16,6,"cos"Ù
A=35×Locate 16,6,","Ù
A=33×Locate 16,6,"Á"Ù
A=32×Locate 16,6,"-"Ù
A=31×Locate 16,6,"EXE"Ù
A=29×Locate 16,6,"F6"Ù
A=28×Locate 16,6,"#E69C"Ù
A=27×Locate 16,6,"#E69B"Ù
A=26×Locate 16,6,"tan"Ù
A=25×Locate 16,6,"ã"Ù
For 0ãZ To 5000Ù
NextÙ
ClrTextÙ
For 0->B To 300:NextÙ
"SCORE"->List 1[0Ù
If Dim List 1?3Ù    
ThenÙ
{.1,.2,.3->List 1Ù
{0,0,0->List 2Ù
IfEndÙ
""->Str 1Ù
0->LÙ
Locate 7,4,"[        ]"Ù
DoÙ
DoÙ
DoÙ
Getkey->GÙ
LpWhile Not GÙ
If G?31Ù
Then If G=44Ù
Then If LÙ
ThenÙ
L-1->LÙ
StrLeft(Str 1,L)->Str 1Ù
Locate 8+L,4," "Ù
For 0->B To 150:NextÙ
IfEndÙ
0->ZÙ
Else .1G->GÙ
6-10Frac G->RÙ
8-Int G+5R+R(R<3->ZÙ
IfEndÙ
IfEndÙ
LpWhile (Z<1 Or Z>26) And G?31Ù
If G?31Ù      [red] ERREUR SYNTAXE [/red]
ThenÙ
Prog "INT2TXT"Ù
Str 1+Str 6->Str 1Ù
Locate 8,4,Str 1Ù
Isz LÙ
For 0->B To 150:NextÙ
IfEndÙ
LpWhile L<8 And G?31Ù
RanInt#(1,1000->BÙ
If B=List 1[3Ù
Then Str 1->Str 6Ù
Prog "TXT2INT"Ù
10Frac List 1[3->CÙ
B+.1C->List 1[3Ù
Z->List 2[CÙ
SortD(List 1Ù
IfEndÙ
ClrTextÙ
For 1->L To 3Ù
List 1[LÙ
Locate 1,L,Int AnsÙ
List 2[10Frac Ans->ZÙ
Prog "INT2TXT"Ù
Locate 6,L,Str 6Ù
NextÙ

J'ai une autre erreur ... lais pour If G≠31
et une erreur mémoire lorsque j'utilise TXT2INT

Ajouté le 18/01/2016 à 19:49 :
Résultats :

Test des guillemets :
Ok : Il y a un nombre pair de guillemets.
Test des If/Then/IfEnd :
ERREUR : 8 IF trouvé(s), 5 Then trouvé(s), 8 IfEnd trouvé(s).
Test des Do/LpWhile :
Ok : 4 boucle(s) Do/LpWhile trouvé(s).
Test des While/WhileEnd :
Ok : 1 boucle(s) While/WhileEnd trouvé(s).
Test des For/To/Step/Next :
Ok : 7 boucle(s) For/To/Next trouvé(s).
Remarque : 0 Step trouvé(s).
Test des Lbl/Goto :
Ok : nombre de Lbl/Goto correct.

Tests supplémentaires :
8 [ trouvé(s), 1 ] trouvé(s).
2 { trouvé(s), 0 } trouvé(s).
Le programme utlise le caractère /. Si vous trouvez un / dans un calcul remplacez le par le signe "diviser" (: avec un trait entre les deux points) de votre casio.

Test avec debugger en ligne
Totoyo il te manque des then et if end

Mes Programmes :
Cliquer pour enrouler

- Mystery Key
- Khi2
Totoyo Hors ligne Membre d'honneur Points: 16102 Défis: 102 Message
Tibo28l Hors ligne Membre Points: 118 Défis: 0 Message

Citer : Posté le 19/01/2016 08:04 | #


21832 o en mémoire principale et 1181840 en mémoire stockage donc j'ai de la mémoire
Mes Programmes :
Cliquer pour enrouler

- Mystery Key
- Khi2
Totoyo Hors ligne Membre d'honneur Points: 16102 Défis: 102 Message

Citer : Posté le 19/01/2016 10:48 | #


Dis-moi, as-tu transféré le programme de Dark Storm, comme précisé dans ma vidéo ? Tu dois avoir le programme INT2TXT dans ta liste.

Pour l'autre erreur, je ne vois pas...
Tibo28l Hors ligne Membre Points: 118 Défis: 0 Message

Citer : Posté le 19/01/2016 12:37 | #


Totoyo a écrit :
Dis-moi, as-tu transféré le programme de Dark Storm, comme précisé dans ma vidéo ? Tu dois avoir le programme INT2TXT dans ta liste.

Pour l'autre erreur, je ne vois pas...

Oui je l'ai et justement là j'ai une erreur de mémoire pour la Str6
Tant pis je ne vais pas ajouter le tableau... merci en tout cas
Mes Programmes :
Cliquer pour enrouler

- Mystery Key
- Khi2

LienAjouter une imageAjouter une vidéoAjouter un lien vers un profilAjouter du codeCiterAjouter un spoiler(texte affichable/masquable par un clic)Ajouter une barre de progressionItaliqueGrasSoulignéAfficher du texte barréCentréJustifiéPlus petitPlus grandPlus de smileys !
Cliquez pour épingler Cliquez pour détacher Cliquez pour fermer
Alignement de l'image: Redimensionnement de l'image (en pixel):
Afficher la liste des membres
:bow: :cool: :good: :love: ^^
:omg: :fusil: :aie: :argh: :mdr:
:boulet2: :thx: :champ: :whistle: :bounce:
valider
 :)  ;)  :D  :p
 :lol:  8)  :(  :@
 0_0  :oops:  :grr:  :E
 :O  :sry:  :mmm:  :waza:
 :'(  :here:  ^^  >:)

Σ π θ ± α β γ δ Δ σ λ
Veuillez donner la réponse en chiffre
Vous devez activer le Javascript dans votre navigateur pour pouvoir valider ce formulaire.

Si vous n'avez pas volontairement désactivé cette fonctionnalité de votre navigateur, il s'agit probablement d'un bug : contactez l'équipe de Planète Casio.

Planète Casio v4.3 © créé par Neuronix et Muelsaco 2004 - 2024 | Il y a 137 connectés | Nous contacter | Qui sommes-nous ? | Licences et remerciements

Planète Casio est un site communautaire non affilié à Casio. Toute reproduction de Planète Casio, même partielle, est interdite.
Les programmes et autres publications présentes sur Planète Casio restent la propriété de leurs auteurs et peuvent être soumis à des licences ou copyrights.
CASIO est une marque déposée par CASIO Computer Co., Ltd