FORM LATIHAN
Name : Latihan_41_46110021
Text : Latihan_41_46110021
|
Object
|
Properti
|
|
1
Datagridview
|
Name:
Datagridview_46110021
|
|
1
micrsoft chart control 6.0
|
Name:
AxMSChart1_46110021
|
CARA MEMBUAT FORM
A. Pertama buka project yang anda buat, lalu pada menu bar pili add windows form…
C. Buatlah desain form seperti dengan gambar dibawah ini. Sesuaikan object yang ada dalam form dengan deskripsinya agar tidak salah memilih object.
D. Ubah nama setiap object kecuali bject label. Dengan cara mengganti “Name” di Properti bar.
E. Lalu masukkan script dibawah ini dengan klik kanan dan pilih view code.
Public Class Latihan_41_46110021
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()
DataGridView1_46110021.DataSource =
gitik
AxMSChart1_46110021.RowCount =
gitik.Rows.Count
AxMSChart1_46110021.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_46110021.Row = sekarang
AxMSChart1_46110021.RowLabel =
kake("Tahun")
AxMSChart1_46110021.Column = 1
AxMSChart1_46110021.Data = kake("Pendapatan") / 1000
AxMSChart1_46110021.Column = 2
AxMSChart1_46110021.Data = kake("Biaya") / 1000
Next
End Sub
End Class
NEW TOOL BOX
microsoft chart control 6.0
LANGKAH UNTUK MENJALANKAN FORM
Untuk memudahkan pakailah navigator
Pilih tombol start debugging lalu pilih form Latihan_41_46110021, maka jendela Latihan_41_46110021 akan muncul. dan chart akan terbentuk sesuai dengan data yang ada pada datagridview