Jeu motus avec dictionnaire
Soyez le premier à donner votre avis sur cette source.
Vue 28 272 fois - Téléchargée 2 290 fois
Description
Le jeu motus que tous le monde connait.
on peut paramétrer :
-le temps de reflexion
-la recherche dans le dictionnaire
-le nombre de lettre
-le nombre de joueur (jouer seul ou jouer a 2)
-le son (avec ou sans son)
(ouvrir le fichier MotusTest.vbg pour tester)
et maintenant a vous de jouer!
je m'excuse pour la qualité des fichiers wav enfait c'est moi les a enregistrer par mon orgue (et oui je fait un peu de musique).
on peut paramétrer :
-le temps de reflexion
-la recherche dans le dictionnaire
-le nombre de lettre
-le nombre de joueur (jouer seul ou jouer a 2)
-le son (avec ou sans son)
(ouvrir le fichier MotusTest.vbg pour tester)
et maintenant a vous de jouer!
je m'excuse pour la qualité des fichiers wav enfait c'est moi les a enregistrer par mon orgue (et oui je fait un peu de musique).
Codes Sources
- ..
- BienPlace.wav
- DICO6.TXT
- DICO7.TXT
- Form1.frm
- Form1.frx
- Form1.log
- frmApropos.frm
- frmApropos.frx
- frmLireMot_a_Deviner.frm
- frmParametre.frm
- frmParametre.frx
- GAGNER.WAV
- Globale.bas
- INTRO.WAV
- Lettre.ctl
- malPlace.wav
- motInexistant.wav
- Motus.vbp
- Motus.vbw
- MotusTest.vbg
- MSSCCPRJ.SCC
- PERDU.WAV
- Projet2.exp
- Projet2.lib
- Projet2.oca
- Projet2.ocx
- Projet2.vbp
- Projet2.vbw
- Registre.bas
- RetourLigne.wav
- Rien.wav
- TempEcoule.WAV
A voir également
- Motus jouer
- Jouer a motus - Meilleures réponses
- Jouer motus - Meilleures réponses
- Jouer a motus - Guide
- Visual Basic / VB.NET : Motus (jeu de lettres) - CodeS SourceS - Guide
- Générateur de carte a jouer aléatoire - Guide
- Jeu motus python - Guide
- Motus en c - Guide
super bien fait
juste un petit souci, si une lettre est unique dans le mot a touver et qu'on l'utilise plusieurs fois à un mauvais enmplacement dans le mot proposé,elle est signalée en vert à chaque fois. pour éviter ca je me suis permis de modifier VerifierMotEntrer ainsi:
Attende_un_peu
'dans un premier temps j'enleve des lettres à trouver celles qui sont bien placées
lettresrestantes = Right(Mot_a_deviner, Nombre_lettre - 1)
For i = 1 To Nombre_lettre - 1
If Mid(Mot_a_deviner, i + 1, 1) = Lettre(OccurenceLettre(LigneEnCours, i)).Lettre Then
poslettre = InStr(lettresrestantes, Lettre(OccurenceLettre(LigneEnCours, i)).Lettre)
lettresrestantes = Left(lettresrestantes, poslettre - 1) & Right(lettresrestantes, Len(lettresrestantes) - poslettre)
End If
Next i
.../...
Else
IsGagner = False
'puis j'enleve les lettres mal placées de la liste des lettres restant a trouver
For j = 1 To Nombre_lettre - 1
'If j <> i And Mid(Mot_a_deviner, j + 1, 1) = Lettre(OccurenceLettre(LigneEnCours, i)).Lettre And Mid(Mot_a_deviner, j + 1, 1) <> Lettre(OccurenceLettre(LigneEnCours, j)).Lettre Then
poslettre = InStr(lettresrestantes, Lettre(OccurenceLettre(LigneEnCours, i)).Lettre)
If poslettre > 0 Then
lettresrestantes = Left(lettresrestantes, poslettre - 1) & Right(lettresrestantes, Len(lettresrestantes) - poslettre)
Lettre(OccurenceLettre(LigneEnCours, i)).EtatLettre = Lettre_MalPlace
LireSon "malplace.wav"
ainsi si le mot a trouver est "complet" et que je propose "chemise" un seul e sera en vert
sinon, c'est si bien fait que l'on peut passer a neuf lettres sans aucun souci (hormis qu'il faut se faire le dico ;))
super bien fait
juste un petit souci, si une lettre est unique dans le mot a touver et qu'on l'utilise plusieurs fois à un mauvais enmplacement dans le mot proposé,elle est signalée en vert à chaque fois. pour éviter ca je me suis permis de modifier VerifierMotEntrer ainsi:
Attende_un_peu
'dans un premier temps j'enleve des lettres à trouver celles qui sont bien placées
lettresrestantes = Right(Mot_a_deviner, Nombre_lettre - 1)
For i = 1 To Nombre_lettre - 1
If Mid(Mot_a_deviner, i + 1, 1) = Lettre(OccurenceLettre(LigneEnCours, i)).Lettre Then
poslettre = InStr(lettresrestantes, Lettre(OccurenceLettre(LigneEnCours, i)).Lettre)
lettresrestantes = Left(lettresrestantes, poslettre - 1) & Right(lettresrestantes, Len(lettresrestantes) - poslettre)
End If
Next i
.../...
Else
IsGagner = False
'puis j'enleve les lettres mal placées de la liste des lettres restant a trouver
For j = 1 To Nombre_lettre - 1
'If j <> i And Mid(Mot_a_deviner, j + 1, 1) = Lettre(OccurenceLettre(LigneEnCours, i)).Lettre And Mid(Mot_a_deviner, j + 1, 1) <> Lettre(OccurenceLettre(LigneEnCours, j)).Lettre Then
poslettre = InStr(lettresrestantes, Lettre(OccurenceLettre(LigneEnCours, i)).Lettre)
If poslettre > 0 Then
lettresrestantes = Left(lettresrestantes, poslettre - 1) & Right(lettresrestantes, Len(lettresrestantes) - poslettre)
Lettre(OccurenceLettre(LigneEnCours, i)).EtatLettre = Lettre_MalPlace
LireSon "malplace.wav"
ainsi si le mot a trouver est "complet" et que je propose "chemise" un seul e sera en vert
sinon, c'est si bien fait que l'on peut passer a neuf lettres sans aucun souci (hormis qu'il faut se faire le dico ;))
- Messages postés
-
338
- Date d'inscription
- mardi 28 janvier 2003
- Statut
- Membre
- Dernière intervention
- 4 novembre 2008
1je pense pas que ce soit une bonne idée d'obliger le joueur a confirmer son mot. Ca gache le jeu. Sinon le compare au jeu télévisé, si un joueur épelle mal le mot, ben c'est perdu. donc ici, si on écrit mal le mot, et bien, tant pis. C'est le jeu.
- Messages postés
-
338
- Date d'inscription
- mardi 28 janvier 2003
- Statut
- Membre
- Dernière intervention
- 4 novembre 2008
1enfait les lettres bien placée se colore bien en rouge et les lettres mal placée se colore en vert comme tu l'a vue sur la photo
pour le bouton entrer je croit que c mieu pour l'utilisateur de valider par une entrer parce que comme ca il aura la possibilité de rectifier le mot qu'il vient d'entrer
pour le demarrage automatique d'une nouvelle partie tu peut appuyer sur la touche F2 ca demarrera une nouvelle partie
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.