D
D_A_V_E
Guest
Bonjour à tous,
J'ai écrit un programme en vb.net pour afficher des données en temps réel dans un graphe.Cela fonctionne très bien et il n'y a aucun problème avec cela.Mais il semble que l'écran est rafraîchi au hasard et je perds les données dans le graphique.Il se poursuit avec l'écriture de données, mais l'histoire est perdu!Il semble que les affectent également d'autres programmes que j'ai ouvert.Quel pourrait être le problème ?????
Nous vous remercions à l'avance les gars,
D
Voici la routine
************************************************** ******************
Private Sub drawG1 (échantillon ByVal As Integer)
Dim g As = Graph1.CreateGraphics Graphics
Statique x As Integer
old_sample statique As Integer
Si x <Alors Graph1.Width
x = 1
D'autre
x = 0
End If
échantillon = (256 - échantillon) 512 / * Graph1.Height
g.DrawLine (Pens.WhiteSmoke, x, 1, x, Graph1.Height)
g.DrawLine (Pens.WhiteSmoke, x 1, 1, x 1, Graph1.Height)
Si x> = 1 Then
g.DrawLine (Pens.Blue, x - 1, old_sample, x, échantillon)
End If
old_sample = échantillon
End Sub
J'ai écrit un programme en vb.net pour afficher des données en temps réel dans un graphe.Cela fonctionne très bien et il n'y a aucun problème avec cela.Mais il semble que l'écran est rafraîchi au hasard et je perds les données dans le graphique.Il se poursuit avec l'écriture de données, mais l'histoire est perdu!Il semble que les affectent également d'autres programmes que j'ai ouvert.Quel pourrait être le problème ?????
Nous vous remercions à l'avance les gars,
D
Voici la routine
************************************************** ******************
Private Sub drawG1 (échantillon ByVal As Integer)
Dim g As = Graph1.CreateGraphics Graphics
Statique x As Integer
old_sample statique As Integer
Si x <Alors Graph1.Width
x = 1
D'autre
x = 0
End If
échantillon = (256 - échantillon) 512 / * Graph1.Height
g.DrawLine (Pens.WhiteSmoke, x, 1, x, Graph1.Height)
g.DrawLine (Pens.WhiteSmoke, x 1, 1, x 1, Graph1.Height)
Si x> = 1 Then
g.DrawLine (Pens.Blue, x - 1, old_sample, x, échantillon)
End If
old_sample = échantillon
End Sub