Contoh Program VB Pembayaran rekening Listrik

Program VB Pembayaran Rekening Listrik

Ketentuan Soal:
a. Bulan: ( Tambahkan List Pada Combo Box yang berisikan nama bulan )



b. Daya :

   -Jika 450 Volt Ampere, maka Abodemen = Rp. 25.000, Biaya Per KWH = 250
   -Jika 900 Volt Ampere, maka Abodemen = Rp. 35.000, Biaya Per KWH = 350
   -Jika 1300 Volt Ampere, maka Abodemen = Rp. 45.000, Biaya Per KWH = 450

c. Tagihan, Pajak dan Total tampil secara otomatis jika di klik tombol Hitung :
   Tagihan = Biaya Per KWH * Jumlah
   Pajak = 10% * Tagihan
   Total = Tagihan + Pajak

d. Jika di tekan enter di Uang Bayar maka Uang Kembali akan terisi secara otomatis
   Uang Kembali = Uang Bayar - Total

e. Buatlah Pesan berikut ini, untuk tombol Selesai.

LISTING PROGRAM:

Private Sub cmdhitung_Click()

txttagihan = Val(txtperkwh.Text) * Val(txtjumlah.Text)

txtpajak = 0.1 * Val(txttagihan.Text)

txttotal = Val(txttagihan.Text) + Val(txtpajak.Text)

txtuangbayar.SetFocus

End Sub

Private Sub cmdlagi_Click()

cmbbulan.Text = "Bulan"

txtperkwh.Text = ""

optdaya(0) = 0

optdaya(1) = 0

optdaya(2) = 0

txtabodemen.Text = ""

txtjumlah.Text = ""

txttagihan.Text = ""

txtpajak.Text = ""

txttotal.Text = ""

txtuangbayar.Text = ""

txtuangkembali.Text = ""

cmbbulan.SetFocus

End Sub

Private Sub Form_Load()

cmbbulan.AddItem "Januari"

cmbbulan.AddItem "Februari"

cmbbulan.AddItem "Maret"

cmbbulan.AddItem "April"

cmbbulan.AddItem "Mei"

cmbbulan.AddItem "Juni"

cmbbulan.AddItem "Juli"

cmbbulan.AddItem "Agustus"

cmbbulan.AddItem "September"

cmbbulan.AddItem "Oktober"

cmbbulan.AddItem "November"

cmbbulan.AddItem "Desember"

End Sub

Private Sub optdaya_Click(Index As Integer)

Select Case Index

Case 0

txtabodemen.Text = 25000

txtperkwh.Text = 250

Case 1

txtabodemen.Text = 35000

txtperkwh.Text = 350

Case 2

txtabodemen.Text = 45000

txtperkwh.Text = 450

End Select

txtjumlah.SetFocus

End Sub

Private Sub txtuangbayar_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

txtuangkembali.Text = Val(txtuangbayar.Text) - Val(txttotal.Text)

End If

End Sub

Private Sub Command1_Click()
Text8.Text = ""
Text7.Text = ""
Text6.Text = ""
Text5.Text = ""
Text4.Text = ""
Text3.Text = ""
Text2.Text = ""
Text1.Text = ""
End Sub

Private Sub Timer1_Timer()

Label1.Caption = Right(Label1.Caption, Len(Label1.Caption) - 1) + Left(Label1.Caption, 1)

End Sub

Private Sub cmdkeluar_Click()

X = MsgBox("Yakin Mau Keluar....!!!", vbCritical + vbOKCancel, "Informasi")

If  X = vbOK Then

End

End If

End Sub