Program VB Pembayaran
Rekening Listrik
-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.
-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
optdaya tu yang mana gan
BalasHapusHasil Nya Dimasukkan Donk KK
Tipe kode ny apa ya kk?
BalasHapusTipe kode ny apa ya kk?
BalasHapusAsw Gak Jelas
BalasHapus-_-