Ce programme n'affiche pas 10 pourquoi?
Posté le 29/04/2014 22:19
7ãA
[b][blue]If[/blue][/b] A=[maroon]6[/maroon]
[b][blue]Then[/blue][/b] [maroon]100[/maroon]ãC
Prog [gray]"CASIONI"[/gray]
[b][blue]IfEnd[/blue][/b]
10Ø
enfaite il s'arrete au if et affiche 7 alors que A ne vaut pas 6 :kill:
casioni:
CÊ100×[red]Goto[/red] D
C<100×[red]Goto[/red] C
[red]Lbl[/red] D
[red]Lbl[/red] C
[gray]"=====< >====="[/gray]
[b][brown]Locate[/brown][/b] [maroon]8[/maroon],[maroon]1[/maroon],Str [maroon]3[/maroon]
[gray]"Voulez-vous attaquer?"[/gray]
[b][blue]While[/blue][/b] GetkeyÈ77 And GetkeyÈ78
[b][blue]WhileEnd[/blue][/b]
Getkey=[maroon]77[/maroon]×[red]Goto[/red] Q
[b][blue]If[/blue][/b] C=[maroon]1[/maroon]
[b][blue]Then[/blue][/b]
RanBin#(143,[maroon]199[/maroon])ãE
RanBin#(1,[maroon]2[/maroon])ãG
5ãF
10ãI
[b][blue]IfEnd[/blue][/b]
[red]Lbl[/red] [maroon]1[/maroon]
[brown]ClrText[/brown]
[b][brown]Locate[/brown][/b] [maroon]1[/maroon],[maroon]1[/maroon],[gray]"#E6A1 #E6A2 @E750@E756@E773"[/gray]
[b][brown]Locate[/brown][/b] [maroon]1[/maroon],[maroon]7[/maroon],[gray]"#E6A1 #E6A2 @E750@E756@E773"[/gray]
[b][brown]Locate[/brown][/b] [maroon]2[/maroon],[maroon]1[/maroon],G
[b][brown]Locate[/brown][/b] [maroon]6[/maroon],[maroon]1[/maroon],Str [maroon]3[/maroon]
[b][brown]Locate[/brown][/b] [maroon]15[/maroon],[maroon]1[/maroon],E
[b][brown]Locate[/brown][/b] [maroon]6[/maroon],[maroon]7[/maroon],Str [maroon]2[/maroon]
[b][brown]Locate[/brown][/b] [maroon]15[/maroon],[maroon]7[/maroon],L
1ãA
2ãW
[b][blue]Do[/blue][/b]
A+1ãA
[b][brown]Locate[/brown][/b] [maroon]1[/maroon],W,[gray]"#E691"[/gray]
[b][brown]Locate[/brown][/b] [maroon]1[/maroon],W+1,[gray]" "[/gray]
[b][brown]Locate[/brown][/b] [maroon]1[/maroon],W-1,[gray]" "[/gray]
Getkey=[maroon]28[/maroon] And W>2×[b][blue]Dsz[/blue][/b] W
Getkey=[maroon]37[/maroon] And W<6×[b][blue]Isz[/blue][/b] W
[b][blue]LpWhile[/blue][/b] AÈ1000 Or GetkeyÈ78
[b][brown]Locate[/brown][/b] [maroon]1[/maroon],[maroon]4[/maroon],Str [maroon]3[/maroon]
[b][brown]Locate[/brown][/b] [maroon]9[/maroon],[maroon]4[/maroon],[gray]"attaque"[/gray]
[b][blue]For[/blue][/b] [maroon]1[/maroon]ãA [b][blue]To[/blue][/b] [maroon]100[/maroon]
[b][blue]Next[/blue][/b]
RanBin#(F,I)ãA
L-AãL
A
[b][blue]While[/blue][/b] GetkeyÈ78 Or LÉ0 Or EÉ0
[b][blue]WhileEnd[/blue][/b]
[b][blue]If[/blue][/b] LÉ0
[b][blue]Then[/blue][/b]
50ãL
List [maroon]10[/maroon][9]ãN
10ãX
4ãY
[red]Goto[/red] Q
[b][blue]IfEnd[/blue][/b]
[b][blue]If[/blue][/b] EÉ0
[b][blue]Then[/blue][/b]
[red]Goto[/red] Q
[b][blue]IfEnd[/blue][/b]
[red]Goto[/red] [maroon]1[/maroon]
[red]Lbl[/red] Q
Citer : Posté le 29/04/2014 22:28 | #
Met nous aussi le code du programme CASIONI
Citer : Posté le 29/04/2014 22:31 | #
voila ,c'est un test pour un projet en construction
Ajouté le 29/04/2014 à 22:34 :
probleme resolu: j'avais ecrit ""CASIONI" avec deux >"< pourtant aucune erreur syntax mais maintenant ca marche :boulet:
non enfait sur le prog brincipal ca beug toujour ... pour les " on les met par CHAR ou ALPHA+EXP ?
Citer : Posté le 29/04/2014 22:57 | #
C'est la même chose mais plutôt ALPHA
Citer : Posté le 30/04/2014 09:23 | #
enfaite il s'arrete au if et affiche 7 [...]
Une fois que l'instrcution 7->A a été exécutée, Ans prend la valeur 7. Et puis, il n'y a aucune raison qu'il affiche 7 si le programme passe dans CASIONI.
Il n'est pas passé dans le If. Tu est sûr que l'instruction de fin est bien exécutée ?
Peut-être y a-t-il un autre bout de code ensuite ?
Citer : Posté le 30/04/2014 12:05 | #
Faux, pour que Ans prenne la valeur 7, il aurait fallu écrire seulement
7->A affecte une valeur à A, pas à Ans
Citer : Posté le 30/04/2014 12:19 | #
Essaie "7->A:Ans", tu verras.
Citer : Posté le 30/04/2014 12:41 | #
Justement, ça ne peut pas marcher.
Si en faisant ça tu as obtenu 7 c'est que Ans avait déjà la valeur 7.
Essaie donc ceci :
7->A
Ans
Citer : Posté le 30/04/2014 12:46 | #
Ok, je vois...
Je pensais que la calculatrice affichait toujours Ans à la fin d'un programme. Or non, d'où mon erreur.
Citer : Posté le 01/05/2014 04:40 | #
j'ai resolu le probleme en remplacant la commande prog par un goto vers la fin du programme ou j'ai place la commande prog
Citer : Posté le 01/05/2014 09:43 | #
j'ai resolu le probleme en remplacant la commande prog par un goto vers la fin du programme ou j'ai place la commande prog
Qu'est-ce que...quoi ? Quelle horreur !
Citer : Posté le 03/05/2014 00:52 | #
Bah j ai vraiment pas trouvé d autre solution :kill: