Latihan_44_36110046

Deskripsi & Prosedur Form Latihan_44_36110046

Deskripsi Form Latihan_44_36110046

Pada Form Latihan 44 terdapat 3 object, yaitu button, datagridview dan Ms.Chart.

Object Pada Form

Object DataGridView

Terdapat 1 objek datagridview (seperti terlihat gambar di atas)

Object Ms.Chart

Terdapat 1 objek Ms.Chart (seperti terlihat gambar di atas)

Object Button

Terdapat 5 objek Button (seperti terlihat gambar di atas)

Script Unique

-Mengganti type chart

CHART_36110046.chartType = MSChart20Lib.VtChChartType.VtChChartType2dBar

Event

FormLoad

Property

ReadOnly

Deskripsi Form Latihan_44_36110046

Langkah-langkah mengerjakan Latihan 44, sbb:

1.        Buka Ms. Visual Studio

2.        Klik Create Project

3.        Ketik nama file yang ingin disimpan

4.        Akan terbuka jendela pekerjaan Ms. Visual Studio

5.        Design form dengan menggunakan tools pada toolbox

6.        Buat  objek semua objek sesuai dengan design pada latihan 44 dengan toolbox, ikuti gambar dibawah ini:

7.        Setelah design sudah bagus, saatnya untuk membuat script

8.        Buat script prosedur sendiri seperti dibawah ini:

Public Class Latihan_44_36110046

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

    Dim DT As New DataTable

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

        Dim ADAPTER As New OleDb.OleDbDataAdapter

        ADAPTER = New OleDb.OleDbDataAdapter("select * from qpembelianperbulanan", CONNECT)

        DT.Rows.Clear()

        ADAPTER.Fill(DT)

        ADAPTER.Dispose()

        DGV_36110046.DataSource = DT

        CHART_36110046.RowCount = DT.Rows.Count

        CHART_36110046.ColumnCount = 3

        'memasukkan data ke setiap baris dan setiap kolom dari tabel keuangan

        Dim sekarang As Integer = 0

        For Each BARIS As DataRow In DT.Rows

            sekarang = sekarang + 1

            CHART_36110046.Row = sekarang

            CHART_36110046.RowLabel = BARIS("Bulan")

            CHART_36110046.Column = 1

            CHART_36110046.Data = BARIS("Unit")

            CHART_36110046.Column = 2

            CHART_36110046.Data = BARIS("Rata-Rata Harga") / 10000

            CHART_36110046.Column = 3

            CHART_36110046.Data = BARIS("Jumlah") / 10000

        Next

    End Sub

    Private Sub GB_36110046_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GB_36110046.Click

        CHART_36110046.chartType = MSChart20Lib.VtChChartType.VtChChartType2dBar

    End Sub

    Private Sub GL_36110046_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GL_36110046.Click

        CHART_36110046.chartType = MSChart20Lib.VtChChartType.VtChChartType2dLine

    End Sub

    Private Sub GLING_36110046_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GLING_36110046.Click

        CHART_36110046.chartType = MSChart20Lib.VtChChartType.VtChChartType2dPie

    End Sub

    Private Sub GB3D_36110046_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GB3D_36110046.Click

        CHART_36110046.chartType = MSChart20Lib.VtChChartType.VtChChartType3dBar

    End Sub

    Private Sub GL3D_36110046_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GL3D_36110046.Click

        CHART_36110046.chartType = MSChart20Lib.VtChChartType.VtChChartType3dLine

    End Sub

End Class

9.        Silahkan jalankan program anda. Wassalam.