Prosedur Penyelesaian Latihan_14_36110048

1.      Klik Start lalu pilih Microsoft Visual Studio 2008

2.      Lalu akan muncul jendela awal Microsoft Visual Studio seperti di bawah ini.

3.      Lalu pilih New Project dan beri nama serta pilih tempat folder untuk menyimpannya.

4.      Kemudian buat form sesuai dengan form di bawah ini.

5.      Berikut ini adalah rumus untuk menjalankan form di atas.

Public Class Latihan_14_36110048

    Dim TabelRio As New DataTable

    Dim DataRio As New DataView

    Private Sub Latihan_14_36110048_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

        TabelRio.Columns.Add(New DataColumn("Stambuk", GetType(String)))

        TabelRio.Columns.Add(New DataColumn("Nama", GetType(String)))

        TabelRio.Columns.Add(New DataColumn("Jenis Kelamin", GetType(String)))

        TabelRio.Columns.Add(New DataColumn("Tanggal Lahir", GetType(Date)))

        TabelRio.Columns.Add(New DataColumn("Gaji Ortu", GetType(Double)))

        TabelRio.Columns.Add(New DataColumn("Kelas", GetType(String)))

        TabelRio.Rows.Add("46112003", "Nurawalia M.", "P", "12/04/1994", 3000000, "1AD4")

        TabelRio.Rows.Add("46120023", "Puspita Susilawati Ridjal", "P", "01/01/1994", 4000000, "1AD4")

        TabelRio.Rows.Add("46110018", "Rose Anne Tarida Situmorang", "P", "12/01/1994", 5000000, "1AD4")

        TabelRio.Rows.Add("46112004", "Siti Khaerunnisa", "P", "03/28/1994", 1000000, "1AD4")

        TabelRio.Rows.Add("46112015", "Irmayanti", "P", "09/23/1994", 1000000, "1AD4")

        TabelRio.Rows.Add("46112011", "Delsi Tifani Lan", "P", "12/24/1994", 2000000, "1AD4")

        TabelRio.Rows.Add("46112027", "Reny Rita Waty Djafar", "P", "07/26/1993", 3000000, "1AD4")

        TabelRio.Rows.Add("46112002", "Dewi Sartika", "P", "02/10/1994", 1000000, "1AD4")

        TabelRio.Rows.Add("46112004", "Anita Rahmah Muhtadin", "P", "12/07/1994", 5000000, "1AD4")

        TabelRio.Rows.Add("46112021", "Rafidah", "P", "06/05/1994", 500000, "1AD4")

        TabelRio.Rows.Add("46112009", "Eka Yuli Astuti", "P", "08/07/1994", 2000000, "1AD4")

        TabelRio.Rows.Add("46112025", "Fitri Amalia Islamiati", "P", "03/26/1995", 4000000, "1AD4")

        TabelRio.Rows.Add("46112014", "Mariana.", "P", "06/22/1994", 1000000, "1AD4")

        TabelRio.Rows.Add("46112013", "A. Muh. Lutfi Ahmad", "L", "10/10/1993", 4000000, "1AD4")

        TabelRio.Rows.Add("46112008", "Nanda Ardilia Pratama", "L", "08/01/1994", 1000000, "1AD4")

        TabelRio.Rows.Add("46112022", "Liliani Paelongan", "P", "05/25/1994", 3000000, "1AD4")

        TabelRio.Rows.Add("46112007", "Andi Rabiah", "L", "09/07/1994", 1000000, "1AD4")

        TabelRio.Rows.Add("46112001", "Rizka Awalia Mustakim", "P", "10/07/1994", 3000000, "1AD4")

        TabelRio.Rows.Add("46112005", "Mardhotillah", "P", "01/13/1994", 3000000, "1AD4")

        TabelRio.Rows.Add("46112017", "Camelia Indulgenssya Gundung", "P", "09/14/1994", 2000000, "1AD4")

        TabelRio.Rows.Add("46112028", "Nur Salim Rusdi", "L", "04/12/1994", 1500000, "1AD4")

        TabelRio.Rows.Add("46112026", "Muhammad Khaidir", "L", "12/26/1993", 3000000, "1AD4")

        TabelRio.Rows.Add("46112020", "Sukriani Karunia Rahma", "P", "12/01/1994", 3000000, "1AD4")

        TabelRio.Rows.Add("46112006", "Rezky Tri Utami", "P", "07/03/1994", 3000000, "1AD4")

        TabelRio.Rows.Add("46112029", "Azwar Arfah", "L", "04/03/1994", 3000000, "1AD4")

        TabelRio.Rows.Add("46112016", "Dyah Sukma Anggraini", "P", "05/10/1994", 3500000, "1AD4")

        TabelRio.Rows.Add("46112010", "Nur Indah Purnamasari", "P", "07/22/1994", 2500000, "1AD4")

        TabelRio.Rows.Add("46112012", "Nurul Qadri Musra", "L", "08/24/1994", 3000000, "1AD4")

        TabelRio.Rows.Add("36112011", "Andri prianto tukan", "L", "04/26/1994", 2000000, "1BD3")

        TabelRio.Rows.Add("36112057", "Reenaldy Alchudri Azsagaf", "L", "05/03/1994", 10000000, "1BD3")

        TabelRio.Rows.Add("36112039", "Andi Syahril", "L", "10/02/1994", 2000000, "1BD3")

        TabelRio.Rows.Add("36112051", "Muhammad Adhe Anugrah", "L", "08/31/1993", 5000000, "1BD3")

        TabelRio.Rows.Add("36112042", "Sukmawati Amir", "P", "04/13/1994", 6000000, "1BD3")

        TabelRio.Rows.Add("36112040", "Dian Eka Puteri", "P", "11/11/1993", 1000000, "1BD3")

        TabelRio.Rows.Add("36112048", "Tri Wahyuni", "P", "11/11/1994", 800000, "1BD3")

        TabelRio.Rows.Add("36112047", "A. Dian Pelita Waty", "P", "05/05/1994", 3000000, "1BD3")

        TabelRio.Rows.Add("36112043", "Mu'minat Nur", "P", "05/17/1995", 5000000, "1BD3")

        TabelRio.Rows.Add("36112050", "Andi Anggi Fadliyah", "P", "08/15/1994", 1500000, "1BD3")

        TabelRio.Rows.Add("36112033", "A. Syasya Annisa Ausan", "P", "08/08/1994", 7000000, "1BD3")

        TabelRio.Rows.Add("36112044", "Muhammad Fachri Sani", "L", "02/02/1994", 5000000, "1BD3")

        TabelRio.Rows.Add("36112053", "Resky Yonada Ahmad", "P", "03/22/1994", 1500000, "1BD3")

        TabelRio.Rows.Add("36112029", "Trinayanti", "P", "06/03/1992", 3000000, "1BD3")

        TabelRio.Rows.Add("36112041", "Musyarafah Asis", "L", "07/13/1994", 6000000, "1BD3")

        TabelRio.Rows.Add("36112055", "Achmad Rezky Satria Perdana", "L", "12/17/1993", 3000000, "1BD3")

        TabelRio.Rows.Add("36112056", "Fibra Yoseph P.", "P", "03/27/1995", 6000000, "1BD3")

        TabelRio.Rows.Add("36112045", "Ibnu Affan Al-Mufar'id", "L", "08/05/1994", 8000000, "1BD3")

        TabelRio.Rows.Add("36112030", "Sri Widya Ayu Wandini", "P", "06/01/1994", 5000000, "1BD3")

        TabelRio.Rows.Add("36112046", "Sri Wahyuni Hafid", "P", "12/25/1994", 11000000, "1BD3")

        TabelRio.Rows.Add("36112032", "Rosita Satri", "P", "12/06/1994", 3000000, "1BD3")

        TabelRio.Rows.Add("36112052", "Sabri", "L", "07/24/1993", 700000, "1BD3")

        TabelRio.Rows.Add("36112049", "Alfin Riani Bandaso", "P", "04/11/1994", 3000000, "1BD3")

        TabelRio.Rows.Add("36112036", "Nurmilasari", "P", "07/06/1993", 200000, "1BD3")

        TabelRio.Rows.Add("36112035", "Tri Arismunandar", "L", "12/09/1993", 1000000, "1BD3")

        TabelRio.Rows.Add("36112031", "Nur Indahsari Idris", "P", "08/28/1994", 5000000, "1BD3")

        TabelRio.Rows.Add("36112037", "Ismawati", "P", "08/01/1994", 900000, "1BD3")

        TabelRio.Rows.Add("36112034", "Rezky Arianti", "P", "01/27/1994", 3000000, "1BD3")

        TabelRio.Rows.Add("36112038", "Artis Susan", "P", "10/29/1993", 5000000, "1BD3")

        TabelRio.Rows.Add("36112054", "Ade Apriathis Rantelino", "L", "04/27/1994", 3000000, "1BD3")

        TabelRio.Rows.Add("46112055", "Reni Anggraeni", "P", "10/12/1994", 1500000, "1BD4")

        TabelRio.Rows.Add("46112042", "Faradhiba Zainal Putri", "P", "12/04/1993", 3000000, "1BD4")

        TabelRio.Rows.Add("46112054", "Rahmi Ani", "P", "11/30/1994", 2000000, "1BD4")

        TabelRio.Rows.Add("46112043", "Remon Agit Rimang", "L", "01/06/1995", 3000000, "1BD4")

        TabelRio.Rows.Add("46112032", "Abd. Rahman", "L", "10/08/1994", 1500000, "1BD4")

        TabelRio.Rows.Add("46112057", "I Ketut Yuda Sadpwa", "L", "05/02/1993", 4500000, "1BD4")

        TabelRio.Rows.Add("46112037", "Herianto", "L", "12/08/1993", 3000000, "1BD4")

        TabelRio.Rows.Add("46112058", "citra amalia ramadhani", "L", "02/16/1995", 3000000, "1BD4")

        TabelRio.Rows.Add("46112050", "Andi Akbar", "L", "11/26/1994", 2000000, "1BD4")

        TabelRio.Rows.Add("46112034", "Gamaliel Giovani Rafael Nong", "L", "08/06/1993", 3700000, "1BD4")

        TabelRio.Rows.Add("46112047", "Hasmawati", "P", "11/22/1994", 5000000, "1BD4")

        TabelRio.Rows.Add("46112038", "Viorensi S", "P", "10/13/1994", 2000000, "1BD4")

        TabelRio.Rows.Add("46112046", "Andini Hayrunnisyah", "P", "06/27/1994", 1500000, "1BD4")

        TabelRio.Rows.Add("46112031", "Irmayanti", "P", "05/02/1994", 1000000, "1BD4")

        TabelRio.Rows.Add("46112039", "Carissa Evan Anthen", "P", "10/23/1994", 6000000, "1BD4")

        TabelRio.Rows.Add("46112052", "Aprianto Sandy", "L", "04/11/1993", 3000000, "1BD4")

        TabelRio.Rows.Add("46112049", "Muhammad Farid Syah", "L", "01/20/1995", 5000000, "1BD4")

        TabelRio.Rows.Add("46112033", "Maulanan Ibrahim", "L", "04/10/1994", 1000000, "1BD4")

        TabelRio.Rows.Add("46112035", "Herpita Tohura", "P", "10/24/1993", 700000, "1BD4")

        TabelRio.Rows.Add("46112048", "Udin Pranata", "L", "01/29/1993", 1000000, "1BD4")

        TabelRio.Rows.Add("46112051", "Afrisca Fraktiani Rante", "P", "04/13/1995", 5000000, "1BD4")

        TabelRio.Rows.Add("46112056", "Kartini Widyasita", "P", "04/21/1993", 4650000, "1BD4")

        TabelRio.Rows.Add("46112045", "Abdul Qawwam Nurjaya", "L", "11/26/1994", 3500000, "1BD4")

        TabelRio.Rows.Add("46112040", "Tommy Paunganan", "L", "02/22/1993", 2000000, "1BD4")

        TabelRio.Rows.Add("46112053", "Khusnul Khatimah A", "P", "08/27/1994", 3000000, "1BD4")

        TabelRio.Rows.Add("46112041", "Nida Hazimah Ulfah", "P", "09/24/1995", 5000000, "1BD4")

        TabelRio.Rows.Add("46112044", "Ulfah Nas", "P", "01/26/1994", 5000000, "1BD4")

        TabelRio.Rows.Add("46112036", "Hasmiati Hajar", "P", "05/17/1994", 5000000, "1BD4")

        TabelRio.Rows.Add("36112016", "Andi Jusma Nilam Sari", "P", "09/02/1994", 10000000, "1AD3")

        TabelRio.Rows.Add("36112006", "Izmi Istiqamah", "P", "11/04/1994", 7000000, "1AD3")

        TabelRio.Rows.Add("36112007", "Imran Novrin Ruslim", "L", "11/21/1994", 1000000, "1AD3")

        TabelRio.Rows.Add("36112003", "Fathin Ammar Asidik", "L", "06/29/1994", 6800000, "1AD3")

        TabelRio.Rows.Add("36112008", "Adbul Malik", "L", "11/09/1993", 3000000, "1AD3")

        TabelRio.Rows.Add("36112028", "Zulfitra Qadar Yasin", "L", "03/10/1994", 10000000, "1AD3")

        TabelRio.Rows.Add("36112020", "Bernard Talebong", "P", "10/01/1994", 10000000, "1AD3")

        TabelRio.Rows.Add("36112024", "Syahrul Kamal", "L", "10/18/1994", 10000000, "1AD3")

        TabelRio.Rows.Add("36112001", "Fitri", "P", "10/20/1994", 5000000, "1AD3")

        TabelRio.Rows.Add("36112010", "Yulianti", "P", "09/28/1994", 3000000, "1AD3")

        TabelRio.Rows.Add("36112012", "Sri Aprianti", "P", "04/05/1994", 4000000, "1AD3")

        TabelRio.Rows.Add("36112013", "Noviantri Paembonan", "P", "11/19/1994", 6000000, "1AD3")

        TabelRio.Rows.Add("36112018", "Kurniawati", "P", "10/11/1994", 2000000, "1AD3")

        TabelRio.Rows.Add("36112017", "Dana Abrian", "L", "10/05/1994", 5000000, "1AD3")

        TabelRio.Rows.Add("36112023", "Andi Arhami Hamzah", "P", "06/28/1994", 10000000, "1AD3")

        TabelRio.Rows.Add("36112059", "Ummul Hayyul Qayyum", "P", "12/01/1993", 3500000, "1AD3")

        TabelRio.Rows.Add("36112027", "Nurul Rezki Susanti", "P", "09/24/1994", 5000000, "1AD3")

        TabelRio.Rows.Add("36112005", "Mawar Aztanti", "P", "06/01/1993", 4000000, "1AD3")

        TabelRio.Rows.Add("36112022", "Rismawati", "P", "09/07/1994", 900000, "1AD3")

        TabelRio.Rows.Add("36112004", "Endah Mariadi", "P", "11/07/1994", 7500000, "1AD3")

        TabelRio.Rows.Add("36112026", "Melinda Rizkawati", "P", "05/07/1994", 2000000, "1AD3")

        TabelRio.Rows.Add("36112025", "Ivana Olivia Aser", "P", "01/14/1993", 6000000, "1AD3")

        TabelRio.Rows.Add("36112021", "Sulaipah", "P", "09/28/1994", 1000000, "1AD3")

        TabelRio.Rows.Add("36112061", "Rahmat Adi Pratama", "L", "04/21/1994", 10000000, "1AD3")

        TabelRio.Rows.Add("36112060", "Nita", "P", "01/04/1995", 2500000, "1AD3")

        TabelRio.Rows.Add("36112019", "Kharisma Yusuf", "P", "06/14/1994", 4000000, "1AD3")

        TabelRio.Rows.Add("36112014", "A. Rahmawaty", "P", "04/04/1994", 5000000, "1AD3")

        TabelRio.Rows.Add("36112015", "Danela Mangintek", "P", "11/06/1994", 3000000, "1AD3")

        TabelRio.Rows.Add("36112009", "Rahmaniah", "P", "01/19/1994", 3000000, "1AD3")

        DGV_36110048.DataSource = TabelRio

        DataRio = TabelRio.DefaultView

        DGV_36110048.DataSource = DataRio

    End Sub

    Private Sub STB_36110048_CheckedChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles STB_36110048.CheckedChanged

        If STB_36110048.Checked Then

            DataRio.Sort = "Stambuk"

        End If

    End Sub

    Private Sub KLS1_36110048_CheckedChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles KLS1_36110048.CheckedChanged

        If KLS1_36110048.Checked Then

            DataRio.Sort = "Kelas desc"

        End If

    End Sub

    Private Sub KLS2_36110048_CheckedChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles KLS2_36110048.CheckedChanged

        If KLS2_36110048.Checked Then

            DataRio.Sort = "Kelas asc, [Tanggal Lahir] asc"

        End If

    End Sub

    Private Sub GAJI_36110048_CheckedChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles GAJI_36110048.CheckedChanged

        If GAJI_36110048.Checked Then

            DataRio.Sort = "[Gaji Ortu] desc"

        End If

    End Sub

    Private Sub GAJI1_36110048_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles GAJI1_36110048.TextChanged

        DataRio.RowFilter = "[Gaji ortu] > " & Val(GAJI1_36110048.Text)

    End Sub

    Private Sub BK1_36110048_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles BK1_36110048.TextChanged

        DataRio.RowFilter = "Kelas <> " & "'" & BK1_36110048.Text & "'"

    End Sub

    Private Sub TGL1_36110048_ValueChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles TGL1_36110048.ValueChanged

        Dim tgl As String

        tgl = "#" & TGL1_36110048.Value.Month & "/" & TGL1_36110048.Value.Day & "/" & TGL1_36110048.Value.Year & "#"

        DataRio.RowFilter = "[Tanggal Lahir] <" & tgl

    End Sub

    Private Sub UNSUR1_36110048_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles UNSUR1_36110048.TextChanged

        DataRio.RowFilter = "Nama like'" & "%" & UNSUR1_36110048.Text & "%" & "'"

    End Sub

    Private Sub FILTER_36110048_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles FILTER_36110048.Click

        Dim tgl As String

        tgl = "#" & TGL2_36110048.Value.Month & "/" & TGL2_36110048.Value.Day & "/" & TGL2_36110048.Value.Year & "#"

        DataRio.RowFilter = "[Gaji ortu] >" & Val(GAJI2_36110048.Text) & " and Kelas <>" & "'" & KLS2_36110048.Text & "'" & " and [Tanggal Lahir] <" & tgl & " and Nama like" & "'%" & UNSUR2_36110048.Text & "%'"

    End Sub

    Private Sub WARNA_36110048_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles WARNA_36110048.Click

        For Each X As DataGridViewRow In DGV_36110048.Rows

            If X.Cells("Gaji Ortu").Value > 6000000 Then

                X.DefaultCellStyle.BackColor = Color.DarkBlue

            ElseIf X.Cells("Gaji Ortu").Value > 5000000 Then

                X.DefaultCellStyle.BackColor = Color.Aquamarine

            ElseIf X.Cells("Gaji Ortu").Value > 4000000 Then

                X.DefaultCellStyle.BackColor = Color.BlanchedAlmond

            ElseIf X.Cells("Gaji Ortu").Value > 3000000 Then

                X.DefaultCellStyle.BackColor = Color.DarkRed

            ElseIf X.Cells("Gaji Ortu").Value > 2000000 Then

                X.DefaultCellStyle.BackColor = Color.AliceBlue

            Else

                X.DefaultCellStyle.BackColor = Color.DarkGoldenrod

            End If

        Next

    End Sub

   End Class

6.      Setelah itu, jalankan programnya.