Contoh Project Visual Basic Mencari Diskon dari Total Pembelian

Mencari Diskon

Diskon didapat jika total pembelian kurang dari 100000 maka diskon 0%,jika total pembelian lebih dari dari 100000 dan kurang dari 500000 maka mendapatkan diskon 10% jika total pembelian lebih dari 500000 dan kurang dari 1000000 maka mendapatkan diskon 15% dan jika total pembelian lebih dari 1000000 maka mendapatkan diskon 20%.

Jika pada form ada tanda (‘) berarti kata-kata tersebut hanya sebagai pengingat(komentar) dan tidak mempengaruhi coding.

• Buat Form seperti gambar dan propeertis berikut ;

• Atur Propertis form sesuai dengan data berikut ;

Jika form selesai dibuat sekarang masuk ke coding,untuk memunculkan coding klik view code seperti gambar berikut ;

• Jika sudah selesai isi code seperti berikut ;

Public Class Latihan4

    Private Sub txtTP_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtTP.TextChanged

        Dim TP, Diskon, TB As Long

‘Dim merupakan pendeklarasian variable dengan tipe data tertentu

        TP = Val(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

    Private Sub Latihan4_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        Me.txtTP.Text = "0"

    End Sub

End Class