Cara Membuat aplikasi untuk menghitung Bunga Pinjaman dengan VB

Disini saya mencoba mengajak anda untuk belajar cara membuat suatu program sederhana dengan Microsoft Visual Basic 6.0.
Sebenarnya program Vb tidak Jauh berbeda dengan Gambas yang ada di OS Linux, disini kita akan membuat sebuah aplikasi untuk menghitung Bunga Pinjaman. caranya..

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 . . .

Related Article: