D
D_A_V_E
Guest
Dear All,
Saya telah menulis sebuah program di vb.net untuk menampilkan beberapa data waktu nyata dalam grafik.Ini bekerja baik-baik saja dan tidak ada masalah dengan itu.Tapi tampaknya layar refresh secara acak dan i longgar data dalam grafik.It goes on dengan menulis data, namun sejarah hilang!Tampaknya juga mempengaruhi program lain yang saya telah dibuka.Apa yang bisa menjadi masalah ?????
thank you in advance guys,
D
di sini adalah rutin
************************************************** ******************
Private Sub drawG1 (ByVal sampel As Integer)
Dim g As Graphics = Graph1.CreateGraphics
Static x As Integer
Statis old_sample As Integer
Jika x <Graph1.Width Lalu
x = 1
Lain
x = 0
End If
sampel = (256 - sampel) * Graph1.Height / 512
g.DrawLine (Pens.WhiteSmoke, x, 1, x, Graph1.Height)
g.DrawLine (Pens.WhiteSmoke, x 1, 1, x 1, Graph1.Height)
Jika x> = 1 Lalu
g.DrawLine (Pens.Blue, x - 1, old_sample, x, sampel)
End If
old_sample = sampel
End Sub
Saya telah menulis sebuah program di vb.net untuk menampilkan beberapa data waktu nyata dalam grafik.Ini bekerja baik-baik saja dan tidak ada masalah dengan itu.Tapi tampaknya layar refresh secara acak dan i longgar data dalam grafik.It goes on dengan menulis data, namun sejarah hilang!Tampaknya juga mempengaruhi program lain yang saya telah dibuka.Apa yang bisa menjadi masalah ?????
thank you in advance guys,
D
di sini adalah rutin
************************************************** ******************
Private Sub drawG1 (ByVal sampel As Integer)
Dim g As Graphics = Graph1.CreateGraphics
Static x As Integer
Statis old_sample As Integer
Jika x <Graph1.Width Lalu
x = 1
Lain
x = 0
End If
sampel = (256 - sampel) * Graph1.Height / 512
g.DrawLine (Pens.WhiteSmoke, x, 1, x, Graph1.Height)
g.DrawLine (Pens.WhiteSmoke, x 1, 1, x 1, Graph1.Height)
Jika x> = 1 Lalu
g.DrawLine (Pens.Blue, x - 1, old_sample, x, sampel)
End If
old_sample = sampel
End Sub