Forum Clubic

AIDE Erreur syntaxe liberty basic

Salut j’ai commencer la programmation avec liberty basic et pour m’amuser j’ai voulu créer un petit programme dont voici le code :

NOMAINWIN
PROMPT "Quel est ton age ? "; age
NOTICE "Tu as "; age; " ans"
PROMPT "Tu es un garçon ou une fille ?"; sexe$
NOTICE "Je vais te chercher un garçon de "; age
PROMPT "Quel est ton magasin préféré ? "; magasin$
PROMPT "Tu recherche une fille ou un garçon ? "; recherche$
SELECT CASE
CASE (recherche$="garçon")
PROMPT "Tu veux qu'il soit plus jeune, plus vieux, ou qu'il est le même age que toi (vieux,jeune,pareil)? "; agerecherche$
SELECT CASE
CASE (agerecherche$="jeune")
GOSUB [age.jeune]
CASE (agerecherche$="pareil")
GOSUB [age.pareil]
CASE (agerecherche$="vieux")
GOSUB [age.vieux]
End select
CASE (recherche$="fille")
PROMPT "Tu veux qu'elle soit plus jeune, plus vielle, ou qu'il est le même age que toi (vielle,jeune,pareil)? "; agerecherche$
SELECT CASE
CASE (agerecherche$="jeune")
GOSUB [age.jeune]
CASE (agerecherche$="pareil")
GOSUB [age.pareil]
CASE (agerecherche$="vielle")
GOSUB [age.vieux]
End select
SELECT CASE
CASE (sexe$="fille")
SELECT CASE
CASE (recherche$="fille")
NOTICE "Tu es une fille qui recherche une fille, tu as "; age " ans et tu recherche une fille de "; année " ans "
CASE (recherche$="garçon")
NOTICE "Tu es une fille qui recherche un garçon, tu as "; age " ans et tu recherche un garçon de "; année " ans"
END SELECT
CASE (sexe$="garçon")
SELECT CASE
CASE (recherche$="fille")
NOTICE "Tu es un garçon qui recherche une fille, tu as "; age " ans et tu recherche une fille de "; année " ans"
CASE (recherche$="garçon")
NOTICE "Tu es un garçon qui recherche un garçon, tu as "; age " ans et tu recherche un garçon de "; année " ans"
END SELECT
END

[age.jeune]
Prompt "De combien d'année ?"; année
année=age-année
Return

[age.pareil]
Prompt "De combien d'année ?"; année
année=age
Return

[age.vieux]
Prompt "De combien d'année ?"; année
année=age+année
Return

Mais voila quand j’ai voulu le tester il me met syntaxe erreur.
Comme je lai dit je suis un débutant et j’ai eu bo cherche je n’ai pas trouvé l’erreur.
Si quelqu’un pouvait m’aider sa serait super parce que j’ai bien du mettre une heure a le faire ce code et sa ménérve de ne pas y avoir réussi.

MERCI d’avance

C’est quoi comme erreur syntaxique? (je connais pas le langage, mais ça doit pas être compliqué à comprendre)

Salut ! J’ai essayé de corriger ton code, voici le résultat, mais je ne suis pas sur que c’est ce que tu veut faire.

Le voici :

NOMAINWIN
PROMPT "Quel est ton age ? "; age$
NOTICE "Tu as "; age$; " ans"
PROMPT "Tu es un garçon ou une fille ?"; sexe$
NOTICE "Je vais te chercher un garçon de "; age$
PROMPT "Quel est ton magasin préféré ? "; magasin$
PROMPT "Tu recherche une fille ou un garçon ? "; recherche$
SELECT CASE
CASE (recherche$="garçon")
goto [recherche]

CASE (recherche$=“fille”)
PROMPT "Tu veux qu’elle soit plus jeune, plus vielle, ou qu’il est le même age que toi (vielle,jeune,pareil)? "; agerecherche$
goto [recherche2]
end select

[fin]

SELECT CASE sexe$
CASE "fille"
goto [1]
CASE "garçon"
Goto [2]
End select
END

[age.jeune]
age = val(age$)
Prompt “De combien d’année ?”; année
année=age-année
Return

[age.pareil]
age = val(age$)
Prompt “De combien d’année ?”; année
année=age
Return

[age.vieux]
age = val(age$)
Prompt “De combien d’année ?”; année
année=age+année
Return

[1]

SELECT CASE recherche$
CASE "fille"
NOTICE "Tu es une fille qui recherche une fille, tu as "; age$ ;" ans et tu recherche une fille de "; année ;" ans "
CASE "garçon"
NOTICE "Tu es une fille qui recherche un garçon, tu as "; age$ ;" ans et tu recherche un garçon de "; année ;" ans"
END SELECT
end

[2]

SELECT CASE recherche$
CASE "fille"
NOTICE "Tu es un garçon qui recherche une fille, tu as "; age$ ;" ans et tu recherche une fille de "; année ;" ans"
CASE "garçon"
NOTICE "Tu es un garçon qui recherche un garçon, tu as "; age$ ;" ans et tu recherche un garçon de "; année ;" ans"
END SELECT
end

[Recherche]

PROMPT "Tu veux qu’il soit plus jeune, plus vieux, ou qu’il est le même age que toi (vieux,jeune,pareil)? "; agerecherche$
SELECT CASE
CASE (agerecherche$=“jeune”)
GOSUB [age.jeune]
CASE (agerecherche$=“pareil”)
GOSUB [age.pareil]
CASE (agerecherche$=“vieux”)
GOSUB [age.vieux]
End select

goto [fin]

[recherche2]

SELECT CASE agerecherche$
CASE "jeune"
GOSUB [age.jeune]
CASE "pareil"
GOSUB [age.pareil]
CASE "vielle"
GOSUB [age.vieux]
End select

goto [fin]

PS : Je n’ai pas rajouté de gardes fous.

Si cela ne correspond pas à ce que tu veut faire, envoit moi les instruction écrite en français (type : Demander l’âge)

la premiere regle de programmation, c’est d’indenter et commenter ton code, la c’est un beau spagetti. ce qui en plus t’évite de faire des erreur d’imbrication de blocs etc…