Latihan_43_46110022
Deskripsi Form Latihan_43 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
Tidak
terdapat script unique dalam form latihan ini.
Even
Load
Langkah-Langkah Membuat Form Latihan 43_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_43_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_43_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
qpembelianperjenisbarang", alfa)
ega.Rows.Clear()
kacci.Fill(ega)
kacci.Dispose()
dgv46110022.DataSource = ega
grafik46110022.RowCount =
ega.Rows.Count
grafik46110022.ColumnCount = 3
Dim
sekarang As Integer
= 0
For Each kake As DataRow In ega.Rows
sekarang = sekarang + 1
grafik46110022.Row = sekarang
grafik46110022.RowLabel = kake("Kode Barang")
grafik46110022.Column = 1
grafik46110022.Data = kake("Unit")
grafik46110022.Column = 2
grafik46110022.Data = kake("Rata-Rata Harga") / 10000
grafik46110022.Column = 3
grafik46110022.Data = kake("Jumlah") / 10000
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 43 seperti
berikut :
7.
Selamat mencoba, semoga berhasil :)
Postingan
