Üye ol
Şifremi unuttum | Onay kodum gelmedi
Yardım

Örnek vb kredi geri ödeme planı projesi
FuSHeR
Üye
FuSHeR

Puan: 403

FuSHeR şu anda çevrimdışı
Gönderilme Tarihi: 12 Ekim 2010 04:57:11

Bu projenin amacı Şekil-8'deki gibi bir form oluşturmak, 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_

Bu içeriğin geçmişi:
12 Ekim 2010 19:32:20 tarihinde sendetiklat tarafından taşınmış.

1.3.0
Kullanım Şartları - İletişim - Öner
29 Temmuz 2014 Salı 15:12:54