Ürün bilgilerini giriyorsunuz, size tutarını ve yüzdesini hesaplıyor.
[COLOR=#c5003f]forma 1 adet buton,3 adet textbox ve 1 adet checkbox eklemelisiniz.
Private Sub Command1_Click()
Dim adet As Integer
Dim birimf As Integer
Dim toplamt As Integer
adet = Val(Text2.Text)
birimf = Val(Text3.Text)
toplamt = (adet * birimf)
Text4.Text = toplamt
If Check1.Value = 1 Then
'toplamt = (adet*birimf %18)
End If
End Sub