Merhaba arkadaşlar,
İlk olarak formumuza bir adet PictureBox ekliyoruz (Genişlik : 420 px Yükseklik : 150 px )
ve bir adet "Timer" ekliyoruz. (Interval = 1000 / Enabled = True )
Ve geldik kod kısmına ;
Public Class Form1
Dim dgn As New System.Diagnostics.PerformanceCounter("Processor", "% Processor Time", "_total")
Dim g As Graphics = PictureBox1.CreateGraphics()
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 System.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
End Class
İlk olarak formumuza bir adet PictureBox ekliyoruz (Genişlik : 420 px Yükseklik : 150 px )
ve bir adet "Timer" ekliyoruz. (Interval = 1000 / Enabled = True )
Ve geldik kod kısmına ;
Public Class Form1
Dim dgn As New System.Diagnostics.PerformanceCounter("Processor", "% Processor Time", "_total")
Dim g As Graphics = PictureBox1.CreateGraphics()
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 System.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
End Class
