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:
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 :
Properties pada label, textbox, commandbutton, combobox, optionbutton:
Ketiga
Untuk menjalankan programnya, klik Run > Start atau Anda juga bisa tekan F5 dan hasil tampilannya akan seperti ini:
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.
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 :
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:
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.