Latihan_14_46110022
Deskripsi Form Latihan_14_46110022
Dalam form ini terdapat object
label, textbox, groupbox, radiobutton, datetimepicker, datagriedview, dan
button.
Object Label
Dalam form ini terdapat 2 label yg
bertuliskan "gaji ortu lebih dari", 2 label bertuliskan "bukan
kelas", 2 label bertuliskan "tanggal lahir sebelum", 2 label
bertuliskan "nama memiliki unsur".
Object Textbox
Terdapat 12 buah object textbox (6
berstatus input ; 6 label yg diberi warna yang berbeda untuk membedakan
penghasilan ortu pada data yang telah disediakan.
Object Groupbox
Terdapat 4 buah object groupbox (
urutkan berdasarkan, filter berdasarkan, filter dengan menggabungkan,
pengaturan warna).
Object Radiobutton
Terdapat 4 object radiobutton
(stambuk, kelas(besar->kecil), kelas(besar->kecil) tanggal
lahir(besar->kecil), gaji ortu(besar->kecil)).
Object Datetimepicker
Terdapat 2 object datetimepicker
yang digunakan untuk menfilter tanggal lahir pada data tabel yang ada di
datagriedview.
Object Datagriedview
Terdapat sebuah object Datagriedview
yang digunakan untuk menampilkan data tabel yang telah dibuat.
Object Button
Terdapat 2 object button (filter dan
atur warna). Button filter digunakan untuk menfilter data tabel
berdasarkan data yang diinput ke dalam textbox, sedangkan button atur warna
digunakan untuk memberikan warna pada data yang ada dalam Datagriedview
berdasarkan besarnya gaji orang tua.
Script Unique
1. dv.RowFilter = "[Gaji
ortu] > " & Val(tb446110022.Text) & "and kelas
<>" & "'" & tb546110022.Text & "'"
& "and[tanggal lahir] < #" & data246110022.Value.Month
& "/" & data246110022.Value.Day & "/" &
data246110022.Value.Year & "#" & " and nama like
'%" & tb646110022.Text & "%'"
End Sub
End Sub
==> berfungsi untuk menfilter data yang diinput ke dalam textbox kemudian akan ditampilkan dalam Datagriedview.
2. For Each ega1 As
DataGridViewRow In DGV46110022.Rows
If ega1.Cells("Gaji Ortu").Value > 6000000 Then
ega1.DefaultCellStyle.BackColor = tb746110022.BackColor
If ega1.Cells("Gaji Ortu").Value > 6000000 Then
ega1.DefaultCellStyle.BackColor = tb746110022.BackColor
==> berfungsi untuk
memberikan warna pada setiap penghasilan orang tua dalam Datagriedview sesuai
dengan pilihan warna yang dimasukkan pada textbox.
Even
CheckedChanged
TextChanged
ValueChanged
Click
Property
Property textbox => ReadOnly =
true
Langkah-Langkah Membuat Form Latihan 14_46110022
1. Buat form baru seperti langkah
berikut :
2. Input nama form pada kolom
"add" seperti berikut :
3. Buat desain form seperti gambar
berikut :
4. Input script di bawah ini :
Public Class Latihan_14_46110022
Dim ega As New DataTable
Dim dv As New DataView
Private Sub Latihan_14_46110022_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
ega.Columns.Add(New DataColumn("Stambuk", GetType(String)))
ega.Columns.Add(New DataColumn("Nama", GetType(String)))
ega.Columns.Add(New DataColumn("Jenis Kelamin", GetType(String)))
ega.Columns.Add(New DataColumn("Tanggal Lahir", GetType(String)))
ega.Columns.Add(New DataColumn("Gaji Ortu", GetType(Double)))
ega.Columns.Add(New DataColumn("Kelas", GetType(String)))
ega.Rows.Add("46112003", "Nurawalia M", "P", "12/04/1994", 3000000, "1AD4")
ega.Rows.Add("46120023", "Puspita Susilawati Ridjal", "P", "01/01/1994", 4000000, "1AD4")
ega.Rows.Add("46110018", "Rose Anne Tarida Situmorang", "P", "12/01/1994", 5000000, "1AD4")
ega.Rows.Add("46112004", "Siti Khaerunnisa", "P", "03/28/1994", 1000000, "1AD4")
ega.Rows.Add("46112015", "Irmayanti", "P", "09/23/1994", 1000000, "1AD4")
ega.Rows.Add("46112011", "Delsi Tifani Lan", "P", "12/24/1994", 2000000, "1AD4")
ega.Rows.Add("46112027", "Reny Rita Waty Djafar", "P", "07/26/1993", 3000000, "1AD4")
ega.Rows.Add("46112002", "Dewi Sartika", "P", "02/10/1994", 1000000, "1AD4")
ega.Rows.Add("46112004", "Anita Rahmah Muhtadin", "P", "12/07/1994", 5000000, "1AD4")
ega.Rows.Add("46112021", "Rafidah", "P", "06/05/1994", 500000, "1AD4")
ega.Rows.Add("46112009", "Eka Yuli Astuti", "P", "08/07/1994", 2000000, "1AD4")
ega.Rows.Add("46112025", "Fitri Amalia Islamiati", "P", "03/26/1995", 4000000, "1AD4")
ega.Rows.Add("46112014", "Mariana", "P", "06/22/1994", 1000000, "1AD4")
ega.Rows.Add("46112013", "A. Muh. Lutfi Ahmad", "L", "10/10/1993", 4000000, "1AD4")
ega.Rows.Add("46112008", "Nanda Ardilia Pratama", "L", "08/01/1994", 1000000, "1AD4")
ega.Rows.Add("46112022", "Liliani Paelongan", "P", "05/25/1994", 3000000, "1AD4")
ega.Rows.Add("46112007", "Andi Rabiah", "L", "09/07/1994", 1000000, "1AD4")
ega.Rows.Add("46112001", "Rizka Awalia Mustakim", "P", "10/07/1994", 3000000, "1AD4")
ega.Rows.Add("46112005", "Mardhotillah", "P", "01/13/1994", 3000000, "1AD4")
ega.Rows.Add("46112017", "Camelia Indulgenssya Gundung", "P", "09/14/1994", 2000000, "1AD4")
ega.Rows.Add("46112028", "Nur Salim Rusdi", "L", "04/12/1994", 1500000, "1AD4")
ega.Rows.Add("46112026", "Muhammad Khaidir", "L", "12/26/1993", 3000000, "1AD4")
ega.Rows.Add("46112020", "Sukriani Karunia Rahma", "P", "12/01/1994", 3000000, "1AD4")
ega.Rows.Add("46112006", "Rezky Tri Utami", "P", "07/03/1994", 3000000, "1AD4")
ega.Rows.Add("46112029", "Azwar Arfah", "L", "04/03/1994", 3000000, "1AD4")
ega.Rows.Add("46112016", "Dyah Sukma Anggraini", "P", "05/10/1994", 3500000, "1AD4")
ega.Rows.Add("46112010", "Nur Indah Purnamasari", "P", "07/22/1994", 2500000, "1AD4")
ega.Rows.Add("46112012", "Nurul Qadri Musra", "L", "08/24/1994", 3000000, "1AD4")
ega.Rows.Add("46112055", "Reni Anggraeni", "P", "10/12/1994", 1500000, "1BD4")
ega.Rows.Add("46112042", "Faradhiba Zainal Putri", "P", "12/04/1993", 3000000, "1BD4")
ega.Rows.Add("46112054", "Rahmi Ani", "P", "11/30/1994", 2000000, "1BD4")
ega.Rows.Add("46112043", "Remon Agit Rimang", "L", "01/06/1995", 3000000, "1BD4")
ega.Rows.Add("46112032", "Abd. Rahman", "L", "10/08/1994", 1500000, "1BD4")
ega.Rows.Add("46112057", "I Ketut Yuda Sadpwa", "L", "05/02/1993", 4500000, "1BD4")
ega.Rows.Add("46112037", "Herianto", "L", "12/08/1993", 3000000, "1BD4")
ega.Rows.Add("46112058", "citra amalia ramadhani", "L", "02/16/1995", 3000000, "1BD4")
ega.Rows.Add("46112050", "Andi Akbar", "L", "11/26/1994", 2000000, "1BD4")
ega.Rows.Add("46112034", "Gamaliel Giovani Rafael Nong", "L", "08/06/1993", 3700000, "1BD4")
ega.Rows.Add("46112047", "Hasmawati", "P", "11/22/1994", 5000000, "1BD4")
ega.Rows.Add("46112038", "Viorensi S", "P", "10/13/1994", 2000000, "1BD4")
ega.Rows.Add("46112046", "Andini Hayrunnisyah", "P", "06/27/1994", 1500000, "1BD4")
ega.Rows.Add("46112031", "Irmayanti", "P", "05/02/1994", 1000000, "1BD4")
ega.Rows.Add("46112039", "Carissa Evan Anthen", "P", "10/23/1994", 6000000, "1BD4")
ega.Rows.Add("46112052", "Aprianto Sandy", "L", "04/11/1993", 3000000, "1BD4")
ega.Rows.Add("46112049", "Muhammad Farid Syah", "L", "01/20/1995", 5000000, "1BD4")
ega.Rows.Add("46112033", "Maulanan Ibrahim", "L", "04/10/1994", 1000000, "1BD4")
ega.Rows.Add("46112035", "Herpita Tohura", "P", "10/24/1993", 700000, "1BD4")
ega.Rows.Add("46112048", "Udin Pranata", "L", "01/29/1993", 1000000, "1BD4")
ega.Rows.Add("46112051", "Afrisca Fraktiani Rante", "P", "04/13/1995", 5000000, "1BD4")
ega.Rows.Add("46112056", "Kartini Widyasita", "P", "04/21/1993", 4650000, "1BD4")
ega.Rows.Add("46112045", "Abdul Qawwam Nurjaya", "L", "11/26/1994", 3500000, "1BD4")
ega.Rows.Add("46112040", "Tommy Paunganan", "L", "02/22/1993", 2000000, "1BD4")
ega.Rows.Add("46112053", "Khusnul Khatimah A", "P", "08/27/1994", 3000000, "1BD4")
ega.Rows.Add("46112041", "Nida Hazimah Ulfah", "P", "09/24/1995", 5000000, "1BD4")
ega.Rows.Add("46112044", "Ulfah Nas", "P", "01/26/1994", 5000000, "1BD4")
ega.Rows.Add("46112036", "Hasmiati Hajar", "P", "05/17/1994", 5000000, "1BD4")
ega.Rows.Add("36112001", "Fitri", "P", "10/20/1994", 5000000, "1AD3")
ega.Rows.Add("36112002", "andri prianto tukan", "L", "04/26/1994", 2000000, "1BD3")
ega.Rows.Add("36112003", "Fathin Ammar Asidik", "L", "06/29/1994", 6800000, "1AD3")
ega.Rows.Add("36112004", "Endah Mariadi", "P", "11/07/1994", 7500000, "1AD3")
ega.Rows.Add("36112005", "Mawar Aztanti", "P", "06/01/1993", 4000000, "1AD3")
ega.Rows.Add("36112006", "Izmi Istiqamah", "P", "11/04/1994", 7000000, "1AD3")
ega.Rows.Add("36112007", "Imran Novrin Ruslim", "L", "11/21/1994", 1000000, "1AD3")
ega.Rows.Add("36112008", "Adbul Malik", "L", "11/09/1993", 2500000, "1AD3")
ega.Rows.Add("36112010", "Yulianti", "P", "09/28/1994", 2500000, "1AD3")
ega.Rows.Add("36112011", "Zulfitra Qadar Yasin", "L", "03/10/1994", 10000000, "1AD3")
ega.Rows.Add("36112012", "Sri Aprianti", "P", "04/05/1994", 4000000, "1AD3")
ega.Rows.Add("36112013", "Noviantri Paembonan", "P", "11/19/1994", 6000000, "1AD3")
ega.Rows.Add("36112016", "Andi Jusma Nilam Sari", "P", "09/02/1994", 10000000, "1AD3")
ega.Rows.Add("36112017", "Dana Abrian", "L", "10/05/1994", 5000000, "1AD3")
ega.Rows.Add("36112018", "Kurniawati", "P", "10/11/1994", 2000000, "1AD3")
ega.Rows.Add("36112020", "Bernard Talebong", "P", "10/01/1994", 10000000, "1AD3")
ega.Rows.Add("36112023", "Andi Arhami Hamzah", "P", "06/28/1994", 10000000, "1AD3")
ega.Rows.Add("36112024", "Syahrul Kamal", "L", "10/18/1994", 10000000, "1AD3")
ega.Rows.Add("36112027", "Nurul Rezki Susanti", "P", "09/24/1994", 5000000, "1AD3")
ega.Rows.Add("36112059", "Ummul Hayyul Qayyum", "P", "12/01/1993", 3500000, "1AD3")
ega.Rows.Add("36112022", "Rismawati", "P", "09/07/1994", 900000, "1AD3")
ega.Rows.Add("36112026", "Melinda Rizkawati", "P", "05/07/1994", 2000000, "1AD3")
ega.Rows.Add("36112025", "Ivana Olivia Aser", "P", "01/14/1993", 6000000, "1AD3")
ega.Rows.Add("36112021", "Sulaipah", "P", "09/28/1994", 1000000, "1AD3")
ega.Rows.Add("36112061", "Rahmat Adi Pratama", "L", "04/21/1994", 10000000, "1AD3")
ega.Rows.Add("36112060", "Nita", "P", "01/04/1995", 2500000, "1AD3")
ega.Rows.Add("36112019", "Kharisma Yusuf", "P", "06/14/1994", 4000000, "1AD3")
ega.Rows.Add("36112014", "A. Rahmawaty", "P", "04/04/1994", 5000000, "1AD3")
ega.Rows.Add("36112015", "Danela Mangintek", "P", "11/06/1994", 3000000, "1AD3")
ega.Rows.Add("36112009", "Rahmaniah", "P", "01/19/1994", 2500000, "1AD3")
ega.Rows.Add("36112057", "Reenaldy Alchudri Azsagaf", "L", "05/03/1994", 10000000, "1BD3")
ega.Rows.Add("36112039", "Andi Syahril", "L", "10/02/1994", 2000000, "1BD3")
ega.Rows.Add("36112051", "Muhammad Adhe Anugrah", "L", "08/31/1993", 5000000, "1BD3")
ega.Rows.Add("36112042", "Sukmawati Amir", "P", "04/13/1994", 6000000, "1BD3")
ega.Rows.Add("36112019", "Dian Eka Puteri", "P", "11/11/1993", 1000000, "1BD3")
ega.Rows.Add("36112048", "Tri Wahyuni", "P", "11/11/1994", 800000, "1BD3")
ega.Rows.Add("36112047", "A. Dian Pelita Waty", "P", "05/05/1994", 3000000, "1BD3")
ega.Rows.Add("36112028", "Mu'minat Nur", "P", "05/17/1995", 5000000, "1BD3")
ega.Rows.Add("36112038", "Andi Anggi Fadliyah", "P", "08/15/1994", 1500000, "1BD3")
ega.Rows.Add("36112033", "A. Syasya Annisa Ausan", "P", "08/08/1994", 7000000, "1BD3")
ega.Rows.Add("36112044", "Muhammad Fachri Sani", "L", "02/02/1994", 5000000, "1BD3")
ega.Rows.Add("36112053", "Resky Yonada Ahmad", "P", "03/22/1994", 1500000, "1BD3")
ega.Rows.Add("36112029", "Trinayanti", "P", "06/03/1992", 3000000, "1BD3")
ega.Rows.Add("36112041", "Musyarafah Asis", "L", "07/13/1994", 6000000, "1BD3")
ega.Rows.Add("36112055", "Achmad Rezky Satria Perdana", "L", "12/17/1993", 3000000, "1BD3")
ega.Rows.Add("36112040", "Fibra Yoseph P", "P", "03/27/1995", 6000000, "1BD3")
ega.Rows.Add("36112045", "Ibnu Affan Al-Mufar'id", "L", "08/05/1994", 8000000, "1BD3")
ega.Rows.Add("36112030", "Sri Widya Ayu Wandini", "P", "06/01/1994", 5000000, "1BD3")
ega.Rows.Add("36112046", "Sri Wahyuni Hafid", "P", "12/25/1994", 11000000, "1BD3")
ega.Rows.Add("36112032", "Rosita Satri", "P", "12/06/1994", 3000000, "1BD3")
ega.Rows.Add("36112052", "Sabri", "L", "07/24/1993", 700000, "1BD3")
ega.Rows.Add("36112049", "Alfin Riani Bandaso", "P", "04/11/1994", 3000000, "1BD3")
ega.Rows.Add("36112036", "Nurmilasari", "P", "07/06/1993", 2000000, "1BD3")
ega.Rows.Add("36112035", "Tri Arismunandar", "L", "12/09/1993", 1000000, "1BD3")
ega.Rows.Add("36112031", "Nur Indahsari Idris", "P", "08/28/1994", 5000000, "1BD3")
ega.Rows.Add("36112037", "Ismawati", "P", "08/01/1994", 900000, "1BD3")
ega.Rows.Add("36112034", "Rezky Arianti", "P", "01/27/1994", 3000000, "1BD3")
ega.Rows.Add("36112043", "Artis Susan", "P", "10/29/1993", 5000000, "1BD3")
ega.Rows.Add("36112054", "Ade Apriathis Rantelino", "L", "04/27/1994", 3000000, "1BD3")
DV = ega.DefaultView
DGV46110022.DataSource = dv
End Sub
Private Sub rb146110022_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles rb146110022.CheckedChanged
If rb146110022.Checked = True Then
dv.Sort = "Stambuk"
End If
End Sub
Private Sub rb246110022_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles rb246110022.CheckedChanged
If rb246110022.Checked = True Then
dv.Sort = "kelas desc"
End If
End Sub
Private Sub rb346110022_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles rb346110022.CheckedChanged
If rb346110022.Checked = True Then
dv.Sort = "kelas,[tanggal Lahir]"
End If
End Sub
Private Sub rb446110022_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles rb446110022.CheckedChanged
If rb446110022.Checked = True Then
dv.Sort = "GajiOrtu desc"
End If
End Sub
Private Sub tb146110022_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tb146110022.TextChanged
dv.RowFilter = "[Gaji Ortu]>=" & Val(tb146110022.Text)
End Sub
Private Sub tb246110022_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tb246110022.TextChanged
dv.RowFilter = "Kelas <>" & "'" & tb246110022.Text & "'"
End Sub
Private Sub data146110022_ValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles data146110022.ValueChanged
dv.RowFilter = "[Tanggal Lahir] < #" & data146110022.Value.Date & "#"
End Sub
Private Sub tb346110022_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tb346110022.TextChanged
dv.RowFilter = "nama like '%" & tb346110022.Text & "%'"
End Sub
Private Sub filter46110022_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles filter46110022.Click
dv.RowFilter = "[Gaji ortu] > " & Val(tb446110022.Text) & "and kelas <>" & "'" & tb546110022.Text & "'" & "and[tanggal lahir] < #" & data246110022.Value.Month & "/" & data246110022.Value.Day & "/" & data246110022.Value.Year & "#" & " and nama like '%" & tb646110022.Text & "%'"
End Sub
Private Sub warna46110022_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles warna46110022.Click
For Each ega1 As DataGridViewRow In DGV46110022.Rows
If ega1.Cells("Gaji Ortu").Value > 6000000 Then
ega1.DefaultCellStyle.BackColor = tb746110022.BackColor
ElseIf ega1.Cells("Gaji Ortu").Value > 5000000 Then
ega1.DefaultCellStyle.BackColor = tb1046110022.BackColor
ElseIf ega1.Cells("Gaji Ortu").Value > 4000000 Then
ega1.DefaultCellStyle.BackColor = tb846110022.BackColor
ElseIf ega1.Cells("Gaji Ortu").Value > 3000000 Then
ega1.DefaultCellStyle.BackColor = tb1146110022.BackColor
ElseIf ega1.Cells("Gaji Ortu").Value > 2000000 Then
ega1.DefaultCellStyle.BackColor = tb946110022.BackColor
Else
ega1.DefaultCellStyle.BackColor = tb1246110022.BackColor
End If
Next
End Sub
End Class
Dim ega As New DataTable
Dim dv As New DataView
Private Sub Latihan_14_46110022_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
ega.Columns.Add(New DataColumn("Stambuk", GetType(String)))
ega.Columns.Add(New DataColumn("Nama", GetType(String)))
ega.Columns.Add(New DataColumn("Jenis Kelamin", GetType(String)))
ega.Columns.Add(New DataColumn("Tanggal Lahir", GetType(String)))
ega.Columns.Add(New DataColumn("Gaji Ortu", GetType(Double)))
ega.Columns.Add(New DataColumn("Kelas", GetType(String)))
ega.Rows.Add("46112003", "Nurawalia M", "P", "12/04/1994", 3000000, "1AD4")
ega.Rows.Add("46120023", "Puspita Susilawati Ridjal", "P", "01/01/1994", 4000000, "1AD4")
ega.Rows.Add("46110018", "Rose Anne Tarida Situmorang", "P", "12/01/1994", 5000000, "1AD4")
ega.Rows.Add("46112004", "Siti Khaerunnisa", "P", "03/28/1994", 1000000, "1AD4")
ega.Rows.Add("46112015", "Irmayanti", "P", "09/23/1994", 1000000, "1AD4")
ega.Rows.Add("46112011", "Delsi Tifani Lan", "P", "12/24/1994", 2000000, "1AD4")
ega.Rows.Add("46112027", "Reny Rita Waty Djafar", "P", "07/26/1993", 3000000, "1AD4")
ega.Rows.Add("46112002", "Dewi Sartika", "P", "02/10/1994", 1000000, "1AD4")
ega.Rows.Add("46112004", "Anita Rahmah Muhtadin", "P", "12/07/1994", 5000000, "1AD4")
ega.Rows.Add("46112021", "Rafidah", "P", "06/05/1994", 500000, "1AD4")
ega.Rows.Add("46112009", "Eka Yuli Astuti", "P", "08/07/1994", 2000000, "1AD4")
ega.Rows.Add("46112025", "Fitri Amalia Islamiati", "P", "03/26/1995", 4000000, "1AD4")
ega.Rows.Add("46112014", "Mariana", "P", "06/22/1994", 1000000, "1AD4")
ega.Rows.Add("46112013", "A. Muh. Lutfi Ahmad", "L", "10/10/1993", 4000000, "1AD4")
ega.Rows.Add("46112008", "Nanda Ardilia Pratama", "L", "08/01/1994", 1000000, "1AD4")
ega.Rows.Add("46112022", "Liliani Paelongan", "P", "05/25/1994", 3000000, "1AD4")
ega.Rows.Add("46112007", "Andi Rabiah", "L", "09/07/1994", 1000000, "1AD4")
ega.Rows.Add("46112001", "Rizka Awalia Mustakim", "P", "10/07/1994", 3000000, "1AD4")
ega.Rows.Add("46112005", "Mardhotillah", "P", "01/13/1994", 3000000, "1AD4")
ega.Rows.Add("46112017", "Camelia Indulgenssya Gundung", "P", "09/14/1994", 2000000, "1AD4")
ega.Rows.Add("46112028", "Nur Salim Rusdi", "L", "04/12/1994", 1500000, "1AD4")
ega.Rows.Add("46112026", "Muhammad Khaidir", "L", "12/26/1993", 3000000, "1AD4")
ega.Rows.Add("46112020", "Sukriani Karunia Rahma", "P", "12/01/1994", 3000000, "1AD4")
ega.Rows.Add("46112006", "Rezky Tri Utami", "P", "07/03/1994", 3000000, "1AD4")
ega.Rows.Add("46112029", "Azwar Arfah", "L", "04/03/1994", 3000000, "1AD4")
ega.Rows.Add("46112016", "Dyah Sukma Anggraini", "P", "05/10/1994", 3500000, "1AD4")
ega.Rows.Add("46112010", "Nur Indah Purnamasari", "P", "07/22/1994", 2500000, "1AD4")
ega.Rows.Add("46112012", "Nurul Qadri Musra", "L", "08/24/1994", 3000000, "1AD4")
ega.Rows.Add("46112055", "Reni Anggraeni", "P", "10/12/1994", 1500000, "1BD4")
ega.Rows.Add("46112042", "Faradhiba Zainal Putri", "P", "12/04/1993", 3000000, "1BD4")
ega.Rows.Add("46112054", "Rahmi Ani", "P", "11/30/1994", 2000000, "1BD4")
ega.Rows.Add("46112043", "Remon Agit Rimang", "L", "01/06/1995", 3000000, "1BD4")
ega.Rows.Add("46112032", "Abd. Rahman", "L", "10/08/1994", 1500000, "1BD4")
ega.Rows.Add("46112057", "I Ketut Yuda Sadpwa", "L", "05/02/1993", 4500000, "1BD4")
ega.Rows.Add("46112037", "Herianto", "L", "12/08/1993", 3000000, "1BD4")
ega.Rows.Add("46112058", "citra amalia ramadhani", "L", "02/16/1995", 3000000, "1BD4")
ega.Rows.Add("46112050", "Andi Akbar", "L", "11/26/1994", 2000000, "1BD4")
ega.Rows.Add("46112034", "Gamaliel Giovani Rafael Nong", "L", "08/06/1993", 3700000, "1BD4")
ega.Rows.Add("46112047", "Hasmawati", "P", "11/22/1994", 5000000, "1BD4")
ega.Rows.Add("46112038", "Viorensi S", "P", "10/13/1994", 2000000, "1BD4")
ega.Rows.Add("46112046", "Andini Hayrunnisyah", "P", "06/27/1994", 1500000, "1BD4")
ega.Rows.Add("46112031", "Irmayanti", "P", "05/02/1994", 1000000, "1BD4")
ega.Rows.Add("46112039", "Carissa Evan Anthen", "P", "10/23/1994", 6000000, "1BD4")
ega.Rows.Add("46112052", "Aprianto Sandy", "L", "04/11/1993", 3000000, "1BD4")
ega.Rows.Add("46112049", "Muhammad Farid Syah", "L", "01/20/1995", 5000000, "1BD4")
ega.Rows.Add("46112033", "Maulanan Ibrahim", "L", "04/10/1994", 1000000, "1BD4")
ega.Rows.Add("46112035", "Herpita Tohura", "P", "10/24/1993", 700000, "1BD4")
ega.Rows.Add("46112048", "Udin Pranata", "L", "01/29/1993", 1000000, "1BD4")
ega.Rows.Add("46112051", "Afrisca Fraktiani Rante", "P", "04/13/1995", 5000000, "1BD4")
ega.Rows.Add("46112056", "Kartini Widyasita", "P", "04/21/1993", 4650000, "1BD4")
ega.Rows.Add("46112045", "Abdul Qawwam Nurjaya", "L", "11/26/1994", 3500000, "1BD4")
ega.Rows.Add("46112040", "Tommy Paunganan", "L", "02/22/1993", 2000000, "1BD4")
ega.Rows.Add("46112053", "Khusnul Khatimah A", "P", "08/27/1994", 3000000, "1BD4")
ega.Rows.Add("46112041", "Nida Hazimah Ulfah", "P", "09/24/1995", 5000000, "1BD4")
ega.Rows.Add("46112044", "Ulfah Nas", "P", "01/26/1994", 5000000, "1BD4")
ega.Rows.Add("46112036", "Hasmiati Hajar", "P", "05/17/1994", 5000000, "1BD4")
ega.Rows.Add("36112001", "Fitri", "P", "10/20/1994", 5000000, "1AD3")
ega.Rows.Add("36112002", "andri prianto tukan", "L", "04/26/1994", 2000000, "1BD3")
ega.Rows.Add("36112003", "Fathin Ammar Asidik", "L", "06/29/1994", 6800000, "1AD3")
ega.Rows.Add("36112004", "Endah Mariadi", "P", "11/07/1994", 7500000, "1AD3")
ega.Rows.Add("36112005", "Mawar Aztanti", "P", "06/01/1993", 4000000, "1AD3")
ega.Rows.Add("36112006", "Izmi Istiqamah", "P", "11/04/1994", 7000000, "1AD3")
ega.Rows.Add("36112007", "Imran Novrin Ruslim", "L", "11/21/1994", 1000000, "1AD3")
ega.Rows.Add("36112008", "Adbul Malik", "L", "11/09/1993", 2500000, "1AD3")
ega.Rows.Add("36112010", "Yulianti", "P", "09/28/1994", 2500000, "1AD3")
ega.Rows.Add("36112011", "Zulfitra Qadar Yasin", "L", "03/10/1994", 10000000, "1AD3")
ega.Rows.Add("36112012", "Sri Aprianti", "P", "04/05/1994", 4000000, "1AD3")
ega.Rows.Add("36112013", "Noviantri Paembonan", "P", "11/19/1994", 6000000, "1AD3")
ega.Rows.Add("36112016", "Andi Jusma Nilam Sari", "P", "09/02/1994", 10000000, "1AD3")
ega.Rows.Add("36112017", "Dana Abrian", "L", "10/05/1994", 5000000, "1AD3")
ega.Rows.Add("36112018", "Kurniawati", "P", "10/11/1994", 2000000, "1AD3")
ega.Rows.Add("36112020", "Bernard Talebong", "P", "10/01/1994", 10000000, "1AD3")
ega.Rows.Add("36112023", "Andi Arhami Hamzah", "P", "06/28/1994", 10000000, "1AD3")
ega.Rows.Add("36112024", "Syahrul Kamal", "L", "10/18/1994", 10000000, "1AD3")
ega.Rows.Add("36112027", "Nurul Rezki Susanti", "P", "09/24/1994", 5000000, "1AD3")
ega.Rows.Add("36112059", "Ummul Hayyul Qayyum", "P", "12/01/1993", 3500000, "1AD3")
ega.Rows.Add("36112022", "Rismawati", "P", "09/07/1994", 900000, "1AD3")
ega.Rows.Add("36112026", "Melinda Rizkawati", "P", "05/07/1994", 2000000, "1AD3")
ega.Rows.Add("36112025", "Ivana Olivia Aser", "P", "01/14/1993", 6000000, "1AD3")
ega.Rows.Add("36112021", "Sulaipah", "P", "09/28/1994", 1000000, "1AD3")
ega.Rows.Add("36112061", "Rahmat Adi Pratama", "L", "04/21/1994", 10000000, "1AD3")
ega.Rows.Add("36112060", "Nita", "P", "01/04/1995", 2500000, "1AD3")
ega.Rows.Add("36112019", "Kharisma Yusuf", "P", "06/14/1994", 4000000, "1AD3")
ega.Rows.Add("36112014", "A. Rahmawaty", "P", "04/04/1994", 5000000, "1AD3")
ega.Rows.Add("36112015", "Danela Mangintek", "P", "11/06/1994", 3000000, "1AD3")
ega.Rows.Add("36112009", "Rahmaniah", "P", "01/19/1994", 2500000, "1AD3")
ega.Rows.Add("36112057", "Reenaldy Alchudri Azsagaf", "L", "05/03/1994", 10000000, "1BD3")
ega.Rows.Add("36112039", "Andi Syahril", "L", "10/02/1994", 2000000, "1BD3")
ega.Rows.Add("36112051", "Muhammad Adhe Anugrah", "L", "08/31/1993", 5000000, "1BD3")
ega.Rows.Add("36112042", "Sukmawati Amir", "P", "04/13/1994", 6000000, "1BD3")
ega.Rows.Add("36112019", "Dian Eka Puteri", "P", "11/11/1993", 1000000, "1BD3")
ega.Rows.Add("36112048", "Tri Wahyuni", "P", "11/11/1994", 800000, "1BD3")
ega.Rows.Add("36112047", "A. Dian Pelita Waty", "P", "05/05/1994", 3000000, "1BD3")
ega.Rows.Add("36112028", "Mu'minat Nur", "P", "05/17/1995", 5000000, "1BD3")
ega.Rows.Add("36112038", "Andi Anggi Fadliyah", "P", "08/15/1994", 1500000, "1BD3")
ega.Rows.Add("36112033", "A. Syasya Annisa Ausan", "P", "08/08/1994", 7000000, "1BD3")
ega.Rows.Add("36112044", "Muhammad Fachri Sani", "L", "02/02/1994", 5000000, "1BD3")
ega.Rows.Add("36112053", "Resky Yonada Ahmad", "P", "03/22/1994", 1500000, "1BD3")
ega.Rows.Add("36112029", "Trinayanti", "P", "06/03/1992", 3000000, "1BD3")
ega.Rows.Add("36112041", "Musyarafah Asis", "L", "07/13/1994", 6000000, "1BD3")
ega.Rows.Add("36112055", "Achmad Rezky Satria Perdana", "L", "12/17/1993", 3000000, "1BD3")
ega.Rows.Add("36112040", "Fibra Yoseph P", "P", "03/27/1995", 6000000, "1BD3")
ega.Rows.Add("36112045", "Ibnu Affan Al-Mufar'id", "L", "08/05/1994", 8000000, "1BD3")
ega.Rows.Add("36112030", "Sri Widya Ayu Wandini", "P", "06/01/1994", 5000000, "1BD3")
ega.Rows.Add("36112046", "Sri Wahyuni Hafid", "P", "12/25/1994", 11000000, "1BD3")
ega.Rows.Add("36112032", "Rosita Satri", "P", "12/06/1994", 3000000, "1BD3")
ega.Rows.Add("36112052", "Sabri", "L", "07/24/1993", 700000, "1BD3")
ega.Rows.Add("36112049", "Alfin Riani Bandaso", "P", "04/11/1994", 3000000, "1BD3")
ega.Rows.Add("36112036", "Nurmilasari", "P", "07/06/1993", 2000000, "1BD3")
ega.Rows.Add("36112035", "Tri Arismunandar", "L", "12/09/1993", 1000000, "1BD3")
ega.Rows.Add("36112031", "Nur Indahsari Idris", "P", "08/28/1994", 5000000, "1BD3")
ega.Rows.Add("36112037", "Ismawati", "P", "08/01/1994", 900000, "1BD3")
ega.Rows.Add("36112034", "Rezky Arianti", "P", "01/27/1994", 3000000, "1BD3")
ega.Rows.Add("36112043", "Artis Susan", "P", "10/29/1993", 5000000, "1BD3")
ega.Rows.Add("36112054", "Ade Apriathis Rantelino", "L", "04/27/1994", 3000000, "1BD3")
DV = ega.DefaultView
DGV46110022.DataSource = dv
End Sub
Private Sub rb146110022_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles rb146110022.CheckedChanged
If rb146110022.Checked = True Then
dv.Sort = "Stambuk"
End If
End Sub
Private Sub rb246110022_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles rb246110022.CheckedChanged
If rb246110022.Checked = True Then
dv.Sort = "kelas desc"
End If
End Sub
Private Sub rb346110022_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles rb346110022.CheckedChanged
If rb346110022.Checked = True Then
dv.Sort = "kelas,[tanggal Lahir]"
End If
End Sub
Private Sub rb446110022_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles rb446110022.CheckedChanged
If rb446110022.Checked = True Then
dv.Sort = "GajiOrtu desc"
End If
End Sub
Private Sub tb146110022_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tb146110022.TextChanged
dv.RowFilter = "[Gaji Ortu]>=" & Val(tb146110022.Text)
End Sub
Private Sub tb246110022_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tb246110022.TextChanged
dv.RowFilter = "Kelas <>" & "'" & tb246110022.Text & "'"
End Sub
Private Sub data146110022_ValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles data146110022.ValueChanged
dv.RowFilter = "[Tanggal Lahir] < #" & data146110022.Value.Date & "#"
End Sub
Private Sub tb346110022_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tb346110022.TextChanged
dv.RowFilter = "nama like '%" & tb346110022.Text & "%'"
End Sub
Private Sub filter46110022_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles filter46110022.Click
dv.RowFilter = "[Gaji ortu] > " & Val(tb446110022.Text) & "and kelas <>" & "'" & tb546110022.Text & "'" & "and[tanggal lahir] < #" & data246110022.Value.Month & "/" & data246110022.Value.Day & "/" & data246110022.Value.Year & "#" & " and nama like '%" & tb646110022.Text & "%'"
End Sub
Private Sub warna46110022_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles warna46110022.Click
For Each ega1 As DataGridViewRow In DGV46110022.Rows
If ega1.Cells("Gaji Ortu").Value > 6000000 Then
ega1.DefaultCellStyle.BackColor = tb746110022.BackColor
ElseIf ega1.Cells("Gaji Ortu").Value > 5000000 Then
ega1.DefaultCellStyle.BackColor = tb1046110022.BackColor
ElseIf ega1.Cells("Gaji Ortu").Value > 4000000 Then
ega1.DefaultCellStyle.BackColor = tb846110022.BackColor
ElseIf ega1.Cells("Gaji Ortu").Value > 3000000 Then
ega1.DefaultCellStyle.BackColor = tb1146110022.BackColor
ElseIf ega1.Cells("Gaji Ortu").Value > 2000000 Then
ega1.DefaultCellStyle.BackColor = tb946110022.BackColor
Else
ega1.DefaultCellStyle.BackColor = tb1246110022.BackColor
End If
Next
End Sub
End Class
5. Jalankan program dengan cara
mengklik start debugging seperti berikut :
Langkah-Langkah Membuat Form Latihan 14_46110022
- Klik start debugging
- Input nilai pada textbox yang berstatus input
- Hasil akan muncul sendiri ketika textbox input terisi.
- Untuk menfilter data, isi textbox input dengan nilai
yang diinginkann lalu klik "Filter".
- Untuk menampilkan warna pada setiap penghasilan ortu
yang berbeda, klik "Atur warna"
- Good luck :)
Postingan
