Public Class Form1

Private Sub btntampilkan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btntampilkan.Click
MessageBox.Show(txthadiah.Text,
"Selamat Anda Mendapatkan Hadiah Dari Kami. Hadiah Anda Adalah:")
End Sub

Private Sub btnhitung_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhitung.Click
Dim Harga, Jumlah As Integer
Dim Hadiah As String
Dim TotalHarga, TotalBayar, Potongan As Double

Harga = txtharga.Text
Jumlah = txtjumlah.Text


If TotalHarga >= 1000000 Then
Potongan = "125000"
Hadiah = "UMRAH"
ElseIf TotalHarga >= 500000 Then
Potongan = "100000"
Hadiah = "Sepatu"
ElseIf TotalHarga >= 200000 Then
Potongan = "75000"
Hadiah = "Sendal"
ElseIf TotalHarga >= 100000 Then
Potongan = "50000"
Hadiah = "Kaos Kaki"
ElseIf TotalHarga >= 50000 Then
Potongan = "20000"
Hadiah = "Gunting Kuku"
ElseIf TotalHarga >= 30000 Then
Potongan = "500"
Hadiah = "Gelas Plastik"
Else
Potongan = "0"
Hadiah = "Maaf Belum Saatnya Anda Mendapatkan HADIAH"

End If
Potongan = txtpotongan.Text
Hadiah = txthadiah.Text
TotalBayar = txttotalbayar.Text
TotalHarga = txttotalharga.Text
TotalHarga = Harga * Jumlah
TotalBayar = TotalHarga - Potongan


End Sub

Private Sub btnulang_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnulang.Click
txtnama.Text = ""
txtbarang.Text = ""
txthadiah.Text = ""
txtharga.Text = ""
txtjumlah.Text = ""
txtpotongan.Text = ""
txttotalbayar.Text = ""
txttotalharga.Text = ""
End Sub

Private Sub btnkeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnkeluar.Click
End
End Sub
End Class