Public Class Form1
Private Sub btn_proses_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles btn_proses.Click
If
jumlah.Text >= 200 Then
HpL.Text = 90
Else
HpL.Text = 100
End If
total_harga.Text = HpL.Text *
jumlah.Text
If
total_harga.Text > 500000 Then
discount.Text = 0.15 *
total_harga.Text
Else
discount.Text = 0
End If
pembayaran.Text = total_harga.Text -
discount.Text
End Sub
Private Sub btn_hapus_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles btn_hapus.Click
jumlah.Text = ""
HpL.Text = ""
total_harga.Text = ""
discount.Text = ""
pembayaran.Text = ""
End Sub
Private Sub btn_keluar_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles btn_keluar.Click
Me.Close()
End Sub
Private Sub Form1_Load(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles MyBase.Load
End Sub
End Class
