Selamın Aleyküm arkadaşLar bu konuda Kdv hesapLama programını anLatıyorum..
Kod:
[COLOR=Red]Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim ucret, adet, kdv As Integer
Dim toplam As Double
ucret = Val(TextBox1.Text)
adet = Val(TextBox2.Text)
kdv = Val(TextBox3.Text)
toplam = (ucret * adet) + (ucret * adet / 100 * 18)
TextBox3.Text = (ucret * adet / 100 * 18)
label1.Text = toplam
End Sub
[/COLOR]
End Class
