Bouton aléatoire

Signaler
Messages postés
3
Date d'inscription
dimanche 11 avril 2004
Statut
Membre
Dernière intervention
24 septembre 2006
-
Messages postés
3
Date d'inscription
dimanche 11 avril 2004
Statut
Membre
Dernière intervention
24 septembre 2006
-
Bonjours ,

J'essaye de rajouter dans mon code un autre command aléatoire sauve j'arrive pas a mettre le 3éme Command aléatoire et le nom de la command est CmdNbAleatoire

voisie le code :

En haut du programme
Public Function probabilités1() As Boolean
    Randomize Date + Timer
    If Rnd > 0.95 Then
    probabilités1 = True
    Else: probabilités1 = False
    End If
End Function
quand on clique sur la premier command

    If probabilités1() = True Then
    CmdAideSortie.Visible = True
    Else: CmdExit(11 * Rnd).Visible = True
    End If
merci d'avance

4 réponses

Messages postés
883
Date d'inscription
vendredi 3 novembre 2000
Statut
Membre
Dernière intervention
3 mars 2009
7
Mince j'ai rien compris mais alors la, rien du tout...
Je vais demander à ma soeur qui est interprète si elle comprends "J'essaye de rajouter dans mon code un autre command aléatoire sauve
j'arrive pas a mettre le 3éme Command aléatoire et le nom de la command
est CmdNbAleatoire"...

Et puis si tu veux qu'on te réponde, pose une question...

Julien.
Messages postés
3
Date d'inscription
dimanche 11 avril 2004
Statut
Membre
Dernière intervention
24 septembre 2006

comment je peux ajouter un autre command dans mon code ?
Messages postés
4030
Date d'inscription
mardi 13 mai 2003
Statut
Modérateur
Dernière intervention
23 décembre 2008
22
Salut,

Si tu disposes d'un premier Command1, dont la propriété Index vaut 0, alors en faisant Load Command1(1), tu crées une copie de Command1(0).

Voir "Groupe de contrôles" dans l'outil de recherche de VBFrance

Manu

--------------------------------------------------------------------------------------------
Avant de poster un message, n'oubliez pas de consulter le reglement.
Messages postés
3
Date d'inscription
dimanche 11 avril 2004
Statut
Membre
Dernière intervention
24 septembre 2006

le code complet
Dim ToucheCtrl As Boolean, ToucheA As Boolean, ToucheAlt As Boolean, Nb300 As Boolean

Public Function probabilités1() As Boolean
    Randomize Date + Timer
    If Rnd > 0.95 Then
    probabilités1 = True
    Else: probabilités1 = False
    End If
End Function

Private Sub CmdAideSortie_Click()
    Form3.Show
    Form3.OptAideSortie = True
End Sub

Private Sub CmdExit_MouseMove(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)
    CmdExit(0).Visible = False
    CmdExit(1).Visible = False
    CmdExit(2).Visible = False
    CmdExit(3).Visible = False
    CmdExit(4).Visible = False
    CmdExit(5).Visible = False
    CmdExit(6).Visible = False
    CmdExit(7).Visible = False
    CmdExit(8).Visible = False
    CmdExit(9).Visible = False
    CmdExit(10).Visible = False
    CmdExit(11).Visible = False
    If probabilités1() = True Then
    CmdAideSortie.Visible = True
    Else: CmdExit(11 * Rnd).Visible = True
    End If
End Sub

Private Sub CmdExit1_Click()
    CmdExit1.Visible = False
    CmdExit2.Visible = False
    CmdExit(0).Caption = "oui"
    CmdExit(1).Caption = "oui"
    CmdExit(2).Caption = "oui"
    CmdExit(3).Caption = "oui"
    CmdExit(4).Caption = "oui"
    CmdExit(5).Caption = "oui"
    CmdExit(6).Caption = "oui"
    CmdExit(7).Caption = "oui"
    CmdExit(8).Caption = "oui"
    CmdExit(9).Caption = "oui"
    CmdExit(10).Caption = "oui"
    CmdExit(11).Caption = "oui"
    If probabilités1() = True Then
    CmdAideSortie.Visible = True
    Else: CmdExit(11 * Rnd).Visible = True
    End If
End Sub

Private Sub CmdExit2_Click()
    CmdExit1.Visible = False
    CmdExit2.Visible = False
    CmdExit(0).Caption = "Non"
    CmdExit(1).Caption = "Non"
    CmdExit(2).Caption = "Non"
    CmdExit(3).Caption = "Non"
    CmdExit(4).Caption = "Non"
    CmdExit(5).Caption = "Non"
    CmdExit(6).Caption = "Non"
    CmdExit(7).Caption = "Non"
    CmdExit(8).Caption = "Non"
    CmdExit(9).Caption = "Non"
    CmdExit(10).Caption = "Non"
    CmdExit(11).Caption = "Non"
    If probabilités1() = True Then
    CmdAideSortie.Visible = True
    Else: CmdExit(11 * Rnd).Visible = True
    End If
End Sub

Private Sub CmdNbAleatoire_Click(Index As Integer)
    EtiNbAleatoire = Fix(Rnd * 202)
End Sub

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
    MinClavier.Enabled = True
    If KeyCode = 17 Then
    ToucheCtrl = True
    If ToucheAlt Then
    If ToucheA Then
    End If
    End If
    End If
    If KeyCode = 18 Then
    ToucheAlt = True
    If ToucheCtrl Then
    If ToucheA Then
    End If
    End If
    End If
    If KeyCode = 65 Then
    ToucheA = True
    If ToucheCtrl Then
    If ToucheAlt Then
    End
    End If
    End If
    End If
    If KeyCode = 51 Then
    If ToucheCtrl Then
    If ToucheAlt Then
    EtiNbAleatoire.Caption = 300
    End If
    End If
    End If
End Sub

Private Sub MinClavier_Timer()
    ToucheCtrl = False
    ToucheAlt = False
    ToucheA = False
End Sub
j'ai nommé CmdNbAleatoire le command1 et pour la fonction aléatoire le cmdexit et le cmdNbAleatoire ses pas la meme commande . Comment je peux le faire ?