Tips Membuat Mesin Hitung Bunga Pinjaman dengan VB

       Visual Basic adalah salah satu software bahasa pemograman yang masih banyak dipakai orang untuk membuat program aplikasi hingga saat ini. Banyak sekali software yang dibuat dengan bahasa pemograman ini. Dan bisa juga digunakan untuk membuat program penjualan, program gaji, dan aplikasi aplikasi komputer lainnya yang bisa dipakai di sekolah sekolah, kantor kantor, ataupun toko – toko.

       Disini saya mencoba mengajak anda untuk belajar memahami visual basic dengan cara membuat suatu program sederhana. Software yang saya gunakan adalah Microsoft Visual Basic 6.0.

 

Untuk memulai pembuatan mesin hitung ini tahap prtama yang harus anda lakukan adalah menempatkan 4 buah label, 3 buah Text dan 2 buah CommandButton, lalu atur masing – masing propertinya.

Property yang di gunakan :

KONTROL	PROPERTI	NILAI
Label1	Name Caption	Label1 Jumlah Pinjaman
Label2	Name Caption	Label2 Angsuran
Label3	Name Caption	Label3 Lama Pinjaman
Label4	Name Caption	lblHasil
Text1	Name	Text1
Text2	Name	Text2
Text3	Name	Text3
CommandButton	Name caption	tombolHitung Hitung
CommandButton	Name caption	cmdHapus Hapus

Setelah property selesai kita susun selanjutnya adalah memberikan kode pada tombol Hitung dan tombol Hapus, caranya adalah sebagai berikut:

1. Untuk membuat kode Hitung Klik ganda pada pada tombol hitung lalu ketik kode berikut ini :

Private Sub tombolHitung_Click()

    Dim JumlahPinjaman As Double

    Dim Angsuran As Double

    Dim Rumus As Double

    Dim LamaPinjaman As Integer

    Dim ditampilkan As String

    On Error GoTo ErrorHandler

    JumlahPinjaman = Text1.Text

    Angsuran = Text2.Text

    LamaPinjaman = Text3.Text

    Rumus = Rate(LamaPinjaman, -Angsuran, JumlahPinjaman)

    Rumus = (Rumus * 12 * 100) + 0.005

    ditampilkan = Format(Rumus, "##0.00") & "%"

    lblHasil.Caption = "Bunga: " & ditampilkan  

ErrorHandler:

End Sub

2. Untuk membuat kode hapus Klik ganda pada tombol Hapus lalu ketik kode seperti berikut ini :

Private Sub cmdhapus_Click()

Text1 = ""

Text2 = ""

Text3 = ""

End Sub

3. Tekan F5 untuk mencoba aplikasi

4. Pada kotak masukan Jumlah Pinjaman, ketik 500000, sebagai besar pinjaman.

5. Pada kotak masukan Angsuran, ketik 50000 sebagai besar angsuran.

6. Pada kotak masukan Lama Pinjaman, ketik 12 sebagai lama pinjaman 12 bulan.

7. Klik Tombol Hitung.

Selamat mencoba, Semoga bermanfaat . . .