Deskripsi
form Latihan_14_46110003
Form Latihan_14_46110003 terdapat enam object yaitu label, textbox, button, groupbox, datetimepicker dan DataGriedView
Form Latihan_14_46110003 terdapat enam object yaitu label, textbox, button, groupbox, datetimepicker dan DataGriedView
Object Label
Terdapat 2 label bertuliskan “gaji orang tua lebih
dari” 2 label bertuliskan “bukan kelas”, 2 label bertuliskan “tanggal lahir
sebelum”, dan 2 label bertuliskan “nama memiliki unsur”.
Selain label-label diatas masih terdapat 6 label yang
diberi warna yang berbeda-beda untuk mengetahui atau membedakan penghasilan
orang tua pada data yang telah disiapkan.
Object Textbox
Terdapat enam textbox yang berstatus input digunakan
untuk memasukkan “gaji orang tua lebih dari”, “bukan kelas”, dan “nama memiliki
unsur” masing-masing 2 textbox.
Object Button
Terdapat dua object button (Filter dan Atur Warna).
Button filter digunakan untuk memfilter data tabel berdasarkan data yang telah
diinput di textbox. Button atur warna digunakan untuk memberikan warna pada
data yang ada dalam datagridview menurut besarnya gaji orang tua.
Object DateTimePicker
Terdapat dua
object datetimepicker yang digunakan dalam memfilter tanggal lahir pada data
tabel yang ada di datagridview.
Object RadioButton
Terdapat empat object radiobutton yang
bertuliskan “stambuk”, “kelas (besar->kecil)”, “kelas (kecil->besar)
tanggal lahir (kecil->besar)”, dan “gaji orang tua (besar->kecil)”.
Object DataGridView
Terdapat satu objeck datagridview
yang digunakan untuk menampilkan data tabel yang telah dibuat.
Script Unique :
Memfilter
dvmaba.RowFilter = "kelas <>"
& "'" & bk46110003.Text
& "'"
Mengatur
warna
For Each X As
DataGridViewRow In dgv46110003.Rows
If
X.Cells("GAJI ORTU").Value >
6000000 Then
X.DefaultCellStyle.BackColor = Label9.BackColor
Even
stb46110003.CheckedChanged
gotld46110003.TextChanged
tgls46110003.ValueChanged
filter46110003.Click
warna46110003.Click
Property
Default
Langkah-langkah
Penyelesaian
1. Buat desain Form seperti contoh
dibawah ini:
2. Masukkan rumus:
Public NotInheritable Class
Latihan_14_46110003
Dim dtMaba As New DataTable
Dim dvmaba As New DataView
Private Sub Latihan_14_46110003_Load(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles MyBase.Load
dtMaba.Columns.Add(New DataColumn("Stambuk",
GetType(String)))
dtMaba.Columns.Add(New DataColumn("NAMA",
GetType(String)))
dtMaba.Columns.Add(New DataColumn("Jenis
Kelamin", GetType(String)))
dtMaba.Columns.Add(New DataColumn("Tanggal
Lahir", GetType(Date)))
dtMaba.Columns.Add(New DataColumn("Gaji
Ortu", GetType(Double)))
dtMaba.Columns.Add(New DataColumn("Kelas",
GetType(String)))
dtMaba.Rows.Add("46112003", "Nurawalia
M", "P", "12/04/1994", 3000000, "1AD4")
dtMaba.Rows.Add("46120023", "Puspita
Susilawati Ridjal", "P",
"01/01/1994", 4000000, "1AD4")
dtMaba.Rows.Add("46110018", "Rose
Anne Tarida Situmorang", "P",
"12/01/1994", 5000000, "1AD4")
dtMaba.Rows.Add("46112004", "Siti
Khaerunnisa", "P", "03/28/1994", 1000000, "1AD4")
dtMaba.Rows.Add("46112015", "Irmayanti",
"P", "09/23/1994",
1000000, "1AD4")
dtMaba.Rows.Add("46112011", "Delsi
Tifani Lan", "P", "12/24/1994", 2000000, "1AD4")
dtMaba.Rows.Add("46112027", "Reny
Rita Waty Djafar", "P",
"07/26/1993", 3000000, "1AD4")
dtMaba.Rows.Add("46112002", "Dewi
Sartika", "P", "02/10/1994", 1000000, "1AD4")
dtMaba.Rows.Add("46112004", "Anita
Rahmah Muhtadin", "P",
"12/07/1994", 5000000, "1AD4")
dtMaba.Rows.Add("46112021", "Rafidah",
"P", "06/05/1994",
500000, "1AD4")
dtMaba.Rows.Add("46112009", "Eka
Yuli Astuti", "P", "08/07/1994", 2000000, "1AD4")
dtMaba.Rows.Add("46112025", "Fitri
Amalia Islamiati", "P",
"03/26/1995", 4000000, "1AD4")
dtMaba.Rows.Add("46112014", "Mariana",
"P", "06/22/1994",
1000000, "1AD4")
dtMaba.Rows.Add("46112013", "A. Muh.
Lutfi Ahmad", "L", "10/10/1993", 4000000, "1AD4")
dtMaba.Rows.Add("46112008",
"Nanda Ardilia Pratama", "L", "08/01/1994",
1000000, "1AD4")
dtMaba.Rows.Add("46112022", "Liliani
Paelongan", "P", "05/25/1994", 3000000, "1AD4")
dtMaba.Rows.Add("46112007", "Andi
Rabiah", "L", "09/07/1994", 1000000, "1AD4")
dtMaba.Rows.Add("46112001", "Rizka
Awalia Mustakim", "P",
"10/07/1994", 3000000, "1AD4")
dtMaba.Rows.Add("46112005", "Mardhotillah",
"P", "01/13/1994",
3000000, "1AD4")
dtMaba.Rows.Add("46112017", "Camelia
Indulgenssya Gundung", "P",
"09/14/1994", 2000000, "1AD4")
dtMaba.Rows.Add("46112028", "Nur
Salim Rusdi", "L", "04/12/1994", 1500000, "1AD4")
dtMaba.Rows.Add("46112026", "Muhammad
Khaidir", "L", "12/26/1993", 3000000, "1AD4")
dtMaba.Rows.Add("46112020",
"Sukriani Karunia Rahma", "P", "12/01/1994",
3000000, "1AD4")
dtMaba.Rows.Add("46112006", "Rezky
Tri Utami", "P", "07/03/1994", 3000000, "1AD4")
dtMaba.Rows.Add("46112029", "Azwar
Arfah", "L", "04/03/1994", 3000000, "1AD4")
dtMaba.Rows.Add("46112016", "Dyah
Sukma Anggraini", "P",
"05/10/1994", 3500000, "1AD4")
dtMaba.Rows.Add("46112010", "Nur
Indah Purnamasari", "P",
"07/22/1994", 2500000, "1AD4")
dtMaba.Rows.Add("46112012", "Nurul
Qadri Musra", "L", "08/24/1994", 3000000, "1AD4")
dtMaba.Rows.Add("46112055", "Reni
Anggraeni", "P", "10/12/1994", 1500000, "1BD4")
dtMaba.Rows.Add("46112042", "Faradhiba
Zainal Putri", "P", "12/04/1993", 3000000, "1BD4")
dtMaba.Rows.Add("46112054", "Rahmi
Ani", "P", "11/30/1994", 2000000, "1BD4")
dtMaba.Rows.Add("46112043", "Remon
Agit Rimang", "L", "01/06/1995", 3000000, "1BD4")
dtMaba.Rows.Add("46112032", "Abd.
Rahman", "L", "10/08/1994", 1500000, "1BD4")
dtMaba.Rows.Add("46112057", "I Ketut
Yuda Sadpwa", "L", "05/02/1993", 4500000, "1BD4")
dtMaba.Rows.Add("46112037", "Herianto",
"L", "12/08/1993",
3000000, "1BD4")
dtMaba.Rows.Add("46112058", "citra
amalia ramadhani", "L",
"02/16/1995", 3000000, "1BD4")
dtMaba.Rows.Add("46112050", "Andi
Akbar", "L", "11/26/1994", 2000000, "1BD4")
dtMaba.Rows.Add("46112034", "Gamaliel
Giovani Rafael Nong", "L",
"08/06/1993", 3700000, "1BD4")
dtMaba.Rows.Add("46112047", "Hasmawati",
"P", "11/22/1994",
5000000, "1BD4")
dtMaba.Rows.Add("46112038", "Viorensi
S", "P", "10/13/1994", 2000000, "1BD4")
dtMaba.Rows.Add("46112046", "Andini
Hayrunnisyah", "P", "06/27/1994", 1500000, "1BD4")
dtMaba.Rows.Add("46112031", "Irmayanti",
"P", "05/02/1994",
1000000, "1BD4")
dtMaba.Rows.Add("46112039", "Carissa
Evan Anthen", "P", "10/23/1994", 6000000, "1BD4")
dtMaba.Rows.Add("46112052", "Aprianto
Sandy", "L", "04/11/1993", 3000000, "1BD4")
dtMaba.Rows.Add("46112049", "Muhammad
Farid Syah", "L", "01/20/1995", 5000000, "1BD4")
dtMaba.Rows.Add("46112033", "Maulanan
Ibrahim", "L", "04/10/1994", 1000000, "1BD4")
dtMaba.Rows.Add("46112035", "Herpita
Tohura", "P", "10/24/1993", 700000, "1BD4")
dtMaba.Rows.Add("46112048", "Udin
Pranata", "L", "01/29/1993", 1000000, "1BD4")
dtMaba.Rows.Add("46112051", "Afrisca
Fraktiani Rante", "P",
"04/13/1995", 5000000, "1BD4")
dtMaba.Rows.Add("46112056", "Kartini
Widyasita", "P", "04/21/1993", 4650000, "1BD4")
dtMaba.Rows.Add("46112045", "Abdul
Qawwam Nurjaya", "L", "11/26/1994", 3500000, "1BD4")
dtMaba.Rows.Add("46112040", "Tommy
Paunganan", "L", "02/22/1993", 2000000, "1BD4")
dtMaba.Rows.Add("46112053", "Khusnul
Khatimah A", "P", "08/27/1994", 3000000, "1BD4")
dtMaba.Rows.Add("46112041", "Nida
Hazimah Ulfah", "P", "09/24/1995", 5000000, "1BD4")
dtMaba.Rows.Add("46112044", "Ulfah
Nas", "P", "01/26/1994", 5000000, "1BD4")
dtMaba.Rows.Add("46112036", "Hasmiati
Hajar", "P", "05/17/1994", 5000000, "1BD4")
dtMaba.Rows.Add("36112001", "Fitri",
"P", "10/20/1994",
5000000, "1AD3")
dtMaba.Rows.Add("36112002", "andri
prianto tukan", "L", "04/26/1994", 2000000, "1BD3")
dtMaba.Rows.Add("36112003", "Fathin
Ammar Asidik", "L", "06/29/1994", 6800000, "1AD3")
dtMaba.Rows.Add("36112004", "Endah
Mariadi", "P", "11/07/1994", 7500000, "1AD3")
dtMaba.Rows.Add("36112005", "Mawar
Aztanti", "P", "06/01/1993", 4000000, "1AD3")
dtMaba.Rows.Add("36112006", "Izmi
Istiqamah", "P", "11/04/1994", 7000000, "1AD3")
dtMaba.Rows.Add("36112007", "Imran
Novrin Ruslim", "L", "11/21/1994", 1000000, "1AD3")
dtMaba.Rows.Add("36112008", "Adbul
Malik", "L", "11/09/1993", 2500000, "1AD3")
dtMaba.Rows.Add("36112010", "Yulianti",
"P", "09/28/1994",
2500000, "1AD3")
dtMaba.Rows.Add("36112011", "Zulfitra
Qadar Yasin", "L", "03/10/1994", 10000000, "1AD3")
dtMaba.Rows.Add("36112012", "Sri
Aprianti", "P", "04/05/1994", 4000000, "1AD3")
dtMaba.Rows.Add("36112013", "Noviantri
Paembonan", "P", "11/19/1994", 6000000, "1AD3")
dtMaba.Rows.Add("36112016", "Andi
Jusma Nilam Sari", "P",
"09/02/1994", 10000000, "1AD3")
dtMaba.Rows.Add("36112017",
"Dana Abrian", "L", "10/05/1994",
5000000, "1AD3")
dtMaba.Rows.Add("36112018", "Kurniawati",
"P", "10/11/1994",
2000000, "1AD3")
dtMaba.Rows.Add("36112020", "Bernard
Talebong", "P", "10/01/1994", 10000000, "1AD3")
dtMaba.Rows.Add("36112023", "Andi
Arhami Hamzah", "P", "06/28/1994", 10000000, "1AD3")
dtMaba.Rows.Add("36112024", "Syahrul
Kamal", "L", "10/18/1994", 10000000, "1AD3")
dtMaba.Rows.Add("36112027", "Nurul
Rezki Susanti", "P", "09/24/1994", 5000000, "1AD3")
dtMaba.Rows.Add("36112059", "Ummul
Hayyul Qayyum", "P", "12/01/1993", 3500000, "1AD3")
dtMaba.Rows.Add("36112022", "Rismawati",
"P", "09/07/1994",
900000, "1AD3")
dtMaba.Rows.Add("36112026", "Melinda
Rizkawati", "P", "05/07/1994", 2000000, "1AD3")
dtMaba.Rows.Add("36112025", "Ivana
Olivia Aser", "P", "01/14/1993", 6000000, "1AD3")
dtMaba.Rows.Add("36112021", "Sulaipah",
"P", "09/28/1994",
1000000, "1AD3")
dtMaba.Rows.Add("36112061", "Rahmat
Adi Pratama", "L", "04/21/1994", 10000000, "1AD3")
dtMaba.Rows.Add("36112060", "Nita",
"P", "01/04/1995",
2500000, "1AD3")
dtMaba.Rows.Add("36112019", "Kharisma
Yusuf", "P", "06/14/1994", 4000000, "1AD3")
dtMaba.Rows.Add("36112014", "A.
Rahmawaty", "P", "04/04/1994", 5000000, "1AD3")
dtMaba.Rows.Add("36112015", "Danela
Mangintek", "P", "11/06/1994", 3000000, "1AD3")
dtMaba.Rows.Add("36112009", "Rahmaniah",
"P", "01/19/1994",
2500000, "1AD3")
dtMaba.Rows.Add("36112057", "Reenaldy
Alchudri Azsagaf", "L",
"05/03/1994", 10000000, "1BD3")
dtMaba.Rows.Add("36112039", "Andi
Syahril", "L", "10/02/1994", 2000000, "1BD3")
dtMaba.Rows.Add("36112051", "Muhammad
Adhe Anugrah", "L", "08/31/1993", 5000000, "1BD3")
dtMaba.Rows.Add("36112042", "Sukmawati
Amir", "P", "04/13/1994", 6000000, "1BD3")
dtMaba.Rows.Add("36112019", "Dian
Eka Puteri", "P", "11/11/1993", 1000000, "1BD3")
dtMaba.Rows.Add("36112048", "Tri Wahyuni",
"P", "11/11/1994",
800000, "1BD3")
dtMaba.Rows.Add("36112047", "A. Dian
Pelita Waty", "P", "05/05/1994", 3000000, "1BD3")
dtMaba.Rows.Add("36112028", "Mu'minat
Nur", "P", "05/17/1995", 5000000, "1BD3")
dtMaba.Rows.Add("36112038", "Andi
Anggi Fadliyah", "P", "08/15/1994", 1500000, "1BD3")
dtMaba.Rows.Add("36112033", "A.
Syasya Annisa Ausan", "P",
"08/08/1994", 7000000, "1BD3")
dtMaba.Rows.Add("36112044", "Muhammad
Fachri Sani", "L", "02/02/1994", 5000000, "1BD3")
dtMaba.Rows.Add("36112053", "Resky
Yonada Ahmad", "P", "03/22/1994", 1500000, "1BD3")
dtMaba.Rows.Add("36112029", "Trinayanti",
"P", "06/03/1992",
3000000, "1BD3")
dtMaba.Rows.Add("36112041", "Musyarafah
Asis", "L", "07/13/1994", 6000000, "1BD3")
dtMaba.Rows.Add("36112055", "Achmad
Rezky Satria Perdana", "L",
"12/17/1993", 3000000, "1BD3")
dtMaba.Rows.Add("36112040", "Fibra
Yoseph P", "P", "03/27/1995", 6000000, "1BD3")
dtMaba.Rows.Add("36112045", "Ibnu
Affan Al-Mufar'id", "L",
"08/05/1994", 8000000, "1BD3")
dtMaba.Rows.Add("36112030", "Sri
Widya Ayu Wandini", "P",
"06/01/1994", 5000000, "1BD3")
dtMaba.Rows.Add("36112046", "Sri
Wahyuni Hafid", "P", "12/25/1994", 11000000, "1BD3")
dtMaba.Rows.Add("36112032", "Rosita
Satri", "P", "12/06/1994", 3000000, "1BD3")
dtMaba.Rows.Add("36112052", "Sabri",
"L", "07/24/1993",
700000, "1BD3")
dtMaba.Rows.Add("36112049", "Alfin
Riani Bandaso", "P", "04/11/1994", 3000000, "1BD3")
dtMaba.Rows.Add("36112036", "Nurmilasari",
"P", "07/06/1993",
2000000, "1BD3")
dtMaba.Rows.Add("36112035", "Tri
Arismunandar", "L", "12/09/1993", 1000000, "1BD3")
dtMaba.Rows.Add("36112031", "Nur
Indahsari Idris", "P",
"08/28/1994", 5000000, "1BD3")
dtMaba.Rows.Add("36112037", "Ismawati",
"P", "08/01/1994",
900000, "1BD3")
dtMaba.Rows.Add("36112034", "Rezky
Arianti", "P", "01/27/1994", 3000000, "1BD3")
dtMaba.Rows.Add("36112043", "Artis
Susan", "P", "10/29/1993", 5000000, "1BD3")
dtMaba.Rows.Add("36112054", "Ade
Apriathis Rantelino", "L",
"04/27/1994", 3000000, "1BD3")
dvmaba = dtMaba.DefaultView
dgv46110003.DataSource = dvmaba
End Sub
Private Sub stb46110003_CheckedChanged(ByVal sender As
System.Object, ByVal e As
System.EventArgs) Handles
stb46110003.CheckedChanged
dvmaba.Sort = "STAMBUK"
End Sub
Private Sub kls46110003_CheckedChanged(ByVal sender As
System.Object, ByVal e As
System.EventArgs) Handles
kls46110003.CheckedChanged
dvmaba.Sort = "KELAS
desc"
End Sub
Private Sub klstgl46110003_CheckedChanged(ByVal sender As
System.Object, ByVal e As
System.EventArgs) Handles
klstgl46110003.CheckedChanged
dvmaba.Sort = "KELAS
, Tanggal Lahir"
End Sub
Private Sub gortu46110003_CheckedChanged(ByVal sender As
System.Object, ByVal e As
System.EventArgs) Handles
gortu46110003.CheckedChanged
dvmaba.Sort = "Gaji
Ortu"
End Sub
Private Sub gotld46110003_TextChanged(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles
gotld46110003.TextChanged
dvmaba.RowFilter = "[Gaji ortu] > " &
Val(gotld46110003.Text)
End Sub
Private Sub bk46110003_TextChanged(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles
bk46110003.TextChanged
dvmaba.RowFilter = "kelas <>" & "'" & bk46110003.Text & "'"
End Sub
Private Sub tgls46110003_ValueChanged(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles
tgls46110003.ValueChanged
dvmaba.RowFilter = "[tanggal lahir] < #" &
tgls46110003.Value & "#"
End Sub
Private Sub nmu46110003_TextChanged(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles nmu46110003.TextChanged
dvmaba.RowFilter = "and nama like '%" &
nmu46110003.Text & "%'"
End Sub
Private Sub filter46110003_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles filter46110003.Click
dvmaba.RowFilter = "[GAJI ORTU]>" &
Val(gotld246110003.Text) & " AND
[KELAS]<>'" & bk246110003.Text & "'" & "
AND [TANGGAL LAHIR]<#" & tgls246110003.Value.Month & "/" & tgls246110003.Value.Day & "/" & tgls246110003.Value.Year &
"#" & "
AND NAMA LIKE '%" & nmu246110003.Text & "%'"
End Sub
Private Sub warna46110003_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles warna46110003.Click
For Each X As
DataGridViewRow In dgv46110003.Rows
If
X.Cells("GAJI ORTU").Value >
6000000 Then
X.DefaultCellStyle.BackColor =
Label9.BackColor
ElseIf
X.Cells("GAJI ORTU").Value >
5000000 Then
X.DefaultCellStyle.BackColor =
Label10.BackColor
ElseIf
X.Cells("GAJI ORTU").Value >
4000000 Then
X.DefaultCellStyle.BackColor =
Label11.BackColor
ElseIf
X.Cells("GAJI ORTU").Value >
3000000 Then
X.DefaultCellStyle.BackColor =
Label12.BackColor
ElseIf
X.Cells("GAJI ORTU").Value >
2000000 Then
X.DefaultCellStyle.BackColor =
Label13.BackColor
Else
X.DefaultCellStyle.BackColor =
Label14.BackColor
End
If
Next
End Sub
End Class
3. Jalankan Program dengan mengklik
Debugging.
0 komentar:
Posting Komentar