VB8 Recuper un contenu xml.

**nasty** · 08/04/2010, 08h51

Bonjour

Essaye de faire un code dans le genre :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
Do While (reader.Read())
  Select case reader.Name
      case "led0"
            if reader.Value = 1 then
                  led0.BackColor = Color.Green
            else
                  led0.BackColor = Color.Red
            End If
            Exit Select
      case "led1"
.......
  End Select

Nasty

**jboss38** · 08/04/2010, 09h28

Voila la fininaisation du code timer1:

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
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
 Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
      Timer1.Enabled = False
      Try
         Const URLString As String = "http://relayboard/status.xml"
         Dim reader As XmlTextReader = New XmlTextReader(URLString)
         If reader IsNot Nothing Then
            Do While (reader.Read())
               ' Traiter les données ici.
               If reader.Name = ("led0") Then
                  reader.Read()
                  If reader.Value = 1 Then
                     Label1.BackColor = Color.Green
                  Else
                     Label1.BackColor = Color.Red
                  End If
                  Exit Do
               End If
            Loop
         End If
      Catch ex As Exception
      End Try
      Try
         Const URLString As String = "http://relayboard/status.xml"
         Dim reader As XmlTextReader = New XmlTextReader(URLString)
         If reader IsNot Nothing Then
            Do While (reader.Read())
               ' Traiter les données ici.
               If reader.Name = ("led1") Then
                  reader.Read()
                  If reader.Value = 1 Then
                     Label2.BackColor = Color.Green
                  Else
                     Label2.BackColor = Color.Red
                  End If
                  Exit Do
               End If
            Loop
         End If
      Catch ex As Exception
      End Try
      Try
         Const URLString As String = "http://relayboard/status.xml"
         Dim reader As XmlTextReader = New XmlTextReader(URLString)
         If reader IsNot Nothing Then
            Do While (reader.Read())
               ' Traiter les données ici.
               If reader.Name = ("led2") Then
                  reader.Read()
                  If reader.Value = 1 Then
                     Label3.BackColor = Color.Green
                  Else
                     Label3.BackColor = Color.Red
                  End If
                  Exit Do
               End If
            Loop
         End If
      Catch ex As Exception
      End Try
      Try
         Const URLString As String = "http://relayboard/status.xml"
         Dim reader As XmlTextReader = New XmlTextReader(URLString)
         If reader IsNot Nothing Then
            Do While (reader.Read())
               ' Traiter les données ici.
               If reader.Name = ("led3") Then
                  reader.Read()
                  If reader.Value = 1 Then
                     Label5.BackColor = Color.Green
                  Else
                     Label5.BackColor = Color.Red
                  End If
                  Exit Do
               End If
            Loop
         End If
      Catch ex As Exception
      End Try
      Try
         Const URLString As String = "http://relayboard/status.xml"
         Dim reader As XmlTextReader = New XmlTextReader(URLString)
         If reader IsNot Nothing Then
            Do While (reader.Read())
               ' Traiter les données ici.
               If reader.Name = ("led4") Then
                  reader.Read()
                  If reader.Value = 1 Then
                     Label6.BackColor = Color.Green
                  Else
                     Label6.BackColor = Color.Red
                  End If
                  Exit Do
               End If
            Loop
         End If
      Catch ex As Exception
      End Try
      Try
         Const URLString As String = "http://relayboard/status.xml"
         Dim reader As XmlTextReader = New XmlTextReader(URLString)
         If reader IsNot Nothing Then
            Do While (reader.Read())
               ' Traiter les données ici.
               If reader.Name = ("led5") Then
                  reader.Read()
                  If reader.Value = 1 Then
                     Label7.BackColor = Color.Green
                  Else
                     Label7.BackColor = Color.Red
                  End If
                  Exit Do
               End If
            Loop
         End If
      Catch ex As Exception
      End Try
      Try
         Const URLString As String = "http://relayboard/status.xml"
         Dim reader As XmlTextReader = New XmlTextReader(URLString)
         If reader IsNot Nothing Then
            Do While (reader.Read())
               ' Traiter les données ici.
               If reader.Name = ("led6") Then
                  reader.Read()
                  If reader.Value = 1 Then
                     Label8.BackColor = Color.Green
                  Else
                     Label8.BackColor = Color.Red
                  End If
                  Exit Do
               End If
            Loop
         End If
      Catch ex As Exception
      End Try
      Try
         Const URLString As String = "http://relayboard/status.xml"
         Dim reader As XmlTextReader = New XmlTextReader(URLString)
         If reader IsNot Nothing Then
            Do While (reader.Read())
               ' Traiter les données ici.
               If reader.Name = ("led7") Then
                  reader.Read()
                  If reader.Value = 1 Then
                     Label9.BackColor = Color.Green
                  Else
                     Label9.BackColor = Color.Red
                  End If
                  Exit Do
               End If
            Loop
         End If
      Catch ex As Exception
      End Try
      'Timer1.Enabled = True
   End Sub

