latihan_41_46110023

Deskripsi Form Latihan_41_46110023

Form Latihan_41_46110023 terdapat Dua object yaitu  Data Grid View dan Microsoft Chart Control.

Objek DataGridView

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

Script Unique 

untuk

   For Each HOHO As DataRow In gitik.Rows

            sekarang = sekarang + 1

            Chart1_46110023.Row = sekarang

            Chart1_46110023.RowLabel = HOHO("Tahun")

            Chart1_46110023.Column = 1

            Chart1_46110023.Data = HOHO("Pendapatan") / 1000

            Chart1_46110023.Column = 2

            Chart1_46110023.Data = HOHO("Biaya") / 1000

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_41_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_41_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 keuangan", Jalan)

        gitik.Rows.Clear()

        DIAN.Fill(gitik)

        DIAN.Dispose()

        DGV_46110023.DataSource = gitik

        Chart1_46110023.RowCount = gitik.Rows.Count

        Chart1_46110023.ColumnCount = 2

        Dim sekarang As Integer = 0

        For Each HOHO As DataRow In gitik.Rows

            sekarang = sekarang + 1

            Chart1_46110023.Row = sekarang

            Chart1_46110023.RowLabel = HOHO("Tahun")

            Chart1_46110023.Column = 1

            Chart1_46110023.Data = HOHO("Pendapatan") / 1000

            Chart1_46110023.Column = 2

            Chart1_46110023.Data = HOHO("Biaya") / 1000

        Next

    End Sub

End Class

8.    Uji program dengan mengklik debugging

9.    Selesai