TKJ SMKN 3 BUDURAN SIDOARJO

  • Facebook

MEMBUAT APLIKASI PENGHITUNG BIAYA LISTRIK DENGAN VB 6




1. Buka program VB 6 dan pilih standart exe (1)


2. buat rancangan awal program seperti ini

3. lalu double klik pada command button hitung lalu masukka programnya seperti ini.

Private Sub Command1_Click()
If Option1.Value = True Then
Text3.Text = Val(Text2.Text) * 450
ElseIf Option2.Value = True Then
Text3.Text = Val(Text2.Text) * 900
ElseIf Option3.Value = True Then
Text3.Text = Val(Text2.Text) * 1300
End If
Text4.Text = Val(Text2.Text) * 0.025
Text5.Text = Val(Text4.Text) + Val(Text3.Text)
End Sub

Nb:
- Visual Basic bersifat case sensitive. jadi perhatikan penulisan huruf besar dan kecilnya.

Keterangan:
- 450 ialah tarif untuk opsi 450 kwh (bisa dirubah)
- 900 ialah tarif untuk opsi 900 kwh (bisa dirubah)
- 1300 ialah tarif untuk opsi 1300 kwh (bisa dirubah)
- 0.025 ialah tarif pajaknya

4. Jalankan programnya (klik tanda play > pada toolbar)
5. Selesai, program sudah terbuat.