Forum

Catégorie : Programmes
Forum : Les programmes des internautes
Vues : 2321
Réponses : 18
Type : discussion
Etat : réponses autorisées

MOTUS

EDG le 26/04/2016 à 11:45
Enfin je sort mon MOTUS:

Code
Motus:

EffEcr   Disp "ATTENTION","CE JEU NE COMPORTE QUE","DES MOTS DE","5 LETTRES
Pause
2->A:3->B:5->C:7->D:11->E:13->F:17->G:19->H:23->I:29->J:31->K:37->L:41->M:43->N:47->O:53->P:59->Q:61->R:67->S:71->T:73->U:79->V:83->W:89->X:97->Y:101->Z:LM2(1)->(théta)
Lbl 2
Menu("MOTUS","JOUER",0,"AJOUTER UN MOT",1,"QUITTER",9
Lbl9
Stop
Lbl 1
Input "MOT:",(théta)
LM2(1)+1->LM2(1
(théta)->LM2(2
LM2(1)->(théta)
LM2(2)->LM1((théta)
Goto 2
Lbl 0
entAléat(1,(théta)->LM2(3
LM1((théta))->LM2(4)
EffEcr
0->(théta)
Repeat LM2(4)=(théta)
Input "MOT:",(théta)
If LM2(4)(n'est pas égal à)(théta)
Goto 3
Lbl 4
End
EffEcr
Output(4,4,"GAGNER
Stop
Lbl 3
Disp "BONNES LETTRES:
If LM2(4)/A=ent(LM2(4)/A) et (théta)/A=ent((théta)/A
Disp "A
If LM2(4)/B=ent(LM2(4)/B) et (théta)/B=ent((théta)/B
Disp "B
If LM2(4)/C=ent(LM2(4)/C) et (théta)/C=ent((théta)/C
Disp "C
If LM2(4)/D=ent(LM2(4)/D) et (théta)/D=ent((théta)/D
Disp "D
If LM2(4)/E=ent(LM2(4)/E) et (théta)/E=ent((théta)/E
Disp "E
If LM2(4)/F=ent(LM2(4)/F) et (théta)/F=ent((théta)/F
Disp "F
If LM2(4)/G=ent(LM2(4)/G) et (théta)/G=ent((théta)/G
Disp "G
If LM2(4)/H=ent(LM2(4)/H) et (théta)/H=ent((théta)/H
Disp "H
If LM2(4)/I=ent(LM2(4)/I) et (théta)/I=ent((théta)/I
Disp "I
If LM2(4)/J=ent(LM2(4)/J) et (théta)/J=ent((théta)/J
Disp "J
If LM2(4)/K=ent(LM2(4)/K) et (théta)/K=ent((théta)/K
Disp "K
If LM2(4)/L=ent(LM2(4)/L) et (théta)/L=ent((théta)/L
Disp "L
If LM2(4)/M=ent(LM2(4)/M) et (théta)/M=ent((théta)/M
Disp "M
If LM2(4)/N=ent(LM2(4)/N) et (théta)/N=ent((théta)/N
Disp "N
If LM2(4)/O=ent(LM2(4)/O) et (théta)/O=ent((théta)/O
Disp "O
If LM2(4)/P=ent(LM2(4)/P) et (théta)/P=ent((théta)/P
Disp "P
If LM2(4)/Q=ent(LM2(4)/Q) et (théta)/Q=ent((théta)/Q
Disp "Q
If LM2(4)/R=ent(LM2(4)/R) et (théta)/R=ent((théta)/R
Disp "R
If LM2(4)/S=ent(LM2(4)/S) et (théta)/S=ent((théta)/S
Disp "S
If LM2(4)/T=ent(LM2(4)/T) et (théta)/T=ent((théta)/T
Disp "T
If LM2(4)/U=ent(LM2(4)/U) et (théta)/U=ent((théta)/U
Disp "U
If LM2(4)/V=ent(LM2(4)/V) et (théta)/V=ent((théta)/V
Disp "V
If LM2(4)/W=ent(LM2(4)/W) et (théta)/W=ent((théta)/W
Disp "W
If LM2(4)/X=ent(LM2(4)/X) et (théta)/X=ent((théta)/X
Disp "X
If LM2(4)/Y=ent(LM2(4)/Y) et (théta)/Y=ent((théta)/Y
Disp "Y
If LM2(4)/Z=ent(LM2(4)/Z) et (théta)/Z=ent((théta)/Z
Disp "Z
Goto 4


Pour pouvoir y jouer j'ai créé 2 liste nommé M1 et M2 qui apparaissent dans le code sou LM1 et LM2
pour mettre ces liste dans un programme, vous aller dans listes (seconde + stats) et vous choisissez votre liste.

Attention vous DEVEZ mettre 0 dans la première ligne des 2 listes

Si vous avez des problèmes dites le moi !!!
Paulo1026 le 26/04/2016 à 16:20
Ton programme à l'air cool mais je ne sais pas ce que c'est un motus c'est quoi le principe?
EDG le 29/04/2016 à 10:34
hé bien en fait, tu dois trouver un mot contenant le bon nombre de lettre (dans mon jeux 5 lettres)

Par exemple on te demande MOTUS
tu feras autant d'essais qu'il faudra avant de trouver le mot
Paulo1026 le 29/04/2016 à 15:25
ah oui cool mais ton programme arrive a créer des mots français tous seul?
EDG le 02/05/2016 à 11:12
non, c'est toi qui les rentres dans l'option "ajouter un mot"
Paulo1026 le 03/05/2016 à 16:09
Ah oui j'avais pas remarqué dsl moodforlove.gif
Ti82-Lexilus le 03/05/2016 à 22:59
On est pas loin de l'IAE ....
Paulo1026 le 04/05/2016 à 22:45
Tu en avait déjà fait une toi non?
Ti82-Lexilus le 05/05/2016 à 10:34
Oui mais j'ai eu un RAM cleared peu de temps avant que je poste la derniere partie ....
Paulo1026 le 05/05/2016 à 12:25
Ah dommage, et tu l'as jamais refait?
Ti82-Lexilus le 05/05/2016 à 23:26
Non car j'avais plus trop le temps et du coup je l'ai oublier ....
EDG le 09/05/2016 à 13:13
non pas besoin de l'IAE
hellknight71 le 24/05/2016 à 17:00
Ce jeu a l'air génial bigmouth.gif
Programme le 21/10/2016 à 20:13
Que signifie LM tout seul ?
ProgrammeTI le 25/10/2016 à 10:07
J'ai un problème avec la fonction LM2( et LM1( , je ne les trouve pas et quand je tape directement les lettres et les chiffres, la calculatrice me met erreur syntaxe. Aidez moi SVP!
Ti82 le 05/11/2016 à 14:59
Ce programme ne peut fonctionner. En effet, il est fait de telle sorte que le mot à chercher sera toujours le dernier ajouter dans la fonction "Ajouter un mot" du menu, le valeur de ce mot étant assimiler à la variable (thêta). Si qqun pouvait modifier ce détail, ce serait super.
EDG le 12/12/2016 à 13:07
LM1 et LM2 sont précisés sous mon programme, ce sont 2 listes créé, M1 et M2

Ce jeu marche très bien, et moi je n'avais pas que le dernier mot ajouté.
Ti82-Lexilus le 13/12/2016 à 08:34
Ce ne serais pas plus simple et plus cours si tu utilisais une Chaine ???
Car 26 if a recopier crazy.gif ahh.gif
Et tu est sur que l'utilisateur saisi des lettres ?
EDG le 19/01/2017 à 21:35
effectivement, il manquait certains éléments

Pour les chaines, je te laisse le faire