latihan_44_46110023

Deskripsi Form Latihan_44_46110023

Form Latihan_44_46110023 terdapat tiga object yaitu  Data Grid View dan Microsoft Chart Control.

Objek DataGridView

Terdapat satu objek DataGridView yang berguna untuk menampilkan data berupa tabel dn kolom yang terdapat pada database

Objek Microsoft Chart Control

Terdapat satu objek Microsoft Chart Control yang berguna untuk menampilkan pendapatan dan biaya setiap tahunnya dalam bentuk grafik.

Objek Button

Terdapat lima objek button yaitu "Grafik Batang", "Grafik Line", "Grafik Lingkar", "Grafik Batang 3D", dan "Grafik Line 3D". kelima button ini berfungsi untuk menampilkan data grafik berdasarkan nama button

Script Unique 

=> untuk menampilkan grafik berbentuk batang 2D 

Chart1_46110023.chartType = MSChart20Lib.VtChChartType.VtChChartType2dBar

=> untuk menampilkan grafik berbentuk garis 2D 

Chart1_46110023.chartType = MSChart20Lib.VtChChartType.VtChChartType2dLine

=> untuk menampilkan grafik berbentuk lingkaran 

Chart1_46110023.chartType = MSChart20Lib.VtChChartType.VtChChartType2dPie

  

=> untuk menampilakan grafik berbentuk batang 3D 

Chart1_46110023.chartType = MSChart20Lib.VtChChartType.VtChChartType3dBar

  

=> untuk menampilkan grafik berbentuk garis 3D

 Chart1_46110023.chartType = MSChart20Lib.VtChChartType.VtChChartType3dLine

   

Even

load 

Prosedur Penyelesaiaan

1.    Buka project yang telah dibuat

2.    Pilih menu project yang ada pada menubar lalu pilih add windows form

    

3.    Ganti nama form sesuai dengan nama latihan 

     

4.    Buatlah form seperti gambar dibawah ini

     

5.    Ganti nama pada semua objek kecuali objek label

6.    Klik kanan pada desaign lalu pilih view code, maka akan muncul halaman seperti ini

     

7.    Masukkan rumus berikut:

Public Class LATIHAN_44_46110023

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

    Dim gitik As New DataTable

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

        Dim DIAN As New OleDb.OleDbDataAdapter

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

        gitik.Rows.Clear()

        DIAN.Fill(gitik)

        DIAN.Dispose()

        dgv_46110023.DataSource = gitik

        Chart1_46110023.RowCount = gitik.Rows.Count

        Chart1_46110023.ColumnCount = 3

        Dim sekarang As Integer = 0

        For Each kake As DataRow In gitik.Rows

            sekarang = sekarang + 1

            Chart1_46110023.Row = sekarang

            Chart1_46110023.RowLabel = kake("Bulan")

            Chart1_46110023.Column = 1

            Chart1_46110023.Data = kake("Unit")

            Chart1_46110023.Column = 2

            Chart1_46110023.Data = kake("Rata-Rata Harga") / 10000

            Chart1_46110023.Column = 3

            Chart1_46110023.Data = kake("Jumlah") / 10000

        Next

    End Sub

    Private Sub GB1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GB_46110023.Click

        Chart1_46110023.chartType = MSChart20Lib.VtChChartType.VtChChartType2dBar

    End Sub

    Private Sub GL_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GL_46110023.Click

        Chart1_46110023.chartType = MSChart20Lib.VtChChartType.VtChChartType2dLine

    End Sub

    Private Sub GLK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GLI_46110023.Click

        Chart1_46110023.chartType = MSChart20Lib.VtChChartType.VtChChartType2dPie

    End Sub

    Private Sub GB2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GB1_46110023.Click

        Chart1_46110023.chartType = MSChart20Lib.VtChChartType.VtChChartType3dBar

    End Sub

    Private Sub GL3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GL2_46110023.Click

        Chart1_46110023.chartType = MSChart20Lib.VtChChartType.VtChChartType3dLine

    End Sub

End Class

8.    Uji program dengan mengklik debugging

9.    Selesai