Program Input Harga Photo Copy

Public Class Form1
    Private Sub Btn_Proses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn_Proses.Click
        Pembayaran.Text = Total.Text - Discount.Text
    End Sub

    Private Sub Jlh_Lembar_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Jlh_Lembar.TextChanged
        Dim m As Integer
        m = Jlh_Lembar.Text
        If m >= 200 Then
            HPL.Text = 100
        ElseIf m <= 200 Then
            HPL.Text = ""
        End If
    End Sub

    Private Sub HPL_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles HPL.KeyPress
        Total.Text = HPL.Text * Jlh_Lembar.Text
        If Total.Text > 500000 Then
            Discount.Text = 0.15
        End If
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub
End Class