Visual Basic 2010 Program Harga, Diskon, dan Total bayar

//lh3.googleusercontent.com/-K5UKWzgJhmU/AAAAAAAAAAI/AAAAAAAACdI/CN3nwiBZsGE/s512-c/photo.jpg
November 16, 2016





Program Harga, Diskon, dan Total bayar VB 2010

 Public Class Form4
    Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
        If TextBox1.Text > 100000 Then
            TextBox2.Text = 0%
            TextBox3.Text = TextBox1.Text
        End If
        If TextBox1.Text >= 100000 And TextBox1.Text < 500000 Then
            TextBox2.Text = 10%
            TextBox3.Text = TextBox1.Text - (TextBox1.Text * 10 / 100)
        End If
        If TextBox1.Text >= 500000 And TextBox1.Text < 1000000 Then
            TextBox2.Text = 20%
            TextBox3.Text = TextBox1.Text - (TextBox1.Text * 20 / 100)
        End If
    End Sub
    Private Sub Form4_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    End Sub
End Class


Related Post

SUBSCRIBE TO OUR NEWSLETTER

closed