Latihan 14_36110055

PROSEDUR LATIHAN 14:

Ø  Lanjutan

Ø  Pilih “Add New Item” pada tool

Ø  Lalu pilih “Windows Form” dan ganti nama yang di ingin kan kemudian pilih “Add”

Ø  Muncullah form1.vb (Form1 bisa diganti)

Ø  Mulai bekerja dengan menggunakan tool pada toolbox 

Ø  Membuat empat object GroupBox yaitu urutkan berdasarkan, filter berdasarkan, filter dengan menggabungkan, dan pengaturan warna

Ø  Membuat empat object RadioButton (Diberi nama Stambuk, Kelas(besar->kecil), Kelas(kecil->besar)tgl lahir(kecil->besar), Gaji orang tua (besar->kecil)

Ø  Membuat dua belas object Textbox (enam textbox status input dan delapan textbox status readonly dan digunakan pengganti label). Status input digunakan untuk memasukkan gaji orang tua, bukan kelas, dan nama memiliki unsur.  Status readonly digunakan sebagai pengganti label yang bertuliskan gaji ortu > 6000000, gaji ortu > 5000000, gaji ortu > 4000000, gaji ortu > 3000000, gaji ortu > 2000000, selain itu.

Ø  Membuat dua object Button diberi nama filter dan atur warna. Button Filter digunakan untuk memfilter data table. Sedangkan button Atur Warna digunakan untuk memberikan warna pada data dalam datagridview berdasarkan besarnya gaji orang tua.

Ø  Buat  object Data Grid View digunakan untuk menampilkan data tabel.

Ø  Setelah itu buat dua object datetimepicker yang digunakan dalam memfilter data tabel yang ada di object GroupBox.

Ø  Buat delapan object label (Diberi nama  Gaji Orang tua lebih dari sebanyak dua label, bukan kelas sebanyak dua label, tanggal lahir sebelum sebanyak dua label, dan nama memilikiunsur sebanyak dua label)

Ø  Untuk lebih jelasnya perhatikan gambar di bawah ini :

 

Ø  Setelah selesai, maka kita masuk pada rumus yaitu :

Public Class Latihan_14_36001155

    Dim Masnur As New DataTable

    Dim Orzhel As New DataView

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

        Phangarhu_36001155.DataSource = Masnur

        Orzhel = Masnur.DefaultView

        Phangarhu_36001155.DataSource = Orzhel

    End Sub

    Private Sub Stambuk_36001155_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Stambuk_36001155.CheckedChanged

        If Stambuk_36001155.Checked Then

            Orzhel.Sort = "Stambuk"

        End If

    End Sub

    Private Sub Kelas_36001155_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Kelas_36001155.CheckedChanged

        If Kelas_36001155.Checked Then

            Orzhel.Sort = "Kelas desc"

        End If

    End Sub

    Private Sub KelasTgl_36001155_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KelasTgl_36001155.CheckedChanged

        If KelasTgl_36001155.Checked Then

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

        End If

    End Sub

    Private Sub Gaji_36001155_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Gaji_36001155.CheckedChanged

        If Gaji_36001155.Checked Then

            Orzhel.Sort = "[Gaji Ortu] desc"

        End If

    End Sub

    Private Sub GajiOrangTua_36001155_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GajiOrangTua_36001155.TextChanged

        Orzhel.RowFilter = "[Gaji ortu] > " & Val(GajiOrangTua_36001155.Text)

    End Sub

    Private Sub BukanKelas_36001155_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BukanKelas_36001155.TextChanged

        Orzhel.RowFilter = "Kelas <> " & "'" & BukanKelas_36001155.Text & "'"

    End Sub

    Private Sub Tgl_36001155_ValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Tgl_36001155.ValueChanged

        Dim tgl As String

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

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

    End Sub

    Private Sub Nama_36001155_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Nama_36001155.TextChanged

        Orzhel.RowFilter = "Nama like'" & "%" & Nama_36001155.Text & "%" & "'"

    End Sub

    Private Sub Filter_36001155_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Filter_36001155.Click

        Dim tgl As String

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

        Orzhel.RowFilter = "[Gaji ortu] >" & Val(GajiOrangTua1_36001155.Text) & " and Kelas <>" & "'" & KelasTgl_36001155.Text & "'" & " and [Tanggal Lahir] <" & tgl & " and Nama like" & "'%" & Nama1_36001155.Text & "%'"

    End Sub

    Private Sub Warna_36001155_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Warna_36001155.Click

        For Each X As DataGridViewRow In Phangarhu_36001155.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