1. Listview
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim i As Integer
For i = 200 To 999
JL.Items.Add(i)
Next
End Sub
Private Sub JL_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles JL.SelectedIndexChanged
If JL.Text >= "200" Then
HpL.Text = "90"
Else
HpL.Text = "100"
End If
End Sub
Private Sub HpL_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles HpL.TextChanged
TH.Text = HpL.Text * JL.Text
End Sub
Private Sub TH_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TH.TextChanged
If TH.Text >= "500000" Then
discount.Text = 0.15
End If
End Sub
Private Sub Proses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Proses.Click
pembayaran.Text = Val(TH.Text) -Val(discount.Text)
End Sub
End Class
2.Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim i As Integer
For i = 200 To 999
JL.Items.Add(i)
Next
End Sub
Private Sub JL_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles JL.SelectedIndexChanged
If JL.Text >= "200" Then
HpL.Text = "90"
Else
HpL.Text = "100"
End If
End Sub
Private Sub HpL_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles HpL.TextChanged
TH.Text = HpL.Text * JL.Text
End Sub
Private Sub TH_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TH.TextChanged
If TH.Text >= "500000" Then
discount.Text = 0.15
End If
End Sub
Private Sub Proses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Proses.Click
pembayaran.Text = Val(TH.Text) -Val(discount.Text)
End Sub
End Class
