Cara Membuat Diskon Di vb

 Hello Sobat, Apa kalian bingung cara membuat program diskon di vb ? Oke disini saya akan langsung ajarin dan saya berikan syntaxnya ya. Oke langsung aja kita mulai ya sobat :D

- Pertama Sobat Atur Posisi seperti gambar dibawah ini, dan tool yang dibutuhkan adalah ( 5 label, 1 combobox, 4 textbox dan 2 button) untuk label ikuti text label seperti gambar dibawah ini, untuk combobox gantilah dengan nama "cmbnama", untuk textbox sesuaikan saja dengan nama depan labelnya hanya saja didepannya letakkan txt (contoh untuk jumlah beli : txtjumlah)

- untuk button ganti textnya dengan (1.Hitung dan 2.Bersihkan) dan untuk name pada button juga disamakan aja dengan textnya biar gak ribet sendiri nantinya :D

- Setelah Penamaan Selesai langsung saja sobat isi comboboxnya sesuai kebutuhan sobat dan ikuti instruksinya pada gambar dibawah ini.

- Jika semua sudah Beres langsung saja klik 2x pada tombol hitung dan masukkan syntaxnya seperti 2 gambar dibawah ini. dan kodingnya ada pada dibawah Gambar langsung aja sobat copas ya :D

Public Class Form1

    Private Sub Hitung_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Hitung.Click
        'Syntax untuk penentuan Harga Barang'

        If cmbnama.Text = "Pasta Gigi" Then
            txtharga.Text = "5000"
        ElseIf cmbnama.Text = "Pencukur Rambut" Then
            txtharga.Text = "7000"
        ElseIf cmbnama.Text = "Tusuk Gigi" Then
            txtharga.Text = "3000"
        ElseIf cmbnama.Text = "Mie Instant" Then
            txtharga.Text = "2500"
        ElseIf cmbnama.Text = "Mentega" Then
            txtharga.Text = "8000"
        ElseIf cmbnama.Text = "Gula" Then
            txtharga.Text = "9000"
        End If
        txttotal.Text = Val(txtjumlah.Text) * Val(txtharga.Text)

        'Syntax Untuk Diskon'
        If txttotal.Text <= 49000 Then
            txtdiskon.Text = "tidak ada diskon"
        ElseIf txttotal.Text <= 99000 Then
            txtdiskon.Text = "10%"
        ElseIf txttotal.Text <= 499000 Then
            txtdiskon.Text = "15%"
        ElseIf txttotal.Text <= 9990000 Then
            txtdiskon.Text = "20%"
        ElseIf txttotal.Text >= 1000000 Then
            txtdiskon.Text = "25%"
        End If


        'syntax untuk total harga yang mendapatkan diskon'

        Dim dsc As New TextBox
        If txtdiskon.Text = "10%" Then
            dsc.Text = Val(txtharga.Text * txtjumlah.Text) / 100 * 10
        ElseIf txtdiskon.Text = "15%" Then
            dsc.Text = Val(txtharga.Text * txtjumlah.Text) / 100 * 15
        ElseIf txtdiskon.Text = "20%" Then
            dsc.Text = Val(txtharga.Text * txtjumlah.Text) / 100 * 20
        ElseIf txtdiskon.Text = "25%" Then
            dsc.Text = Val(txtharga.Text * txtjumlah.Text) / 100 * 25


        End If

        If txttotal.Text = Val(txtharga.Text) * Val(txtjumlah.Text) Then
            txttotal.Text = Val(txttotal.Text) - Val(dsc.Text)
        End If

    End Sub


-Dibawah ini saya letakkan juga syntax untuk membersihkan ulang semua textboxnya. Pertama klik 2x tombol bersihkan lalu copas lah syntax dibawah ini:


 Private Sub bersih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Bersih.Click
        'syntax untuk membersihkan textbox saat di tekan tombol bersihkan'

        txtdiskon.Clear()
        txtharga.Clear()
        txtjumlah.Clear()
        txttotal.Clear()
        cmbnama.Text = ""

    End Sub
End Class


- Nah Setelah semua selesai maka hasil akan seperti dibawah ini :)

Sekian dulu artikel dari saya ya sobat semoga bermanfaat :)

Wassalamualaikum

Author : Unknown

Share this

Related Posts