Sujet Précédent Sujet Suivant

Jeu de lettre

kanabinch Messages postés 69 Date d'inscription mardi 1 février 2005 Statut Membre Dernière intervention 27 juin 2009 - 20 févr. 2006 à 15:38
kanabinch Messages postés 69 Date d'inscription mardi 1 février 2005 Statut Membre Dernière intervention 27 juin 2009 - 20 févr. 2006 à 17:51

Voilà j'ai deux boutons : un consonne et l'autre voyelle.
Et 9 autres boutons où l'on verra afficher les lettres demandées en cliquant sur l'un des deux.
(Donc quand je veux une voyelle, une voyelle apparaîtra dans le premier bouton, une consonne : une consonne dans le second...)
(Si j'utilise des boutons (9) c'est parce que par la suite je devrait cliquer dessus pour trouver des mots dans des textbox(9))
En fait mon problème c'est que quand je clique sur voyelle, une voyelle s'affiche dans la première case mais lorsque je reclique dessus la voyelle change mais dans la même case.

PS : consonnes : btconsonne
voyelles : btvoyel
les 9 boutons : btletr

aide : Label1.caption = Mid$("AEIOUY", Int(Rnd * 6) + 1, 1)

Merci

A voir également:

Resolveur motus
Compteur de lettre - Forum C / C++ / C++.NET
Créer jeu tetris - Forum Visual Basic 6
Compteur de lettres et mots ✓ - Forum Delphi / Pascal
21600 en lettre - Forum Visual Basic 6
Lettre au hasard - Forum Java

6 réponses

Réponse 1 / 6

crogiez Messages postés 86 Date d'inscription lundi 8 décembre 2003 Statut Membre Dernière intervention 27 décembre 2011
20 févr. 2006 à 15:55

il te faut un compteur de "case_ remplie" de 0 à 9

http://crogiez.free.fr

Réponse 2 / 6

econs Messages postés 4030 Date d'inscription mardi 13 mai 2003 Statut Membre Dernière intervention 23 décembre 2008 24
20 févr. 2006 à 15:55

Je me suis permis de modifier ta chaine de voyelles. En l'état, tu aurais eu autant de chances d'avoir un Y qu'un E.

Dur dur de faire des mots dans ces conditions. Donc dans mon code
ci-dessous, j'ai pondéré chaque lettre, et le Y deviendra moins
probable que le A, le E, ... (A faire également avec les consonnes,
sinon tu obtiendras trop de X, K, W, Q, ...)

Si btletr est un groupe de boutons (en VB6), çà donne ceci :

Dim NB As Long

Private Sub btvoyel_Click()

btletr(NB).Caption = Mid$("AAAAAEEEEEEIIIIOOOOUUUYY", Int(Rnd * 24) + 1, 1)

NB = NB + 1

End Sub

Manu

Réponse 3 / 6

kanabinch Messages postés 69 Date d'inscription mardi 1 février 2005 Statut Membre Dernière intervention 27 juin 2009
20 févr. 2006 à 17:50

merci beaucoup.

Réponse 4 / 6

kanabinch Messages postés 69 Date d'inscription mardi 1 février 2005 Statut Membre Dernière intervention 27 juin 2009
20 févr. 2006 à 17:50

merci beaucoup.

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question

Réponse 5 / 6

kanabinch Messages postés 69 Date d'inscription mardi 1 février 2005 Statut Membre Dernière intervention 27 juin 2009
20 févr. 2006 à 17:50

merci beaucoup.

Réponse 6 / 6

kanabinch Messages postés 69 Date d'inscription mardi 1 février 2005 Statut Membre Dernière intervention 27 juin 2009
20 févr. 2006 à 17:51

merci beaucoup.

Discussions similaires

Générateur de regles de jeu...

lettre aléatoire

Générateur de chiffres et des lettres

lettre de motivation pour developpeur java debutant

jeu solitaire avec carte