kullanıcıdan anapara, yıllık faiz oranı, ve faiz süresi (yıl
bazında) bilgilerini alarak, aylık ödemeleri hesaplamaktır. Bu
projede kullanıcıdan anapara bilgileri "Anapara", Yıllık faiz
oranı bilgileri "Yillik Fazi Orani", ve yıl bazında faiz
süresi bilgisi "Faiz Suresi (Yil)" yazı kutuları ile
alınacaktır. Hesaplama işlemi "Hesaplama" komut düğmesi ile
başlatılacaktır. Sonuç yine "Aylik Odeme Miktari" yazı kutusu
ile görüntülenecektir. Programdan çıkış için "Cikis" komut
düğmesi kullanılacaktır.
Şekil-8. Kredi Geri Ödeme Planı Projesi
Projeyi Kaydetme
"Kredi Geri Ödeme Planı" projesinin saklanması için gerekli
düğmeye basıldığında öncelikle form daha sonra da proje için
diyalog kutuları ekrana gelecektir. Bu işlemde form için dosya
adı olarak "krediana" (uzantısı .frm olacaktır) kullanınız ve
dosyayı "My Documents" altında "krediproje" adlı bir klasör
yaratarak, bu klasöre saklayınız. Daha sonra ekrana gelen
proje diyalog kutusunda ise dosya adı için "krediproje"
(uzantısı .vbp olacaktır) yazınız ve Save tuşuna basınız
(dosya aynı klasöre saklanacaktır).
Yazı Kutusu Ekleme
Proje için gerekli olan 4 yazı kutusunu formun solunda
etiketlere yer bırakacak şekilde yarattıktan sonra bu kutulara
anapara için "txtAnapara", yıllık faiz oranı için "txtFaiz",
faiz süresi için "txtSure", ve ödemeler için "txtOdeme"
isimlerini "Name" seçeneği ile veriniz. "Text" seçeneğinde yer
alan "text" yazısını siliniz. Bu alan kutunun bir yazı ile
dolu olarak gelmesi istenirse kullanılır.
Etiket Ekleme
Proje için gerekli olan 4 etiket kutusunu formun sağına ve
yazı kutularının soluna gelecek şekilde yarattıktan sonra bu
kutulara anapara için "lblAnapara", yıllık faiz oranı için "lblFaiz",
faiz süresi için "lblSure", ve ödemeler için "lblOdeme"
isimlerini veriniz. Ekran görüntüsü için ise "Caption"
özelliklerine anapara için "Anapara", yıllık faiz oranı için
"Yıllık Faiz Oranı (%)", faiz süresi için "Faiz Süresi (Yıl)",
ve ödemeler için "Aylık Ödeme Miktarı" değerlerini giriniz.
Komut Düğmesi Ekleme
Hesaplama ve programdan çıkış için gerekli 2 komut düğmesi
yaratınız. Hesaplama düğmesinin "Name" özelliğine "cmdHesap",
"Caption" özelliğine ise "Hesaplama" giriniz. Çıkış düğmesinin
"Name" özelliğine "cmdCik", "Caption" özelliğine ise "Çıkış"
giriniz.
Komut İşlemleri Kodlama
Projenin "Çıkış" düğmesini çift tıklayınız. Private Sub cmdCik_Click()
komutu ile End Sub komutu arasına programdan çıkış için
gerekli "end" komutunu yazınız.
Proje için gerekli değişken tanımlarını aşağıdaki gibi
yapınız:
Dim cAnapara As Currency
Dim fFaiz As Single
Dim nSure As Integer
Dim cOdeme As Currency
Prosedür Kodu
Projede cAnapara değeri txtAnapara yazı kutusundan
alınacaktır.
' Anapara değerini değişkene yükle
cAnapara = Val(txtAnapara.Text)
Diğer hesaplama kodları ise aşağıdaki gibidir:
'Yüzde faiz oranını ondalık değere çevir
fFaiz = Val(txtFaiz.Text) / 100
'Yıllık faiz oranını aylığa çevir
fFaiz = fFaiz / 12
'Toplam yıl süresini aya çevir
nSure = Val(txtSure.Text) * 12
'Aylık odemeleri hesapla
cOdeme = cAnapara * (fFaiz / (1- (1+fFaiz) ^ -nSure))
txtOdeme.Text = Format(cOdeme,"Fixed")
Programın Çalıştırılması
Start" düğmesini tıklayarak projeyi çalıştırınız. Anapara için
128000, faiz oranı için 9.75, süre için ise 30 değerlerini
giriniz. Aylık ödemeler 1099.72 olmalıdır.
FORMAT:
Format (1234, “$#,###.00”)
Biçime 0 konduğunda rakam olmasa bile 0 mutlaka görüntülenir.
$1,234.00
Format (1234, “$#,###.##”)
Biçime # konduğunda rakam olmazsa görüntülenmez.
$1,234
Format (234, “$#,###.00”)
$234.00
Format (1234567, “$#,###.00”)
$1,234,567.00
Format(1234, “Currency”)
$1,234.00 veya 1.234,00 TL (Türkçe)
FormatNumber (1234)
1,234.00 veya 1.234,00 (Türkçe)
FormatDateTime(“20:10”, vbLongTime)
20:10:00