J'ai trouve une astuce pour ne pas que sa lag...
Pour chaque bouton j'ai fais sa:

Code :

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

1
2
3
4
5
6
7
8
Private Sub Button11_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button11.Click
      Dim MonNav As New WebBrowser
      MonNav.Navigate("http://relayboard/preset.htm?led4=1")
      If Timer1.Enabled = True Then
         Timer1.Enabled = False
      End If
      Timer1.Enabled = True
   End Sub

Mais la je vien de voir la proposition de Nasty et je vais essayer Merci Nasty

**jboss38** · 08/04/2010, 09h45

Envoyé par nasty

Bonjour

Essaye de faire un code dans le genre :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
Do While (reader.Read())
  Select case reader.Name
      case "led0"
            if reader.Value = 1 then
                  led0.BackColor = Color.Green
            else
                  led0.BackColor = Color.Red
            End If
            Exit Select
      case "led1"
.......
  End Select

Nasty

J'ai fais sa mais sa ne marche pas...

**nasty** · 08/04/2010, 10h09

Tu obtiens quoi comme erreur?

tomny · 08/04/2010, 10h10

Envoyé par jboss38

J'ai fais sa mais sa ne marche pas...

En quoi cela ne fonctionne t il pas ??
Copie nous ton code que l'on puisse voir ou il y aurait un problème ...

**jboss38** · 08/04/2010, 10h20

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
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
   Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
      Timer1.Enabled = False
      Try
         Const URLString As String = "http://relayboard/status.xml"
         Dim reader As XmlTextReader = New XmlTextReader(URLString)
         If reader IsNot Nothing Then
            Do While (reader.Read())
               ' Traiter les données ici.
               Select reader.Name
                  Case "led0"
                     If reader.Value = 1 Then
                        Label1.BackColor = Color.Green
                     Else
                        Label1.BackColor = Color.Red
                     End If
               End Select
               Exit Do
            Loop
         End If
      Catch ex As Exception
      End Try
      Try
         Const URLString As String = "http://relayboard/status.xml"
         Dim reader As XmlTextReader = New XmlTextReader(URLString)
         If reader IsNot Nothing Then
            Do While (reader.Read())
               ' Traiter les données ici.
               Select Case reader.Name
                  Case "led1"
                     If reader.Value = 1 Then
                        Label2.BackColor = Color.Green
                     Else
                        Label2.BackColor = Color.Red
                     End If
               End Select
               Exit Do
            Loop
         End If
      Catch ex As Exception
      End Try
      Try
         Const URLString As String = "http://relayboard/status.xml"
         Dim reader As XmlTextReader = New XmlTextReader(URLString)
         If reader IsNot Nothing Then
            Do While (reader.Read())
               ' Traiter les données ici.
               Select Case reader.Name
                  Case "led2"
                     If reader.Value = 1 Then
                        Label3.BackColor = Color.Green
                     Else
                        Label3.BackColor = Color.Red
                     End If
               End Select
               Exit Do
            Loop
         End If
      Catch ex As Exception
      End Try
      Try
         Const URLString As String = "http://relayboard/status.xml"
         Dim reader As XmlTextReader = New XmlTextReader(URLString)
         If reader IsNot Nothing Then
            Do While (reader.Read())
               ' Traiter les données ici.
               Select Case reader.Name
                  Case "led3"
                     If reader.Value = 1 Then
                        Label5.BackColor = Color.Green
                     Else
                        Label5.BackColor = Color.Red
                     End If
               End Select
               Exit Do
            Loop
         End If
      Catch ex As Exception
      End Try
      Try
         Const URLString As String = "http://relayboard/status.xml"
         Dim reader As XmlTextReader = New XmlTextReader(URLString)
         If reader IsNot Nothing Then
            Do While (reader.Read())
               ' Traiter les données ici.
               Select Case reader.Name
                  Case "led4"
                     If reader.Value = 1 Then
                        Label6.BackColor = Color.Green
                     Else
                        Label6.BackColor = Color.Red
                     End If
               End Select
               Exit Do
            Loop
         End If
      Catch ex As Exception
      End Try
      Try
         Const URLString As String = "http://relayboard/status.xml"
         Dim reader As XmlTextReader = New XmlTextReader(URLString)
         If reader IsNot Nothing Then
            Do While (reader.Read())
               ' Traiter les données ici.
               Select Case reader.Name
                  Case "led5"
                     If reader.Value = 1 Then
                        Label7.BackColor = Color.Green
                     Else
                        Label7.BackColor = Color.Red
                     End If
               End Select
               Exit Do
            Loop
         End If
      Catch ex As Exception
      End Try
      Try
         Const URLString As String = "http://relayboard/status.xml"
         Dim reader As XmlTextReader = New XmlTextReader(URLString)
         If reader IsNot Nothing Then
            Do While (reader.Read())
               ' Traiter les données ici.
               Select Case reader.Name
                  Case "led6"
                     If reader.Value = 1 Then
                        Label8.BackColor = Color.Green
                     Else
                        Label8.BackColor = Color.Red
                     End If
               End Select
               Exit Do
            Loop
         End If
      Catch ex As Exception
      End Try
      Try
         Const URLString As String = "http://relayboard/status.xml"
         Dim reader As XmlTextReader = New XmlTextReader(URLString)
         If reader IsNot Nothing Then
            Do While (reader.Read())
               ' Traiter les données ici.
               Select Case reader.Name
                  Case "led7"
                     If reader.Value = 1 Then
                        Label9.BackColor = Color.Green
                     Else
                        Label9.BackColor = Color.Red
                     End If
               End Select
               Exit Do
            Loop
         End If
      Catch ex As Exception
      End Try
      Timer1.Enabled = True

