Membuat Program Warung Ayam Mampus

Code Program Sebagai Berikut :

Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim jumlah, hasil, pajak As Integer
jumlah = Int(TextBox1.Text) * 5500 + Int(TextBox2.Text) * 9000 + Int(TextBox3.Text) * 10000 + Int(TextBox4.Text) * 5000
pajak = jumlah * 0.1
hasil = jumlah + pajak
TextBox5.Text = Str(jumlah)
TextBox6.Text = Str(pajak)
TextBox7.Text = "Rp." + Str(hasil)
End Sub

End Class

Hasilnya Sebagai Berikut :