Latihan_41_46110022
Deskripsi Form Latihan_41 46110022
Dalam
form ini terdapat 2 buah object yaitu object DataGriedView dan Microsoft Chart
Control.
Object DataGriedView
Terdapat
sebuah objek DataGriedView yang berfungsi untuk menampilkan data ke dalam
bentuk tabel yang terdiri dari baris dan kolom.
Object Microsoft Chart
Control
Terdapat
sebuah objek Microsoft Chart Control dalam bentuk grafik untuk menampilkan
pendapatan dan biaya setiap tahunnya.
Script Unique
1.
Memasukkan data
ke setiap baris dan kolom dari tabel keuangan:
Dim sekarang As
Integer = 0
For Each kake As DataRow In
ega.Rows
sekarang = sekarang + 1
grafik46110022.Row =
sekarang
grafik46110022.RowLabel = kake("Tahun")
grafik46110022.Column = 1
grafik46110022.Data = kake("Pendapatan")
/ 1000
grafik46110022.Column = 2
grafik46110022.Data = kake("Biaya") / 1000
Even
Load
Langkah-Langkah Membuat Form Latihan 41_46110022
1. Buat form baru
seperti langkah berikut :
2. Input nama form
pada kolom yang tersedia, lalu klik "add" seperti berikut :
3. Buat desain form
seperti gambar berikut :
4. Input script di
bawah ini :
Public Class Latihan_41_46110022
Dim alfa As New
OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data
Source =" & Application.StartupPath & "\Datagrafik.ACCDB")
Dim ega As New DataTable
Private Sub Latihan_41_46110022_Load(ByVal
sender As Object,
ByVal e As
System.EventArgs) Handles Me.Load
Dim
kacci As New
OleDb.OleDbDataAdapter
kacci = New
OleDb.OleDbDataAdapter("select * from
keuangan", alfa)
ega.Rows.Clear()
kacci.Fill(ega)
kacci.Dispose()
dgv46110022.DataSource = ega
grafik46110022.RowCount =
ega.Rows.Count
grafik46110022.ColumnCount = 2
Dim
sekarang As Integer
= 0
For Each kake As DataRow In ega.Rows
sekarang = sekarang + 1
grafik46110022.Row = sekarang
grafik46110022.RowLabel = kake("Tahun")
grafik46110022.Column = 1
grafik46110022.Data = kake("Pendapatan") / 1000
grafik46110022.Column = 2
grafik46110022.Data = kake("Biaya") / 1000
Next
End Sub
End Class
5. Jalankan program dengan cara mengklik start debugging seperti berikut
:
6. Setelah menekan start debug, maka akan tampil hasil dari latihan 41 seperti
berikut :
7.
Selamat mencoba, semoga berhasil :)
Postingan
