Membuat Aplikasi Perhitungan Discount di VB

Selamat datang di blog saya, kali ini saya akan memberi tau anda bagaimana cara membuat aplikasi Perhitungan Discount di VB2010, kali ini saya menggunakan software Visual Studio 2010 tetapi bagi pegguna Visual Basic Express sama saja.

Buka VB anda, dan buat baru Windows Form Aplication dengan cara File-->>New-->>Project, beri nama PERHITUNGAN DISCOUNT. Buatlah desain form seperti yang ada di bawah ini :

Salin kode yang ada di bawah ini pada form 1:

Public Class Form1

    Private Sub TextBox1_KeyPress(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress

        If e.KeyChar = Chr(13) Then

            If TextBox1.Text >= 200000 Then

                Label2.Text = "Anda Mendapat Discount 20%"

                TextBox2.Text = Val(TextBox1.Text) - Val((TextBox1.Text) * 0.2)

            ElseIf TextBox1.Text < 100000 Then

                Label2.Text = "Anda Tidak Mendapatkan Discount"

            ElseIf TextBox1.Text >= 100000 Then

                Label2.Text = "Anda Mendapat Discount 10%"

                TextBox2.Text = Val(TextBox1.Text) - Val((TextBox1.Text) * 0.1)

            End If

        End If

    End Sub

    Private Sub TextBox3_KeyPress(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox3.KeyPress

        If e.KeyChar = Chr(13) Then

            TextBox4.Text = Val(TextBox3.Text) - Val(TextBox2.Text)

        End If

    End Sub

    Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged

    End Sub

End Class

Hasilnya akan seperti yang dibawah ini :

Jika anda Menjalankan programnya akan mejadi seperti ini :

Jika anda Menginutkan data 100000 maka hasilnya akan seperti ini :

Jika anda Menginutkan data 100000 maka hasilnya akan seperti ini :

Jika anda menginputkan data kurang dari 100000 maka tidak ada discount

SEMOGA PEROGRAM INI BERMANFAAT

SELAMAT MENCOBA :)