Hari ini saya memperkenalkan kepada Anda sebuah aplikasi kecil untuk melihat informasi di komputer seperti CPU, RAM, sistem operasi yang digunakan, nama komputer , … Anda mendesain formulir seperti yang ditunjukkan di bawah ini.
Dalam artikel ini, saya memperkenalkan kepada Anda objek PerformanceCounter, ProgressBar. Setelah anda mmbuat form seperti di atas, Anda menambahkan 2 objek PerformanceCounter1, PerformanceCounter2, Timer1.
– Langkah selanjutnya buka Properties PerformanceCounter1 dan sesuaikan properties berikut:
+ NamaKatalog = Prosesor
+ CounterName = % Waktu Prosesor
+ NamaInstance = _Total
– Selanjutnya buka Properties PerformanceCounter2 dan sesuaikan properties berikut:
+ NamaKatalog = Memori
+ CounterName = % Byte yang Dikomit Sedang Digunakan
– Setelah langkah-langkah di atas selesai, kemudia pada event Timer_Tick tuliskan kode berikut:
Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick ProgressBar1.Value = PerformanceCounter1.NextValue ProgressBar2.Value = PerformanceCounter2.NextValue Label4.Text = ProgressBar1.Value & " %" Label3.Text = ProgressBar2.Value & " %" Label9.Text = My.Computer.Name Label10.Text = My.User.Name Label11.Text = My.Computer.Info.OSFullName Label12.Text = My.Computer.Clock.LocalTime End Sub