DEVINER LE MOT ;; UN JEU AVEC TROIS NIVEAUX "FACILE // MOYEN // MASTER"

Commentaire de SDan le 11/12/2004 10:05:28

Bonjour,

Ton jeu à l'air intéressant mais néanmoins, j'ai un petit bug.  En effet, j'utilise la version 5.0 de Microsoft Visual Basic et quand je teste ton prog, je choisis le niveau puis je clique sur Appliquer puis sur Commencer et là, j'ai le message suivant :

Erreur de compilation

Procedure Sub ou Function non définie

et quand je clique sur OK, c'est dans Peivate Sub Choisi mot ()
tMots = Split(Mots, vbCrLf)

C'est Split qui pose un problème.

Par quoi puis-je le remplacer ou que faire?

Dommage car c'est un jeu comme ça que j'aimerais faire

Bonne chance pour tes exos et à bientôt;

Commentaire de CrazyMan19 le 11/12/2004 12:01:10

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

Commentaire de keke4483 le 11/12/2004 14:37:34

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.

@++