Temelden Visual Basic Eğitimi Alıştırma Örnekleri

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 örnekte formun genişliği ile ilgili bilgi kullanıcıdan alınıp, buna göre
form özelliğini değiştiren program yazılacaktır. Form ilk açıldığında ekranın
sol üst köşesinde ve boyutları değişmez olarak görüntülenecektir.





Form (Ornek1) üzerinde bir yazı kutusu (txtGenis-Name), bir etiket
(Istenilen Genislik-Caption, lblGenis-Name) ve bir komut düğmesi (Formu
Genislet-Caption, cmdGenis-Name) olacaktır.





Form Prosedürü


Sub Ornek1_Load


Ornek1.Top = 0


Ornek1.Left = 0


Ornek1.BorderStyle = 0


Ornek1.ControlBox = 0


End Sub


Komut Düğmesi Prosedürü


Sub cmdGenis_Click


' Formun genişliğinin
500'den fazla olmaması için denetleme


If Val(txtGenis.Text) > 500 Then Ornek1.Width
=500


Else Ornek1.Width = Val(txtGenis.Text)


End If


End Sub







1.
Yeni bir proje yaratınız.


2.
Form üzerine bir zamanlayıcı ve
bir resim denetleyicisi koyunuz.


3.
Resmin "Picture"
özelliğinin yanındaki düğmeyi tıklayınız.


4.
"Load Picture" diyalog
pencerei ekrana geldiğinde VisualBasic\Graphics\Icons\Misc dizininden
face03.ico resmini seçiniz.


5.
Aşağıda verilen kodları gerekli
yerlere yazınız.


Dim xChange As Integer


Dim yChange As Integer





Private Sub Form_Load


xChange=100


yChange=100


End Sub





Private Sub Timer1_Timer()


Image1.Left
= Image1.Left + xChange


Image1.Top
= Image1.Top + yChange


If
Image1.Left > Me.ScaleWidth Then xChange=xChange * -1


If
Image1.Left < 0 Then xChange=xChange * -1


If
Image1.Top > Me.ScaleHeight Then yChange=yChange * -1


If
Image1.Top < 0 yChange=yChange * -1


End Sub





6.
"Timer Control"
özellikler penceresinde "Interval" özelliğini "True"
yapınız.





Programı çalıştırdığınızda, resim ekran üzerinde hareket edecek ve formun
bir kenarına çarptığında yön değiştirecektir.