Aplikasi Mencari Diskon Visual Basic 2010

 Public Class Latihan_4

    Private Sub txtTP_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles txtTP.TextChanged
        Dim tp, diskon, tb As Double
        tp = Me.txtTP.Text

        If tp < 100000 Then
            diskon = 0
        ElseIf tp > 100000 And tp <= 500000 Then
            diskon = tp * 0.1
        ElseIf tp > 500000 And tp <= 1000000 Then
            diskon = tp * 0.15
        ElseIf tp > 1000000 Then
            diskon = tp * 0.2

        End If
        tb = tp - diskon
        Me.txtDISKON.Text = diskon.ToString
        Me.txtTB.Text = tb.ToString

    End Sub

• Start Debugging