Public Class Form1
    Private Sub BtnHitung_Click(sender As Object, e As EventArgs) Handles BtnHitung.Click
        ' membuat variable untuk menampung data dari masing - masing combobox
        Dim pilihan1 As Integer
        Dim pilihan2 As Integer
        Dim pilihan3 As Integer
        Dim pilihan4 As Integer
        ' membuat variable untuk menampung data dari masing - masing textbox
        Dim harga1 As Integer
        Dim harga2 As Integer
        Dim harga3 As Integer
        Dim harga4 As Integer
        ' membuat variable untuk menampung hasil perhitungan total harga
        Dim totalHarga1 As Integer
        Dim totalHarga2 As Integer
        Dim totalHarga3 As Integer
        Dim totalHarga4 As Integer

        ' mengisi variable combobox
        pilihan1 = Cb1.SelectedItem
        pilihan2 = Cb2.SelectedItem
        pilihan3 = Cb3.SelectedItem
        pilihan4 = Cb4.SelectedItem

        ' mengisi variable textbox
        harga1 = Integer.Parse(TbHarga1.Text)
        harga2 = Integer.Parse(TbHarga2.Text)
        harga3 = Integer.Parse(TbHarga3.Text)
        harga4 = Integer.Parse(TbHarga4.Text)

        ' Hitung total harga berdasarkan jumlah kuantity dari combobox * harga
        totalHarga1 = pilihan1 * harga1
        totalHarga2 = pilihan2 * harga2
        totalHarga3 = pilihan3 * harga3
        totalHarga4 = pilihan4 * harga4

        ' Cetak Jumlah Harga
        Dim currencyTotal = Integer.Parse(totalHarga1) + Integer.Parse(totalHarga2) + Integer.Parse(totalHarga3) + Integer.Parse(totalHarga4)

        ' cek diskon
        If CBoxDiskon1.Checked = True Then
            currencyTotal = currencyTotal + 2
        End If

        ' merubah cultureinfo menjadi indonesia
        System.Threading.Thread.CurrentThread.CurrentCulture = New System.Globalization.CultureInfo("id-ID")
        System.Threading.Thread.CurrentThread.CurrentUICulture = New System.Globalization.CultureInfo("id-ID")
        LblTotal.Text = FormatCurrency(currencyTotal)


        If currencyTotal > 5000 And currencyTotal <= 10000 Then
            PbBonus.Image = My.Resources.kucing_galau
            LblBonus.Text = "Anda Mendapatkan Bonus Kucing Galau"
        Else
            PbBonus.Image = Nothing
            LblBonus.Text = "Anda Tidak mendapat Bonus"
        End If


    End Sub



    Private Sub DdDiskon_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdDiskon1.SelectedIndexChanged
        Dim persen1 As Integer
        persen1 = DdDiskon1.SelectedItem * Integer.Parse(TbHarga1.Text) / 100
        TbDiskon1.Text = Integer.Parse(TbHarga1.Text) - persen1
    End Sub

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        DdDiskon1.Enabled = False
        TbDiskon1.Enabled = False

        DdDiskon2.Enabled = False
        TbDiskon2.Enabled = False

        ' tambahkan 4 component lagi yang belum
    End Sub

    Private Sub Cb1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles Cb1.SelectedIndexChanged
        Dim hargaProduk1 As Integer = 10000
        TbHarga1.Text = Cb1.SelectedItem * hargaProduk1
        TbDiskon1.Text = Cb1.SelectedItem * hargaProduk1
    End Sub

    Private Sub Cb2_SelectedIndexChanged(sender As Object, e As EventArgs) Handles Cb2.SelectedIndexChanged
        Dim hargaProduk2 As Integer = 20000
        TbHarga2.Text = Cb2.SelectedItem * hargaProduk2
        TbDiskon2.Text = Cb2.SelectedItem * hargaProduk2
    End Sub

    Private Sub CBoxDiskon_CheckedChanged(sender As Object, e As EventArgs) Handles CBoxDiskon1.CheckedChanged

        If CBoxDiskon1.Checked = True Then

            DdDiskon1.Enabled = True
            TbDiskon1.Enabled = True
        Else
            DdDiskon1.Enabled = False
            TbDiskon1.Enabled = False
        End If
    End Sub

    Private Sub CboxDiskon2_CheckedChanged(sender As Object, e As EventArgs) Handles CboxDiskon2.CheckedChanged

    End Sub
End Class