Guessbook.asp

Baru nyoba-nyoba ASP, tapi selalu jatuh bangun
Baru nyoba-nyoba, akhirnya memutuskan untuk buat guessbook yang ada di modul
hasilnya masih banyak yang error, silahkan lihat di disini

Perhitungan Suku Bunga (Visual Basic)

Aplikasi sederhana aja yang bisa saya buat, aplikasi untuk perhitungan suku bunga. Variabel input didapat dari

1. Jumlah Pinjaman
2. Lama Pinjaman
3. Angsuran

Sedangkan untuk variabel output terdapat perhitungan dengan button "Hitung" dengan koding:

Private Sub tombolhitung_Click()
Dim JumlahPinjaman As Double
Dim Angsuran As Double
Dim Rumus As Double
Dim LamaPinjaman As Double
Dim ditampilkan As String

On eror GoTo ErrorHandler

JumlahPinjaman = Text2.Text
Angsuran = Text3.Text
LamaPinjaman = Text4.Text
Rumus = Rate(LamaPinjaman, -Angsuran, JumlahPinjaman)
Rumus = (Rumus * 12 * 100) + 0.005
ditampilkan = Format(Rumus, "##0.00") & "%"

lblhasil.Caption = "Bunga: " & ditampilkan

ErrorHandler:
End Sub

file dapat dilihat disini