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?
BalasHapus