Tom's Guide > Forum > Programmation > afficher les lettre trouver (ex : pour le pendu)

afficher les lettre trouver (ex : pour le pendu)

Forum Programmation : afficher les lettre trouver (ex : pour le pendu)

TomsGuide.com : 800 000 inscrits répondent à toutes vos questions high-tech et informatique. Pour obtenir de l'aide, inscrivez-vous gratuitement !
Mot :    Pseudo :           
 

Bonjour, je vais etre bref, je programme un pendu et je cherche pour une programmation en vb, comment afficher directement la lettre trouvé dans un label en conservant les ancienne lettre trouvé.
Merci ca serai vraiment genial car ca fai deja plus de 2 jour que je cherche et je trouve pas.
Merci encore

Liens sponsorisés
Inscrivez-vous ou connectez-vous pour masquer ceci.

tu fais ça en VB6 ou en .net ?

Répondre à sylvain2

label1.caption = label1.caption +"lettretrouver"
tout simplement non ?

Répondre à Resurectin

non car ca doit changer la lettre d'un mot tout en conservant le mot . (noubliez pas que c un pendu)

exemple le mot est chien

_ _ _ _ _

je trouve le lettre i, donc je veux que le label se transforme en :

_ _ i _ _

je trouve la lettre n, donc je veux que le label se transforme en :

_ _ i _ n

vous avez compris ?

merci pour votre aide les gars (chui debutant)

Répondre à goldrazor

tu as ton mot exact et un label...

si la lettre tapée fait partie du mot exact :

1) repérer la ou les positions de la lettre à afficher
(par la fonction instr )
2) modifier les _ par la lettre

si je reprends ton exemple :

dim mot_a_trouver as string = "chien"
dim i as integer
i = -1
do while i <> 0
i = instr(i,mot_a_trouver,lettre_tapée,)
if i = 0 then
'lettre à afficher
label1.caption = lettre_tapée & mid(label1.caption,i+1)
elseif i > 1 then
label1.caption = left(label1.caption,i-1) & lettre_tapée & mid(label1.caption,i+1)
endif
loop

la boucle est là pour gérer le cas où tu as plusieurs lettres à afficher en même temps

tu n'as plus qu'à placer ce code dans le bon évenement (clic sur un bouton, etc...)

Répondre à sylvain2

Roh merci beaucoup sylvain.
longue vie a toi
+++

Répondre à goldrazor

sylvain accepte moi sur msn :
bogossedu06@hotmail.com

c pour te poser une question

Répondre à goldrazor

c'est fait depuis hier ;)

Répondre à sylvain2

Voici le code si quelqu'un peut m'aider, merci beaucoup
----------------------------------------------------------

Public mot As String
Public nbrl As Integer

Private Sub Command1_Click()
'déclaration des variables
Dim i As Integer
Dim essai As String
Dim lettre As String

'introduction des données
Label3.Caption = ""
aic = "0"
Text1 = ""
Text2 = ""
mot = InputBox("entrer le mot" )
nbrl = Len(mot)

For i = 1 To nbrl
Label3.Caption = Label3.Caption + "_ "
Next i

End Sub

Private Sub Command2_Click()
'introduction des données
If mot = "" Then
Command2 = False
MsgBox ("Entrer d'abord le mot avant de taper une lettre" )
Else
lettre = InputBox("entrer la lettre" )
aic = aic + 1
ind = 1

For i = 1 To nbrl
If Mid(mot, i, 1) = lettre Then
Text1 = Text1 + " " + lettre
Label3.Caption = Left(Label3.Caption, i - 1) & lettre & Mid(Label3.Caption, i + 1)
End If
Next i
End If

If ind = 1 Then
Text2 = Text2 + " " + lettre
End If

If Len(Text1) = Len(mot) * 2 Then
MsgBox ("Félicitation, le mot était : " + mot + " !" )
End If


End Sub

Répondre à goldrazor
Tom's Guide > Forum > Programmation > afficher les lettre trouver (ex : pour le pendu)
Aller à :

Il y a 1628 utilisateurs connus et inconnus. Pour voir la liste des connectés connus, cliquez ici.

Attention

Vous allez répondre sur un sujet resté inactif pendant plus de 6 mois.
Assurez-vous d'apporter des éléments nouveaux à la discussion avant de poursuivre.

Répondre Annuler
Liens