Zona Informasi

Kali ini saya akan menerangkan pembuatan program peminjaman.Bisa di katakan sebuah koperasi kecil tapi memang belum di lakukan penyimpanan ke database.Program ini hanya menunjukkan bagaimana menghitung total pembayaran bagi yang melakukan peminjaman dan di kenakan bunga tiap bulannya.
Sebagai ketentuannya yaitu:
1.Setiap bulannya dikenakan bunga 3%.
2.Bagi yang melakukan peminjaman antara 12 sampai 18 bulan, maka diberikan diskon 2 bulan(tidak dikenakan bunga).
3.Bagi yang melakukan peminjaman lebih besar dari 18 bulan, maka diberikan diskon 3 bulan(tidak dikenakan bunga).
4.Untuk peminjam lebih kecil dari 12 tidak diberikan diskon.

Sekarang kita mulai untuk membuat programya.
Pertama : Buatlah tampilan seperti gambar berikut!

• 5 buah Label digunakan untuk judul, No.Peminjam, Nama Peminjam, Lama Peminjam, dan Jumlah Pembayaran.
• 4 buah TextBox digunakan untuk No.Peminjam, Nama Peminjam, Jumlah Pinjaman dan Jumlah Pembayaran.
• 1 buah ComboBox yang di gunakan untuk pemilihan lama peminjaman.
• 4 buah CommandButton digunakan untuk Hitung, Ulang, Keluar dan Laporan.

Buka source code dengan meng-klik view source lalu ketikkan program berikut:
Private Sub Command1_Click()
Dim persen As Long
If Val(Combo1.Text) > 18 Then
persen = (Text3.Text * 0.03) * (Combo1.Text - 3)
ElseIf Val(Combo1.Text) >= 12 Then
persen = (Text3.Text * 0.03) * (Combo1.Text - 2)
ElseIf Val(Combo1.Text) >= 1 Then
persen = (Text3.Text * 0.03) * Combo1.Text
End If
Text4.Text = persen + Text3.Text
End Sub

Private Sub Command2_Click()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
Text1.SetFocus
End Sub

Private Sub Command3_Click()
End
End Sub

Private Sub Command4_Click()
Form2.Show
End Sub

Private Sub Form_Load()
Dim i As Integer
For i = 1 To 36
Combo1.AddItem (i)
Next
End Sub


Nah, sekarang kita buat Form2 untuk laporannya.Buat seperti gambar dibawah!
 Lalu klik view source, kemudian ketikkan program berikut!

Private Sub Command2_Click()
Form1.Show
Form1.Command2.SetFocus
End Sub

Private Sub Form_Load()
Text1.Text = Form1.Text1.Text
Text2.Text = Form1.Text2.Text
Text3.Text = Form1.Text3.Text
Text4.Text = Form1.Combo1.Text
Text5.Text = Form1.Text4.Text
End Sub
Private Sub Command1_Click()
End
End Sub


Setelah mengetikkan sourcecodenya, coba run dan semoga berhasil.Jika ada yang tidak berhasi, coba perhatikan setiap nama dari TextBox, CommandButton.Sesuaikan nama pada desain dengan source code.
Berikut ini adalah hasilnya.

Demikian...dan smoga bermanfaat.