Deskripsi
Form Latihan_44_36110039
Terdapat tiga object yaitu :
1. Object Datagridview
Terdapat satu
object datagridview yang digunakan untuk menampilkan data querie
QpembelianPerBulanan yang ada pada database Data Grafik.
2. Object Chart
Terdapat satu
object chart yang digunakan untuk menampilkan diagram berdasarkan data yang ada
pada datagridview.
3. Object Button
Terdapat lima
object button (grafik batang, grafik line, grafik lingkar, grafik batang 3D,
dan grafik line 3D). Tombol grafik
batang digunakan untuk menampilkan diagram dalam bentuk batang. Tombol grafik
line digunakan untuk menampilkan diagram dalam bentuk garis. Tombol grafik
lingkar digunakan untuk menampilkan diagram dalam bentuk lingkaran. Tombol
grafik batang 3D digunakan untuk menampilkan diagram dalam bentuk batang 3D.
Dan tombol grafik line 3D digunakan untuk menampilkan digaram dalam bentuk
garis 3D.
Script Unique
Scriptnya ada pada Prosedur Latihan_44_36110039
dibawah ini.
Even
Latihan_44_36110039_Load
gb1_36110039_Click
line_36110039_Click
lingkar_36110039_Click
gb2_36110039_Click
line3_36110039_Click
Prosedur menjalankan
Latihan_44_36110039:
1. Klik
Start dan pilih Microsoft Visual Studio 2008.
2. Klik
menu file dan pilih New Project.
3. Ketik
nama dan pilih lokasi yang diinginkan pada masing-masing tempat yang tersedia,
klik Ok.
4. Klik
menu view dan pilih toolbox.
5.
Kemudian buatlah form seperti kolom
dibawah ini:
6. Berikut ini adalah rumus untuk
menjalankan form di atas:
Public Class Latihan_44_36110039
'Mendeklarasikan
object connection
Dim
Jembatan As New
OleDb.OleDbConnection(" Provider =
microsoft.ace.oledb.12.0; data source = " &
Application.StartupPath & "\Data
Grafik.accdb")
'Mendeklarasikan
datatable
Dim Table As New DataTable
Private Sub Latihan_44_36110039_Load(ByVal
sender As Object,
ByVal e As
System.EventArgs) Handles Me.Load
'Menampillkan
data ke datagridview
Dim
Angkut As New
OleDb.OleDbDataAdapter
Angkut = New
OleDb.OleDbDataAdapter("Select * From
QPembelianPerBulanan", Jembatan)
Table.Rows.Clear()
Angkut.Fill(Table)
dgv_36110039.DataSource = Table
Angkut.Dispose()
'Menghitung
jumlah baris
Grafik_36110039.RowCount =
Table.Rows.Count
'Menghitung
jumlah kolom
Grafik_36110039.ColumnCount = 3
'Memasukkan
data ke grafik
Dim
Posisi As Integer
= 0
For Each BarisX As
DataRow In Table.Rows
Posisi = Posisi + 1
Grafik_36110039.Row = Posisi
Grafik_36110039.RowLabel = BarisX("Bulan")
Grafik_36110039.Column = 1
Grafik_36110039.Data = BarisX("Unit")
Grafik_36110039.Column = 2
Grafik_36110039.Data = BarisX("Rata-Rata Harga") / 1000
Grafik_36110039.Column = 3
Grafik_36110039.Data = BarisX("Jumlah") / 10000
Next
End Sub
Private Sub gb1_36110039_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles gb1_36110039.Click
Grafik_36110039.chartType =
MSChart20Lib.VtChChartType.VtChChartType2dBar
End Sub
Private Sub line_36110039_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles line_36110039.Click
Grafik_36110039.chartType =
MSChart20Lib.VtChChartType.VtChChartType2dLine
End Sub
Private Sub lingkar_36110039_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles
lingkar_36110039.Click
Grafik_36110039.chartType =
MSChart20Lib.VtChChartType.VtChChartType2dPie
End Sub
Private Sub gb2_36110039_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles gb2_36110039.Click
Grafik_36110039.chartType =
MSChart20Lib.VtChChartType.VtChChartType3dBar
End Sub
Private Sub line3_36110039_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles line3_36110039.Click
Grafik_36110039.chartType =
MSChart20Lib.VtChChartType.VtChChartType3dLine
End Sub
End Class
7. Untuk
melihat apakah program yang anda telah buat sudah benar atau belum tepat maka
klik icon Start Debugging atau tekan F5.
Tidak ada komentar:
Posting Komentar