Basit bir kdv hesaplama programı yapalım.KDV oranını kendimize göre ayarlayalım.Bu zamanda herkese lazım.
Öncelikle formumuza 2 adet command button,4 adet textbox,1 adet option button ekliyoruz.Butonlardan birinin adını sifirla olarak değiştiriyoruz. Optionbuttonun adını kdv olarak değiştiriyoruz. Ayrıca kdv oranını gireceğimiz textboxun adını da kdv2 olarak değiştiriyoruz. Son olarak text boxların adlarını a,b ve sonuc olarak değiştiriyoruz.
Form'um Kod Kısmına
Kod:
Private Sub Command1_Click()
// KDV ' siz işlemimiz.
sonuc.Text = a * b
End Sub
Private Sub kdv_Click()
// KDV yi işaretlediğimizde işlemimize KDV dahil olacaktır.
sonuc.Text = (a * b) + (a * b) / 100 * kdv2.Text
End Sub
Public Sub sifirla_Click()
// Formu sıfırlama kodlarımız.
If True Then
Cls
a = 0
b = 0
sonuc = 0
kdv = 0
kdv2 = 18
End If
End Sub
01-29-2011, 10:59
KDV Hesaplama Programı 
Normal
