Soucis avec liberty Basic 4.0 'pb de commande

Question

Voilà je vous explique mon problème:
j'ai souhaitez créé un petit programme de devinette mais selement une des commandes qui permet de faire une boucle en cas de mauvaise réponse ne fonctionne pas . Pour mieux comprendre je vous écrit le programme avec le message d'erreur:

'jeu de devinette de nombres
'
compNum=47 'nombre choisi par l'ordinateur
'
Print "Je pense à un nombre..."
Print "Essayez de le deviner."
'
Essais=0
'
'la valeur zéro à guess déclenche la boucle
guess=0
While (guess<>compNum)
Print
Input "Annoncez un nombre entre 0 et 100 : ";guess
If (guess<compNum) then
Print "Votre nombre est trop bas, choisissez un autre nombre."
Else
If (guess>compNum) then
Print "Votre nombre est trop haut, choisissez un autre nombre."
End If
Essais=Essais+1 'Ajoute 1 à la variable compteur

Wend
Print "Vous avez trouvé en seulement "; Essais; "tentative !"
End

Voilà mon problème c'est la commande Wend qui est censé faire répéter la phrase du choix du nombre.

Il refuse de démarrer le programme en me surlignant la commande Wend et en écrivant "Basic compile Halted : WEND without WHILE"
Je ne comprend pas. S'il vous plait dite moi où est l'erreur dans le code ou du moin si je tape la bonne commande.
Je vous en remerci d'avance.

"Je doute que cela ai des influences mon system d'exploitation est XP pro (normalement la version 4.0 de liberty Basic est compatible avec) mon proc est un athlon 2000 + avec 1024 de RAM carte graph G force 4800 et jai une license pour liberty basic ( la version Silver) "

Voilà

Deuterium · Answer

Personne ne sais me répondre?

Deuterium · Answer

Ouin ouin audez moi :'(

klow · Answer

Salut !

Alors en fait tu as ouvert deux boucles "if" mais tu n'en as fermé k'une. Je viens d'essayé le programme, j'ai corrigé l'erreur et ça marche. Le code donne ceci :

' DEBUT DU CODE

compNum = 47

Print "Je pense à un nombre..."
Print
Print "Essayez de le deviner !"

Essai = 0

While (guess <> compNum)

print
input "Annoncez un nombre entre 1 et 100 : "; guess

if (guess < compNum) then
print "TROP BAS ! "

else

if (guess > compNum) then
print "TROP HAUT ! "

end if ' TON ERREUR SE SITUAIT LA

end if

Essai = Essai + 1

Wend

Print
Print "Vous avez trouvé en "; Essai; " tentatives !!"

End

' FIN DU CODE

Voilà, si tu as d'autres pb n'hésite pas !

klow_

Deuterium · Answer

Merci énormément de ta réponse.En effet sa marche :)

Deuterium · Answer

Ho j'y pense aurais tu MSN ou AIM pour que nous puissions comuniquer? Je débute en programmation et une petite aide de ta part me serais fort utile en cas de probleme et nous pourions peut être nous entendre je pense :)

klow · Answer

Avec plaisir :)J'ai MSN, envoie moi ton adresse sur mon mail :aefandayl@yahoo.fret je te contacte dès que je le l'ai !à+klow_

Deuterium · Answer

mon adresse msn c'est:snipeer666@hotmail.comvoila de toute facon tu es dans mes contact ;)

Didier.olivier · Answer

BonjourJe débute tout juste avec liberty Basic. Existe-t'il une commande pour les racines carrées, voire cubiques ?Merci

pascal · Answer

pour plus d'infos sur liberty BASIChttp://lbasic.atomysk.com et le forum d'aide qui va avec http://lbasic.atomysk.com/forum et tout ça en français....

mario0610058714 · Answer

score=47
essai=0
print "je pense à un nombre"

[test]
input "lequel : ";test
if test=score then
print "bien joué!tu as eu besoin de"; essai; "tentatives";
end
else
goto [bad]
wait

[bad]
let essai=essai+1 
print "perdu essai encore !"
goto [test]
wait

mario0610058714 · Answer

'voilà le code le mieu que tu puisse avoir, le plus simple
score=47 
essai=0 
print "je pense à un nombre" 

[test] 
input "lequel : ";test 

if test=score then 
print "bien joué!tu as eu besoin de"; essai; "tentatives"; 
end 

else 

if test<score then
print "trop bas"
goto [test]

else
if test>score then
print "trop haut"
goto [test] 

end if
end if
end if
wait

Soucis avec liberty Basic 4.0 'pb de commande

11 réponses

Discussions similaires

Newsletters