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