Jai pas d'erreur sa marche pas tout cour

Jre a 13H

**nasty** · 08/04/2010, 10h28

arg! c'est pas du tout ca qu'il fallait faire.

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
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
      Timer1.Enabled = False
	  Const URLString As String = "http://relayboard/status.xml"
	  Dim reader As XmlTextReader = New XmlTextReader(URLString)
      Try
         If reader IsNot Nothing Then
            Do While (reader.Read())
               ' Traiter les données ici.
               Select reader.Name
                Case "led0"
                     If reader.Value = 1 Then
                        Label1.BackColor = Color.Green
                     Else
                        Label1.BackColor = Color.Red
                     End If
				Case "led1"
                     If reader.Value = 1 Then
                        Label2.BackColor = Color.Green
                     Else
                        Label2.BackColor = Color.Red
                     End If 
				Case "led2"
                     If reader.Value = 1 Then
                        Label3.BackColor = Color.Green
                     Else
                        Label3.BackColor = Color.Red
                     End If
			    Case "led3"
                     If reader.Value = 1 Then
                        Label5.BackColor = Color.Green
                     Else
                        Label5.BackColor = Color.Red
                     End If 
				Case "led4"
                     If reader.Value = 1 Then
                        Label6.BackColor = Color.Green
                     Else
                        Label6.BackColor = Color.Red
                     End If
				Case "led5"
                     If reader.Value = 1 Then
                        Label7.BackColor = Color.Green
                     Else
                        Label7.BackColor = Color.Red
                     End If
				Case "led6"
                     If reader.Value = 1 Then
                        Label8.BackColor = Color.Green
                     Else
                        Label8.BackColor = Color.Red
                     End If
				Case "led7"
                     If reader.Value = 1 Then
                        Label9.BackColor = Color.Green
                     Else
                        Label9.BackColor = Color.Red
                     End If
               End Select
            Loop
         End If
      Catch ex As Exception
		MessageBox.Show("Attention une erreur est survenue" & VbNewLine & ex.Message)
      End Try
   Timer1.Enabled = True
End Sub

Je n'ai pas testé ce code mais ca doit pas etre loin.

Nasty

