Form Latihan_44_36110037 terdapat tiga object yaitu Microsoft Chart Control, Button dan Data Grid View.

Object Microsoft Chart Control
Terdapat satu object Microsoft Chart Control dalam form latihan ini yang bernama “chart_36110037”.

Object Button
Terdapat lima object Button dalam form latihan ini.

Object Data Grid View
Terdapat sebuah object data grid view yang bernama “kertas_36110037”.

Script Unique
Scrip Memasukkan data ke baris dan kolom dari tabel keuangan
Dim resky As Integer = 0

        For Each row As DataRow In tabel.Rows
            resky = resky + 1

            chart_36110037.Row = resky
            chart_36110037.RowLabel = row("Kode Barang")

            chart_36110037.Column = 1
            chart_36110037.Data = row("Unit")

            chart_36110037.Column = 2
            chart_36110037.Data = row("Rata-Rata Harga") / 10000

            chart_36110037.Column = 3
            chart_36110037.Data = row("Jumlah") / 10000
        Next

Event
Form Load

Property
Default

Prosedur Penyelesaian

1. buka project yang telah dibuat.
2. buka Solution explorer.
3. setelah itu klik kanan nama project, pilih add dan klik new item.

4. setelah add new item terbuka, pilih windows form, windoes form, kemudian ketik nama form, dan add.

5. buat form dengan menggunakan toolbox.
6. setelah form selesai, ubah object yang ada dalam form latihan dengan  menggunakan properties window
7. setelah itu, masuk ke lembar "vb" dengan cara mengklik 2x form dan kemudian ketikkan formula berikut.
Public Class Latihan_44_36110037
    Dim hubung As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source =" & Application.StartupPath & "\Datagrafik.ACCDB")
    Dim tabel As New DataTable
  

    Private Sub Latihan_44_36110037_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", hubung)
        tabel.Rows.Clear()
        adapter.Fill(tabel)
        adapter.Dispose()
        kertas_36110037.DataSource = tabel

        chart_36110037.RowCount = tabel.Rows.Count
        chart_36110037.ColumnCount = 3

        'memasukkan data ke setiap baris dan setiap kolom dari tabel keuangan
        Dim resky As Integer = 0

        For Each row As DataRow In tabel.Rows
            resky = resky + 1

            chart_36110037.Row = resky
            chart_36110037.RowLabel = row("Bulan")

            chart_36110037.Column = 1
            chart_36110037.Data = row("Unit")

            chart_36110037.Column = 2
            chart_36110037.Data = row("Rata-Rata Harga") / 10000

            chart_36110037.Column = 3
            chart_36110037.Data = row("Jumlah") / 10000

        Next
    End Sub

    Private Sub gbatang_36110037_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles gbatang_36110037.Click
        chart_36110037.chartType = MSChart20Lib.VtChChartType.VtChChartType2dBar
    End Sub

    Private Sub gline_36110037_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles gline_36110037.Click
        chart_36110037.chartType = MSChart20Lib.VtChChartType.VtChChartType2dLine
    End Sub

    Private Sub glingkar_36110037_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles glingkar_36110037.Click
        chart_36110037.chartType = MSChart20Lib.VtChChartType.VtChChartType2dPie
    End Sub

    Private Sub gb3d_36110037_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles gb3d_36110037.Click
        chart_36110037.chartType = MSChart20Lib.VtChChartType.VtChChartType3dBar
    End Sub

    Private Sub gline3d_36110037_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles gline3d_36110037.Click
        chart_36110037.chartType = MSChart20Lib.VtChChartType.VtChChartType3dLine
    End Sub
End Class

8. Uji program dengan mengklik "Start Debugging".

9. Save program dengan mengklik icon "save".

10. Selesai. 


Diposting oleh Unknown

0 komentar:

Visit the Site
MARVEL and SPIDER-MAN: TM & 2007 Marvel Characters, Inc. Motion Picture © 2007 Columbia Pictures Industries, Inc. All Rights Reserved. 2007 Sony Pictures Digital Inc. All rights reserved. blogger template by blog forum.