Latihan_44_46110006

Deskripsi Form Latihan_44_46110006

Form Latihan_44_46110006 terdapat Tiga object yaitu  Data Grid View, Microsoft Chart Control, dan Button

Objek DataGridView

Terdapat satu objek DataGridView yang berguna untuk menampilkan data 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. 

Scrib Unique

grafik_46110006.chartType MSChart20Lib.VtChChartType.VtChChartType2dBar

> untuk menampilkan grafik berbentuk batang 2D 

grafik_46110006.chartType  MSChart20Lib.VtChChartType.VtChChartType2dLine

> untuk menampilkan grafik berbentuk garis 2D 

grafik_46110006.chartType MSChart20Lib.VtChChartType.VtChChartType2dPie

> untuk menampilkan grafik berbentuk lingkaran 

grafik_46110006.chartType  MSChart20Lib.VtChChartType.VtChChartType3dBar

> untuk menampilakan grafik berbentuk batang 3D 

grafik_46110006.chartType MSChart20Lib.VtChChartType.VtChChartType3dLine

> untuk menampilkan grafik berbentuk garis 3D

Even

load 

click 

  Cara Membuat From Latihan 44 :

      1. Pilih item Toolbar “Project” kemudian pilih “Add Windows From”

  2. Setelah mengKlik “Add Windows From”, akan muncul tabel dibawah ini.   Lalu rename pada Name menjadi nama form anda misalnya “ Latihan_44_46110006”

     3. Buatlah desain seperti berikut :

 

  4. Klik kanan lalu pilih “View Code” setelah itu ketik rumus untuk   menjalankan from diatas.

 

Public Class Latihan_44_46110006

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

    Dim gitik As New DataTable

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

        Dim kacci As New OleDb.OleDbDataAdapter

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

        gitik.Rows.Clear()

        kacci.Fill(gitik)

        kacci.Dispose()

        dgv_46110006.DataSource = gitik

        grafik_46110006.RowCount = gitik.Rows.Count

        grafik_46110006.ColumnCount = 3

        Dim sekarang As Integer = 0

        For Each kake As DataRow In gitik.Rows

            sekarang = sekarang + 1

            grafik_46110006.Row = sekarang

            grafik_46110006.RowLabel = kake("Bulan")

            grafik_46110006.Column = 1

            grafik_46110006.Data = kake("Unit")

            grafik_46110006.Column = 2

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

            grafik_46110006.Column = 3

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

        Next

    End Sub

  

    Private Sub GB1_46110006_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles GB1_46110006.Click

        grafik_46110006.chartType = MSChart20Lib.VtChChartType.VtChChartType2dBar

    End Sub

    Private Sub GL_46110006_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles GL_46110006.Click

        grafik_46110006.chartType = MSChart20Lib.VtChChartType.VtChChartType2dLine

    End Sub

    Private Sub GLK_46110006_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles GLK_46110006.Click

        grafik_46110006.chartType = MSChart20Lib.VtChChartType.VtChChartType2dPie

    End Sub

    Private Sub GB2_46110006_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles GB2_46110006.Click

        grafik_46110006.chartType = MSChart20Lib.VtChChartType.VtChChartType3dBar

    End Sub

    Private Sub GL3_46110006_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles GL3_46110006.Click

        grafik_46110006.chartType = MSChart20Lib.VtChChartType.VtChChartType3dLine

    End Sub

End Class

5. Uji program dengan mengklik debugging

6. Selesai