Cara menghitung Angsuran/Kredit dengan Visual Basic

Assalamu'alaikum kawan.....

        Saat ini saya akan membahas tentang Aplikasi "Menghitung Angsuran/Kredit". Nah, mungkin koding dibawah ini sedikit membantu anda yang sedang mempunyai tanggungan Angsuran sepeda / Kredit Sepeda atau yang lainnya yang bingung untuk menghitung berapa sih yang harus saya bayar...

Ok langsung saja.
1.Buka Visual Basicnya
2.Buat Form
3.Buat Label,Textbox,ComboBox
4.Masukan Koding dibawah ini.

Keterangan "t3" = Text3
Klik Prosedur diKeyPress

Private Sub t3_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
t4.Text = t3.Text * 0.02
If c1 = "10" Then
        t5.Text = Val(t3.Text) / 10
    End If
    If c1 = "12" Then
        t5.Text = Val(t3.Text) / 12
    End If
    If c1 = "24" Then
        t5.Text = Val(t3.Text) / 24
    End If
    If c1 = "36" Then
        t5.Text = Val(t3.Text) / 36
    End If
    t6.Text = Val(t4.Text) + Val(t5.Text)
End If

End Sub


Untuk yang Combo tidak usah dikasih koding, cuma dipropertisnya dibagian "List" Isikan 10,12,24,36 (bulan)

Contoh Tampilan :

Disini tidak usah tombol Proses, langsung Enter maka nilainya langsung keluar.

Terima Kasih...

Semoga Bermanfaat