Latihan_44_46110002

Deskripsi Form Latihan 44

Pada form latihan 44 ada 3 object yang digunakan yaitu Data Grid View, Button dan Microsoft Chart Control.

Object DataGridView

Terdapat 1 data grid view pada form latihan 44 yang nantinya akan menampilkan data tabel yang ada pada data base.

Object Button

Ada 5 object button yang digunakan “Grafik Batang, Grafik Line, Grafik Lingkar, Grafik Batang 3D, dan Grafik Line 3D” tombol ini berfungsi untuk menampilkan data grafik berdasarkan nama yang ada pada button.

Object MicrosoftChartControl                                     

Pada form ini digunakan 1 object Microsoft chart control yang akan menampilkan pendapatan dan biaya setiap tahunnya dalam bentuk grafik.

Script Unique

Untuk menampilkan grafik berbentuk batang

  Private Sub GB1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GB1_46110002.Click
        Chart_46110002.chartType = MSChart20Lib.VtChChartType.VtChChartType2dBar
    End SubUntuk menampilkan grafik berbentuk line
    Private Sub GL_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GL_46110002.Click
        Chart_46110002.chartType = MSChart20Lib.VtChChartType.VtChChartType2dLine
    End SubUntuk menampilkan grafik berbentuk lingkaran
    Private Sub GLK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GLK_46110002.Click
        Chart_46110002.chartType = MSChart20Lib.VtChChartType.VtChChartType2dPie
    End SubUntuk menampilkan grafik berbentuk batang 3d
    Private Sub GB2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GB2_46110002.Click
        Chart_46110002.chartType = MSChart20Lib.VtChChartType.VtChChartType3dBar
    End SubUntuk menampilkan grafik berbentuk line 3d
    Private Sub GL3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GL3_46110002.Click
        Chart_46110002.chartType = MSChart20Lib.VtChChartType.VtChChartType3dLine
    End Sub

Even

Load

ButtonClick

 Langkah-Langkah Penyelesaian Form Latihan_44
·  Buka project yang telah dibuat sebelumnya.
·  Click project kemudian pilih add windows form, seperti pada gambar dibawah ini

·  Ketik nama form "Latihan_44_46110002" pada name kemudian click add

·  Buat form seperti berikut 

·         Kemudian beri nama pada semua objek

·  Setelah form selesai masukkan rumus seperti dibawah ini 

Public Class Latihan_44_46110002
    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 Latihan44_083_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim kacci As New OleDb.OleDbDataAdapter
        kacci = New OleDb.OleDbDataAdapter("select * from qpembelianperbulanan", Jalan)
        gitik.Rows.Clear()
        kacci.Fill(gitik)
        kacci.Dispose()
        DGV_46110002.DataSource = gitik

        Chart_46110002.RowCount = gitik.Rows.Count
        Chart_46110002.ColumnCount = 3

        Dim sekarang As Integer = 0

        For Each kake As DataRow In gitik.Rows
            sekarang = sekarang + 1

            Chart_46110002.Row = sekarang
            Chart_46110002.RowLabel = kake("Bulan")

            Chart_46110002.Column = 1
            Chart_46110002.Data = kake("Unit")

            Chart_46110002.Column = 2
            Chart_46110002.Data = kake("Rata-Rata Harga") / 10000

            Chart_46110002.Column = 3
            Chart_46110002.Data = kake("Jumlah") / 10000

        Next
    End Sub

    Private Sub GB1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GB1_46110002.Click
        Chart_46110002.chartType = MSChart20Lib.VtChChartType.VtChChartType2dBar
    End Sub

    Private Sub GL_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GL_46110002.Click
        Chart_46110002.chartType = MSChart20Lib.VtChChartType.VtChChartType2dLine
    End Sub

    Private Sub GLK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GLK_46110002.Click
        Chart_46110002.chartType = MSChart20Lib.VtChChartType.VtChChartType2dPie
    End Sub

    Private Sub GB2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GB2_46110002.Click
        Chart_46110002.chartType = MSChart20Lib.VtChChartType.VtChChartType3dBar
    End Sub

    Private Sub GL3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GL3_46110002.Click
        Chart_46110002.chartType = MSChart20Lib.VtChChartType.VtChChartType3dLine
    End Sub
End Class

  

Langkah-Langkah Menjalankan Form Latihan 44

1.      Klik start debugging lalu klik latihan 44

2.      Maka akan muncul hasil seperti ini