Dim mal1, mal2, mal3, toplammallar, toplamfiyat, indirim As Integer
Dim tutar As Double
toplammallar = 0
toplamfiyat = 0
indirim = 0


mal1 = Val(Text1.Text)
mal2 = Val(Text2.Text)
mal3 = Val(Text3.Text)
toplammallar = mal1 + mal2 + mal3
Text8.Text = toplammallar & " adet mal almışsınız"



Text4.Text = mal1 * 20 & " TL"
Text5.Text = mal2 * 25 & " TL"
Text6.Text = mal3 * 30 & " TL"
toplamfiyat = Val(Text4.Text) + Val(Text5.Text) + Val(Text6.Text)
Text7.Text = toplamfiyat & " TL"


If toplamfiyat > 30000 Then
odenecektutar = toplamfiyat * 0.5
MsgBox ("Ödemeniz gereken fiyat" & odenecektutar)

End If
If toplammallar > 100 Then
indirim = toplamfiyat * 0.1

MsgBox ("Ödemeniz gereken fiyat" & indirim)

End If