tutorialswb

TutorialsWB hadir sebagai wadah bagi teman-teman yang ingin "Belajar PHP Dasar". Sehingga kami yakin bahwa TutorialsWB akan menjadi Pusat "Belajar Bahasa Pemrograman PHP" Disamping PHP website ini menyediakan berbagai tips dan trik Blogger. Kami menerima Pemasangan iklan banner atau artikel.

Hubungi Saya

Visual Basic 2010 Program Harga, Diskon, dan Total bayar





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




Baca Juga