Pada trik kali ini Saya akan membagikan sebuah tip dan trik Bagaiaman cara menampilkan
Status Memory (RAM) yang sedang digunakan dengan VB6.
Ketika Anda membeli sebuah hosting untuk tempat menyimpan file website Anda, ada beberapa hal yang perlu diperhatikan selain kapasitas Disk Anda yakni CPU Usage, Virtual Memory Usage, Physical Memory Usage, Entry Processes.
Physical Memori adalah memori fisik yang terpasang di bagian dalam (board) komputer. Jadi memori ini dapat dilihat dengan mata telanjang dan dapat di pegang dan di raba, sering disebut dengan RAM.
Sementara Virtual Memori adalah memori yang memiliki fungsi hampir sama seperti Physical RAM yaitu untuk menyimpan tugas – tugas namun tidak memiliki fisik nyata yang bisa di pegang. Memori ini dapat di atur sendiri kapasitasnya sesuai kebutuhan menggunakan software atau fitur dari sistem.
Untuk Mengeceknya status RAM salah satu yang sering digunakan adalah dengan cara menekan tombol CTRL+Del kemudian memilih Task Manager
Tahukah Anda sebenarnya kita juga bisa menggunakan VB6 untuk menampilkan staus Virtual Memory Usage dan Physical Memory hanya dengan menggunakan Visual Basic 6.0.
Supaya anda gak penasaran lagi berikut adalah langkah-langkah yang harus anda lakukan seperti dibawah ini :
Cara Menampilkan Status Memory (RAM) yang sedang di gunakan dengan VB6.
Buka Form VB6 Anda dengan StandarExe
Tanam 2 buah Label di Form, yaitu Label1 dan Label2
Setelah itu tambahkan 1 Control Timer dengan Interval 5
Dan jangan lupa tambahkan 1 buah Module dengan cara klik Project >> Add Module
Langkah terakhir kita akan menambahkan kode pada bagian Module dan Control Timer sebagai berikut :
Module1 :
Private Type MEMORYSTATUS
dwLength As Long
dwMemoryLoad As Long
dwTotalPhys As Long
dwAvailPhys As Long
dwTotalPageFile As Long
dwAvailPageFile As Long
dwTotalVirtual As Long
dwAvailVirtual As Long
End Type
Public MEM_STAT As MEMORYSTATUS
Call GlobalMemoryStatus(MEM_STAT)
Label1.Caption = " Physical Memory Anda : " & Format((MEM_STAT.dwAvailPhys / 1024) / 1024, "#,##0.0") & " MB "
Label2.Caption = " Virtual Memory Anda : " & Format((MEM_STAT.dwAvailVirtual / 1024) / 1024, "#,##0.0") & " MB "
End Sub
Kemudian simpan hasil pekerjaan anda dan jalankan Program .Jika Anda sudah mengikuti langkah-langkah diatas dengan benar maka hasilnya akan tampak pada gambar dibawah ini :
 |
| Output Status RAM |
No comments:
Post a Comment