Favorilerine Ekle | Giriş Sayfan Yap | Tavsiye Et

 

Kurs Tanıtım Sayfası | Süper Üye Kimdir? | Menü Tasarımı Konulu Örnek Ders
Kod İndir| Hazır Kodlar | Makaleler| İpuçları | VB .NET Kursu | Dersler | Forum | Alt Bölümler | Servisler
    Merhaba Misafir
    anasayfa » visual basic makaleleri » Herhangi bir bankanın müşterisine verdiği kredi faiz programıdır.
Üye Girişi
Kullanıcı Adı:  
Şifre : 
Kaydet ?
Siteden tam olarak faydalanabilmek için üye olmalısınız.
Unuttuğunuz şifrenizi öğrenebilmek için kayıt sırasında verdiğiniz Hatırlatma Cevabı'nı bilmeniz gereklidir.
Şifre hatırlatma işlevini sadece 3 defa kullanma hakkınız vardır.
Kullanıcı adını ve şifresini unutan üyelere email ile yardım verilmez.

Aktivasyon Gelmedi mi?Aktivasyon mesajınız email adresinize gelmedi mi?
Buraya tıklayarak bir kez daha aktivasyon mesajı gönderilmesini sağlayabilirsiniz.
Lütfen email hesabınızın BULK ve SPAM klasörlerini de kontrol ediniz.
Rastgele Makale

Procedure ve Function Hazırlamak

Yazar: Webmaster
Bu makale Memik Yanık′ın izni ile yayınlanmaktadır.


Webmasterlar
Sitenize Ekleyin!
Sitenizde "Son Eklenen 10 Visual Basic Yazısı"'nı göstermek ve içeriğini zenginleştirmek için buraya tıklayınız.

Vbasicmaster.com'a link verin!
Aşağıdaki minik banneri sitenize eklemek için tıklayın!

Üye Sayısı:
Ziyaretçiler nerede?
Yayın № : 10436
Yayın Tar:24.06.2008
Yazar : damme
Hit :1661

Bu Yazarın Yazıları Sadece bu yazarın makale göster
Bu Yazıyı Tavsiye Et

Öncelikle bir form üzerine 2 adet Frame, 12 adet label, 1 adet combo1, 3 adet text kutusu ve 3 adet de command button düğmelerini ekleyin.
Label1 (Kredi çekilen banka) karşısına combo1, Label2 (Ana Para) karşısına text1, Label3 (Vade) karşısına text2 ve Label4 (Aylık faiz oranı) karşısına text3 kutularını izalı bir şekilde yerleştirin. (Bu kutucuklar Frame1 çerçevesinin içine yerleştirin)

Sıra geldi Frame2 çerçevesinin içindeki verilere; Label5 (Aylık ödenecek tutar) karşısına Label8, Label6 (Toplam Faiz Miktarı) karşısına Label9, Label7 (Toplam ödenecek tutar) karşısına Label10 ve Label11 (aylık faiz miktarı) karşısına gelecek şekilde label12 yerleştirin.

Şimdi formda boş kalan uygun bir yere Command1 (hesapla), Command2 (yenile), command3 (çıkış) düğmelerini yerleştirin.

Private Sub Form_Load() ' Bu bölüm text ve label nesnelerinin içlerini boşaltır.
Combo1.Text = ""
Text1 = ""
Text2 = ""
Text3 = ""
Label8 = ""
Label9 = ""
Label10 = ""
Label12 = ""
End Sub

' Açıklama; buradaki kodlar kredi çekilen bankanın 1 nci aydan başlayıp 21 nci vadeye kadar olan hesaplamaları yapar, dileyen bu vadeyi artırabilir. kodlar içerisinde bulunan örneğin "sonuc4 = sonuc2 - sonuc2 * 0.1203" bunun gibi bir kod bankanın net olarak müşterisinden kesmiş olduğu faiz ve masrafları bu kod sayesinde ortalama olarak indirger, yani bu kod parçası sayesinde kesintiler arasında 1 kaç kuruş bile fark ettirmez, birnevi katsayı olarak kullanılmıştır. bu sayede her vade için katsayı değişir.

