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
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