Jeux trouver le mot (un peu genre motus!!!)

Soyez le premier à donner votre avis sur cette source.

Vue 6 921 fois - Téléchargée 701 fois

Description

Slt, me suis fait un petit jeu ou l'on doit trouver un mot de 6 lettres

Il faut trouver 5 mots en moin de 5mn

A chaque proposition :
- Si la lettre est bien placée alors elle s'inscrit sur fond bleue, si elle est mal placée sur fond rouge.
- Si elle n'est pas dans le mot alors fond blanc

On a 6 essai pour trouver le mot, sinon ca ajoute un mot de plus a trouver!!!

En fait ca ressememble un peu a Motus!!! Mais c'est loin d'étre aussi bien fait lol

Mais c'est juste pour le fun lol

Ps: Je sais que l'interface graphique est a chier!!! lol j'ai tj etait nul pour ca et c pas aujourdhui que ca changera lol!!!!!!!

Source / Exemple :


In the Zip
Int the Screenshoot

Codes Sources

A voir également

Ajouter un commentaire

Commentaires

Messages postés
288
Date d'inscription
dimanche 1 septembre 2002
Statut
Membre
Dernière intervention
13 juin 2008

Bonjour,

Finalement avec lma version 5.0, ça marche très bien mais j'ai encore une question, si au bout des 5 min de jeu, on a pa strouvé tous le smots, que se passet-il?, est-ce quie l ejeu se bloque,

qqun peut-il me dire ce qu'il faut faire?

Merci d'avance.
Messages postés
288
Date d'inscription
dimanche 1 septembre 2002
Statut
Membre
Dernière intervention
13 juin 2008

Pour ne pas encombrer la source, voici mon adresse email: fa029977@skynet.be. On pourra communiquer plus facilement je pense.

Merci et @+
Messages postés
288
Date d'inscription
dimanche 1 septembre 2002
Statut
Membre
Dernière intervention
13 juin 2008

J'ai reçu un mail mais ton message ne m'est pas parvenu

Merci de mele renvoyer avec la solution
Messages postés
288
Date d'inscription
dimanche 1 septembre 2002
Statut
Membre
Dernière intervention
13 juin 2008

Bonjour,

La première erreur est dans cette procédure suivante:

Private Sub nvpartie_Click()
Mn = 5
Sc = 59
Mn = Format(Mn, "00")
Sc = Format(Sc, "00")
Label5 = "6"
Label4 = 5
Pb.Min = 0
Pb.Max = 30
Pb.Value = 0
Timer1.Enabled = True
Text1.Enabled = True
Call Nv_mot
End Sub

Pb.Min = 0

Pour le reste, je nne sais pas. merci et @+
Messages postés
1247
Date d'inscription
mardi 7 mai 2002
Statut
Membre
Dernière intervention
18 février 2019
3
Sur quelle ligne de code se produit l'erreur?????????????
Afficher les 8 commentaires

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.