Merhaba,

CPU yuzde değerini grafiksel olarak gostereceğiz.

Forma bir PictureBox ekliyoruz.

Genişlik : 420 px
Yukseklik : 150 px

1 Adet Timer

Interval = 1000 veya (daha detaylı izlemek icin bu değeri duşurebilirsiniz, 10 gibi)

Enabled = True

Değişkenler :

Kod:
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
Timer Kodu :

Kod:
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

__________________