Cara Membuat CPU Performance dengan VB.net 2008

Written By Fika Ridaul Maulayya on Sabtu, 15 November 2014 | 16.57

kali ini saya akan memposting bagaimana cara membuat CPU Performance dengan VB.net
sebagai tugas kuliah saya dan saya juga ini berbagi pengalaman tentang pemrogramman VB.net
aslinya jika kita sungguh-sungguh pasty kita akan bisa membuat program yang kita inginkan
persiapan yang harus kita mulai adalah
  • buka Visual Studio 2008 atau sering juga disebut VB.net
  • pilih windows from application
  • siapakan 1 timer, 2 groupbox, 8 label, 2 progressbar
  • terus kita rancang designya seperti ini

  • terus klick dua kali pada from hapus semua kode dalam from terus ganti dengan code berikut 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

sekian tutorial dari saya
atas perhatianya terima kasih

0 komentar:

Posting Komentar