Deviner le mot ;; un jeu avec trois niveaux "facile // moyen // master"

Soyez le premier à donner votre avis sur cette source.

Vue 4 867 fois - Téléchargée 552 fois

Description

salut tt le monde voici un jeu sympa .
les régles du jeu sont trés simple, aprés que tu choisi ton niveau le prog va te donner un mot en desordre et toi tu doit le connaitre et l ecrire, si tu ne le connais pas tu peut le depasser ... bref le jeu n est pas assez complet et le code n est pas commenté desolé puisque je l as fait vite et je suis un peu occupé avec les études grrrr, je vais essayer plus tard de le commenter et le bien devloppé aller bon chance et surtt laissons vous commentaires et vos notes thx a +

Codes Sources

A voir également

Ajouter un commentaire

Commentaires

CrazyMan19
Messages postés
163
Date d'inscription
samedi 2 août 2003
Statut
Membre
Dernière intervention
4 novembre 2013
6
merci MasterHack
je vais le voir
mais tu m as pas dit ton avis sur le prog d une façon generale ?? :)
cs_MasterHack
Messages postés
586
Date d'inscription
jeudi 18 septembre 2003
Statut
Membre
Dernière intervention
13 février 2008
1
mots restants -1
c'est un bug à rectifier,Merci
keke4483
Messages postés
17
Date d'inscription
mercredi 13 octobre 2004
Statut
Membre
Dernière intervention
6 mars 2008

Bonjour à tous,
pour essayer de résoudre ton problème, il faut te dire que la fonction split("texte",argument) permet de transferer une chaine de caractere en un table de string. Le principe est le suivant la chaine est scanner et à chaque fois que le caractère argument est trouvé le morceaux du mot scanner auparavant est transmis dans une colonne de tableau.
Ex :
Dim strTableauMot() as string
mot = "Je fais un test"
strTableauMot = Split(mot," ")
'alors le tableau de string strTableauMot contiendra les 'infos suivantes :
'strTableauMot (0) <=> "Je"
'strTableauMot (1) <=> "fais"
'strTableauMot (2) <=> "un"
'strTableauMot (3) <=> "test"

Donc ce que je te suggère de faire est une boucle :
Private function Split() as string()
Dim intBoucle as integer
Dim tMots() as string
redim tMots(0)
For intBoucle = 1 to len(mot)
if Mid(mot,intBoucle,1) = vbCrLf) then
redim preserve tMots(ubound(tMots)+1)
else
tMots(ubound(tMots))=Mid(mot,intBoucle,1)
end if
next intBoucle
split=tMots
end function

Bon voila je sais pas si ca marche mais la logique c'est a peux près ca, le mieux c meme de passer en parametre le mot et son argument, mais comme g plus VB6 j'ai pas pu tester, désolé.

Je suis pas sur que le code marche directe apres un copier coller dans votre source, n'hésitez pas a poster vos correction.

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

re re,

Tout à fait d'accord avec toi mais malheureusement, je ne possède pas la verdion 6.
CrazyMan19
Messages postés
163
Date d'inscription
samedi 2 août 2003
Statut
Membre
Dernière intervention
4 novembre 2013
6
salut cher ami
1erment je te conseille d utiliser la 6eme V du VB pour bien explorer pas seulement mon prog mais tt les prog au VBfrance
2ement : 60 second ds le 1er niveau et faite pour les 10 mots parceque la plus long mot ds ce niveau ne déppasse pas 4 lettres, et non pas que 60sec est pour chaque mot. si c le cas tu ne perderas jamais :)
et merci

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.