Deskripsi Penyelesaian Latihan_44_36110041

Deskripsi Penyelesaian

Latihan_44_36110041

A.     Objek dalam Form Latihan_44:

Dalam form latihan ini terdapat tiga object yaitu DataGridView, Chart, dan Button.

1.      Object DataGridView

Terdapat satu object datagridview yang digunakan untuk menampilkan data querie QpembelianPerBulanan yang ada pada database Data Grafik.

2.      Object Chart

Terdapat satu object chart yang digunakan untuk menampilkan diagram berdasarkan data yang ada pada datagridview.

3.      Object Button

Terdapat lima object button (grafik batang, grafik line, grafik lingkar, grafik batang 3D, dan grafik line 3D).  Tombol grafik batang digunakan untuk menampilkan diagram dalam bentuk batang. Tombol grafik line digunakan untuk menampilkan diagram dalam bentuk garis. Tombol grafik lingkar digunakan untuk menampilkan diagram dalam bentuk lingkaran. Tombol grafik batang 3D digunakan untuk menampilkan diagram dalam bentuk batang 3D. Dan tombol grafik line 3D digunakan untuk menampilkan digaram dalam bentuk garis 3D.

B.      Script Unique

Untuk scriptnya akan ditampilkan secara keseluruhan dalam prosedur

Latihan_44_36110041

C.     Even

Latihan_44_36110041_Load

Batang_36110041_Click

Batang3D_36110041_Click

Line_36110041_Click

Line3D_36110041_Click

Lingkar_36110041_Click

Prosedur penyelesaian

1.      Buka Project yang telah dibuat sebelumnya klik Add New Item ==>  Add Windows Form

 

2.      Kemudian beri nama dan klik Add

       

3.      Buat form seperti di bawah ini dengan menggunakan toolbox yang saya tunjukkan pada postingan sebelumnya.

 

4.       Berikut ini adalah rumus untuk menjalankan form di atas.

Public Class Latihan_44_36110041

    Dim rizka As New DataTable

    Dim azisah As New OleDb.OleDbConnection(" Provider = microsoft.ace.oledb.12.0; data source = " & Application.StartupPath & "\Data Grafik.accdb;Jet OLEDB:Database Password=008")

    Private Sub Latihan_44_36110041_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

        Dim sis As New OleDb.OleDbDataAdapter

        sis = New OleDb.OleDbDataAdapter("Select * From QPembelianPerBulanan", azisah)

        rizka.Rows.Clear()

        sis.Fill(rizka)

        Rizka_36110041.DataSource = rizka

        sis.Dispose()

        Grafik_36110041.RowCount = rizka.Rows.Count

        Grafik_36110041.ColumnCount = 3

        Dim Posisi As Integer = 0

        For Each BarisX As DataRow In rizka.Rows

            Posisi = Posisi + 1

            Grafik_36110041.Row = Posisi

            Grafik_36110041.RowLabel = BarisX("Bulan")

            Grafik_36110041.Column = 1

            Grafik_36110041.Data = BarisX("Unit")

            Grafik_36110041.Column = 2

            Grafik_36110041.Data = BarisX("Rata-Rata Harga") / 1000

            Grafik_36110041.Column = 3

            Grafik_36110041.Data = BarisX("Jumlah") / 10000

        Next

    End Sub

    Private Sub Batang_36110041_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Batang_36110041.Click

        Grafik_36110041.chartType = MSChart20Lib.VtChChartType.VtChChartType2dBar

    End Sub

    Private Sub Batang3D_36110041_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Batang3D_36110041.Click

        Grafik_36110041.chartType = MSChart20Lib.VtChChartType.VtChChartType3dBar

    End Sub

    Private Sub Line_36110041_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Line_36110041.Click

        Grafik_36110041.chartType = MSChart20Lib.VtChChartType.VtChChartType2dLine

    End Sub

    Private Sub Line3D_36110041_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Line3D_36110041.Click

        Grafik_36110041.chartType = MSChart20Lib.VtChChartType.VtChChartType3dLine

    End Sub

    Private Sub Lingkar_36110041_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Lingkar_36110041.Click

        Grafik_36110041.chartType = MSChart20Lib.VtChChartType.VtChChartType2dPie

    End Sub

End Class

5.      Setelah itu, jalankan programnya.