D
D_A_V_E
Guest
Dear All,
Napisao sam program u vb.net za otkriti neke podatke u stvarnom vremenu graf.To je radi sasvim u redu i nema problema s tim.Ali čini se da je ekran osvježava slučajno i ja labav podataka u grafu.To se na podacima sa pisanjem, ali povijest je izgubio!Čini se utjecati i druge programe koje sam otvorio.Što bi moglo biti problema ?????
hvala vam unaprijed momci,
D
ovdje je rutina
************************************************** ******************
Private Sub drawG1 (ByVal uzorak As Integer)
Dim g Kao Grafika = Graph1.CreateGraphics
Static x As Integer
Statični old_sample As Integer
Ako je x <Graph1.Width Tada
x = 1
Drugi
x = 0
End If
uzorak = (256 - uzorak) * Graph1.Height / 512
g.DrawLine (Pens.WhiteSmoke, x, 1, x, Graph1.Height)
g.DrawLine (Pens.WhiteSmoke, x 1, 1, x 1, Graph1.Height)
Ako je x> = 1 onda
g.DrawLine (Pens.Blue, x - 1, old_sample, x, uzorak)
End If
old_sample = uzorak
End Sub
Napisao sam program u vb.net za otkriti neke podatke u stvarnom vremenu graf.To je radi sasvim u redu i nema problema s tim.Ali čini se da je ekran osvježava slučajno i ja labav podataka u grafu.To se na podacima sa pisanjem, ali povijest je izgubio!Čini se utjecati i druge programe koje sam otvorio.Što bi moglo biti problema ?????
hvala vam unaprijed momci,
D
ovdje je rutina
************************************************** ******************
Private Sub drawG1 (ByVal uzorak As Integer)
Dim g Kao Grafika = Graph1.CreateGraphics
Static x As Integer
Statični old_sample As Integer
Ako je x <Graph1.Width Tada
x = 1
Drugi
x = 0
End If
uzorak = (256 - uzorak) * Graph1.Height / 512
g.DrawLine (Pens.WhiteSmoke, x, 1, x, Graph1.Height)
g.DrawLine (Pens.WhiteSmoke, x 1, 1, x 1, Graph1.Height)
Ako je x> = 1 onda
g.DrawLine (Pens.Blue, x - 1, old_sample, x, uzorak)
End If
old_sample = uzorak
End Sub