Imports System.Windows.Forms.DataVisualization.Charting

Public Class Form4

    Dim BRS As Integer

    Dim jum1, jum2, jum3, jum4, jum5 As Integer

    Private Sub Form4_Load(sender As Object, e As EventArgs) Handles MyBase.Load

        DataGridView1.ColumnCount = 9

        DataGridView1.RowCount = 1

        DataGridView1.Columns(0).HeaderText = "No."

        DataGridView1.Columns(1).HeaderText = "TANGGAL"

        DataGridView1.Columns(2).HeaderText = "KODE BARANG"

        DataGridView1.Columns(3).HeaderText = "NAMA BARANG"

        DataGridView1.Columns(4).HeaderText = "HARGA SATUAN"

        DataGridView1.Columns(5).HeaderText = "JUMLAH"

        DataGridView1.Columns(6).HeaderText = "DISKON"

        DataGridView1.Columns(7).HeaderText = "JUMLAH HARGA"

        DataGridView1.Columns(8).HeaderText = "TOTAL HARGA"

        BRS = 0

        TextBox5.Text = BRS + 1

        jum1 = 0

        jum2 = 0

        jum3 = 0

        jum4 = 0

        jum5 = 0

    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

        Dim DISK As Single

        DataGridView1.RowCount = DataGridView1.RowCount + 1

        DataGridView1.Item(0, BRS).Value = TextBox5.Text

        DataGridView1.Item(1, BRS).Value = Format("dd/MM/yyyy", DateTimePicker1.Value)

        DataGridView1.Item(2, BRS).Value = TextBox1.Text

        DataGridView1.Item(3, BRS).Value = TextBox2.Text

        DataGridView1.Item(4, BRS).Value = TextBox3.Text

        DataGridView1.Item(5, BRS).Value = TextBox4.Text

        If RadioButton1.Checked = True Then

            DISK = 0

        ElseIf RadioButton2.Checked = True Then

            DISK = 0.05 * (CInt(TextBox3.Text) * CInt(TextBox4.Text))

        ElseIf RadioButton3.Checked = True Then

            DISK = 0.1 * (CInt(TextBox3.Text) * CInt(TextBox4.Text))

        ElseIf RadioButton4.Checked = True Then

            DISK = 0.15 * (CInt(TextBox3.Text) * CInt(TextBox4.Text))

        ElseIf RadioButton5.Checked = True Then

            DISK = 0.2 * (CInt(TextBox3.Text) * CInt(TextBox4.Text))

        Else

            DISK = 0

        End If

        DataGridView1.Item(6, BRS).Value = DISK

        DataGridView1.Item(7, BRS).Value = JLH_HRG(CInt(TextBox3.Text), CInt(TextBox4.Text))

        DataGridView1.Item(8, BRS).Value = Format(CInt(TextBox3.Text) * CInt(TextBox4.Text) - DISK, "#########.##")

        BRS = BRS + 1

        TextBox5.Text = BRS + 1

        If RadioButton1.Checked = True Then

            jum1 = jum1 + 1

        ElseIf RadioButton2.Checked = True Then

            jum2 = jum2 + 1

        ElseIf RadioButton3.Checked = True Then

            jum3 = jum3 + 1

        ElseIf RadioButton4.Checked = True Then

            jum4 = jum4 + 1

        ElseIf RadioButton5.Checked = True Then

            jum5 = jum5 + 1

        End If

    End Sub

    Function JLH_HRG(HRG As Single, JLH As Integer) As Single

        JLH_HRG = HRG * JLH

    End Function

    Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click

        With Chart1 '=Nama Group

            .Series.Clear()

            .Series.Add("DISKON")

            .ChartAreas(0).AxisX.Interval = 1

            .ChartAreas(0).AxisX.IsStartedFromZero = True

            .Series(0).ChartType = SeriesChartType.Column 'Bentuk chart

            .Series(0).XValueType = ChartValueType.String

            .Series(0).YValueType = ChartValueType.Double

            'Isi Nilai Series/Chart (X,Y)

            .Series(0).Points.AddXY("0%", jum1)

            .Series(0).Points.AddXY("5%", jum2)

            .Series(0).Points.AddXY("10%", jum3)

            .Series(0).Points.AddXY("15%", jum4)

            .Series(0).Points.AddXY("20%", jum5)

        End With

    End Sub

End Class