25/12/2011, 21:35
Dim dgn As New System.Diagnostics.PerformanceCounter("Processor", "% Processor Time", "_total")
Dim g As Graphics = PictureBox1.CreateGraphichs()
Dim p As New Pen(Brushes.Black)
Dim son As New Point(0, 140)
Dim zaman As Integer = 0
Private Sub Timer1_Tick(ByVal sender As Object, ByVal e As Syste.EventArgs)
If zaman < 400 Then zaman +=1 Else zaman=0:g.Clear(Color.White):son.X=0:son.Y=140
Dim basla As New Point(son.X, son.Y)
son.X = zaman
son.Y = dgn.NextValue()
g.DrawLine(p, basla, son)
End Sub