Latihan_44_46110038

Deskripsi Form Latihan_44_46110038:

Form Latihan_44_46110038 hanya terdapat 3 object yaitu button, datagridview, dan Microsoft chart 6.0.

Object Datagridview

Di Latihan_44_46110038  ada 1 datagridview. Digunakan untuk menampilkan datatable.

Object Microsoft chart 6.0

Di Latihan_44_46110038  ada 1 Microsoft chart 6.0 yang digunakan untuk menampilkan grafik.

Object Button

Di Latihan_44_46110038 ada 5 button yang berisi teks Grafik Batang, Grafik Line, Grafik Lingkaran, Grafik Batang 3D, dan Grafik Line 3D.

Script Unique

Memasukkan data kedalam baris dan kolom tertentu:

   Dim BARIS As Integer = 0

        For Each x As DataRow In table.Rows

            BARIS = BARIS + 1

            chart46110038.Row = BARIS

            chart46110038.RowLabel = x("bulan")

            chart46110038.Column = 1

            chart46110038.Data = x("unit")

            chart46110038.Column = 2

            chart46110038.Data = x("rata-rata harga") / 1000

            chart46110038.Column = 3

            chart46110038.Data = x("jumlah") / 10000

        Next

Even

Load

Cara Membuat Form Latihan_44_46110038:

1.      Buka project yang telah dibuat.

2.      pilih Add New Item pada Microsoft Visual Studio 2005/ 2008

3.      Setelah add new item terbuka, pilih windows form, lalu ketik nama form dan add.

4.      Kemudian buat form seperti di bawah ini:

5.      Setelah format untuk Latihan_44_46110038  sudah dibuat maka selanjutnya membuat listing program pada jendela code:

Public Class Latihan_44_46110038

    Dim erma As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source= " & Application.StartupPath & "\DATA GRAFIK.accdb")

    Dim table As New DataTable

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

        Dim merah As New OleDb.OleDbDataAdapter

        merah = New OleDb.OleDbDataAdapter("select * from qpembelianperbulanan", erma)

        table.Rows.Clear()

        merah.Fill(table)

        data46110038.DataSource = table

        merah.Dispose()

        chart46110038.ColumnCount = 3

        chart46110038.RowCount = table.Rows.Count

        Dim BARIS As Integer = 0

        For Each x As DataRow In table.Rows

            BARIS = BARIS + 1

            chart46110038.Row = BARIS

            chart46110038.RowLabel = x("bulan")

            chart46110038.Column = 1

            chart46110038.Data = x("unit")

            chart46110038.Column = 2

            chart46110038.Data = x("rata-rata harga") / 1000

            chart46110038.Column = 3

            chart46110038.Data = x("jumlah") / 10000

        Next

    End Sub

    Private Sub line46110038_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Line46110038.Click

        chart46110038.chartType = MSChart20Lib.VtChChartType.VtChChartType2dLine

    End Sub

    Private Sub batang46110038_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles batang46110038.Click

        chart46110038.chartType = MSChart20Lib.VtChChartType.VtChChartType2dBar

    End Sub

    Private Sub l3d46110038_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles l3d46110038.Click

        chart46110038.chartType = MSChart20Lib.VtChChartType.VtChChartType3dLine

    End Sub

    Private Sub B3d46110038_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles b3d46110038.Click

        chart46110038.chartType = MSChart20Lib.VtChChartType.VtChChartType3dBar

    End Sub

    Private Sub lingkaran46110038_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Lingkaran46110038.Click

        chart46110038.chartType = MSChart20Lib.VtChChartType.VtChChartType2dPie

    End Sub

End Class

Untuk menjalankan Latihan_44_46110038, klik start debugging untuk melihat apakah rumus tersebut bisa terbaca atau tidak.