Kontrol Sysinfo merupakan sebuah kontrol yang dapat memberikan informasi, misalnya sisa power DC pada komputer Laptop atau memberikan informasi tentang sistem operasi yang dipakai.
Kontrol ini terdapat dalam Microsoft sysInfo Control 6.0.
Berikut adalah properti yang umum di set untuk kebutuhan ini :
Properti
|
Keterangan
|
| ACStatus | Menampilkan status apakah komputer menggunakan catu daya AC |
| BatteryLitePercent | Menampilkan prosentase sumber DC tersisa |
| OSPlatform | Menampilkan platform sistem operasi |
| OSVersion | Menampilkan versi sistem operasi |
Berikut ini adalah cara menggunakan kontrol SysInfo dalam mencari informasi sistem operasi :
Cara Mengecek Platform Sistem Operasi dengan Menggunakan Kontrol SysInfo di VB6
- Buka form VB 6.0 anda
- Tambahkan 3 kontrol Label, 3 TextBox,1 Commonbutton dan Kontrol SysInfo
- Untuk menambahkan Kontrol SysInfo pada form tekan CTRL+T dan cari Microsoft SysInfo control 6.0 dan Apply OK
- Kemudian tanamkan Microsoft SysInfo Control 6.0 di form
- Berikut adalah desain form yang akan kita susun :
 |
| Desain Form |
Setelah Anda selesai mendesain form kemudian ketik kode dibawah ini di jendela kode :
Private Sub Command1_Click()
stat = SysInfo1.ACStatus
Select Case stat
Case 0
Text1.Text = "Tidak memakai arus AC"
Case 1
Text1.Text = "Memakai arus AC"
Case Else
Text1.Text = "Status tidak diketahui"
End Select
plat = SysInfo1.OSPlatform
Select Case plat
Case 0
Text2.Text = "Win32s"
Case 1
Text1.Text = "Windows95"
Case Else
Text2.Text = "WindowNT"
End Select
Text3.Text = SysInfo1.OSVersion
End Sub
stat = SysInfo1.ACStatus
Select Case stat
Case 0
Text1.Text = "Tidak memakai arus AC"
Case 1
Text1.Text = "Memakai arus AC"
Case Else
Text1.Text = "Status tidak diketahui"
End Select
plat = SysInfo1.OSPlatform
Select Case plat
Case 0
Text2.Text = "Win32s"
Case 1
Text1.Text = "Windows95"
Case Else
Text2.Text = "WindowNT"
End Select
Text3.Text = SysInfo1.OSVersion
End Sub
Kemudian jalankan program dan klik button Info untuk mendapatkan informasi sistem yang yang digunakan seperti terlihat pada gambar dibawah ini.
Demikina trik kali semoga trik ini bermanfaat buat kita semua dan dapat menambah wawasan kita di dunia pemograman VB khususnya VB6.
2 comments:
Do you realize there is a 12 word phrase you can say to your man... that will trigger deep emotions of love and impulsive appeal to you buried within his chest?
Because deep inside these 12 words is a "secret signal" that fuels a man's impulse to love, treasure and care for you with all his heart...
===> 12 Words Who Trigger A Man's Desire Impulse
This impulse is so hardwired into a man's genetics that it will drive him to work better than before to love and admire you.
As a matter of fact, fueling this powerful impulse is so mandatory to getting the best possible relationship with your man that the moment you send your man one of these "Secret Signals"...
...You will instantly find him expose his mind and heart to you in a way he never expressed before and he will identify you as the one and only woman in the universe who has ever truly fascinated him.
oke banget kak infonya bakal dicoba
logo free ongkir
Post a Comment