Deskripsi form Latihan_41_46110003
Dalam form Latihan_41_46110003 terdapat dua object yaitu Data Grid View dan Microsoft Chart Control.
Dalam form Latihan_41_46110003 terdapat dua object yaitu Data Grid View dan Microsoft Chart Control.
Microsoft Chart Control :
Terdapat satu objek Microsoft Chart Control yang berguna untuk menampilkan pendapatan dan biaya setiap tahunnya dalam bentuk grafik
Terdapat satu objek Microsoft Chart Control yang berguna untuk menampilkan pendapatan dan biaya setiap tahunnya dalam bentuk grafik
Object datagridview :
Dalam form ini terdapat 1 buah object datagridview. Datagridview digunakan untuk menampilkan data kedalam bentuk table yang terdiri dari baris dan kolom.
Script Unique :
Dalam form ini terdapat 1 buah object datagridview. Datagridview digunakan untuk menampilkan data kedalam bentuk table yang terdiri dari baris dan kolom.
Script Unique :
Perintah
untuk memasukkan data ke setiap baris dan setiap kolom dari tabel keuangan :
Dim sekarang As Integer = 0
For Each kake As DataRow In gitik.Rows
sekarang = sekarang + 1
chart_46110003.Row = sekarang
chart_46110003.RowLabel = kake("Tahun")
chart_46110003.Column = 1
chart_46110003.Data = kake("Pendapatan") / 1000
chart_46110003.Column = 2
chart_46110003.Data = kake("Biaya") / 1000
Next
Dim sekarang As Integer = 0
For Each kake As DataRow In gitik.Rows
sekarang = sekarang + 1
chart_46110003.Row = sekarang
chart_46110003.RowLabel = kake("Tahun")
chart_46110003.Column = 1
chart_46110003.Data = kake("Pendapatan") / 1000
chart_46110003.Column = 2
chart_46110003.Data = kake("Biaya") / 1000
Next
Even :
Load
Langkah-langkah penyelesaian form latihan_41_46110003
1. Buat desain Form seperti contoh
dibawah ini:
2. Masukkan rumus:
Public Class Latihan_41_46110003
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 Latihan41_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
keuangan", Jalan)
gitik.Rows.Clear()
kacci.Fill(gitik)
kacci.Dispose()
dgv46110003.DataSource = gitik
AxMSChart1_46110003.RowCount =
gitik.Rows.Count
AxMSChart1_46110003.ColumnCount = 2
'memasukkan
data ke setiap baris dan setiap kolom dari tabel keuangan
Dim
sekarang As Integer
= 0
For Each kake As DataRow In gitik.Rows
sekarang = sekarang + 1
AxMSChart1_46110003.Row = sekarang
AxMSChart1_46110003.RowLabel =
kake("Tahun")
AxMSChart1_46110003.Column = 1
AxMSChart1_46110003.Data = kake("Pendapatan") / 1000
AxMSChart1_46110003.Column = 2
AxMSChart1_46110003.Data = kake("Biaya") / 1000
Next
End Sub
End Class
3. Jalankan Program dengan mengklik
Debugging.
0 komentar:
Posting Komentar