Latihan_44_46110037

Deskripsi Form Latihan 44

Terdapat 2 object yaitu DataGridView; Button dan Chart

Object DataGridView

Terdapat 1 DataGridView yang akan menampilkan data table.

Object Button

Terdapat 5 button yaitu Grafik Batang, Grafik Line, GrafikLingkar, Grafik Batang 3D dan Graffik Line 3D. Ketika tombol tersebut di clik maka chart akan menampilkan grafik sesuai dengan judul button tersebut.

Object Chart

Terdapat  1 Chart pda latihan ini

Script Unique

Menentukan Tipe Grafik

Grafik Batang -> GRAFIK46110037.chartType = MSChart20Lib.VtChChartType.VtChChartType2dBar

Grafik line -> GRAFIK46110037.chartType = MSChart20Lib.VtChChartType.VtChChartType2dLine

Grafik Lingkar -> GRAFIK46110037.chartType = MSChart20Lib.VtChChartType.VtChChartType2dPie

Grafik Batang 3D -> GRAFIK46110037.chartType = MSChart20Lib.VtChChartType.VtChChartType3dBar

Grafik Line 3D -> GRAFIK46110037.chartType = MSChart20Lib.VtChChartType.VtChChartType3dLine

Even

Load

Property

-

Langkah-Langkah Menjalankan Form Latihan 44 46110037

Click Start Debugging untuk menjalankan Script Latihan_44_46110037, kemudian clik button untuk menampilkan bentuk grafik yang ddiinginkan.

Langkah-langkah Menyelesaikan Form Latihan 44 46110037

• Buka project yang telah dibuat.
• Buat form baru, caranya click Project pada Toolbar pilih Add Windows Form kemudian ketik nama form yang diinginkan lalu click Add
• Buat desain form seperti gambar di atas (Latihan_44_46110037) DataGridView dan Chart.
• Ganti nama DataGridView; Button  dan Chart di properties-Name,
• Click Kanan pada design Latihan_44_46110037 lalu pilih View Code kemudian buatlah Script seperti dibawah ini:

Public Class LATIHAN_44_46110037

    Dim Jalan As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source =" & Application.StartupPath & "\Datagrafik.ACCDB")

    Dim INNA As New DataTable

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

        Dim MOTOR As New OleDb.OleDbDataAdapter

        MOTOR = New OleDb.OleDbDataAdapter("select * from qpembelianperbulanan", Jalan)

        INNA.Rows.Clear()

        MOTOR.Fill(INNA)

        MOTOR.Dispose()

        showme46110037.DataSource = INNA

        GRAFIK46110037.RowCount = INNA.Rows.Count

        GRAFIK46110037.ColumnCount = 3

        Dim sekarang As Integer = 0

        For Each IMAM As DataRow In INNA.Rows

            sekarang = sekarang + 1

            GRAFIK46110037.Row = sekarang

            GRAFIK46110037.RowLabel = IMAM("Bulan")

            GRAFIK46110037.Column = 1

            GRAFIK46110037.Data = IMAM("Unit")

            GRAFIK46110037.Column = 2

            GRAFIK46110037.Data = IMAM("Rata-Rata Harga") / 10000

            GRAFIK46110037.Column = 3

            GRAFIK46110037.Data = IMAM("Jumlah") / 10000

        Next

    End Sub

    Private Sub GBATANG46110037_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GBATANG46110037.Click

        GRAFIK46110037.chartType = MSChart20Lib.VtChChartType.VtChChartType2dBar

    End Sub

    Private Sub GLINE46110037_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GLINE46110037.Click

        GRAFIK46110037.chartType = MSChart20Lib.VtChChartType.VtChChartType2dLine

    End Sub

    Private Sub GLINGKAR46110037_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GLINGKAR46110037.Click

        GRAFIK46110037.chartType = MSChart20Lib.VtChChartType.VtChChartType2dPie

    End Sub

    Private Sub GBATANG3D46110037_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GBATANG3D46110037.Click

        GRAFIK46110037.chartType = MSChart20Lib.VtChChartType.VtChChartType3dBar

    End Sub

    Private Sub GLINE3D46110037_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GLINE3D46110037.Click

        GRAFIK46110037.chartType = MSChart20Lib.VtChChartType.VtChChartType3dLine

    End Sub

End Class

• Save dan Click Start Debugging untuk menjalankan form