Pada artikel kali ini penulis akan menyajikan sebuah tutorial tentang membuat sebuah aplikasi infromasi penggunaan Batterey Laptop yang di buat lewat aplikasi Visual Basic 6.0. Pada aplikasi ini berfungsi untuk menyampaikan atau memberikan informasi serta menjadikan jendela desktop computer kita menjadi vakum dan tidak bisa membuka aplikasi lain ketika kondisi batterey telah terisi dengan penuh mencapai 100% dan pada saat batterey sedang Low hingga 15%. Mungkin aplikasi ini terlihat sederhana akan tetapi tentu ini juga ada manfaatnya di karenakan ketika batteret laptop anda sedang lowbet atau full maka muncullah informasi tersebut dan tidak bisa lagi mengakses aplikasi lain sebelum charger di pasang ketika sedang lowbet dan di lepas ketika sedang full.
Nah, tidak perlu kita panjang lebar tentang bagaimana kerja aplikasi ini, nantinya anda akan tau sendiri ketika sudah menggunakannya. Untuk cara membuatnya mari kita ikuti langkah-langkah berikut ini.
Langkah pertama yang anda lakukan adalah merancang tampilannya, seperti yang penulis sajikan dan praktekkan tampilannya tidak terlalu menarik. Jika, anda ingin tampilan lebih menarik anda bisa kreasikan sesuai keinginan anda. Untuk lebih jelasnya tampilan yang penulis buat kurang lebih seperti gambar di bawah ini.
Pada interface tersebut ada beberapa objek/tools yang digunakan untuk mengatur tampilannya di antaranya :
1. Label : Label1, Label2, Label3, Label4, Label5 dan Label6.
2. Timer : Timer1, Timer2 dan Timer3.
3. Progressbar : Progressbar1.
4. Commandbutton : Command1.
5. Sysinfo : Sysinfo1.
6. Image : Image1.
Setelah anda desain kurang lebih seperti gambar diatas. Sebaiknya anda tidak perlu mengganti namenya biarkan saja tetap pada name defaultnya. Karena pada script yang penulis sajikan sesuai dengan nama default objek tersebut.
Selanjutnya anda tambahkan modules di aplikasi anda dan tambahkan script di bawah ini :
Public Declare Function SetWindowPos Lib "user32" (ByVal Hwnd As Long, ByVal hWndInsertAfter As Long, ByVal x As Long, ByVal y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long
Public Const HWND_TOPMOST = -1
Public Const HWND_NOTOPMOST = -2
Public Const SWP_NOSIZE = &H1
Public Const SWP_NOMOVE = &H2
Langkah selanjutnya buka text editor pada form anda dengan mengklik duak kali pada form dan masukkan script di bawah ini :
Option Explicit
Private Sub Command1_Click()
Me.WindowState = 0
ProgressBar1.Visible = True
Label5.Visible = False
Unload Me
Me.Show
End Sub
Private Sub Form_Load()
Timer1.Interval = 1000
Timer1.Enabled = True
Call Timer1_Timer
Call Timer3_Timer
End Sub
Private Sub Form_Resize()
If Me.WindowState = 2 Then
SetWindowPos Me.Hwnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOSIZE Or SWP_NOMOVE
Label5.Top = Me.Top + 5000
Label5.Left = Me.Left + 6000
Command1.Top = Me.Top + 6000
Command1.Left = Me.Left + 9000
Image1.Top = Me.Top + 9400
Image1.Left = Me.Left + 18500
ProgressBar1.Top = Me.Top + 4300
ProgressBar1.Left = Me.Left + 7500
End If
End Sub
Private Sub Timer1_Timer()
If SysInfo1.BatteryLifePercent <> 255 Then
ProgressBar1.Value = SysInfo1.BatteryLifePercent
Label1.Caption = "BatteryLifePercent = " & Format$(SysInfo1.BatteryLifePercent / 100, "Percent")
Label2.Caption = "BatteryLifeTime = " & Format$(Val(SysInfo1.BatteryLifeTime) * (1 / 3600), "#.##") & " Hours"
Select Case SysInfo1.BatteryStatus
Case 1
Label3.Caption = "BatteryStatus = HIGH"
Case 2
Label3.Caption = "BatteryStatus = LOW"
Case 4
Label3.Caption = "BatteryStatus = CRITICAL"
End Select
ProgressBar1.Enabled = True
Else
Label1.Caption = "No Battery Present"
ProgressBar1.Value = 0
ProgressBar1.Enabled = False
End If
Label4.Caption = "Battery status: " & getBatteryStatus()
If Label1.Caption = "BatteryLifePercent = " & "100.00%" And Label4.Caption = "Battery status: 2" Then
Me.WindowState = 2
Label5.Visible = True
'Command1.Visible = True
Label5.Caption = "BATTERY TELAH TERISI PENUH SILAHKAN CHARGER ANDA . . . !!!"
End If
If Label1.Caption = "BatteryLifePercent = " & "15.00%" And Label4.Caption = "Battery status: 1" Then
Me.WindowState = 2
Label5.Visible = True
'Command1.Visible = True
Label5.Caption = "BATTERY SEDANG LOW SILAHKAN PASANG CHARGER ANDA . . . !!!"
End If
If Label4.Caption = "Battery status: 1" And Label5.Caption = "BATTERY TELAH TERISI PENUH SILAHKAN PASANG CHARGER ANDA . . . !!!" Then
Me.WindowState = 1
'Command1.Enabled = True
End If
If Label4.Caption = "Battery status: 2" And Label5.Caption = "BATTERY SEDANG LOW SILAHKAN PASANG CHARGER ANDA . . . !!!" Then
Me.WindowState = 1
'Command1.Enabled = True
End If
End Sub
Public Function getBatteryStatus() As Integer
Dim obj As Object, obj2 As Object, stat As Integer
' Get Battery Status
' Return Value Meaning
'0 No battery
'1 The battery is discharging.
'2 The system has access to AC so no battery is being discharged. However, the battery is not necessarily charging.
'3 Fully Charged
'4 Low
'5 Critical
'6 Charging
'7 Charging and High
'8 Charging and Low
'9 Charging and Critical
'10 Undefined
'11 Partially Charged
stat = 0
Set obj = GetObject("winmgmts:").InstancesOf("Win32_Battery")
For Each obj2 In obj 'loop in objects
stat = obj2.BatteryStatus
Next
getBatteryStatus = stat
End Function
Private Sub Timer3_Timer()
Label5.ForeColor = Int(Rnd * 255 * 255 * 255)
End Sub
JIka sudah selesai semua di buat maka langkah selanjutnya buatlah setupnya menggunakan tools pada visual basic yaitu Package & Deployment Wizard. Atau download disini.
Sekian yang dapat penulis uraikan dan berikan tutorial pada artikel ini, semoga artikel ini bermanfaat dan bisa anda pergunakan.
Update Contact :
No Wa/Telepon (puat) : 085267792168
No Wa/Telepon (fajar) : 085369237896
Email : Fajarudinsidik@gmail.com
No Wa/Telepon (puat) : 085267792168
No Wa/Telepon (fajar) : 085369237896
Email: Fajarudinsidik@gmail.com
atau Kirimkan Private messanger melalui email dengan klik tombol order dibawah ini :
