VB.NET kullanarak KDV indirimi hesaplayan bir program yapmak oldukça basittir. Bu programın amacı, kullanıcının girdiği ürün fiyatını ve KDV oranını kullanarak KDV indirimi yapmak ve sonuçları ekrana yazdırmaktır. Aşağıda adım adım yapılması gerekenleri açıklayacağız:
İlk olarak, VB.NET üzerinde yeni bir proje oluşturun ve form üzerine gerekli bileşenleri ekleyin. Bu bileşenler arasında, ürün fiyatı için bir metin kutusu, KDV oranı için bir açılır menü, bir etiket ve bir düğme yer almalıdır.
KDV oranları için bir açılır menü oluşturun. Bu menü, kullanıcının seçebileceği KDV oranlarını içermelidir. Aşağıdaki kodu, örnek olarak %8, %18 ve %21 oranlarını ekleyen bir işlevi kullanarak açılır menüyü doldurabilirsiniz.
vb.net
Private Sub FillKdvRates()
cmbKdvRate.Items.Add(“8”)
cmbKdvRate.Items.Add(“18”)
cmbKdvRate.Items.Add(“21”)
End Sub
KDV oranlarını saklamak için bir değişken oluşturun.
vb.net
Dim kdvRate As Double
KDV hesaplamak için bir işlev oluşturun. Bu işlev, kullanıcının girdiği ürün fiyatını ve KDV oranını alacak ve sonucu döndürecektir.
vb.net
Private Function CalculateKdv(price As Double, kdvRate As Double) As Double
Return price * kdvRate / 100
End Function
Son olarak, kullanıcının girdiği ürün fiyatını ve KDV oranını almak ve KDV hesaplamak için düğmenin işlevini tamamlayın.
vb.net
Private Sub btnCalculate_Click(sender As Object, e As EventArgs) Handles btnCalculate.Click
Dim price As Double = Double.Parse(txtPrice.Text)
kdvRate = Double.Parse(cmbKdvRate.Text)
Dim kdvAmount As Double = CalculateKdv(price, kdvRate)
Dim totalAmount As Double = price – kdvAmount
lblResult.Text = “KDV Tutarı: ” & kdvAmount.ToString(“C2”) & Environment.NewLine & “Toplam Tutar: ” & totalAmount.ToString(“C2”)
End Sub
Bu adımları takip ederek VB.NET kullanarak KDV indirimi hesaplayan bir program yapabilirsiniz. Programı çalıştırdığınızda, kullanıcının girdiği ürün fiyatına ve seçilen KDV oranına göre KDV indirimi yapacak ve sonucu ekrana yazdıracaktır.