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