Program Yapmak | Programcılık Hakkında Her Şey | VİSUAL BASİC 6.0 | C, C++ ve C# Yazılım Dilleri | VB.NET Yazılım Dili

Visual Basic 6.0 Basit KDV Hesaplama Programi Yapmak

VB 6 ' da basit bir kdv hesaplama programı yapalım.KDV oranını kendimize göre ayarlayalı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.

http://resim.sanalkurs.net/uploads/form_1.jpg

Kodlarımızı giriyoruz.

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


Gecenin ikisinde VB 6'da işlem mantığını göstermeye çalıştım. Gözümden kaçan bir hata varsa affola. VB 6 ' da basit bir kdv hesaplama programı yapalım.KDV oranını kendimize göre ayarlayalı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.

http://resim.sanalkurs.net/uploads/form_1.jpg

Kodlarımızı giriyoruz.

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


Gecenin ikisinde VB 6'da işlem mantığını göstermeye çalıştım. Gözümden kaçan bir hata varsa affola.
Sincan Laptop tamiratı ile alakalı içeriklerin bulunduğu web siteden bilgilere ulaşabilirsiniz. Sincan'da laptop tamiratını en iyi yapan yerleri sorgulayabilirsiniz. Cihan KOÇ
=> Sen de ücretsiz bir internet sitesi kurmak ister misin? O zaman burayı tıkla! <=