Soucis avec liberty Basic 4.0 'pb de commande

Fermé
Deuterium Messages postés 6 Date d'inscription vendredi 5 décembre 2003 Statut Membre Dernière intervention 11 décembre 2003 - 5 déc. 2003 à 20:08
 mario0610058714 - 19 déc. 2007 à 17:54
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à
A voir également:

11 réponses

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....
1
p.legal Messages postés 88 Date d'inscription mardi 14 juin 2005 Statut Membre Dernière intervention 21 mars 2008 24
11 mai 2007 à 13:28
Les adresses ont changé !

liberty Basic France : http://www.lbasic.fr
et son forum : http://www.lbasic.fr/forum/
0
Deuterium Messages postés 6 Date d'inscription vendredi 5 décembre 2003 Statut Membre Dernière intervention 11 décembre 2003
6 déc. 2003 à 09:49
Personne ne sais me répondre?
0
Bonjour, j'ai essayé ton programme sur mon pc sous: windows 98, 2000, NT , milllenium, et enfin xp pro. Mais ton programme ne fonctionnait pas sur tout les système d'exploitation ci-dessus. Donc, je pense que ce n'est pas un problème de conpatibilité. Le plus étrange c'est que j'ai liberty basic 4.0 également. Donc il n'y a plus que 1 possibilité l'erreur de commande;
J'ai cherché partout dans mes bouquins sur internet mais je n'est pas trouvé. Je suis désolé, mais je peux déjà partiquement t'affirmer que c'est une erreur de commande.
0
Deuterium Messages postés 6 Date d'inscription vendredi 5 décembre 2003 Statut Membre Dernière intervention 11 décembre 2003
7 déc. 2003 à 13:50
Ouin ouin audez moi :'(
0
klow Messages postés 65 Date d'inscription vendredi 19 septembre 2003 Statut Membre Dernière intervention 16 janvier 2004 6
10 déc. 2003 à 03:17
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_
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
Deuterium Messages postés 6 Date d'inscription vendredi 5 décembre 2003 Statut Membre Dernière intervention 11 décembre 2003
10 déc. 2003 à 13:09
Merci énormément de ta réponse.En effet sa marche :)
0
Deuterium Messages postés 6 Date d'inscription vendredi 5 décembre 2003 Statut Membre Dernière intervention 11 décembre 2003
10 déc. 2003 à 13:12
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 :)
0
klow Messages postés 65 Date d'inscription vendredi 19 septembre 2003 Statut Membre Dernière intervention 16 janvier 2004 6
11 déc. 2003 à 04:04
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_
0
Deuterium Messages postés 6 Date d'inscription vendredi 5 décembre 2003 Statut Membre Dernière intervention 11 décembre 2003
11 déc. 2003 à 19:41
mon adresse msn c'est:
snipeer666@hotmail.com
voila de toute facon tu es dans mes contact ;)
0
klow Messages postés 65 Date d'inscription vendredi 19 septembre 2003 Statut Membre Dernière intervention 16 janvier 2004 6
18 déc. 2003 à 18:10
salut !

est-ce que tu t'es connecté ces derniers jours ? je t'ai jamais vu online sur msn..
0
Didier.olivier
19 mai 2004 à 11:08
Bonjour
Je débute tout juste avec liberty Basic. Existe-t'il une commande pour les racines carrées, voire cubiques ?
Merci
0
Philibert3374
28 mai 2004 à 00:54
Salut,
Ton problème est simple: il n'y a pas de fonction sqr() comme sur d'autres basics.
En fait la racine carrée est la puissance 1/2 et la racine cubique la puissance 1/3
Donc il faut écrire
X=Y^0.5
ou X=Y^(1/3)
Voilà!

PS: J'ai croisé un groupe d'utilisateurs francophones à l'adresse http://fr.groups.ya ho o.com/group/Liberty_Basic/
Encore peu d'utilisateurs, mais j'ai décidé de le faire mieux connaître parceque je ne vois que Visual et Q & compagnie sur les groupes, et c'est agaçant de ne pas avoir de point de RV.
0
mario0610058714
19 déc. 2007 à 17:49
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
0
mario0610058714
19 déc. 2007 à 17:54
'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
0