Posté le 02/05/2012 15:27
Planète Casio v4.3 © créé par Neuronix et Muelsaco 2004 - 2024 | Il y a 85 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
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
- Mystery Key
- Khi2
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.
Vitesse des fonctions en Basic Casio | 7 days CPC | Casio Universal Wiki | Tutoriel Basic Casio
>>> Give me a click Brother
>>> Random Youtube Video
Citer : Posté le 15/01/2016 13:44 | #
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
- Mystery Key
- Khi2
Citer : Posté le 15/01/2016 14:17 | #
Tu utilises bien le symbole ≠ ?
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 ?
Vitesse des fonctions en Basic Casio | 7 days CPC | Casio Universal Wiki | Tutoriel Basic Casio
>>> Give me a click Brother
>>> Random Youtube Video
Citer : Posté le 16/01/2016 01:00 | #
Oui j'utilise ce symbole
Graph 35+ Tweaké sur OS graph 75 version 2.02
- Mystery Key
- Khi2
Citer : Posté le 16/01/2016 12:16 | #
Comme ça, je ne vois pas d'erreur.
Copie ce code :
"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 ?
Vitesse des fonctions en Basic Casio | 7 days CPC | Casio Universal Wiki | Tutoriel Basic Casio
>>> Give me a click Brother
>>> Random Youtube Video
Citer : Posté le 18/01/2016 19:26 | #
Là ça marche ... Bizarre ... Mais super merci !
Ajouté le 18/01/2016 à 19:46 :
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
- Mystery Key
- Khi2
Citer : Posté le 18/01/2016 22:59 | #
Mémoire saturée, il te reste cb d'octets en mémoire principale ?
Vitesse des fonctions en Basic Casio | 7 days CPC | Casio Universal Wiki | Tutoriel Basic Casio
>>> Give me a click Brother
>>> Random Youtube Video
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
- Mystery Key
- Khi2
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...
Vitesse des fonctions en Basic Casio | 7 days CPC | Casio Universal Wiki | Tutoriel Basic Casio
>>> Give me a click Brother
>>> Random Youtube Video
Citer : Posté le 19/01/2016 12:37 | #
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
- Mystery Key
- Khi2