Public Class Latihan_44_46109051 'DEKLARASI CONECTION Dim wahdaniah As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source= " & Application.StartupPath & "\DATA GRAFIK.accdb;jet OLEDB:database password=thepinkers29") 'deklarasi data tabel Dim niah As New DataTable Private Sub Latihan44_46109051_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load 'deklarasi adapter Dim wahda As New OleDb.OleDbDataAdapter wahda = New OleDb.OleDbDataAdapter("select * from qpembelianperbulanan", wahdaniah) 'memunculkan semua data dari tabel barang dalam acces DATA GRAFIK niah.Rows.Clear() 'membersihkan data tabel wahda.Fill(niah) 'mengisi database ke dalam data table dg_46109051.DataSource = wahdaniah 'memunculkan dalam datagridview
wahda.Dispose() 'menghancurkan kendaraan (adapter) yang sudah terpakai
'menentkan jumlah baris dalam datagridview grafik_46109051.ColumnCount = 3 grafik_46109051.RowCount = niah.Rows.Count
'menentukan posisi baris dalam datagridview Dim POSISIBARIS As Integer = 0
For Each x As DataRow In niah.Rows POSISIBARIS = POSISIBARIS + 1 grafik_46109051.Row = POSISIBARIS
'memberi nama pada baris grafik degan nama pada kolom tahun grafik_46109051.RowLabel = x("bulan")
grafik_46109051.Column = 3 grafik_46109051.Data = x("jumlah") / 10000 Next End Sub Private Sub Gline_46109051_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Gline_46109051.Click grafik_46109051.chartType = MSChart20Lib.VtChChartType.VtChChartType2dLine End Sub
Private Sub Gbarang2_46109051_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Gbatang2_46109051.Click grafik_46109051.chartType = MSChart20Lib.VtChChartType.VtChChartType3dBar End Sub
Private Sub Gbarang_46109051_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Gbatang_46109051.Click grafik_46109051.chartType = MSChart20Lib.VtChChartType.VtChChartType2dBar End Sub
Private Sub Gline3_46109051_clik(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Gline3_46109051.Click grafik_46109051.chartType = MSChart20Lib.VtChChartType.VtChChartType3dLine End Sub
Private Sub Glingkar_46109051_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GLingkar_46109051.Click grafik_46109051.chartType = MSChart20Lib.VtChChartType.VtChChartType2dPie End Sub
Dim Dewi As New OleDb.OleDbConnection("provider=Microsoft.ACE.OleDb.12.0;data source=" & Application.StartupPath & "\Data Grafik.accdb") Dim Dede As New DataTable
Private Sub Latihan44_46109045_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim Chiko = New OleDb.OleDbDataAdapter("select*from QPembelianPerBulanan", Dewi) Dede.Rows.Clear()
Private Sub Batang_46109045_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Batang_46109045.Click Chart_46109045.chartType = MSChart20Lib.VtChChartType.VtChChartType2dBar End Sub
Private Sub Line_46109045_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Line_46109045.Click Chart_46109045.chartType = MSChart20Lib.VtChChartType.VtChChartType2dLine
End Sub
Private Sub Lingkaran_46109045_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Lingkaran_46109045.Click Chart_46109045.chartType = MSChart20Lib.VtChChartType.VtChChartType2dPie
End Sub
Private Sub Batang3D_46109045_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Batang3D_46109045.Click Chart_46109045.chartType = MSChart20Lib.VtChChartType.VtChChartType3dBar
End Sub
Private Sub Line3D_46109045_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Line3D_46109045.Click Chart_46109045.chartType = MSChart20Lib.VtChChartType.VtChChartType3dLine End Sub End Class
Public Class Latihan_044_46109001 Dim conect As New OleDb.OleDbConnection("PROVIDER = MICROSOFT.ACE.OLEDB.12.0; DATA SOURCE =" & Application.StartupPath & "/DATA GRAFIK.ACCDB") Dim wiwi As New DataTable
Private Sub Latihan_044_46109001_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Dim a As New OleDb.OleDbDataAdapter a = New OleDb.OleDbDataAdapter("select * from qpembelianperbulanan", conect) wiwi.Rows.Clear() a.Fill(wiwi) a.Dispose()
GR46109001.Column = 3 GR46109001.Data = x("jumlah") / 10000 Next End Sub
Private Sub GB46109001_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GB46109001.Click GR46109001.chartType = MSChart20Lib.VtChChartType.VtChChartType2dBar End Sub
Private Sub GL46109001_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GL46109001.Click GR46109001.chartType = MSChart20Lib.VtChChartType.VtChChartType2dLine End Sub
Private Sub GK46109001_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GK46109001.Click GR46109001.chartType = MSChart20Lib.VtChChartType.VtChChartType2dPie End Sub
Private Sub GT46109001_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GT46109001.Click GR46109001.chartType = MSChart20Lib.VtChChartType.VtChChartType3dBar End Sub
Private Sub GE46109001_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GE46109001.Click GR46109001.chartType = MSChart20Lib.VtChChartType.VtChChartType3dLine End Sub End Class
Public Class Latihan_44_46109001 Dim fahrul As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source= " & Application.StartupPath & "\DATA GRAFIK.accdb;jet OLEDB:database password=arul") Dim arul As New DataTable
Private Sub Latihan_41_46109005_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Dim mf As New OleDb.OleDbDataAdapter mf = New OleDb.OleDbDataAdapter("select * from qpembelianperbulanan", fahrul) arul.Rows.Clear() mf.Fill(arul) data46109005.DataSource = arul
Private Sub gb46109005_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles gb46109005.Click grafik46109005.chartType = MSChart20Lib.VtChChartType.VtChChartType2dBar
End Sub
Private Sub GL46109005_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GL46109005.Click grafik46109005.chartType = MSChart20Lib.VtChChartType.VtChChartType2dLine
End Sub
Private Sub gk46109005_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles gk46109005.Click grafik46109005.chartType = MSChart20Lib.VtChChartType.VtChChartType2dPie
End Sub
Private Sub GT46109005_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GT46109005.Click grafik46109005.chartType = MSChart20Lib.VtChChartType.VtChChartType3dBar
End Sub
Private Sub GE46109001_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GE46109001.Click grafik46109005.chartType = MSChart20Lib.VtChChartType.VtChChartType3dLine
Public Class Latihan_044_46109017 Dim conect As New OleDb.OleDbConnection("PROVIDER = MICROSOFT.ACE.OLEDB.12.0; DATA SOURCE =" & Application.StartupPath & "/DATA GRAFIK.ACCDB") Dim ayu As New DataTable
Private Sub Latihan_044_46109017_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Dim a As New OleDb.OleDbDataAdapter a = New OleDb.OleDbDataAdapter("select * from qpembelianperbulanan", conect) ayu.Rows.Clear() a.Fill(ayu) a.Dispose()
GR46109017.Column = 3 GR46109017.Data = x("jumlah") / 10000 Next End Sub
Private Sub GB46109017_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GB46109017.Click GR46109017.chartType = MSChart20Lib.VtChChartType.VtChChartType2dBar End Sub
Private Sub GL46109017_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GL46109017.Click GR46109017.chartType = MSChart20Lib.VtChChartType.VtChChartType2dLine End Sub
Private Sub GK46109017_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GK46109017.Click GR46109017.chartType = MSChart20Lib.VtChChartType.VtChChartType2dPie End Sub
Private Sub GT46109017_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GT46109017.Click GR46109017.chartType = MSChart20Lib.VtChChartType.VtChChartType3dBar End Sub
Private Sub GE46109017_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GE46109017.Click GR46109017.chartType = MSChart20Lib.VtChChartType.VtChChartType3dLine End Sub End Class
Public Class Latihan044_46109041 Dim conect As New OleDb.OleDbConnection("PROVIDER = MICROSOFT.ACE.OLEDB.12.0; DATA SOURCE =" & Application.StartupPath & "/DATA GRAFIK.ACCDB") Dim joice As New DataTable
Private Sub Latihan044_46109041_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Dim j As New OleDb.OleDbDataAdapter j = New OleDb.OleDbDataAdapter("select * from qpembelianperbulanan", conect) joice.Rows.Clear() j.Fill(joice) j.Dispose()
gr_041.Column = 3 gr_041.Data = x("jumlah") / 10000 Next End Sub
Private Sub gb_041_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles gb_041.Click gr_041.chartType = MSChart20Lib.VtChChartType.VtChChartType2dBar End Sub
Private Sub gl_041_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles gl_041.Click gr_041.chartType = MSChart20Lib.VtChChartType.VtChChartType2dLine End Sub
Private Sub gk_041_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles gk_041.Click gr_041.chartType = MSChart20Lib.VtChChartType.VtChChartType2dPie End Sub
Private Sub gt_041_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles gt_041.Click gr_041.chartType = MSChart20Lib.VtChChartType.VtChChartType3dBar End Sub
Private Sub ge_041_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ge_041.Click gr_041.chartType = MSChart20Lib.VtChChartType.VtChChartType3dLine End Sub End Class
Public Class Latihan044_46109054 Dim Dwi As New OleDb.OleDbConnection("PROVIDER = MICROSOFT.ACE.OLEDB.12.0; DATA SOURCE =" & Application.StartupPath & "/DATA GRAFIK.ACCDB") Dim dt As New DataTable
Private Sub Latihan044_46109054_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Dim a As New OleDb.OleDbDataAdapter a = New OleDb.OleDbDataAdapter("select * from qpembelianperbulanan", Dwi) dt.Rows.Clear() a.Fill(dt) a.Dispose()
mustika.Column = 3 mustika.Data = x("jumlah") / 10000 Next End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click mustika.chartType = MSChart20Lib.VtChChartType.VtChChartType2dBar End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click mustika.chartType = MSChart20Lib.VtChChartType.VtChChartType2dLine End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click mustika.chartType = MSChart20Lib.VtChChartType.VtChChartType2dPie End Sub
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click mustika.chartType = MSChart20Lib.VtChChartType.VtChChartType3dBar End Sub
Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click mustika.chartType = MSChart20Lib.VtChChartType.VtChChartType3dLine End Sub End Class
Public Class Latihan_44_46109051
BalasHapus'DEKLARASI CONECTION
Dim wahdaniah As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source= " & Application.StartupPath & "\DATA GRAFIK.accdb;jet OLEDB:database password=thepinkers29")
'deklarasi data tabel
Dim niah As New DataTable
Private Sub Latihan44_46109051_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'deklarasi adapter
Dim wahda As New OleDb.OleDbDataAdapter
wahda = New OleDb.OleDbDataAdapter("select * from qpembelianperbulanan", wahdaniah) 'memunculkan semua data dari tabel barang dalam acces DATA GRAFIK
niah.Rows.Clear() 'membersihkan data tabel
wahda.Fill(niah) 'mengisi database ke dalam data table
dg_46109051.DataSource = wahdaniah 'memunculkan dalam datagridview
wahda.Dispose() 'menghancurkan kendaraan (adapter) yang sudah terpakai
'menentkan jumlah baris dalam datagridview
grafik_46109051.ColumnCount = 3
grafik_46109051.RowCount = niah.Rows.Count
'menentukan posisi baris dalam datagridview
Dim POSISIBARIS As Integer = 0
For Each x As DataRow In niah.Rows
POSISIBARIS = POSISIBARIS + 1
grafik_46109051.Row = POSISIBARIS
'memberi nama pada baris grafik degan nama pada kolom tahun
grafik_46109051.RowLabel = x("bulan")
grafik_46109051.Column = 1
grafik_46109051.Data = x("unit")
grafik_46109051.Column = 2
grafik_46109051.Data = x("rata-rata harga") / 1000
grafik_46109051.Column = 3
grafik_46109051.Data = x("jumlah") / 10000
Next
End Sub
Private Sub Gline_46109051_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Gline_46109051.Click
grafik_46109051.chartType = MSChart20Lib.VtChChartType.VtChChartType2dLine
End Sub
Private Sub Gbarang2_46109051_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Gbatang2_46109051.Click
grafik_46109051.chartType = MSChart20Lib.VtChChartType.VtChChartType3dBar
End Sub
Private Sub Gbarang_46109051_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Gbatang_46109051.Click
grafik_46109051.chartType = MSChart20Lib.VtChChartType.VtChChartType2dBar
End Sub
Private Sub Gline3_46109051_clik(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Gline3_46109051.Click
grafik_46109051.chartType = MSChart20Lib.VtChChartType.VtChChartType3dLine
End Sub
Private Sub Glingkar_46109051_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GLingkar_46109051.Click
grafik_46109051.chartType = MSChart20Lib.VtChChartType.VtChChartType2dPie
End Sub
End Class
Public Class Latihan44_46109045
BalasHapusDim Dewi As New OleDb.OleDbConnection("provider=Microsoft.ACE.OleDb.12.0;data source=" & Application.StartupPath & "\Data Grafik.accdb")
Dim Dede As New DataTable
Private Sub Latihan44_46109045_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim Chiko = New OleDb.OleDbDataAdapter("select*from QPembelianPerBulanan", Dewi)
Dede.Rows.Clear()
Chiko.Fill(Dede)
DGV_46109045.DataSource = Dede
Chiko.Dispose()
Chart_46109045.RowCount = Dede.Rows.Count()
Chart_46109045.ColumnCount = 3
Dim PosisiBarisGrafik As Integer = 0
For Each BarisX As DataRow In Dede.Rows
PosisiBarisGrafik = PosisiBarisGrafik + 1
Chart_46109045.Row = PosisiBarisGrafik
Chart_46109045.RowLabel = BarisX("BULAN")
Chart_46109045.Column = 1
Chart_46109045.Data = BarisX("UNIT")
Chart_46109045.Column = 1
Chart_46109045.Data = BarisX("RATA-RATA HARGA") / 1000
Chart_46109045.Column = 2
Chart_46109045.Data = BarisX("JUMLAH") / 1000
Next
End Sub
Private Sub Batang_46109045_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Batang_46109045.Click
Chart_46109045.chartType = MSChart20Lib.VtChChartType.VtChChartType2dBar
End Sub
Private Sub Line_46109045_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Line_46109045.Click
Chart_46109045.chartType = MSChart20Lib.VtChChartType.VtChChartType2dLine
End Sub
Private Sub Lingkaran_46109045_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Lingkaran_46109045.Click
Chart_46109045.chartType = MSChart20Lib.VtChChartType.VtChChartType2dPie
End Sub
Private Sub Batang3D_46109045_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Batang3D_46109045.Click
Chart_46109045.chartType = MSChart20Lib.VtChChartType.VtChChartType3dBar
End Sub
Private Sub Line3D_46109045_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Line3D_46109045.Click
Chart_46109045.chartType = MSChart20Lib.VtChChartType.VtChChartType3dLine
End Sub
End Class
Public Class Latihan_044_46109001
BalasHapusDim conect As New OleDb.OleDbConnection("PROVIDER = MICROSOFT.ACE.OLEDB.12.0; DATA SOURCE =" & Application.StartupPath & "/DATA GRAFIK.ACCDB")
Dim wiwi As New DataTable
Private Sub Latihan_044_46109001_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim a As New OleDb.OleDbDataAdapter
a = New OleDb.OleDbDataAdapter("select * from qpembelianperbulanan", conect)
wiwi.Rows.Clear()
a.Fill(wiwi)
a.Dispose()
DATA46109001.DataSource = wiwi
GR46109001.ColumnCount = 3
GR46109001.RowCount = wiwi.Rows.Count
Dim tingting As Integer = 0
For Each x As DataRow In wiwi.Rows
tingting += 1
GR46109001.Row = tingting
GR46109001.RowLabel = x("bulan")
GR46109001.Column = 1
GR46109001.Data = x("unit")
GR46109001.Column = 2
GR46109001.Data = x("rata-rata harga") / 1000
GR46109001.Column = 3
GR46109001.Data = x("jumlah") / 10000
Next
End Sub
Private Sub GB46109001_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GB46109001.Click
GR46109001.chartType = MSChart20Lib.VtChChartType.VtChChartType2dBar
End Sub
Private Sub GL46109001_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GL46109001.Click
GR46109001.chartType = MSChart20Lib.VtChChartType.VtChChartType2dLine
End Sub
Private Sub GK46109001_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GK46109001.Click
GR46109001.chartType = MSChart20Lib.VtChChartType.VtChChartType2dPie
End Sub
Private Sub GT46109001_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GT46109001.Click
GR46109001.chartType = MSChart20Lib.VtChChartType.VtChChartType3dBar
End Sub
Private Sub GE46109001_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GE46109001.Click
GR46109001.chartType = MSChart20Lib.VtChChartType.VtChChartType3dLine
End Sub
End Class
Public Class Latihan_44_46109001
BalasHapusDim fahrul As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source= " & Application.StartupPath & "\DATA GRAFIK.accdb;jet OLEDB:database password=arul")
Dim arul As New DataTable
Private Sub Latihan_41_46109005_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim mf As New OleDb.OleDbDataAdapter
mf = New OleDb.OleDbDataAdapter("select * from qpembelianperbulanan", fahrul)
arul.Rows.Clear()
mf.Fill(arul)
data46109005.DataSource = arul
mf.Dispose()
grafik46109005.ColumnCount = 2
grafik46109005.RowCount = arul.Rows.Count
Dim POSISIBARIS As Integer = 0
For Each x As DataRow In arul.Rows
POSISIBARIS = POSISIBARIS + 1
grafik46109005.Row = POSISIBARIS
grafik46109005.RowLabel = x("TAHUN")
grafik46109005.Column = 1
grafik46109005.Data = x("PENDAPATAN") / 1000
grafik46109005.Column = 2
grafik46109005.Data = x("BIAYA") / 1000
Next
End Sub
Private Sub gb46109005_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles gb46109005.Click
grafik46109005.chartType = MSChart20Lib.VtChChartType.VtChChartType2dBar
End Sub
Private Sub GL46109005_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GL46109005.Click
grafik46109005.chartType = MSChart20Lib.VtChChartType.VtChChartType2dLine
End Sub
Private Sub gk46109005_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles gk46109005.Click
grafik46109005.chartType = MSChart20Lib.VtChChartType.VtChChartType2dPie
End Sub
Private Sub GT46109005_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GT46109005.Click
grafik46109005.chartType = MSChart20Lib.VtChChartType.VtChChartType3dBar
End Sub
Private Sub GE46109001_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GE46109001.Click
grafik46109005.chartType = MSChart20Lib.VtChChartType.VtChChartType3dLine
End Sub
End Class
Public Class Latihan_044_46109017
BalasHapusDim conect As New OleDb.OleDbConnection("PROVIDER = MICROSOFT.ACE.OLEDB.12.0; DATA SOURCE =" & Application.StartupPath & "/DATA GRAFIK.ACCDB")
Dim ayu As New DataTable
Private Sub Latihan_044_46109017_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim a As New OleDb.OleDbDataAdapter
a = New OleDb.OleDbDataAdapter("select * from qpembelianperbulanan", conect)
ayu.Rows.Clear()
a.Fill(ayu)
a.Dispose()
DATA46109017.DataSource = ayu
GR46109017.ColumnCount = 3
GR46109017.RowCount = ayu.Rows.Count
Dim wandika As Integer = 0
For Each x As DataRow In ayu.Rows
wandika += 1
GR46109017.Row = wandika
GR46109017.RowLabel = x("bulan")
GR46109017.Column = 1
GR46109017.Data = x("unit")
GR46109017.Column = 2
GR46109017.Data = x("rata-rata harga") / 1000
GR46109017.Column = 3
GR46109017.Data = x("jumlah") / 10000
Next
End Sub
Private Sub GB46109017_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GB46109017.Click
GR46109017.chartType = MSChart20Lib.VtChChartType.VtChChartType2dBar
End Sub
Private Sub GL46109017_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GL46109017.Click
GR46109017.chartType = MSChart20Lib.VtChChartType.VtChChartType2dLine
End Sub
Private Sub GK46109017_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GK46109017.Click
GR46109017.chartType = MSChart20Lib.VtChChartType.VtChChartType2dPie
End Sub
Private Sub GT46109017_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GT46109017.Click
GR46109017.chartType = MSChart20Lib.VtChChartType.VtChChartType3dBar
End Sub
Private Sub GE46109017_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GE46109017.Click
GR46109017.chartType = MSChart20Lib.VtChChartType.VtChChartType3dLine
End Sub
End Class
Public Class Latihan044_46109041
BalasHapusDim conect As New OleDb.OleDbConnection("PROVIDER = MICROSOFT.ACE.OLEDB.12.0; DATA SOURCE =" & Application.StartupPath & "/DATA GRAFIK.ACCDB")
Dim joice As New DataTable
Private Sub Latihan044_46109041_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim j As New OleDb.OleDbDataAdapter
j = New OleDb.OleDbDataAdapter("select * from qpembelianperbulanan", conect)
joice.Rows.Clear()
j.Fill(joice)
j.Dispose()
wonga_041.DataSource = joice
gr_041.ColumnCount = 3
gr_041.RowCount = joice.Rows.Count
Dim hoihoi As Integer = 0
For Each x As DataRow In joice.Rows
hoihoi += 1
gr_041.Row = hoihoi
gr_041.RowLabel = x("bulan")
gr_041.Column = 1
gr_041.Data = x("unit")
gr_041.Column = 2
gr_041.Data = x("rata-rata harga") / 1000
gr_041.Column = 3
gr_041.Data = x("jumlah") / 10000
Next
End Sub
Private Sub gb_041_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles gb_041.Click
gr_041.chartType = MSChart20Lib.VtChChartType.VtChChartType2dBar
End Sub
Private Sub gl_041_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles gl_041.Click
gr_041.chartType = MSChart20Lib.VtChChartType.VtChChartType2dLine
End Sub
Private Sub gk_041_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles gk_041.Click
gr_041.chartType = MSChart20Lib.VtChChartType.VtChChartType2dPie
End Sub
Private Sub gt_041_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles gt_041.Click
gr_041.chartType = MSChart20Lib.VtChChartType.VtChChartType3dBar
End Sub
Private Sub ge_041_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ge_041.Click
gr_041.chartType = MSChart20Lib.VtChChartType.VtChChartType3dLine
End Sub
End Class
Public Class Latihan044_46109054
BalasHapusDim Dwi As New OleDb.OleDbConnection("PROVIDER = MICROSOFT.ACE.OLEDB.12.0; DATA SOURCE =" & Application.StartupPath & "/DATA GRAFIK.ACCDB")
Dim dt As New DataTable
Private Sub Latihan044_46109054_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim a As New OleDb.OleDbDataAdapter
a = New OleDb.OleDbDataAdapter("select * from qpembelianperbulanan", Dwi)
dt.Rows.Clear()
a.Fill(dt)
a.Dispose()
dgv.DataSource = dt
mustika.ColumnCount = 3
mustika.RowCount = dt.Rows.Count
Dim chaerunnisa As Integer = 0
For Each x As DataRow In dt.Rows
chaerunnisa += 1
mustika.Row = chaerunnisa
mustika.RowLabel = x("bulan")
mustika.Column = 1
mustika.Data = x("unit")
mustika.Column = 2
mustika.Data = x("rata-rata harga") / 1000
mustika.Column = 3
mustika.Data = x("jumlah") / 10000
Next
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
mustika.chartType = MSChart20Lib.VtChChartType.VtChChartType2dBar
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
mustika.chartType = MSChart20Lib.VtChChartType.VtChChartType2dLine
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
mustika.chartType = MSChart20Lib.VtChChartType.VtChChartType2dPie
End Sub
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
mustika.chartType = MSChart20Lib.VtChChartType.VtChChartType3dBar
End Sub
Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
mustika.chartType = MSChart20Lib.VtChChartType.VtChChartType3dLine
End Sub
End Class
http://cacalisa.blogspot.com/2012/11/latihan4446110038.html
BalasHapushttp://rafidashaleh.blogspot.com/2012/11/latihan4446110041.html
BalasHapushttp://mulyawarman039.blogspot.com/2012/11/latihan4446110039.html
BalasHapushttp://srikartikafanty.blogspot.com/2012/11/latihan4446110007.html
BalasHapushttp://idhamsyaam.blogspot.com/2012/11/latihan4446110021.html
BalasHapushttp://sulhihusni.blogspot.com/2012/11/latihan4446110004.html
BalasHapushttp://wahyunirachman.blogspot.com/2012/11/latihan4446110020.html
BalasHapushttp://alfaega.blogspot.com/2012/11/latihan4446110022.html
BalasHapushttp://bahrizj.blogspot.com/2012/11/latihan4446110001_10.html
BalasHapushttp://dianmegariski.blogspot.com/2012/11/latihan4446110023.html
BalasHapushttp://ildayani.blogspot.com/2012/11/latihan4446110002.html
BalasHapushttp://restyaccounting.blogspot.com/2012/12/latijan4546110027.html
BalasHapushttp://masdarwati.blogspot.com/2012/11/latihan4446110024.html
BalasHapushttp://hanihasan07.blogspot.com/2012/12/latihan4446110044.html
BalasHapusKomentar ini telah dihapus oleh pengarang.
BalasHapushttp://bothbon.blogspot.com/2013/01/latihan4446110043.html
BalasHapushttp://muthmil8.blogspot.com/2012/11/latihan4446110037.html
BalasHapushttp://amalmaulana92.blogspot.com/2013/01/latihan4446110003.html
BalasHapushttp://aardianzah2.blogspot.com/2013/01/latihan-44.html
BalasHapushttp://feibyfrycilia.blogspot.com/2013/01/latihan4446110055.html
BalasHapushttp://fitrianihamka.blogspot.com/2013/01/latihan4446110006.html
BalasHapushttp://diyanahdina.blogspot.com/2013/01/latihan4446110045.html
BalasHapushttp://deodns.blogspot.com/#!/2013/01/latihan4446110040.html
BalasHapusKomentar ini telah dihapus oleh pengarang.
BalasHapushttp://yuliaasrida427.blogspot.com/2013/01/latihan4446110009.html
BalasHapus