Mike Admin
Nombre de messages : 724 Age : 32 Localisation : Canada, Québec Montréal language de prog : LB, GM, C++, XHTML, CSS, PHP expérience en prog : 1 ans d'expérience Date d'inscription : 21/07/2005
| Sujet: Programme en just basic Jeu 21 Juil - 15:29 | |
| voila. Tiens je l'ai améliorer. ça s'en vient. - Code:
-
'ne pas dépassé 16 ans quand il te demande ton age car je ne l'ai pas encore fait Print "Aide pour le programm Conversation(vf).bas" Print "(apuyer sur enter pour passer la rubrique aide.)" Print "Conversation(vf).bas est un programme" Print "qui simule une conversation entre" Print "l'ordinateur et l'utilisateur de ce programme." Print "il n'est pas a promprement parlé utile," Print "il est même totalement inutile, mais" Print "Ça peut être amusant de faire la conversation" Print "à l'ordinateur en explorant toutes les variantes possible." Print "Toute les question seront posé par Yes/No ou Y/N car" Print "Car dans Oui et dans Non, il y a la lettre O, Alors si tu écrit Non" Print " C'est comme si tu avait écrit oui." Print "BONNE CONVERSATION ;-)" Print "(appui sur enter pour continuer)" Input ""; rien3$ cls [Start] Input "C'est quoi ton prénom?"; name$ input "C'est quoi ton nom de famille"; name2$ let allname$ = name$ + " " + name2$
print "Puis-je t'appeller "; name$ Input "Yes/No"; name3$ if instr("YESyesYes", name3$) then goto[name$]
Print "alors aime tu mieux ton que je t'appel par ton nom de fammille?" Input "Yes/No"; name4$ if instr("YESyesYes", name4$) then goto[MrMme] Print "sinon et bien peut-être ton nom au complet" Input "Yes/No"; name5$ if instr("YESyesYes", name5$) then goto[allname$]
[allname$] Print "" print "Content de te connaître, "; allname$ goto [suite]
[name$] Print "" print "Content de te connaître, "; name$ goto [suite]
[MrMme] Print "" Print "Est tu un Mr (0=monsieur) ou une Mme (1=Madame)" Input "0/1"; MrMme$ If instr("1", MrMme$) then [Mmelastname$] [lastname1$] Print "" print "Content de te connaître, Mr. "; name2$ goto [suite]
[Mmelastname$] Print "" Print "Content de te connaître, Mme "; name2$ [suite] Print "" Print "Moi c'est Conversation(vf).bas" print "Mais je change souvent de nom alors quelle importance." Print "Mon créateur s'appel" print "Mikael-Alexandre Pouliot" print "Et il avait 13 ans quand il ma programmé."
[age] Print "" Print "ne met pas au dessus de 16 ans car je ne l'ai pas" Print "encore fait. Aussi, sans espace après le ? et avec le ans svp)" Input "Et toi, Quel age as-tu?"; age$
If instr(" = 0 ans to 1 ans to 2 ans to 3 ans to 4 ans to 5 ans", age$) then goto [0t5] If instr(" = 6 ans to 7 ans to 8 ans to 9 ans to 10ans", age$) then goto [6to10] if instr(" = 11 ans", age$) then [11] if instr(" = 12 ans to 13 ans to 14 ans to 15 ans to 16 ans", age$) then goto [12to16] if instr(" = 17 ans to 18 ans to 19 ans to 20 ans to 21 ans 22 ans to 23 ans to 24 ans", age$) then [17to24] if instr(" = to 25 ans 26 ans to 27 ans to 28 ans to 29 ans to 30 ans", age$) then [25to30] [0t5] Print "" Print "alors soit c'est un quelqu'un d'autre qui écrit pour toi" print "soit tu me raconte des mensonge ;-)." Print "" Print "Alors toi, qui écrit que tu sois "; name$ Print "ou pas dit moi ton age réelle!" goto [age]
[6to10] Print "" Print "wow tu a vraiment "; age$ print "alors ça c'est un bel age. J'aimerais tellement" print "revenir là moi!" end
[11] Print "" Print "wow tu a vraiment "; age$ print "Tu est donc rendu sois en 5e sois en 6e années" Print "a moins que tu ais redoublé mais c'est pas grave" input "As-tu choisie dans quoi tu allais travailler (Y/N)"; travail25$ if instr("YESyesYes", travail25$) then goto [travailOui3] input "appui sur enter pour continuer"; rien2$
[TravailNon2] Print "" print "Alors il serait peut-être temps que tu y pense ;-)" goto [suite2]
[12to16] Print "" Print "wow tu a vraiment "; age$ print "Tu est donc rendu au secondaire." Print "a moins que tu ais redoublé mais c'est pas grave"
[12to16#2] Print "" input "As-tu choisie dans quoi tu allais travailler (Yes/No)"; travail$ if instr("YESyesYes", travail$) then goto [travailOui] input ""; rien4$
[TravailNon] Print "" print "Alors il serait peut-être temps que tu y pense ;-)" goto [suite2]
[travailOui3] [travailOui] Print "" Input "ah oui? Tu voudrais travaillé en quoi?"; travail$ print "tu voudrais vraiment travaillé en"; travail$ input "Yes/No"; travailPE$ If instr("NonoNO", travailPE$) then goto [12to16#2] if instr("YESyesYes", travailPE$) then goto [travailoui2] End [suite2] Print "" print "moi, comme tu la peut-être deviner, je voulais devenir" print "un bon program. Et j'ai peut-être réussie, mais peut-être pas" print "non plus. Puisque je suis le premier programme de mon créateur" Print "" Print "Bon et bien bye" end
[travailoui2] Print "" print "Ah et bien comme je suis un programme je sais pas trop c'est quoi" print "mais si toi tu veux faire ça alors ça doit être bien." Print "" print "Ou bien tu viens de dire une connerie pis c'est pas vraiment ce que tu veux faire." Print "" print "Alors est-ce vraiment ce que tu veux faire" input "Yes/No"; travail3$ if instr("YESyesYes", travail3$) then goto [suite2] goto [travailoui]
[17to24] Print "" Input "As-tu arrêter l'école? Y/N"; école$ if instr("YESyesYes", école$) then [ÉcoleOui]
[ÉcoleNon] Print "" Input "Donc tu as fini ton secondaire"; rien8$ Input "Tu est rendu ou dans tes études?"; rien7$
[ÉcoleOui] Input "Tu t'est rendu jusqu'où alors?"; rien6$
Dernière édition par le Lun 22 Aoû - 11:42, édité 3 fois | |
|
Mike Admin
Nombre de messages : 724 Age : 32 Localisation : Canada, Québec Montréal language de prog : LB, GM, C++, XHTML, CSS, PHP expérience en prog : 1 ans d'expérience Date d'inscription : 21/07/2005
| Sujet: Re: Programme en just basic Jeu 21 Juil - 15:33 | |
| N'hésiter pas a le télécherger. Just basic est gratuit. Il va vou permettre d'écirer et de lire des porgramme en Just basic.
ou aller sur ce site, mon program y sera pour une semaine. http://get.yourfile.net/rv62868.rar | |
|
Ghi102 Programmeur bavard
Nombre de messages : 111 Date d'inscription : 24/07/2005
| Sujet: Re: Programme en just basic Lun 22 Aoû - 11:40 | |
| Il a l'air mieux | |
|
Mike Admin
Nombre de messages : 724 Age : 32 Localisation : Canada, Québec Montréal language de prog : LB, GM, C++, XHTML, CSS, PHP expérience en prog : 1 ans d'expérience Date d'inscription : 21/07/2005
| Sujet: Re: Programme en just basic Lun 22 Aoû - 11:43 | |
| Qu'est-ce que tu veux dire??? | |
|
Ghi102 Programmeur bavard
Nombre de messages : 111 Date d'inscription : 24/07/2005
| Sujet: Re: Programme en just basic Lun 22 Aoû - 11:45 | |
| Sur le cbna tu as mis la première version. | |
|
Mike Admin
Nombre de messages : 724 Age : 32 Localisation : Canada, Québec Montréal language de prog : LB, GM, C++, XHTML, CSS, PHP expérience en prog : 1 ans d'expérience Date d'inscription : 21/07/2005
| Sujet: Re: Programme en just basic Lun 22 Aoû - 11:46 | |
| Oui, mais je l'ai laissé de côté. C'est un bon prog de départ, mais il devient très répétitif. | |
|
Contenu sponsorisé
| Sujet: Re: Programme en just basic | |
| |
|