Jumat, 18 November 2011

Latihan 41 APKOM 4 D4A

30 komentar:

  1. Public Class Latihan_41_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 Latihan_41_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 KEUANGAN", wahdaniah) 'mkemunculkan 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 = niah 'memunculkan dalam datagridview

    wahda.Dispose() 'menghancurkan kendaraan (adapter) yang sudah terpakai

    'menentkan jumlah baris dalam datagridview
    grafik_46109051.ColumnCount = 2
    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 dengan nama pada kolom tahun.
    grafik_46109051.RowLabel = x("TAHUN")

    grafik_46109051.Column = 1
    grafik_46109051.Data = x("PENDAPATAN") / 1000

    grafik_46109051.Column = 2
    grafik_46109051.Data = x("BIAYA") / 1000

    Next
    End Sub

    End Class

    BalasHapus
  2. Public Class Latihan41_46109045

    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 Latihan41_46109045_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    Dim Chiko = New OleDb.OleDbDataAdapter("select*from Keuangan", Dewi)
    Dede.Rows.Clear()

    Chiko.Fill(Dede)
    DGV_46109045.DataSource = Dede
    Chiko.Dispose()

    Chart_46109045.RowCount = Dede.Rows.Count()
    Chart_46109045.ColumnCount = 2

    Dim PosisiBarisGrafik As Integer = 0
    For Each BarisX As DataRow In Dede.Rows
    PosisiBarisGrafik = PosisiBarisGrafik + 1

    Chart_46109045.Row = PosisiBarisGrafik
    Chart_46109045.RowLabel = BarisX("Tahun")

    Chart_46109045.Column = 1
    Chart_46109045.Data = BarisX("Pendapatan") / 1000

    Chart_46109045.Column = 2
    Chart_46109045.Data = BarisX("Biaya") / 1000

    Next

    End Sub
    End Class

    BalasHapus
  3. Public Class Latihan_041_46109001

    Dim CONECT As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source= " & Application.StartupPath & "\DATA GRAFIK.accdb")
    Dim DT As New DataTable

    Private Sub LATIHAN_041_46109001_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    Dim wiwi As New OleDb.OleDbDataAdapter
    wiwi = New OleDb.OleDbDataAdapter("select * from KEUANGAN", CONECT)
    DT.Rows.Clear()
    wiwi.Fill(DT)
    DATA46109001.DataSource = DT
    wiwi.Dispose()

    GR46109001.ColumnCount = 2
    GR46109001.RowCount = DT.Rows.Count


    Dim POSISIBARIS As Integer = 0

    For Each x As DataRow In DT.Rows
    POSISIBARIS = POSISIBARIS + 1
    GR46109001.Row = POSISIBARIS


    GR46109001.RowLabel = x("tahun")

    GR46109001.Column = 1
    GR46109001.Data = x("PENDAPATAN") / 1000

    GR46109001.Column = 2
    GR46109001.Data = x("BIAYA") / 1000

    Next

    End Sub
    End Class

    BalasHapus
  4. Public Class Latihan_041_46109053

    Dim Indah As New OleDb.OleDbConnection("provider=Microsoft.ACE.OleDb.12.0;data source=" & Application.StartupPath & "\Data Grafik.accdb")
    Dim sae As New DataTable

    Private Sub Latihan_041_46109053_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    Dim Saenong = New OleDb.OleDbDataAdapter("select*from Keuangan", Yusri)
    Sae.Rows.Clear()

    Saenong.Fill(Sae)
    DGV_053.DataSource = Sae
    Saenong.Dispose()

    sae_053.RowCount = Sae.Rows.Count()
    Sae_053.ColumnCount = 2

    Dim PosisiBarisGrafik As Integer = 0
    For Each BarisX As DataRow In Sae.Rows
    PosisiBarisGrafik = PosisiBarisGrafik + 1

    Sae_053.Row = PosisiBarisGrafik
    Sae_053.RowLabel = BarisX("Tahun")

    Sae_053.Column = 1
    Sae_053.Data = BarisX("Pendapatan") / 1000

    Sae_053.Column = 2
    Sae_053.Data = BarisX("Biaya") / 1000

    Next

    End Sub
    End Class

    BalasHapus
  5. Public Class Latihan_041_46109017

    Dim CONECT As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source= " & Application.StartupPath & "\DATA GRAFIK.accdb")
    Dim DT As New DataTable

    Private Sub LATIHAN_041_46109017_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    Dim ayu As New OleDb.OleDbDataAdapter
    ayu = New OleDb.OleDbDataAdapter("select * from KEUANGAN", CONECT)
    DT.Rows.Clear()
    ayu.Fill(DT)
    DATA46109017.DataSource = DT
    ayu.Dispose()

    GR46109017.ColumnCount = 2
    GR46109017.RowCount = DT.Rows.Count


    Dim POSISIBARIS As Integer = 0

    For Each x As DataRow In DT.Rows
    POSISIBARIS = POSISIBARIS + 1
    GR46109017.Row = POSISIBARIS


    GR46109017.RowLabel = x("tahun")

    GR46109017.Column = 1
    GR46109017.Data = x("PENDAPATAN") / 1000

    GR46109017.Column = 2
    GR46109017.Data = x("BIAYA") / 1000

    Next

    End Sub
    End Class

    BalasHapus
  6. Aryandira_3AD4
    Latihan 41
    Public Class Latihan41_46109034

    Dim CONECT As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source= " & Application.StartupPath & "\DATA GRAFIK.accdb")
    Dim DT As New DataTable

    Private Sub Latihan41_46109034_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    Dim dira As New OleDb.OleDbDataAdapter
    dira = New OleDb.OleDbDataAdapter("select * from KEUANGAN", CONECT)
    DT.Rows.Clear()
    dira.Fill(DT)
    DATA46109034.DataSource = DT
    dira.Dispose()

    GR46109034.ColumnCount = 2
    GR46109034.RowCount = DT.Rows.Count


    Dim POSISIBARIS As Integer = 0

    For Each x As DataRow In DT.Rows
    POSISIBARIS = POSISIBARIS + 1
    GR46109034.Row = POSISIBARIS


    GR46109034.RowLabel = x("tahun")

    GR46109034.Column = 1
    GR46109034.Data = x("PENDAPATAN") / 1000

    GR46109034.Column = 2
    GR46109034.Data = x("BIAYA") / 1000

    Next

    End Sub
    End Class

    BalasHapus
  7. Public Class Latihan041_46109041

    Dim CONECT As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source= " & Application.StartupPath & "\DATA GRAFIK.accdb")
    Dim DT As New DataTable

    Private Sub LATIHAN041_46109041_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    Dim joice As New OleDb.OleDbDataAdapter
    joice = New OleDb.OleDbDataAdapter("select * from KEUANGAN", CONECT)
    DT.Rows.Clear()
    joice.Fill(DT)
    wonga_041.DataSource = DT
    joice.Dispose()

    gr_041.ColumnCount = 2
    gr_041.RowCount = DT.Rows.Count


    Dim POSISIBARIS As Integer = 0

    For Each x As DataRow In DT.Rows
    POSISIBARIS = POSISIBARIS + 1
    gr_041.Row = POSISIBARIS


    gr_041.RowLabel = x("tahun")

    gr_041.Column = 1
    gr_041.Data = x("PENDAPATAN") / 1000

    gr_041.Column = 2
    gr_041.Data = x("BIAYA") / 1000

    Next

    End Sub
    End Class

    BalasHapus
  8. Public Class Latihan041_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 Latihan041_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 keuangan", Dwi)
    dt.Rows.Clear()
    a.Fill(dt)
    a.Dispose()

    dgv.DataSource = dt

    mustika.ColumnCount = 2
    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("tahun")

    mustika.Column = 1
    mustika.Data = x("pendapatan") / 1000

    mustika.Column = 2
    mustika.Data = x("biaya") / 1000
    Next
    End Sub
    End Class

    BalasHapus
  9. http://cacalisa.blogspot.com/2012/11/latihan4146110038.html

    BalasHapus
  10. http://rafidashaleh.blogspot.com/2012/11/latihan4146110041.html

    BalasHapus
  11. http://mulyawarman039.blogspot.com/2012/11/latihan4146110039.html

    BalasHapus
  12. http://bahrizj.blogspot.com/2012/11/latihan4146110001.html

    BalasHapus
  13. http://srikartikafanty.blogspot.com/2012/11/latihan4146110007.html

    BalasHapus
  14. http://idhamsyaam.blogspot.com/2012/11/latihan4146110021.html

    BalasHapus
  15. http://sulhihusni.blogspot.com/2012/11/latihan4146110004.html

    BalasHapus
  16. http://wahyunirachman.blogspot.com/2012/11/latihan4146110020_9.html

    BalasHapus
  17. http://alfaega.blogspot.com/2012/11/latihan4146110022.html

    BalasHapus
  18. http://fitrianihamka.blogspot.com/2012/11/latihan4146110006.html

    BalasHapus
  19. http://dianmegariski.blogspot.com/2012/11/latihan4146110023_24.html

    BalasHapus
  20. http://ildayani.blogspot.com/2012/11/latihan4146110002.html

    BalasHapus
  21. http://restyaccounting.blogspot.com/2012/12/latihan4146110027.html

    BalasHapus
  22. http://hanihasan07.blogspot.com/2012/12/latihan4146110044.html

    BalasHapus
  23. http://bothbon.blogspot.com/2013/01/latihan4146110043.html

    BalasHapus
  24. http://muthmil8.blogspot.com/2012/11/latihan4146110037.html

    BalasHapus
  25. http://amalmaulana92.blogspot.com/2013/01/latihan4146110003.html

    BalasHapus
  26. http://aardianzah2.blogspot.com/2013/01/latihan-41.html

    BalasHapus
  27. http://feibyfrycilia.blogspot.com/2013/01/latihan4146110055.html

    BalasHapus
  28. http://diyanahdina.blogspot.com/2013/01/latihan4146110045.html

    BalasHapus
  29. http://yuliaasrida427.blogspot.com/2013/01/latihan4146110009.html

    BalasHapus
  30. http://deodns.blogspot.com/#!/2013/01/latihan4146110040.html

    BalasHapus