alexa-tracking

Main Content

1024
1024
KASKUS
51
244
https://www.kaskus.co.id/thread/52e32e045bcb17783b0003e2/share-membuat-battery-meter-dengan-vbnet
[SHARE] [VB.NET] Membuat Battery Meter
Asalamualaikum agan dan aganwati.
Sebagai hadiah kecil untuk mengakrabkan diri dengan agan dan aganwati disini karena saya masih nubi, saya akan berbagi tutorial membuat program sederhana dengan vb.net.

oke cekidot.
Langkah pertama tentunya membuat project baru
Spoiler for Langkah 1:


Kemudian tambahkan 1 timer, 1 progressbar, dan 2 label.
Spoiler for Tampilan Form:


Dan code

Code:

Public Class Form1

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Timer1.Start()
End Sub

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Label1.Text = SystemInformation.PowerStatus.BatteryLifePercent * 100 & " %"
ProgressBar1.Value = SystemInformation.PowerStatus.BatteryLifePercent * 100
If SystemInformation.PowerStatus.PowerLineStatus = PowerLineStatus.Online Then
Label2.Text = "Batterai Sedang Di Cas"
Else
Label2.Text = "Batterai Tidak Di Cas"
End If
End Sub
End Class


Setelah di debug, hasilnya seperti gambar dibawah ini

Spoiler for Debug:


Source Code
Spoiler for Link:


Wasalam, semoga bermanfaat emoticon-Malu (S) emoticon-Malu (S)
sukses percobaannya gan emoticon-Kiss (S)
Mantab gan..emoticon-Jempol
dpt tmbhn ilmu ane..
thx gan