Commande

Question

est ce possible que le programme que je crais choisisse entre plusieur bouton le quelle executera une certaine commande ???

D e vil

pcpunch · Answer

Il faudrait etre plus clair, car la "rien compris"!!!!

Si tu veu etre aidé, commence par prendre ton temp pour poser ta question, et surtout quelle soit compréhensible++

Devil17049 · Answer

D'accord désolé.
Donc je voudrait créé un jeu de hasard avec des boutons  environ une dizaine de boutons voir plus et sur ces dix boutons et seulemen 1seul des 10 a la commande (par exemple) 
Private Sub Command2_Click()
msgbox"BRAVO tu as gagner le jeu"
unload form1
End Sub

et les autres :
Private Sub Command8_Click()
msgbox"Dommage tu as perdu retente ta chance"
command8.visible = true
End Sub

voila c'est ce que j'aimerais faire (ne me piquer pas mon idée  :approve)  lol)mais si le bouton serait toujour le meme ce serait trop simple alrs comment faire pour que les commandes varissent partout pour que le bouton gagnant ne soit pas tout le temps le même voila merci beaucoup si vou pouvez me renseigner sinon dommage 

Devil

cs_ITALIA · Answer

Au depart utilise la ligne de commande :

dim Choix as integer ' en haut de ta form

Choix = (Int(Rnd * 10)) + 1
' 10 etant le nombre de boutons que tu as...ainsi le programme te choisi aléatoirement un nombre entre 1 et 10

Ensuite dans le code de tes boutons :

Private Sub Command1_Click()

i=1
If choix=1 then
  msgbox"BRAVO tu as gagner le jeu"
else
  msgbox"Perdu la réponse était le Bouton : " & Choix
end if
...
...
...
Private Sub Command2_Click()

i=2
If choix=1 then
  msgbox"BRAVO tu as gagner le jeu"
else
  msgbox"Perdu la réponse était le Bouton : " & Choix
end if

End Sub

It@li@

Devil17049 · Answer

Moi ca ne marche pas dsl ='(

Devil

pcpunch · Answer

Voila c'est un peu plus clair, et assez facile a faire si j'ai bien compris ta question ????

Il faut utiliser la propriété index des boutons de commandes et créer un groupe de bouton :
Nom Bouton1 de index 1 à 5 dans cette exemple

Au chargement on lance la procédure qui choisit un nb aléatoire de 1 à 5 qui sera le bouton gagnant!!

A chaque pression sur un bouton on verifie si c le gagnant :
-Si oui alors affiche c gaganer et demande si on rejoue!!!
-Si non rend non visible le bouton selectionné et attend le nv bouton selectionné

Voila ton code tous fais lol avec 5 boutons a toi de le modifié pour 10 boutons


Dim Gagnant As Integer

Private Sub Command1_Click(Index As Integer)
'Verification
If Index = Gagnant Then
    MsgBox "BRAVO tu as gagner le jeu"
        If MsgBox("Rejouer ?", vbYesNo) = vbYes Then
            For i = 1 To Command1.UBound
                Command1(i).Visible = True
            Next i
            Call ChoixAléatoireGagnant
        Else
            End
        End If
Else
    MsgBox "Dommage tu as perdu retente ta chance"
    Command1(Index).Visible = False
End If

End Sub

'Cette exemple utilise 5 bouton de commande
'Index de 1 à 5
Private Sub Form_Load()
Call ChoixAléatoireGagnant
End Sub

Sub ChoixAléatoireGagnant()
Randomize
Gagnant = Int(Rnd * 4) + 1
End Sub


++

Devil17049 · Answer

Bravo  pcpunch, tu es un boss je t'en remerci cela marche parfaitement !!  :-p 

Devil

capoueidiablo · Answer

Jveux pas mettre de l'huile sur le feu mais le code d'ITALIA fonctionne aussi, je pence que tu n'as juste pas bien compris comment ca marche  ;) 
++ tous le monde 
--Capoueidiablo--

cs_ITALIA · Answer

Pas Grave...............Capou ;) 

It@li@

Commande

8 réponses

Discussions similaires