Discussion :

[Adakhum]

Bonjour,

Comme j'avais prédis mon retour ... j'ai regarder la FAQ et j'ai résolu déjà pas mal de souci (très bien faite au passage!) bref !

Mon problème est assez simple je pense : je souhaiterais qu'un Label situé dans une 2ème fenêtre se calcule en temps réel (si possible).

Je détaille :

Dans ma fenêtre de mon Main j'ai deux Textbox donc deux variables : A et B.
Dans ma 2ème fenêtre j'ai un Label (C) qui dépend de A et B ... mais le calcul ne se fait pas en temps réel, il se fait avec les valeurs par défaut de A et B au démarrage et après c'est figé. ... même si je change A et B et je ferme et ré-ouvre la fenetre secondaire.

Voici ma portion de code dans mon Main :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Public Sub VarA_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles VarA.TextChanged
        Loads_Result.LBL_C.Text = (Math.PI * (VarA - 2 * VarB) ^ 2) / 4     'La 2ème fenetre s'appelle "Loads_Result
    End Sub
 
    Public Sub VarB_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles VarB.TextChanged
        Loads_Result.LBL_C.Text = (Math.PI * (VarA - 2 * VarB) ^ 2 )/ 4
    End Sub

Et celle de mon secondaire :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Public Sub Loads_Result_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
         Calcul_coeff()    'appelle de la sub
     End Sub
 
    ' --- Calcul de C ---
    Public Sub Calcul_coeff()
         LBL_C.Text = Format((Math.PI * (TSP.VarA - 2 * TSP.VarB) ^ 2) / 4, ("0.00"))    ' calcul quand la fenetre s'ouvre
    End sub

J'ai essayé de rendre la chose la plus claire possible j'espère que c'est le cas, merci d'avance pour vos réponses !

[shayw]

Bonjour

mais le calcul ne se fait pas en temps réel, il se fait avec les valeurs par défaut de A et B au démarrage et après c'est figé

avec quelles valeurs de A et B veux tu utiliser?
sers toi tu my.settings
http://msdn.microsoft.com/en-us/library/saa62613.aspx

[Adakhum]

Ben A et B sont des variables donc des valeurs comprises entre 0 et l'infini ..enfin un 'petit' infini ^^
C'est l'opérateur qui la met, mais le Label (C) ne change pas sa valeur (alors qu'il le devrait)

Je regarde les propriétés de mysettings, merci

[rv26t]

Bonjour,

utilise un délégué Action


la portion de code dans ton Main :
La déclaration du délégué dans ta classe main

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

    Private CalculCoef As Action(Of Integer, Integer)

portion de code à placer dans ton load du main

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
        VarA.Text = 0
        VarB.Text = 0
        Dim f As Loads_Result = New Loads_Result
        CalculCoef = AddressOf f.Calcul_coeff
        f.Show()

La gestion des saisies et le passage d'info (dans le main)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
    Private Sub VarB_TextChanged(sender As System.Object, e As System.EventArgs) Handles VarB.TextChanged
        If Not EnvoieAuCalcul() Then MessageBox.Show("A et B doivent être des nombres")
    End Sub
 
    Private Sub VarA_TextChanged(sender As System.Object, e As System.EventArgs) Handles VarA.TextChanged
        If Not EnvoieAuCalcul() Then MessageBox.Show("A et B doivent être des nombres")
    End Sub
 
    Function EnvoieAuCalcul() As Boolean
        Dim nombreA As Integer
        Dim nombreB As Integer
        If Integer.TryParse(VarA.Text, nombreA) AndAlso Integer.TryParse(VarB.Text, nombreB) Then
            CalculCoef(nombreA, nombreB)
            Return True
        End If
        Return False
    End Function

Dans ta fenêtre secondaire , calcul et affichage en direct.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
    ' --- Calcul de C ---
    Public Sub Calcul_coeff(a As Integer, b As Integer)
        Label1.Text = Format((Math.PI * (a - 2 * b) ^ 2) / 4, ("0.00"))
    End Sub

Place tes fenêtres côte à côte pour voir.

[Adakhum]

Merci beaucoup de t'être donné la peine de tapé tout ce code !

Je vois mieux la chose, je ne savais pas comment appeler une méthode d'une autre classe et c'est un peu ce qu'on fait là il me semble ?!

J'ai mit tout le code et j'ai une erreur dès le début (j'ai mit un point d'arrêt), il n'est pas content quand il arrive à :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Dim f As Loads_Result = New Loads_Result
        CalculCoef = AddressOf f.Calcul_coeff
        f.Show()

au début du main, alors je cherche d'où ça peut venir ..
En fait il m'affiche direct ta phrase dans une ptite fenêtre "A et B doivent être des nombres" et c'est tout, erreur innerexception .. etc


EDIT : en fait j'ai mit un point d'arrêt, mais meme quand je met en commentaire ce truc ça fait l'erreur, du coup ..
InnerException: System.NullReferenceException
Message="La référence d'objet n'est pas définie à une instance d'un objet."

[rv26t]

Il faut mettre le code ainsi (désolé) sinon l'appel du calcul est fait avant que l'instance n'existe à cause du textchanged

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
        Dim f As Loads_Result = New Loads_Result
        CalculCoef = AddressOf f.Calcul_coeff
        VarA.Text = 0
        VarB.Text = 0
        f.Show()

Pour le message d'erreur (c'était un exemple) il faut tester si l'on est pas dans le load (l'init) avec une variable boolean ou traiter les mauvaises saisies autrement. (je l'avais rajouté après pour exemple)
Autres solution, tu fais des AddHandler dynamique pour le textchanged sur les textBox après les affectations d'init des textbox VarA et VarB. (là je n'ai pas le temps, mais si cela t'intéresse je te montrerai)

Pour tester fait juste

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
    Private Sub VarB_TextChanged(sender As System.Object, e As System.EventArgs) Handles VarB.TextChanged
        EnvoieAuCalcul()
     End Sub
 
    Private Sub VarA_TextChanged(sender As System.Object, e As System.EventArgs) Handles VarA.TextChanged
        EnvoieAuCalcul() 
    End Sub