bu uygulamamızda senelik faiz hesaplayan bir pro. yazağız ama başlamadan once elinizde Visual Studio 2005 bulunması zorunludur yoksa yazamazsınız.
Aşağıdaki gibi bir form hazırlayın.
[IMG]http://img122.**************/img122/4175/faizhesapnl2.jpg[/IMG]
Cıkış butonuna bu kodları yazın
Kod:
Me.Close()
Hesapla Tuşunada bu kodları yazın
Kod:
Dim yil As Integer Dim faizorani As Double Dim miktar As Double Dim anapara As Double Sonuc.Items.Clear() faizorani = txtFaiz.Text / 100 anapara = txtAnaPara.Text Sonuc.Items.Add(" Yıl" & vbTab & " Miktar") For yil = 1 To 10 miktar = anapara * (1 + faizorani) ^ yil Sonuc.Items.Add(yil & vbTab & Format(Format(miktar, "Currency")))
Bu kadar calıştırabilirsiniz
__________________