Visual Basic 2008 Kodlar için
Latın'e teşekürLer
3 adet TextBox ekLiyoruz 1.si ne Fiyat 2.sine Tane 3.sünü boş bırakıoruz
1 adet lanel
1 adet de buyton ekLiyoruz
Latın'e teşekürLer
3 adet TextBox ekLiyoruz 1.si ne Fiyat 2.sine Tane 3.sünü boş bırakıoruz
1 adet lanel
1 adet de buyton ekLiyoruz
PHP:
Private Sub command1_Click()
Dim ucret, adet, kdv As Integer
Dim toplam As Double
ucret = Val(Text1.Text)
adet = Val(Text2.Text)
kdv = Val(Text3.Text)
toplam = (ucret * adet) + (ucret * adet / 100 * 18)
Text3.Text = (ucret * adet / 100 * 18)
Label1.Caption = toplam
End Sub
Son düzenleme:
ceviride güzeL oLmuş eLine sağLık ..