Private Sub Command1_Click() 'Bu düğme program için gerekli hesaplamaları yapar.
Dim anapara, vade, faizoran, sonuc, sonuc1, sonuc2, sonuc3, sonuc4
anapara = Val(Text1)
vade = Val(Text2)
faizoran = Val(Text3)
' Burdan sonrası hesaplamalar yapılır
If (Text1 = "") Or (Text2 = "") Or (Text3 = "") Then
MsgBox "Lütfen kredi bilgilerini giriniz!", , "Kredi İşlemleri" 'kutular boş olduğu için hesaplama yapmaz, mesaz ile kullanıcıyı uyarır. (Açıklama)
Else
If vade = 12 Then '12 aylık vadeli ise bu kod çalışır.
sonuc = anapara * vade * faizoran / 1200
sonuc1 = ((sonuc * vade) + anapara)
sonuc2 = ((sonuc * vade) + anapara) / vade
sonuc3 = sonuc * vade
sonuc4 = sonuc2 - sonuc2 * 0.0595 'Bu kod 12 aylık vade için katsayı vermek için kulanılmıştır.
Label8 = Format((sonuc4), "#,##0.00") & " YTL."
Label9 = Format((sonuc4 * vade - anapara), "#,##0.00") & " YTL."
Label10 = Format((sonuc4 * vade), "#,##0.00") & " YTL."
Label12 = Format((sonuc), "#,##0.00") & " YTL."
End If
If vade = 15 Then
sonuc = anapara * vade * faizoran / 1200
sonuc1 = ((sonuc * vade) + anapara)
sonuc2 = ((sonuc * vade) + anapara) / vade
sonuc3 = sonuc * vade
sonuc4 = sonuc2 - sonuc2 * 0.1203
' Hesaplamanın yapıldığı ikinci bölüm
Label8 = Format((sonuc4), "#,##0.00") & " YTL."
Label9 = Format((sonuc4 * vade - anapara), "#,##0.00") & " YTL."
Label10 = Format((sonuc4 * vade), "#,##0.00") & " YTL."
Label12 = Format((sonuc), "#,##0.00") & " YTL."
End If
If vade = 18 Then
sonuc = anapara * vade * faizoran / 1200
sonuc1 = ((sonuc * vade) + anapara)
sonuc2 = ((sonuc * vade) + anapara) / vade
sonuc3 = sonuc * vade
sonuc4 = sonuc2 - sonuc2 * 0.1856
' Hesaplamanın yapıldığı ikinci bölüm
Label8 = Format((sonuc4), "#,##0.00") & " YTL."
Label9 = Format((sonuc4 * vade - anapara), "#,##0.00") & " YTL."
Label10 = Format((sonuc4 * vade), "#,##0.00") & " YTL."
Label12 = Format((sonuc), "#,##0.00") & " YTL."
End If
If vade = 9 Then
sonuc = anapara * vade * faizoran / 1200
sonuc1 = ((sonuc * vade) + anapara)
sonuc2 = ((sonuc * vade) + anapara) / vade
sonuc3 = sonuc * vade
sonuc4 = sonuc2 - sonuc2 * 0.0095
' Hesaplamanın yapıldığı ikinci bölüm
Label8 = Format((sonuc4), "#,##0.00") & " YTL."
Label9 = Format((sonuc4 * vade - anapara), "#,##0.00") & " YTL."
Label10 = Format((sonuc4 * vade), "#,##0.00") & " YTL."
Label12 = Format((sonuc), "#,##0.00") & " YTL."
End If
If vade = 6 Then
sonuc = anapara * vade * faizoran / 1200
sonuc1 = ((sonuc * vade) + anapara)
sonuc2 = ((sonuc * vade) + anapara) / vade
sonuc3 = sonuc * vade
sonuc4 = sonuc2 + sonuc2 * 0.02275
' Hesaplamanın yapıldığı ikinci bölüm
Label8 = Format((sonuc4), "#,##0.00") & " YTL."
Label9 = Format((sonuc4 * vade - anapara), "#,##0.00") & " YTL."
Label10 = Format((sonuc4 * vade), "#,##0.00") & " YTL."
Label12 = Format((sonuc), "#,##0.00") & " YTL."
End If
If vade = 3 Then
sonuc = anapara * vade * faizoran / 1200
sonuc1 = ((sonuc * vade) + anapara)
sonuc2 = ((sonuc * vade) + anapara) / vade
sonuc3 = sonuc * vade
sonuc4 = sonuc2 + sonuc2 * 0.03092
' Hesaplamanın yapıldığı ikinci bölüm
Label8 = Format((sonuc4), "#,##0.00") & " YTL."
Label9 = Format((sonuc4 * vade - anapara), "#,##0.00") & " YTL."
Label10 = Format((sonuc4 * vade), "#,##0.00") & " YTL."
Label12 = Format((sonuc), "#,##0.00") & " YTL."
End If
If vade = 21 Then
sonuc = anapara * vade * faizoran / 1200
sonuc1 = ((sonuc * vade) + anapara)
sonuc2 = ((sonuc * vade) + anapara) / vade
sonuc3 = sonuc * vade
sonuc4 = sonuc2 - sonuc2 * 0.251001
' Hesaplamanın yapıldığı ikinci bölüm
Label8 = Format((sonuc4), "#,##0.00") & " YTL."
Label9 = Format((sonuc4 * vade - anapara), "#,##0.00") & " YTL."
Label10 = Format((sonuc4 * vade), "#,##0.00") & " YTL."
Label12 = Format((sonuc), "#,##0.00") & " YTL."
End If
If vade = 2 Then
sonuc = anapara * vade * faizoran / 1200
sonuc1 = ((sonuc * vade) + anapara)
sonuc2 = ((sonuc * vade) + anapara) / vade
sonuc3 = sonuc * vade
sonuc4 = sonuc2 + sonuc2 * 0.02753
' Hesaplamanın yapıldığı ikinci bölüm
Label8 = Format((sonuc4), "#,##0.00") & " YTL."
Label9 = Format((sonuc4 * vade - anapara), "#,##0.00") & " YTL."
Label10 = Format((sonuc4 * vade), "#,##0.00") & " YTL."
Label12 = Format((sonuc), "#,##0.00") & " YTL."
End If
If vade = 4 Then
sonuc = anapara * vade * faizoran / 1200
sonuc1 = ((sonuc * vade) + anapara)
sonuc2 = ((sonuc * vade) + anapara) / vade
sonuc3 = sonuc * vade
sonuc4 = sonuc2 + sonuc2 * 0.03113
' Hesaplamanın yapıldığı ikinci bölüm
Label8 = Format((sonuc4), "#,##0.00") & " YTL."
Label9 = Format((sonuc4 * vade - anapara), "#,##0.00") & " YTL."
Label10 = Format((sonuc4 * vade), "#,##0.00") & " YTL."
Label12 = Format((sonuc), "#,##0.00") & " YTL."
End If
If vade = 5 Then
sonuc = anapara * vade * faizoran / 1200
sonuc1 = ((sonuc * vade) + anapara)
sonuc2 = ((sonuc * vade) + anapara) / vade
sonuc3 = sonuc * vade
sonuc4 = sonuc2 + sonuc2 * 0.02843
' Hesaplamanın yapıldığı ikinci bölüm
Label8 = Format((sonuc4), "#,##0.00") & " YTL."
Label9 = Format((sonuc4 * vade - anapara), "#,##0.00") & " YTL."
Label10 = Format((sonuc4 * vade), "#,##0.00") & " YTL."
Label12 = Format((sonuc), "#,##0.00") & " YTL."
End If
If vade = 7 Then
sonuc = anapara * vade * faizoran / 1200
sonuc1 = ((sonuc * vade) + anapara)
sonuc2 = ((sonuc * vade) + anapara) / vade
sonuc3 = sonuc * vade
sonuc4 = sonuc2 + sonuc2 * 0.01445
' Hesaplamanın yapıldığı ikinci bölüm
Label8 = Format((sonuc4), "#,##0.00") & " YTL."
Label9 = Format((sonuc4 * vade - anapara), "#,##0.00") & " YTL."
Label10 = Format((sonuc4 * vade), "#,##0.00") & " YTL."
Label12 = Format((sonuc), "#,##0.00") & " YTL."
End If
If vade = 8 Then
sonuc = anapara * vade * faizoran / 1200
sonuc1 = ((sonuc * vade) + anapara)
sonuc2 = ((sonuc * vade) + anapara) / vade
sonuc3 = sonuc * vade
sonuc4 = sonuc2 + sonuc2 * 0.00355
' Hesaplamanın yapıldığı ikinci bölüm
Label8 = Format((sonuc4), "#,##0.00") & " YTL."
Label9 = Format((sonuc4 * vade - anapara), "#,##0.00") & " YTL."
Label10 = Format((sonuc4 * vade), "#,##0.00") & " YTL."
Label12 = Format((sonuc), "#,##0.00") & " YTL."
End If
If vade = 10 Then
sonuc = anapara * vade * faizoran / 1200
sonuc1 = ((sonuc * vade) + anapara)
sonuc2 = ((sonuc * vade) + anapara) / vade
sonuc3 = sonuc * vade
sonuc4 = sonuc2 - sonuc2 * 0.02459
' Hesaplamanın yapıldığı ikinci bölüm
Label8 = Format((sonuc4), "#,##0.00") & " YTL."
Label9 = Format((sonuc4 * vade - anapara), "#,##0.00") & " YTL."
Label10 = Format((sonuc4 * vade), "#,##0.00") & " YTL."
Label12 = Format((sonuc), "#,##0.00") & " YTL."
End If
If vade = 11 Then
sonuc = anapara * vade * faizoran / 1200
sonuc1 = ((sonuc * vade) + anapara)
sonuc2 = ((sonuc * vade) + anapara) / vade
sonuc3 = sonuc * vade
sonuc4 = sonuc2 - sonuc2 * 0.041411
' Hesaplamanın yapıldığı ikinci bölüm
Label8 = Format((sonuc4), "#,##0.00") & " YTL."
Label9 = Format((sonuc4 * vade - anapara), "#,##0.00") & " YTL."
Label10 = Format((sonuc4 * vade), "#,##0.00") & " YTL."
Label12 = Format((sonuc), "#,##0.00") & " YTL."
End If
If vade = 13 Then
sonuc = anapara * vade * faizoran / 1200
sonuc1 = ((sonuc * vade) + anapara)
sonuc2 = ((sonuc * vade) + anapara) / vade
sonuc3 = sonuc * vade
sonuc4 = sonuc2 - sonuc2 * 0.078911
' Hesaplamanın yapıldığı ikinci bölüm
Label8 = Format((sonuc4), "#,##0.00") & " YTL."
Label9 = Format((sonuc4 * vade - anapara), "#,##0.00") & " YTL."
Label10 = Format((sonuc4 * vade), "#,##0.00") & " YTL."
Label12 = Format((sonuc), "#,##0.00") & " YTL."
End If
If vade = 14 Then
sonuc = anapara * vade * faizoran / 1200
sonuc1 = ((sonuc * vade) + anapara)
sonuc2 = ((sonuc * vade) + anapara) / vade
sonuc3 = sonuc * vade
sonuc4 = sonuc2 - sonuc2 * 0.099251
' Hesaplamanın yapıldığı ikinci bölüm
Label8 = Format((sonuc4), "#,##0.00") & " YTL."
Label9 = Format((sonuc4 * vade - anapara), "#,##0.00") & " YTL."
Label10 = Format((sonuc4 * vade), "#,##0.00") & " YTL."
Label12 = Format((sonuc), "#,##0.00") & " YTL."
End If
End If
End Sub 'Hesapla komutu burada son bulmaktadır.

Private Sub Command2_Click() 'Bu bölüm yenile düğmesinin kodlarıdır.
Text1 = "" 'ait oldugu kutularin içini bosaltir.
Text2 = ""
Text3 = ""
Label8 = ""
Label9 = ""
Label10 = ""
Label12 = ""
Text1.SetFocus 'tıklandığı zaman kursoru combo1 kutusundan baslatir.
End Sub

Private Sub Command3_Click() 'bu bölüm ise programdan çıkmak için kullanılır.
Unload Me
End Sub

Bu formu başka bir program üzerinden ayrietten kullanmaktayım.





Bu sayfa için henüz yorum eklenmemiş.

© Hakan Ersöz 2000-2013| Üyelik Sözleşmesi | | Ödeme Bildirimi
Sitemizden yenilikleri hemen öğrenin, pop upları engelleyin, chat yapın... ToolBarımızı indirin:
Vasicmaster Toolbar'ı indirin