Besoin d'un conseil à propos de Visual Basic
Résolu
Utilisateur anonyme
-
Utilisateur anonyme -
Utilisateur anonyme -
Bonjour,
J'utilise depuis peu Visual Basic 2010 express, et j'aimerais savoir si il est possible de faire en sorte que "quelque chose se passe" (je n'ai pas beaucoup de vocabulaire dans ce domaine) autrement qu'en cliquant sur le bouton où est le code de l'action désirée.
Je m'explique :
Si par exemple je dois appliquer ceci :
If X = 1 And B1 = 1 And O1 = 1 And N1 = 1 And J1 = 1 And U1 = 1 And R1 = 1 And Z < 10 Then
Label16.Text = "Gagné !"
End If
... à plusieurs boutons, pour qu'en cliquant sur un de ces boutons, "gagné !" s'affiche dans Label16, est-ce qu'il n'est pas plutôt possible de mettre ceci dans le code de Label16 en lui précisant que je veux que "Gagné !" s'applique au moment où toute les conditions sont rassemblée (A1 = 1, B1 = 1 etc...), et au moment ou on clique sur l'un des boutons.
Si j'ai bien compris, il faut modifier ceci :
Private Sub Label16_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label18.Click
mais je ne sais pas quoi mettre à la place....
Voila voila, j'espère avoir bien expliqué mon problème
Merci d'avance !
(Je suis débutant !)
J'utilise depuis peu Visual Basic 2010 express, et j'aimerais savoir si il est possible de faire en sorte que "quelque chose se passe" (je n'ai pas beaucoup de vocabulaire dans ce domaine) autrement qu'en cliquant sur le bouton où est le code de l'action désirée.
Je m'explique :
Si par exemple je dois appliquer ceci :
If X = 1 And B1 = 1 And O1 = 1 And N1 = 1 And J1 = 1 And U1 = 1 And R1 = 1 And Z < 10 Then
Label16.Text = "Gagné !"
End If
... à plusieurs boutons, pour qu'en cliquant sur un de ces boutons, "gagné !" s'affiche dans Label16, est-ce qu'il n'est pas plutôt possible de mettre ceci dans le code de Label16 en lui précisant que je veux que "Gagné !" s'applique au moment où toute les conditions sont rassemblée (A1 = 1, B1 = 1 etc...), et au moment ou on clique sur l'un des boutons.
Si j'ai bien compris, il faut modifier ceci :
Private Sub Label16_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label18.Click
mais je ne sais pas quoi mettre à la place....
Voila voila, j'espère avoir bien expliqué mon problème
Merci d'avance !
(Je suis débutant !)
A voir également:
- Besoin d'un conseil à propos de Visual Basic
- Visual basic - Télécharger - Langages
- Visual basic editor - Télécharger - Langages
- Visual petanque - Télécharger - Sport
- Microsoft 365 basic - Accueil - Microsoft Office
- Visual c++ 2019 - Guide
4 réponses
Bonjour,
Merci de m'avoir répondu !
Donc X provient de la fonction "Randomize" (X=int((un nombre)*rnd+1)
Randomize s'active par un clic sur "Button1"
Les variables B1, O1, N1, J1, U1, R1 sont égales à 1 lorsqu'on clique sur "Button2" pour C1, "Button3" pour O1" etc..., donc un bouton pour chacune de ces variables.
Ces variables sont égales à 0 lorsqu'on clique sur "Button20", elles ne peuvent pas avoir une autre valeur que 0 ou 1
Z est l'addition de toutes les variables de type (une lettre)1 (Z = B1 + O1 + N1 etc...)
qui est recalculée lors de chaque clic sur les boutons qui font que les fonctions (un nombre)1 = 1 (Donc Button2, Button3, etc...)
Z=0 lors d'un clic sur Button20
Voila voila
Merci de m'avoir répondu !
Donc X provient de la fonction "Randomize" (X=int((un nombre)*rnd+1)
Randomize s'active par un clic sur "Button1"
Les variables B1, O1, N1, J1, U1, R1 sont égales à 1 lorsqu'on clique sur "Button2" pour C1, "Button3" pour O1" etc..., donc un bouton pour chacune de ces variables.
Ces variables sont égales à 0 lorsqu'on clique sur "Button20", elles ne peuvent pas avoir une autre valeur que 0 ou 1
Z est l'addition de toutes les variables de type (une lettre)1 (Z = B1 + O1 + N1 etc...)
qui est recalculée lors de chaque clic sur les boutons qui font que les fonctions (un nombre)1 = 1 (Donc Button2, Button3, etc...)
Z=0 lors d'un clic sur Button20
Voila voila
Bonjour,
Voici une solution parmi tant d'autres, je ne les connais pas toutes :-)
Tu peux créer une propriété pour chacune des tes variables :
ex.:
ici j'ai identifier les variables précédés par ( z )
dans les formations, on suggère :
Private mX as int32
ou
Private _x as int32
ou
...
ensuite tu crée une propriété qui valide chacune des variables :
en pour terminer, sur chaque pression de bouton, ou d'évènement
particulier, tu ajoute l'instruction :
Es-ce clair pour toi ?
Cdt
Lupin
Voici une solution parmi tant d'autres, je ne les connais pas toutes :-)
Tu peux créer une propriété pour chacune des tes variables :
ex.:
ici j'ai identifier les variables précédés par ( z )
dans les formations, on suggère :
Private mX as int32
ou
Private _x as int32
ou
...
Private zX As Int32 Private zB1 As Int32 Private ReadOnly Property EstValideX() As Boolean Get Dim Reponse As Boolean = False If (Me.zX = 1) Then Reponse = True End If Return Reponse End Get End Property Private ReadOnly Property EstValideB1() As Boolean Get Dim Reponse As Boolean = False If (Me.zB1 = 1) Then Reponse = True End If Return Reponse End Get End Property
ensuite tu crée une propriété qui valide chacune des variables :
Private ReadOnly Property EstValide() As Boolean Get Dim Reponse As Boolean = False If (EstValideX And EstValideB1) Then Reponse = True End If Return Reponse End Get End Property
en pour terminer, sur chaque pression de bouton, ou d'évènement
particulier, tu ajoute l'instruction :
If (EstValide) then
Me.Label1.text = "Gagné"
End If
Es-ce clair pour toi ?
Cdt
Lupin
