Vous n'êtes pas identifié.
Je veux créer un mini jeux de voitures très court. mais i marche pas.
Voici le scipt (g une graph 100):
0->A~Z
ClrText
Lbl A
{0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}->List 1
1->P
" * * * * * * * * * * * * "
" * * * * * * "
" * * * * * * * * "
" * * * * * * "
" * * * * * * * * * * "
" "
" ENTREE"
Lbl 8
While GetKey <> 31
WhileEnd
ClrText
For 1->I To 7
7->List 1[1]
1->H
7->B
8->D
8->C
0->S
For 1->S To 9000
Lbl C
Int (3Ran#) - 1->T
List 1[H] + T->C
(C = (-)1) + (C = 1) => 0->T
List 1[H] + T->List 1[B]
B->H
B + 1->B
B = 8 => 1->B
GetKey->K
K = 73 => P - 1->P
K = 53 => P + 1->P
" "
C < 21 => Locate C + 1, 7, "..." Locate P, 1, "I"(P <= List 1[B]) Or (P >= List 1[B] + 4) => Goto F
Next
Lbl F
S < 12 => Goto C
Locate P, 1, "X"
Locate 1, 3, "CRASH!!!"
Locate 1, 4, "SCORE"
Locate 7, 4, S
While GetKey <> 31
WhileEnd
Goto 8
Voila g un prob la ou c rouge, erreur syntaxe, aider moi sinon demain le cour de mat sera chiant !!!!!!!
le truc entre guillemets rouges c'est ... ou c'est autre chose ? dans ce cas, c'est quoi exactement ?
Hors ligne
Peut etre que tu peut pas mettre autant de chose, sur une seule ligne...
et avec
if
then
endif
...
ca donnerai quoi
Hors ligne
pour la ligne c'est probablement un enter qui a sauté quand il a mis en rouge
Hors ligne
entre guillemets, c un ...
jen c pas plus, aider moi slvousplait !!!!!!!!
si vous lavez essayer, dites moi les modifes apportées !!!!
Merci davance !!!!
puis g oublier un truc.
après "..." on va a la ligne...
VOILA, réponder moi plise !
Dans l'absolu ton prgramme n'a pas l'air de contenir des erreurs.
A mon avis si tu kiffes les voitures et comme j'ai vu ke t'avai une g100.
Download flash100 et direxplor (ou gexplo2 sinon Casiomax va me tuer)
et envoie The Race par Roeoender dispo sur le site de Casioworld
Hors ligne
Merci pour le conseil !!!!
Le probleme c que g pas de cordon pour relier ma g100 a mon pc !!!!!
Si le scrip est correct, c peut etre qui fo utiliser une touche spééciale ?
je voudrai aussi savoir le prix du cordon, tout seul, sans programmes....
Merci !!!!!
Pour le cable : http://kiwicasio.no-ip.org/trs_cpc.php
Hors ligne
essaye de passer a la ligne aussi apres : ' Locate P, 1, "I" ', sinon met un ' : ' apres ton premier locate et passe a la ligne apres ton second
merci pour la pub JF , dans ma prochaine MAJ de cette page, comment avoir son MAX232 ou MAX233 gratos
Hors ligne
attend je vé te filer l'url de demande d'échantillon
il m'ont envoyer 2 x MAX232A, 2 x MAX233 [ceu la il pete] gratos !
en clair, actuellement, je fonctionne avé :
1 connecteur SERIE
[1 régulateur de tension 7805, optionel]
1 max233
1 connecteur JACK
le 233 na pas besoin de condos :P
Hors ligne
Fo pas en demander trop a un prog basique et peut etre que ta boucle for est trop grande.. a mon avis essaye plutot avec un label et une incrementation...
sinon ya ca :
(C = (-)1) + (C = 1) => 0->T
List 1[H] + T->List 1[B]
qui me chiffone...
surtout le + entre tess conditions (c bien ca?)fodrait mettre and plutot... et franchement pour els conditions, utilise plutot if et ifend comme ca a ete dis par Jean fran.
sinon des fois elle aime pas trop quon lui demande de faire des calculs directement avec les cases de listes, essaye putot dassocier List1[H] a une variable pour lui ajouter 1 ensuite...
0->A~Z
ClrText
Lbl A
{0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}->List 1
1->P
" * * * * * * * * * * * * "
" * * * * * * "
" * * * * * * * * "
" * * * * * * "
" * * * * * * * * * * "
" "
" ENTREE"
Lbl 8
While GetKey <> 31
WhileEnd
ClrText
For 1->I To 7
7->List 1[1]
1->H
7->B
8->D
8->C
0->S
0->Z
Lbl C
If Z<9000
then
Int (3Ran#) - 1->T
List 1[H] + T->C
if (C=-1) and (C=1)
then 0->T
ifend
List 1[H]->r
r + T->List 1[B]
B->H
B + 1->B
B = 8 => 1->B
GetKey->K
K = 73 => P - 1->P
K = 53 => P + 1->P
" "
C < 21 => Locate C + 1, 7, "..." Locate P, 1, "I"(P <= List 1[B]) Or (P >= List 1[B] + 4) => Goto F
Z+1->Z
GotoC
ifend
Lbl F
S < 12 => Goto C
Locate P, 1, "X"
Locate 1, 3, "CRASH!!!"
Locate 1, 4, "SCORE"
Locate 7, 4, S
While GetKey <> 31
WhileEnd
Goto 8
a mon avis essaye un truc dans ce genre... enfin jhe pense plutot quil fo juste changer ca :
(C = (-)1) + (C = 1) => 0->T
Hors ligne
Euh non le + correspond a OU donc ca marche pas...
mets plutot (C=(-)1) And (C=1)=>0->T
Edit: ET puis svp les modos supprimez cette ligne de 500 points d'exclamation ca m'oblige a faire défiler la page horizontalement
Hors ligne
C est initialise a 8. "8->C"
ensuite on met une valeur aleatoir dans T : "Int (3Ran#) - 1->T "
Si par malheur Ran# sor t un 0.33, que l'on multiplie par 3 : 0.99, on prend la valeur entiere, soit 0 auquel on retranche 1, donc T=-1, pratiquement tout le temps.
Ensuite on prend "List 1[H] + T->C", a savoir au debut 0 + -1 -> C, donc C vaut -1
On termine par : "C < 21 => Locate C + 1, 7, "..." "
Il est certain que C est inferieur a 21.... Mais la casio ne va pas aimer que l'on essaie d'afficher quelquechose a l'exterieur de l'ecran
[petite remarque, je viens de voir a nouveau mon erreur, la liste 1[1] est initialisee a 7, donc ma solution est fausse]
Autre detail :
"if (C=-1) and (C=1)
then 0->T
ifend"
Tu peux enlever cela, ou corriger ton erreur... Car jamais tu ne mettras 0 dans T... Je crains que C n'ai jamais une valeur qui soit a la fois de -1 et 1...
[heu, je viens de voir que c'est une modif de tenkoh, donc ne met pas AND mais OR (tenkoh :P ) car effectivement "(C = (-)1) + (C = 1) => 0->T " est tres etrange...]
bon j'ai laisse mes deux erreurs precedentes, on ne sait jamais si cela peut aider quelqu'un...
Les deux seules choses qu'il faudrait verifier, selon moi :
(C = (-)1) + (C = 1) => 0->T
il manque un next quelque part ? deux for, un seul next ? tu vas faire ta boucle pour le S, mais jamais ton I... que tu n'utilises jamais au passage... erreur de recopie ?
marrant de relire ses messages apres avoir poste... on voit que les modifs apportees au cours du message ne sont pas dans l'ordre logique (un a nouveau avant l'explication de la premiere erreur... etc) et ce qui parait clair au moment de taper le message, ne l'est plus quand on lit lol