Discussion :

[titus067]

bonjour a tous,

voila depuis peut , j'ai commencé a utiliser l'arduino, j'ai donc reussi a trouvé des tuto par ci par la pour l'utilise et avoir les donnée température et lumière sur le logiciel visual studio en utilisant visual basique tout fonctionne c'est super ^^

maintenant je souhaite faire évoluer un tout petit peut cela

j'ai la form1 qui et la page de connexion a l'arduino et qui affiche les donnée

j'ai la form2 qui affiche les donnée de la page 1 sans les outil de connexion a l'arduino ,

mais sur la form2 les donnée ne s'actualise que quand je clique avec la souris sur le label

si vous auriez la solution pour que les donnée de la form2 s'actualise sans avoir besoin de cliquer sur le label se serait au super , j'ai tenter plusieurs méthode trouver sur le net la fonction refresh et autre rien ne fonctionne ^^'

voici donc le tout

fom1


code form1

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
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
Public Class Form1  
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        arduino.PortName = ComboBox1.Text
        Try
            arduino.Open()
 
            Label5.Text = "conexion activer"
        Catch ex As Exception
            MsgBox("la porte n'est pas ouverte")
            If arduino.IsOpen = False Then
                MsgBox("la porte n'est pas ouverte")
            End If
        End Try
    End Sub
 
    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        Try
            Timer1.Enabled = True
 
        Catch ex As Exception
            MsgBox("faux")
            Label5.Text = "pas de conection"
 
        End Try
    End Sub
 
    Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
        Try
            TextBox1.Text = arduino.ReadExisting
            Dim photoresist As String
            photoresist = (TextBox1.Lines(0).ToString)
 
            Dim temperature As String
            temperature = (TextBox1.Lines(1).ToString)
 
            Label1.Text = temperature
            Label4.Text = photoresist
 
 
        Catch ex As Exception
 
        End Try
    End Sub
 
    Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
        Form2.Show()
        Me.Hide()
    End Sub
End Class

form2


code form2

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
Public Class Form2
    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
        Form1.Show()
        Me.Hide()
    End Sub
 
    Private Sub Label1_Click(sender As Object, e As EventArgs) Handles Label1.Click
        Dim text1 As String = My.Forms.Form1.Label1.Text
        Label1.Text = text1
    End Sub
 
    Private Sub Label2_Click(sender As Object, e As EventArgs) Handles Label2.Click
        Dim text1 As String = My.Forms.Form1.Label4.Text
        Label2.Text = text1
    End Sub
End Class

form2 actualiser en cliquant sur le label avec le pointeur souris


en vous remerciant par avance et je vous souhaite un agréable weekend ^^

[MABROUKI]

Bonjour

Un class static (shared) en vb.net c'est un module avec 2 props CLR publiques est le seul moyen pour gérer ce cas .
Son rôle est d'assurer la liaison entre les 2 Forms.
L'exemple de code utilise l'event TextChanged faute d'avoir Arduino sous la main.
code .vb du module:

Code :

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

1
2
3
4
5
6
7
8
 
Public Module ModArduino
 
    Public Property PhotoresistArdui As String
    Public Property TemperatureArdui As String
 
 
End Module

code .vb du Form1:

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
18
19
20
21
22
23
24
25
26
 
Public Class Form1
    Private Sub Form1_Load(sender As Object, e As System.EventArgs) Handles Me.Load
        TextBoxPhotoResist.Text = "803 LUX"
        TextBoxTemperature.Text = "27 °C"
    End Sub
    Private Sub Button4_Click(sender As System.Object, e As System.EventArgs) Handles Button4.Click
        My.Forms.Form2.Show()
        Me.Hide()
 
 
 
    End Sub
 
 
    Private Sub TextBoxPhotoResist_TextChanged(sender As System.Object, e As System.EventArgs) Handles TextBoxPhotoResist.TextChanged
        PhotoresistArdui = TextBoxPhotoResist.Text
        Label4.Text = PhotoresistArdui
    End Sub
 
    Private Sub TextBoxTemperature_TextChanged(sender As System.Object, e As System.EventArgs) Handles TextBoxTemperature.TextChanged
        TemperatureArdui = TextBoxTemperature.Text
        Label1.Text = TemperatureArdui
 
    End Sub
End Class

code .vb du Form2:

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
 
Public Class Form2
 
    Private Sub Form2_Load(sender As Object, e As System.EventArgs) Handles Me.Load
        Label1.Text = PhotoresistArdui
        Label2.Text = TemperatureArdui
    End Sub
 
    Private Sub Button3_Click(sender As System.Object, e As System.EventArgs) Handles Button3.Click
        My.Forms.Form1.Show()
        Me.Close()
 
 
    End Sub
 
 
End Class

bon code...

[titus06]

merci pour le partage j'avais tenter avec la fonction public sans résultat je vais regarder cela de plus pret avec le partage de ton code,

sur un autre forum l'on m'a aussi conseiller d’étudier le cour plasserre sur ce forum je vais donc faire cela est etudier pour voir si j'arrive a faire avancer ce projet comme je le souhaite ^^

je te remercie grandement pour le partage du code , je te souhaite une tres bonne semaine et une tres bonne continuation,