A. Langkah-Langkah Penyelesaian Form Latihan_41
· Buka project yang telah dibuat sebelumnya.
· Click project kemudian pilih add windows form, seperti pada gambar dibawah ini
· Ketik nama form
"Latihan_41_46110007" 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_41_46110007
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_46110007_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 keuangan", Jalan)
gitik.Rows.Clear()
kacci.Fill(gitik)
kacci.Dispose()
dgv_46110007.DataSource = gitik
Chart_46110007.RowCount =
gitik.Rows.Count
Chart_46110007.ColumnCount = 2
Dim sekarang As Integer = 0
For Each kake As DataRow In gitik.Rows
sekarang = sekarang + 1
Chart_46110007.Row = sekarang
Chart_46110007.RowLabel =
kake("Tahun")
Chart_46110007.Column = 1
Chart_46110007.Data =
kake("Pendapatan") / 1000
Chart_46110007.Column = 2
Chart_46110007.Data =
kake("Biaya") / 1000
Next
End Sub
End Class
· Untuk menjalankan form tekan F5
B. Deskripsi Form Latihan 41
Pada form latihan 41 ada 2 object
yang digunakan yaitu Data Grid View dan Microsoft Chart Control.
Object DataGridView
Terdapat 1 data grid view pada
form latihan 41 yang nantinya akan menampilkan data tabel yang ada pada data
base.
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 memasukkan data ke setiap
baris dan setiap kolom dari tabel keuangan
For Each kake As DataRow
In gitik.Rows
sekarang = sekarang + 1
chart_46110039.Row = sekarang
chart_46110039.RowLabel = kake("Tahun")
chart_46110039.Column = 1
chart_46110039.Data = kake("Pendapatan") / 1000
chart_46110039.Column = 2
chart_46110039.Data = kake("Biaya") / 1000
sekarang = sekarang + 1
chart_46110039.Row = sekarang
chart_46110039.RowLabel = kake("Tahun")
chart_46110039.Column = 1
chart_46110039.Data = kake("Pendapatan") / 1000
chart_46110039.Column = 2
chart_46110039.Data = kake("Biaya") / 1000
Even
Load
Posting Komentar