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