Teks

Kamis, 21 Juni 2012

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


Tidak ada komentar:

Poskan Komentar