mata kuliah pemrogram komputer with Hengki Rahmanto ST, M.Eng

langkah awal pemprogram investasibuatan program ini seperti biasa. didalamnya hanya memanfaatkan 3 komponen, yaitu label, texboxt dan command button.

agar programn ini tidak semudah begitu saja dibuat maka, tabel propertis tidak dicantunkam agar programer bisa belajar bagaimana menemukan kesalahan (error found) tentunya akan lebih menarik, klu dalam program sederhana ini terdapat 2 buat form.

namun saya berbaik hati .

script program saya bagikan untuk anda.

form 1.

Private Sub cmd_fu_Click()
frm_fu.Visible = True
frm_utama.Visible = False
End Sub


Private Sub cmd_inv_Click()
frm_inv.Visible = True
frm_utama.Visible = True
End Sub

script program Form 2
Private Sub cmd_clear_Click()
txt_fv.Text = “”
txt_rate.Text = “”
txt_year.Text = “”
lbl_pv.Caption = “”

End Sub

Private Sub cmd_exit_click()
Unload Me
frm_utama.Visible = True
End Sub

Private Sub cmd_cal_click()

Dim F_Money, int_Rate, Investment As Double
Dim numYears As Single
F_Money = Val(txt_fv.Text)
int_Rate = (Val(txt_rate.Text) / 100)
numYear = Val(txt_year.Text)
Investment = PV(int_Rate, numYear, 0, F_Money, 1)
lbl_pv.Caption = Format(-Investment, “Rp ##,###,##0.00”)

End Sub

bagaiman kawan, bisa memmbuatkan kan..??

saya kasih dah program yang sudah jadinya.

KLIK DOWNLOAD DISINI

semoga bermanfaat.

Iklan