tomny · 08/04/2010, 11h06

Je confirme que le code de nasty devrait fonctionner et est beaucoup plus léger que le tient.
Il ne sert à rien de charger ton xml à chaque fois.

**jboss38** · 08/04/2010, 12h38

Je vais essayer lol

**jboss38** · 08/04/2010, 12h42

Jai mis exactement comme nasty est je t'en remerci de se que tu a fait pour moi...

Sa devrai marcher mais malheuresement. l'erreur de la msgbox s'achiffe tout le temp...

**nasty** · 08/04/2010, 13h32

Ok, euh j'ai pas de boule de cristal, je veux bien t'aider mais sans le message je sais pas trop ou regarder

**jboss38** · 08/04/2010, 13h38

lol dsl mais c'est dans ton code:

Code :

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

MessageBox.Show("Attention une erreur est survenue" & VbNewLine & ex.Message)

Il s'arrete pas de s'afficher

**nasty** · 08/04/2010, 13h49

Ouais je sais que c'est dans mon code.

Mais quand tu execute ton application y'a quoi dans la messagebox?

**jboss38** · 08/04/2010, 13h55

Attention une erreur est survenue
La conversion de la chaine "" en type 'Double' n'est pas valide.

**nasty** · 08/04/2010, 13h58

Tu es en option strict On?

Si non essaye :

Code :

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

CDbl(reader.Value) = 1

Nasty

**jboss38** · 08/04/2010, 20h43

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
 
    Timer1.Enabled = False
      Try
         Const URLString As String = "http://relayboard/status.xml"
         Dim reader As XmlTextReader = New XmlTextReader(URLString)
         If reader IsNot Nothing Then
            Do While (reader.Read())
               ' Traiter les données ici.
               If reader.Name = ("led0") Then
                  reader.Read()
                  Label1.BackColor = If(reader.Value = 1, Color.Green, Color.Red)
               ElseIf reader.Name = ("led1") Then
                  reader.Read()
                  Label2.BackColor = If(reader.Value = 1, Color.Green, Color.Red)
               ElseIf reader.Name = ("led2") Then
                  reader.Read()
                  Label3.BackColor = If(reader.Value = 1, Color.Green, Color.Red)
               ElseIf reader.Name = ("led3") Then
                  reader.Read()
                  Label5.BackColor = If(reader.Value = 1, Color.Green, Color.Red)
               ElseIf reader.Name = ("led4") Then
                  reader.Read()
                  Label6.BackColor = If(reader.Value = 1, Color.Green, Color.Red)
               ElseIf reader.Name = ("led5") Then
                  reader.Read()
                  Label7.BackColor = If(reader.Value = 1, Color.Green, Color.Red)
               ElseIf reader.Name = ("led6") Then
                  reader.Read()
                  Label8.BackColor = If(reader.Value = 1, Color.Green, Color.Red)
               ElseIf reader.Name = ("led7") Then
                  reader.Read()
                  Label9.BackColor = If(reader.Value = 1, Color.Green, Color.Red)
               End If
            Loop
         End If
      Catch ex As Exception
      End Try
   'Timer1.Enabled = True

Et sa ? =D

**nasty** · 09/04/2010, 08h42

Bonjour

Ton idée a un drole de tete, je savais pas qu'on pouvait faire des if de cette facon mais bon, on est la pour apprendre!

Tu as quoi comme resultat? ca fonctionne?

Ce qui m'etonne le plus c'est que dans chacun de tes if tu lit ton reader, ca ne provoque pas un decalage?

Nasty

**jboss38** · 09/04/2010, 09h10

Arf c'etais bien penser mais... sa ne marche pas..

**jboss38** · 09/04/2010, 09h20

Il faudra que j'arrive a chargé mon status XML une fois...

Pas 8 fois pour chaque led.

**nasty** · 09/04/2010, 09h23

Si tu veux un fichier unique tu peux peut etre envisager de faire un traitement avant du fichier pour le normaliser comme tomny l'avait proposé.

Et ensuite sur ton nouveau fichier tu fait tes recherches pour les couleurs.
(et si tu normalises ton fichier je suis certain que LinQ pourra t'aider et que ca ira beaucoup plus vite)

VB8 Recuper un contenu xml.

VB.NET

Discussions similaires

Partager

Partager