Besoin d'un conseil à propos de Visual Basic Résolu

Question

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 !)

Configuration: Windows XP / Safari 535.11

Utilisateur anonyme · Answer

Bonjour,

Peux-tu identifier de façon plus explicite la provenance de :

X
B1
O1
N1
J1
U1
R1
Z

Lupin

Utilisateur anonyme · Answer

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

Utilisateur anonyme · Answer

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
...


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

Utilisateur anonyme · Answer

Bonjour,
Et bien un grand merci !
Avec tout ça, je devrais bien m'en sortir !

Bonne fin de journée

Besoin d'un conseil à propos de Visual Basic

4 réponses

Discussions similaires

Newsletters