Avertissement :Il s'agit d'une page optimisée pour la navigation mobile. Voir la
page originale.
Faire changer les chiffres a chaque parties
Qti82 le 09/10/2011 à 18:50
Salut, j'ai fait un petit jeu ou on doit trouvez le chiffre. il nous dit plus ou moin mais en faite en le testant je vien de voir que cela reste toujours le meme chiffre a trouver alors coment le faire changer a chaque nouvelle partie ?tilo1996 le 09/10/2011 à 18:53
Au debut de ton programme, tu ajoute pour la variable nombre a trouver cette ligne.
Code
Entaleat(0,100)->[Ta variable]
Voila.
azerty1 le 09/10/2011 à 18:55
Et donc tu peux aussi si tu veux demander un intervalle au joueur pour plus de diversité:
Code
:Input "MIN?",A
:Input "MAX?",B
:entAléat(A,B->C //La parenthèse de fin est inutile ici
Qti82 le 09/10/2011 à 19:01
Si tu peux me montrer ou le placé ..
Code
Lbl 9
Menu("LE JUSTE PRIX","JOUER",0,"DIFFICULTE",1,"QUITTER",3
Lbl 1
Menu("DIFFICULTE :","EASY",A,"NORMAL",B,"HARD",C
Lbl A
entAleat(1,100->X:Goto 9
Lbl B
entAleat(1,500->X:Goto 9
Lbl C
entAleat(1,1000->X:Goto 9
Lbl 0
EffEcr
Repeat Y=X
Input "DEVINEZ LE PRIX:",Y
If Y>X
Disp "MOINS
If Y<X
Disp "PLUS
End
Pause "BRAVO!
EffEcr
azerty1 le 09/10/2011 à 19:04
Alors, je le simplifie un petit peu:
Code
EffEcr
Menu("DIFFICULTE :","EASY",A,"NORMAL",B,"HARD",C,"PERSO",D,"QUITTER",3
Lbl A
entAleat(1,100->X:Goto 0
Lbl B
entAleat(1,500->X:Goto 0
Lbl C
entAleat(1,1000->X:Goto 0
Lbl D
Input "MAX?",A
Input "MIN?",B
entAléat(A,B->X
Lbl 0
EffEcr
Repeat Y=X
Input "DEVINEZ LE PRIX:",Y
If Y>X
Disp "MOINS
If Y<X
Disp "PLUS
End
Pause "BRAVO!
EffEcr
Lbl 3
EffEcr
Qti82 le 09/10/2011 à 19:12
Je vien de l'écrire et tester mais c'est toujours le meme chiffre a trouverazerty1 le 09/10/2011 à 19:35
Tu as du te trouver hin...Qti82 le 09/10/2011 à 19:58
Mais je me suis tromper mon code est :
Code
Lb9
Menu( " By ....... .....","JOUER",0,"DIFFICULTE",1,"QUITTER",2
Lbl 1
Menu( DIFFICULTE :","EASY",A,"HARD",B
Lbl A
entAleat(1,100->X:Goto 9
Lbl B
entAleat(,1000->X:Goto 9
entAleat(A,B->X
Lbl 0
EffEcr
Repeat Y=X
Input "DEVINEZ LE PRIX:",Y
if Y>X
Disp "MOINS
if Y<X
Disp "PLUS
End
Pause "BRAVO^^
Pause "MADE BY ......
EffEcr
azerty1 le 09/10/2011 à 20:26
Ton code, ou le code trouvé
ici?
Là tu viens d'écrire un code avec des bouts manquants... Le code que je t'ai donné fonctionne parfaitement, donc tu as du faire une erreur de recopiage.
Qti82 le 09/10/2011 à 20:31
Non je vien de vérifier c'est bien ce codesandro le 09/10/2011 à 20:37
ça m'éttonnerait, la ligne entAléa(A,B->X ne sert absolment à rien, et ça m'étonnerait qu'un truc comme ça soit passé inaperçu.
Sandroazerty1 le 09/10/2011 à 20:40
Ecoute, le code
Code
EffEcr
Menu("DIFFICULTE :","EASY",A,"NORMAL",B,"HARD",C,"PERSO",D,"QUITTER",3
Lbl A
entAleat(1,100->X:Goto 0
Lbl B
entAleat(1,500->X:Goto 0
Lbl C
entAleat(1,1000->X:Goto 0
Lbl D
Input "MAX?",A
Input "MIN?",B
entAléat(A,B->X
Lbl 0
EffEcr
Repeat Y=X
Input "DEVINEZ LE PRIX:",Y
If Y>X
Disp "MOINS
If Y<X
Disp "PLUS
End
Pause "BRAVO!
EffEcr
Lbl 3
EffEcr
$fonctionne donc si toi çane marche pas, vérifie que tu as bien recopier en utilisant les bonnes fonctions.
Qti82 le 09/10/2011 à 20:42
Mais je peux pas mettre celui la et rajouter un code pour que sa change tout le temps ?
Code
Lb9
Menu( " By ....... .....","JOUER",0,"DIFFICULTE",1,"QUITTER",2
Lbl 1
Menu( DIFFICULTE :","EASY",A,"HARD",B
Lbl A
entAleat(1,100->X:Goto 9
Lbl B
entAleat(,1000->X:Goto 9
Lbl 0
EffEcr
Repeat Y=X
Input "DEVINEZ LE PRIX:",Y
if Y>X
Disp "MOINS
if Y<X
Disp "PLUS
End
Pause "BRAVO^^
Pause "MADE BY ......
EffEcr
Qti82 le 09/10/2011 à 20:49
Mais ce code marche aussi ?
azerty1 le 09/10/2011 à 20:52
Qti82 a écrit :
Code
0->X //rajoute ça, sinon sans changer de diff, La oui, tu auras le meme nb
Lbl 9
Menu( "By ....... .....","JOUER",0,"DIFFICULTE",1,"QUITTER",2
Lbl 1
Menu( DIFFICULTE :","EASY",A,"HARD",B
Lbl A
entAleat(1,100->X:Goto 9
Lbl B
entAleat(,1000->X:Goto 9
Lbl 0
EffEcr
Repeat Y=X
Input "DEVINEZ LE PRIX:",Y
if Y>X
Disp "MOINS
if Y<X
Disp "PLUS
End
Pause "BRAVO^^
Pause "MADE BY ......
EffEcr
OUI
sandro le 09/10/2011 à 20:52
OUIQti82 le 09/10/2011 à 20:55
LoL vous allez me tuer ... je vien de mettre ce que tu ma dit et j'ai tester le nombre était Zéro j'ai rejouer en core 0 et encore 0 alors ... ?
azerty1 le 09/10/2011 à 20:59
Alors on va te tuer. Non sérieux, vérifie tout le code que je t'ai donné FONCTIONNE.
Code
0->X
EffEcr
Menu("DIFFICULTE :","EASY",A,"NORMAL",B,"HARD",C,"PERSO",D,"QUITTER",3
Lbl A
entAleat(1,100->X:Goto 0
Lbl B
entAleat(1,500->X:Goto 0
Lbl C
entAleat(1,1000->X:Goto 0
Lbl D
Input "MAX?",A
Input "MIN?",B
entAléat(A,B->X
Lbl 0
EffEcr
Repeat Y=X
Input "DEVINEZ LE PRIX:",Y
If Y>X
Disp "MOINS
If Y<X
Disp "PLUS
End
Pause "BRAVO!
EffEcr
Lbl 3
EffEcr
Qti82 le 09/10/2011 à 21:00
Oui mais je veux pas réecrire le code alors que j'en ai fait un a ma manièreazerty1 le 09/10/2011 à 21:03
C'est la même chose...
Image manquante
Qti82 le 09/10/2011 à 21:27
Bon ben j'ai tout recopier manuellement ton code merci quand meme a plusPersalteas le 09/10/2011 à 22:43
En effet Trohithuthur et sandro, je trouve que vous manquez de pédagogie...
Quand on pose une question, on attend la réponse, et non pas qu'on nous simplifie notre code.
Le fait que tu aies zéro à chaque fois vient d'un problème de Lbl:
le code que tu as posté toi, en premier, gère très bien les aléatoires.
Ce qu'il ne gère pas, c'est que quand tu le démmarre, on arrive sur le menu de jeu, on choisit jouer, et là on "saute" les Lbl avec les entaléat(0,quelque chose)->X
c'est juste qu'il faut en fait que le menu "dificulté" soit obligatoire avant de jouer.
Sinon ta variable X ne prend aucune valeur du tout, et on a zéro. Avertissement :Il s'agit d'une page optimisée pour la navigation mobile. Voir la
page originale.
se sont des entrées aléatoires!