Script atau Coding Membuat Form Pembayaran Rekening Pada VB 6

HELLO FLEN - Pada pemrograman ini, saya akan membuat suatu form di Aplikasi Microsoft Visual Basic 6.0 dimana form ini masih menggunakan metode percabangan yang telah saya sampaikan sebelumnya pada artikel Script atau Coding Membuat Form Perhitungan Nilai Mahasiswa Pada VB 6. Pada artikel ini, saya akan menggunakan percabangan "If" pada pembuatan form yang akan saya buat serta judul artikel kali ini yakni Script atau Coding Membuat Form Pembayaran Rekening Pada VB 6.

Berikut ada sedikit penjelasan mengenai if, Perintah If...Then ini memiliki pengertian “Jika kondisi benar, maka perintah akan diproses. Jika tidak maka akan diabaikan (program berhenti diproses)”. If ini disebut juga IF Tunggal dan penulisan syntaknya dalam VB seperti berikut:

If kondisi Then
     Pernyataan
End If

Kita langsung saja menuju langkah pada pembuatan program pembayaran rekening, berikut dibawah ini langkah-langkahnya:

Pertama

Buka aplikasi VB 6 Anda lalu, klik File > New Project > Standard EXE.

Kedua

Buat tampilannya seperti ini :

Pembayaran Rekening Pada VB 6

Properties pada label, textbox, commandbutton, combobox, optionbutton:

Name
Label, Command, Option = Caption ~ Textbox, Combo = Text
CommandButton Command1 HITUNG
CommandButton Command2 LAGI
CommandButton Command3 SELESAI
ComboBox Combo1 Kosongkan (samping bulan)
OptionButton Option1 450 VOLT AMPERE
OptionButton Option2 900 VOLT AMPERE
OptionButton Option3 1300 VOLT AMPERE
TextBox Text1 Kosongkan (samping biaya per)
TextBox Text2 Kosongkan (abodemen)
TextBox Text3 Kosongkan (jumlah kwh)
TextBox Text4 Kosongkan (tagihan)
TextBox Text5 Kosongkan (pajak 10%)
TextBox Text6 Kosongkan (total)
TextBox Text7 Kosongkan (uang bayar)
TextBox Text8 Kosongkan (uang kembali)

Catatan: usahakan "Name" samakan, karena berpengaruh dengan coding dibawah ini:



Private Sub Command3_Click()
End
End Sub

Private Sub Form_Load()
Combo1.AddItem ("Januari")
Combo1.AddItem ("Februari")
Combo1.AddItem ("Maret")
Combo1.AddItem ("April")
Combo1.AddItem ("Mei")
Combo1.AddItem ("Juni")
Combo1.AddItem ("Juli")
Combo1.AddItem ("Agustus")
Combo1.AddItem ("September")
Combo1.AddItem ("Oktober")
Combo1.AddItem ("November")
Combo1.AddItem ("Desember")
End Sub

Private Sub Option1_Click()
Text2 = 30000
Text1 = 200
Text3.SetFocus
End Sub

Private Sub Option2_Click()
Text2 = 50000
Text1 = 250
Text3.SetFocus
End Sub

Private Sub Option3_Click()
Text2 = 70000
Text1 = 400
Text3.SetFocus
End Sub

Private Sub Command1_Click()
Text4 = Val(Text3) * Val(Text1)
Text5 = Val(Text4) * 0.1
Text6 = Val(Text4) + Val(Text5)
Text7.SetFocus
End Sub

Private Sub Text7_Change()
If Val(Text7) <= Val(Text6) Then
    Text8 = 0
Else
    Text8 = Val(Text7) - Val(Text6)
End If
End Sub

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

Ketiga

Untuk menjalankan programnya, klik Run > Start atau Anda juga bisa tekan F5 dan hasil tampilannya akan seperti ini:

Pembayaran Rekening Pada VB 6

Ketika pada saat di Run dan muncul tampilannya isikan bulan sesuai keinginan Anda, lalu pilih daya, otomatis abodemen dan biaya per muncul. Setelah itu isikan jumlah kwh sesuai keinginan, lalu klik hitung, otomatis tagihan pajak total muncul, lalu isikan uang bayar, dan otomatis uang kembali muncul.

Sekian pembahasan program mengenai tentang Script atau Coding Membuat Form Pembayaran Rekening Pada VB 6. Semoga dapat bermanfaat dan juga bisa membantu untuk Anda yang sedang belajar tentang pendasaran pemrograman VB 6.

Memberikan informasi yang terbaik, akurat dan bermanfaat untuk kita semua, salam blogger.

Tambahkan Komentar Anda
EmoticonEmoticon