Membuat CPU Performance menggunakan Visual Basic 2008/vb.net

Proses untuk Membuat CPU Performance menggunakan Visual Basic 2008/vb.net sebenarnya cukup rumit dan butuh ketelitian jika masih menggunakan menu manual dan tidak menggunakan kode dibawah ini adalah cara Membuat CPU Performance menggunakan Visual Basic 2008/vb.net, pahami dan teliti artikel yang saya terangkan jika masih belum faham silahkan isi komentar.

Dalam Membuat CPU Performance menggunakan Visual Basic 2008/vb.net, yang perlu anda buat adalah 1 form dengan 1 groupbox, 8 label 2 progress bar dan 1 timer, lihat gambar dibawah ini:

Setelah tampilan seperti gambar diatas kemudian klik 2 kali formnya dan hapus semua kode yang ada lalu pastekan kode dibawah ini:

Public Class form1
    Dim proses As New PerformanceCounter
    Dim pro As New PerformanceCounter
    Dim pros As New PerformanceCounter
    Dim prose As New PerformanceCounter
    Dim pr As New PerformanceCounter
    Dim pre As New PerformanceCounter

    Private Sub form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Timer1.Enabled = True
    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        proses.CategoryName = "Processor"
        proses.CounterName = "% Processor Time"
        proses.InstanceName = "_Total"
        pro.CategoryName = "Memory"
        pro.CounterName = "% Committed Bytes In Use"
        pros.CategoryName = "Process"
        pros.CounterName = "Handle Count"
        pros.InstanceName = "_Total"
        prose.CategoryName = "Process"
        prose.CounterName = "Thread Count"
        prose.InstanceName = "_Total"
        pr.CategoryName = "Process"
        pr.CounterName = "% User Time"
        pr.InstanceName = "_Total"

        ProgressBar1.Value = proses.NextValue
        ProgressBar2.Value = pro.NextValue
        Label3.Text = ProgressBar1.Value & " %"
        Label5.Text = ProgressBar2.Value & " %"
        Label6.Text = pros.NextValue
        Label7.Text = prose.NextValue

    End Sub


End Class

Maka jika di Run hasilnya seperti gambar dibawah ini: