Jumat, 04 November 2011

Latihan 28 Apkom 4 D4 A

Silahkan kumpul disini

34 komentar:

  1. dewi sartika
    461 09 045
    3A.D4


    Public Class LATIHAN28A_46109045
    Dim DEWI As New DataTable
    Dim SARTIKA As New OleDb.OleDbConnection("PROVIDER = MICROSOFT.ACE.OLEDB.12.0; DATA SOURCE =" & Application.StartupPath & "/Databarang.ACCDB")

    Public Sub DEWISARTIKA()
    Dim DEDE As New OleDb.OleDbDataAdapter
    DEDE = New OleDb.OleDbDataAdapter("select * from barang", SARTIKA)
    DEWI.Rows.Clear()
    DEDE.Fill(DEWI)
    DEDE.Dispose()
    End Sub
    Private Sub LATIHAN28A_46109045_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    DEWISARTIKA()
    DATA_045.DataSource = DEWI
    End Sub

    Private Sub INPUT_045_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles INPUT_045.Click
    If LATIHAN28B_46109045.Visible = False Then
    LATIHAN28B_46109045.Show()
    Else
    LATIHAN28B_46109045.Activate()
    End If

    End Sub

    Private Sub TUTUP_045_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TUTUP_045.Click
    Close()
    End Sub

    Public Class LATIHAN28B_46109045

    Dim conect As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source= " & Application.StartupPath & "\databarang.accdb")

    Private Sub SIMPAN_045_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SIMPAN_045.Click
    Dim CHIKO As New OleDb.OleDbCommand
    CHIKO = New OleDb.OleDbCommand("INSERT INTO BARANG (KODEBARANG, NAMABARANG, HARGAJUAL, JUMLAHBARANG) VALUES ('" & KB_045.Text & "','" & NB_045.Text & "', '" & Val(HJ_045.Text) & "', '" & Val(JB_045.Text) & "')", conect)


    conect.Open()
    CHIKO.ExecuteNonQuery()
    conect.Close()
    KB_045.Text = " "
    NB_045.Text = " "
    HJ_045.Text = " "
    JB_045.Text = " "
    End Sub

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

    End Sub
    End Class

    BalasHapus
  2. Public Class Latihan28A_46109001
    Dim dwitya As New DataTable
    Dim saadah As New OleDb.OleDbConnection("PROVIDER = MICROSOFT.ACE.OLEDB.12.0; DATA SOURCE =" & Application.StartupPath & "/Databarang.ACCDB")

    Public Sub dwityasaadahsuaib()
    Dim wiwi As New OleDb.OleDbDataAdapter
    wiwi = New OleDb.OleDbDataAdapter("select * from barang", saadah)
    dwitya.Rows.Clear()
    wiwi.Fill(dwitya)
    wiwi.Dispose()
    End Sub
    Private Sub Latihan28A_46109001_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    dwityasaadahsuaib()
    data46109001.DataSource = dwitya
    End Sub

    Private Sub Input46109001_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Input46109001.Click
    If Latihan28B_46109001.Visible = False Then
    Latihan28B_46109001.Show()
    Else
    Latihan28B_46109001.Activate()
    End If

    End Sub

    Private Sub tutup46109001_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tutup46109001.Click
    Close()
    End Sub
    End Class



    Public Class Latihan28B_46109001

    Dim conect As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source= " & Application.StartupPath & "\databarang.accdb")

    Private Sub S46109001_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles S46109001.Click
    Dim tingting As New OleDb.OleDbCommand
    tingting = New OleDb.OleDbCommand("INSERT INTO BARANG (KODEBARANG, NAMABARANG, HARGAJUAL, JUMLAHBARANG) VALUES ('" & kb46109001.Text & "','" & NB46109001.Text & "', '" & Val(HJ46109001.Text) & "', '" & Val(JB46109001.Text) & "')", conect)


    conect.Open()
    tingting.ExecuteNonQuery()
    conect.Close()
    kb46109001.Text = " "
    NB46109001.Text = " "
    HJ46109001.Text = " "
    JB46109001.Text = " "
    End Sub
    End Class

    BalasHapus
  3. Public Class LATIHAN028A_46109008
    Dim go As New OleDb.OleDbConnection("provider = microsoft.ace.oledb.12.0;data source=" & Application.StartupPath & "\databarang.accdb;jet OLEDB:database password=46109008")
    Dim shoell As New DataTable
    Public Sub ambildata()
    Dim data As New OleDb.OleDbDataAdapter
    data = New OleDb.OleDbDataAdapter("SELECT*from BARANG", go)
    shoell.Rows.Clear()
    data.Fill(shoell)
    data.Dispose()
    End Sub
    Private Sub Latihan28A_46109008_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    ambildata()
    dgv46109008.DataSource = shoell
    End Sub
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1_46109008.Click
    If LATIHAN028B_46109008.Visible = False Then
    LATIHAN028B_46109008.Show()
    Else
    LATIHAN028B_46109008.Activate()
    End If
    End Sub
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2_46109008.Click
    Me.Close()
    End Sub
    End Class



    Class LATIHAN028B_46109008
    Dim jembatan As New OleDb.OleDbConnection("provider = microsoft.ace.oledb.12.0;data source=" & Application.StartupPath & "\databarang.accdb;jet OLEDB:database password=46109008")
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles simpan_46109008.Click
    If KB_46109008.Text.Length = 0 Then
    MsgBox("please insert your text")
    Exit Sub
    End If
    If NB_46109008.Text.Length = 0 Then
    MsgBox("please insert your text")
    Exit Sub
    End If
    If Val(HJ_46109008.Text) = 0 Then
    MsgBox("please insert your text")
    Exit Sub
    End If
    If Val(JB_46109008.Text) = 0 Then
    MsgBox("please insert your text")
    Exit Sub
    End If
    Dim PENCARI As New ByIskandar.CariKeDataBaseByIskandar
    PENCARI.AturPencarianDataBase("BARANG", "KODEBARANG", KB_46109008.Text, 1, jembatan)
    If PENCARI.JumlanBaris > 0 Then
    MsgBox("the data has been exist please insert new data")
    KB_46109008.Text = ""
    NB_46109008.Text = ""
    HJ_46109008.Text = ""
    JB_46109008.Text = ""
    Exit Sub
    End If
    Dim Cmd As New OleDb.OleDbCommand
    Cmd = New OleDb.OleDbCommand("INSERT INTO BARANG(KODEBARANG,NAMABARANG,HARGAJUAL,JUMLAHBARANG)VALUES ('" & KB_46109008.Text & "','" & NB_46109008.Text & "'," & Val(HJ_46109008.Text) & "," & Val(JB_46109008.Text) & " )", jembatan)
    jembatan.Open()
    Cmd.ExecuteNonQuery()
    jembatan.Close()
    Cmd.Dispose()
    KB_46109008.Text = ""
    NB_46109008.Text = ""
    HJ_46109008.Text = ""
    JB_46109008.Text = ""
    LATIHAN028A_46109008.ambildata()
    Me.Close()
    End Sub
    End Class

    BalasHapus
  4. Public Class Form28A
    Dim FADILLAH As New OleDb.OleDbConnection("PROVIDER = MICROSOFT.ACE.OLEDB.12.0; Data Source=" & Application.StartupPath & "\DATABARANG.accdb;jet oledb:database password=DILA")
    Dim SAGENA As New DataTable

    Public Sub ambildata()
    Dim data As New OleDb.OleDbDataAdapter
    data = New OleDb.OleDbDataAdapter("SELECT*From BARANG", FADILLAH)
    SAGENA.Rows.Clear()
    data.Fill(SAGENA)
    data.Dispose()
    End Sub

    Private Sub Form28A_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    ambildata()
    UDHE1_46109059.DataSource = SAGENA
    End Sub

    Private Sub DILA1_46109059_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DILA1_46109059.Click
    If Form28B.Visible = False Then
    Form28B.Show()
    Else
    Form28B.Activate()
    End If
    End Sub

    Private Sub DILA2_46109059_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DILA2_46109059.Click
    Me.Close()
    End Sub
    End Class


    Public Class Form28B
    Dim FADILLAH As New OleDb.OleDbConnection("PROVIDER = MICROSOFT.ACE.OLEDB.12.0; Data Source=" & Application.StartupPath & "\DATABARANG.accdb;jet oledb:database password=DILA")

    Private Sub DILA1_46109059_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DILA1_46109059.Click
    If DILA1_46109059.Text.Length = 0 Then
    MsgBox("Isi yang kosong")
    Exit Sub
    End If

    If DILA2_46109059.Text.Length = 0 Then
    MsgBox("Isi yang kosong")
    Exit Sub
    End If

    If Val(DILA3_46109059.Text) = 0 Then
    MsgBox("Isi yang kosong")
    Exit Sub
    End If

    If Val(DILA4_46109059.Text) = 0 Then
    MsgBox("Isi yang kosong")
    Exit Sub
    End If

    Dim SAGENA As New OleDb.OleDbCommand
    SAGENA = New OleDb.OleDbCommand("insert into barang (kodebarang, namabarang, hargajual, jumlahbarang) values ('" & DILA1_46109059.Text & "','" & DILA2_46109059.Text & "'," & Val(DILA3_46109059.Text) & "," & Val(DILA4_46109059.Text) & ")", FADILLAH)

    FADILLAH.Open()
    SAGENA.ExecuteNonQuery()
    FADILLAH.Close()
    SAGENA.Dispose()

    DILA1_46109059.Text = ""
    DILA2_46109059.Text = ""
    DILA3_46109059.Text = ""
    DILA4_46109059.Text = ""
    End Sub
    End Class

    BalasHapus
  5. Public Class LATIHAN_028A_054
    Dim INDAH As New OleDb.OleDbConnection("PROVIDER = MICROSOFT.ACE.OLEDB.12.0; Data Source=" & Application.StartupPath & "\DATABARANG.accdb;jet oledb:database password=SAE")
    Dim YANI As New DataTable

    Public Sub ambildata()
    Dim data As New OleDb.OleDbDataAdapter
    data = New OleDb.OleDbDataAdapter("SELECT*From BARANG", INDAH)
    YANI.Rows.Clear()
    data.Fill(YANI)
    data.Dispose()
    End Sub

    Private Sub Latihan_028A_054_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    ambildata()
    DGV1_46109053.DataSource = YANI
    End Sub

    Private Sub Saenong1_46109053_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Saenong1_46109053.Click
    If Latihan_028B_054.Visible = False Then
    Latihan_028B_054.Show()
    Else
    Latihan_028B_054.Activate()
    End If
    End Sub

    Private Sub Saenong2_46109053_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Saenong2_46109053.Click
    Me.Close()
    End Sub
    End Class

    BalasHapus
  6. Public Class LATIHAN_028A_054
    Dim INDAH As New OleDb.OleDbConnection("PROVIDER = MICROSOFT.ACE.OLEDB.12.0; Data Source=" & Application.StartupPath & "\DATABARANG.accdb;jet oledb:database password=SAE")
    Dim YANI As New DataTable

    Public Sub ambildata()
    Dim data As New OleDb.OleDbDataAdapter
    data = New OleDb.OleDbDataAdapter("SELECT*From BARANG", INDAH)
    YANI.Rows.Clear()
    data.Fill(YANI)
    data.Dispose()
    End Sub

    Private Sub Latihan_028A_054_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    ambildata()
    DGV1_46109053.DataSource = YANI
    End Sub

    Private Sub Saenong1_46109053_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Saenong1_46109053.Click
    If Latihan_028B_054.Visible = False Then
    Latihan_028B_054.Show()
    Else
    Latihan_028B_054.Activate()
    End If
    End Sub

    Private Sub Saenong2_46109053_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Saenong2_46109053.Click
    Me.Close()
    End Sub
    End Class

    BalasHapus
  7. Public Class LATIHAN_028B_054
    Dim INDAH As New OleDb.OleDbConnection("PROVIDER = MICROSOFT.ACE.OLEDB.12.0; Data Source=" & Application.StartupPath & "\DATABARANG.accdb;jet oledb:database password=sae")

    Private Sub Saenong1_46109053_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Saenong1_46109053.Click
    If SAE1_46109053.Text.Length = 0 Then
    MsgBox("Isi rong itu yang kosong")
    Exit Sub
    End If

    If SAE2_46109053.Text.Length = 0 Then
    MsgBox("Isi rong itu yang kosong")
    Exit Sub
    End If

    If Val(SAE3_46109053.Text) = 0 Then
    MsgBox("Isi rong itu yang kosong")
    Exit Sub
    End If

    If Val(SAE4_46109053.Text) = 0 Then
    MsgBox("Isi rong itu yang kosong")
    Exit Sub
    End If

    Dim yani As New OleDb.OleDbCommand
    yani = New OleDb.OleDbCommand("insert into barang (kodebarang, namabarang, hargajual, jumlahbarang) values ('" & SAE1_46109053.Text & "','" & SAE2_46109053.Text & "'," & Val(SAE3_46109053.Text) & "," & Val(SAE4_46109053.Text) & ")", INDAH)

    INDAH.Open()
    yani.ExecuteNonQuery()
    INDAH.Close()
    yani.Dispose()

    SAE1_46109053.Text = ""
    SAE2_46109053.Text = ""
    SAE3_46109053.Text = ""
    SAE4_46109053.Text = ""
    End Sub
    End Class

    BalasHapus
  8. Public Class LATIHAN028A46109017
    Dim CONECT As New OleDb.OleDbConnection("provider = microsoft.ace.oledb.12.0;data source=" & Application.StartupPath & "\databarang.accdb;Jet OLEDB:Database Password=putri")
    Dim ayu As New DataTable
    Dim baris As DataRow
    Private Sub LATIHAN028A46109017_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    Dim cobajaa As New OleDb.OleDbDataAdapter
    cobajaa = New OleDb.OleDbDataAdapter("select * from barang", CONECT)
    cobajaa.Fill(ayu)
    DataGridView1.DataSource = ayu
    End Sub

    Private Sub Button146109017_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button146109017.Click
    If LATIHAN028B46109017.Visible = False Then
    LATIHAN028B46109017.Show()
    Else
    LATIHAN028B46109017.Activate()
    End If
    End Sub

    Private Sub Button246109017_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button246109017.Click
    End
    End Sub

    End Class


    Public Class LATIHAN028B46109017
    Dim CONECT As New OleDb.OleDbConnection("provider = microsoft.ace.oledb.12.0;data source=" & Application.StartupPath & "\databarang.accdb;Jet OLEDB:Database Password=putri")
    Dim dt As New DataTable

    Private Sub Button146109017_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button146109017.Click
    Dim ayu As New OleDb.OleDbDataAdapter("select count(*) as coba from barang where kodebarang ='" & t146109017.Text & "'", CONECT)
    dt.Rows.Clear()
    ayu.Fill(dt)
    If dt.Rows(0).Item("coba") > 0 Then
    MsgBox("kode barang sudah ada")
    Else
    wandika()
    End If
    Data()
    t146109017.Text = ""
    t246109017.Text = ""
    t346109017.Text = ""
    t446109017.Text = ""
    End Sub

    Public Sub wandika()
    Dim com As New OleDb.OleDbCommand
    com = New OleDb.OleDbCommand("insert into BARANG (kodebarang, namabarang, hargajual, jumlahbarang) values ('" & t146109017.Text & "','" & t246109017.Text & "'," & Val(t346109017.Text) & "," & Val(t446109017.Text) & ")", CONECT)

    CONECT.Open()
    com.ExecuteNonQuery()
    CONECT.Close()
    com.Dispose()
    End Sub

    Public Sub data()
    If Val(t146109017.Text) = 0 Then
    MsgBox("kode barang belum terisi")
    Exit Sub
    End If
    If t246109017.Text.Length = 0 Then
    MsgBox("nama barang belum terisi")
    Exit Sub
    End If

    If Val(t346109017.Text) = 0 Then
    MsgBox("harga jual belum diisi")
    Exit Sub
    End If

    If Val(t446109017.Text) = 0 Then
    MsgBox("jumlah barang belum diisi")
    Exit Sub
    End If
    End Sub

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

    End Sub

    End Class

    BalasHapus
  9. Nama :febiana fransiskus
    stmb : 46109027

    Public Class LATIHAN028A_46109027
    Dim FEBIANA As New OleDb.OleDbConnection("PROVIDER = MICROSOFT.ACE.OLEDB.12.0; Data Source=" & Application.StartupPath & "\DATABARANG.accdb;jet oledb:database password=FEBY")
    Dim ANA As New DataTable

    Public Sub ambildata()
    Dim data As New OleDb.OleDbDataAdapter
    data = New OleDb.OleDbDataAdapter("SELECT*From BARANG", FEBIANA)
    ANA.Rows.Clear()
    data.Fill(ANA)
    data.Dispose()
    End Sub

    Private Sub LATIHAN028A_46109027_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    ambildata()
    DGV1_46109027.DataSource = ANA
    End Sub

    Private Sub Fransiskus1_46109027_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Fransiskus1_46109027.Click
    If LATIHAN028B_46109027.Visible = False Then
    LATIHAN028B_46109027.Show()
    Else
    LATIHAN028B_46109027.Activate()
    End If
    End Sub

    Private Sub Fransiskus2_46109027_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Bheku2_46109027.Click
    Me.Close()
    End Sub
    End Class


    Public Class LATIHAN028B_46109027
    Dim FEBIANA As New OleDb.OleDbConnection("PROVIDER = MICROSOFT.ACE.OLEDB.12.0; Data Source=" & Application.StartupPath & "\DATABARANG.accdb;jet oledb:database password=feby")

    Private Sub Fransiskus1_46109027_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Fransiskus1_46109027.Click
    If FEBY1_46109027.Text.Length = 0 Then
    MsgBox("Isi rong itu yang kosong")
    Exit Sub
    End If

    If FEBY2_46109027.Text.Length = 0 Then
    MsgBox("Isi rong itu yang kosong")
    Exit Sub
    End If

    If Val(FEBY3_46109027.Text) = 0 Then
    MsgBox("Isi rong itu yang kosong")
    Exit Sub
    End If

    If Val(FEBY4_46109027.Text) = 0 Then
    MsgBox("Isi rong itu yang kosong")
    Exit Sub
    End If

    Dim ana As New OleDb.OleDbCommand
    ana = New OleDb.OleDbCommand("insert into barang (kodebarang, namabarang, hargajual, jumlahbarang) values ('" & FEBY1_46109027.Text & "','" & FEBY2_46109027.Text & "'," & Val(FEBY3_46109027.Text) & "," & Val(FEBY4_46109027.Text) & ")", FEBIANA)

    FEBIANA.Open()
    ana.ExecuteNonQuery()
    FEBIANA.Close()
    ana.Dispose()

    FEBY1_46109027.Text = ""
    FEBY2_46109027.Text = ""
    FEBY3_46109027.Text = ""
    FEBY4_46109027.Text = ""
    End Sub
    End Class

    BalasHapus
  10. Tugas Ahmad Syukri Ardiansya(46109040)

    http://tugas46109040.blogspot.com/2011/11/latihan-28apkom.html

    BalasHapus
  11. tugasku 27-34


    http://arularva.blogspot.com/2011/11/tugas-27-34-muh-fahrul-46109005_20.html

    BalasHapus
  12. http://wahyunirachman.blogspot.com/2012/10/latihan28a46110020.html

    http://wahyunirachman.blogspot.com/2012/10/latihan28b46110020.html

    BalasHapus
  13. http://ildayani.blogspot.com/2012/10/latihan28a46110002.html

    http://ildayani.blogspot.com/2012/10/latihan28b46110002.html

    BalasHapus
  14. http://dianmegariski.blogspot.com/2012/10/latihan28a46110023.html

    http://dianmegariski.blogspot.com/2012/1/latihan28b46110023_9543.html

    BalasHapus
  15. http://diyanahdina.blogspot.com/2012/10/latihan28a46110045.html

    http://diyanahdina.blogspot.com/2012/10/latihan28b46110045.html

    BalasHapus
  16. http://srikartikafanty.blogspot.com/2012/10/latihan28a46110007.html
    http://srikartikafanty.blogspot.com/2012/10/latihan28b46110007.html

    BalasHapus
  17. http://alfaega.blogspot.com/2012/10/latihan2846110022.html

    http://alfaega.blogspot.com/2012/10/latihan28b4110022.html

    BalasHapus
  18. http://hanihasan07.blogspot.com/2012/10/latihan28a46110044.html
    http://hanihasan07.blogspot.com/2012/10/latihan28b46110044.html

    BalasHapus
  19. http://idhamsyaam.blogspot.com/2012/10/latihan2846110021.html

    BalasHapus
  20. http://sulhihusni.blogspot.com/2012/10/latihan28a46110004.html
    http://sulhihusni.blogspot.com/2012/10/latihan28b46110004.html

    BalasHapus
  21. http://restyaccounting.blogspot.com/2012/10/latihan28a46110027.html
    http://restyaccounting.blogspot.com/2012/10/latihan28b46110027.html

    BalasHapus
  22. http://amalmaulana92.blogspot.com/2012/10/latihan28a46110003.html

    http://amalmaulana92.blogspot.com/2012/10/latihan28b46110003.html

    BalasHapus
  23. http://mulyawarman039.blogspot.com/2012/10/latihan28a46110039.html
    http://mulyawarman039.blogspot.com/2012/10/latihan28b46110039.html

    BalasHapus
  24. http://feibyfrycilia.blogspot.com/2012/10/latihan28a46110055.html
    http://feibyfrycilia.blogspot.com/2012/10/latihan28b46110055.html

    BalasHapus
  25. http://bothbon.blogspot.com/2012/10/latihan28a46110043.html
    http://bothbon.blogspot.com/2012/10/latihan28b46110043.html

    BalasHapus
  26. http://bahrizj.blogspot.com/2012/10/latihan28a46110001.html
    http://bahrizj.blogspot.com/2012/10/latihan28b46110001.html

    BalasHapus
  27. http://fitrianihamka.blogspot.com/2012/10/latihan28a46110006.html
    http://fitrianihamka.blogspot.com/2012/10/latihan28b46110006.html

    BalasHapus
  28. http://muthmil8.blogspot.com/2012/10/latihan2846110037.html

    BalasHapus
  29. http://aardianzah2.blogspot.com/2012/10/latihan-28a.html
    http://aardianzah2.blogspot.com/2012/10/latihan-28b.html

    BalasHapus
  30. http://rafidashaleh.blogspot.com/2012/10/latihan28a46110041.html
    http://rafidashaleh.blogspot.com/2012/10/latihan28b46110041.html

    BalasHapus
  31. http://cacalisa.blogspot.com/2012/10/latihan28a46110038.html
    http://cacalisa.blogspot.com/2012/10/latihan28b46110038.html

    BalasHapus
  32. http://deodns.blogspot.com/2012/10/latihan28a46110040.html

    http://deodns.blogspot.com/2012/10/latihan28b46110040.html

    BalasHapus
  33. http://yuliaasrida427.blogspot.com/2012/10/public-class-latihan28a46110009-dim-go.html

    http://yuliaasrida427.blogspot.com/2012/10/latihan28b46110009.html

    BalasHapus
  34. http://masdarwati.blogspot.com/2012/10/latihan28a46110024.html
    http://masdarwati.blogspot.com/2012/10/latihan28b46110024_14.html

    BalasHapus