Deskripsi
penyelesaian
Form
Latihan_14_36110034
terdapat
5 object
yaitu Label,Textbox,button,datagreatview,groupbox
dan datetimepicker :
Object Label
Terdapat empatbelas label (yang bertuliskan gaji orang tua lebih dari, bukan kelas, tanggal lahir
sebelum, nama memiliki unsur yang terdapat dalam goupbox filter berdasarkan,
gaji orang tua lebih dari, bukan kelas, tanggal lahir sebelum, nama memiliki
unsur yang terdapat dalam groupbox filter dengan menggabungkan, gaji ortu yang
lebih dari 6000000, 5000000, 4000000, 3000000, 2000000, 1000000 dan selain itu
yang terdapat dalam groupbox pengaturan warna )
Object Text Box
Terdapat enam textbox (yang semuanya
berstatus input).
Status input digunakan untuk
memasukkan data pada
textbox (gaji orang tua lebih dari, bukan kelas, nama memiliki unsur) yang
berada di groupbox yang berbeda yaitu pada groupbox filter berdasarkan dan
filter dengan menggabungkan
Object DataGreatView
Terdapat satu datagreatview yang dapat
memunculkan data yang telah di input dalam bentuk table.
Object DateTimePecker
Terdapat dua datetimepecker yang menunjukkan data
tanggal yang lengkap beserta bulan dan tahun secara kalender.
Object GroupBox
Terdapat empat groupbox yang masing-masing
bernama(urut berdasarkan, filter berdasarkan, filter dengan menggabungkan,
pengaturan warna), groupbox berfungsi untuk menyatukan beberapa object toolbox
dalam satu kategori tertentu
Object Button
Terdapat dua tombol button , satu
groupbox bertuliskan “FILTER” yang terdapat di dalam groupbox filter
berdasarkan, dan satu tombol button yang bertuliskan “ATUR WARNA” yang terdapat
di dalam groupbox pengaturan warna
Script Unique
Buttom
"filter”
kusuma.RowFilter = "[Gaji
Ortu] >" & Val(GAJI2_36110034.Text) & " and kelas <> " & "'" & BK2_36110034.Text & "'" & " and [Tanggal Lahir] <" & "#" & DTP2_36110034.Value.Month
& "/" &
DTP2_36110034.Value.Day & "/"
& DTP2_36110034.Value.Year & "#"
& "
and Nama like" & "'%"
& NU2_36110034.Text & "%'"
End Sub
Button “Atur Warna”
For Each
DIAN As DataGridViewRow In DGV_36110034.Rows
If
DIAN.Cells("Gaji Ortu").Value >
6000000 Then
DIAN.DefaultCellStyle.BackColor
= Color.Red
ElseIf
DIAN.Cells("Gaji Ortu").Value >
5000000 Then
DIAN.DefaultCellStyle.BackColor
= Color.Crimson
ElseIf
DIAN.Cells("Gaji Ortu").Value >
4000000 Then
DIAN.DefaultCellStyle.BackColor
= Color.Bisque
ElseIf
DIAN.Cells("Gaji Ortu").Value >
3000000 Then
DIAN.DefaultCellStyle.BackColor
= Color.Brown
ElseIf
DIAN.Cells("Gaji Ortu").Value >
2000000 Then
DIAN.DefaultCellStyle.BackColor
= Color.Chocolate
Else
DIAN.DefaultCellStyle.BackColor
= Color.CornflowerBlue
End
If
Next
End Sub
Prosedur penyelesaian
1.
buka project yang telah dibuat
sebelumnya klik add new item => add windows form => ganti nama project
=> add.
2.
membuat
form dengan menggunakan Label dan Textbox
yang ada dalam "Toolbox”.
3.
ganti nama textbox dan
button menggunakan "Properties Window".
4.
membuka lembar vb Masukkan rumus berikut untuk
menyelesaikan latihan_14_36110034.
Public NotInheritable Class latihan_14_36110034
Dim dini As
New DataTable
Dim kusuma As
New DataView
Public Sub
latihan_14_36110034_load(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
MyBase.Load
dini.Columns.Add(New DataColumn("Stambuk", GetType(String)))
dini.Columns.Add(New DataColumn("Nama", GetType(String)))
dini.Columns.Add(New DataColumn("Jenis Kelamin", GetType(String)))
dini.Columns.Add(New DataColumn("Tanggal Lahir", GetType(Date)))
dini.Columns.Add(New DataColumn("Gaji Ortu", GetType(Double)))
dini.Columns.Add(New DataColumn("Kelas", GetType(String)))
dini.Rows.Add("36112001", "Fitri", "P",
"10/02/1994", 5000000, "1A")
dini.Rows.Add("36112003", "Fathin Ammar Asidik", "L", "06/09/1994",
6800000, "1A")
dini.Rows.Add("36112004", "Endah Mariadi", "P", "11/07/1994",
7500000, "1A")
dini.Rows.Add("36112005", "Mawar Aztanti", "P", "06/01/1993",
4000000, "1A")
dini.Rows.Add("36112006", "Izmi Istiqamah", "P", "11/04/1994",
7000000, "1A")
dini.Rows.Add("36112007", "Imran Novrin Ruslim", "L", "11/01/1994",
1000000, "1A")
dini.Rows.Add("36112008", "Adbul Malik", "L",
"11/09/1993", 2000000, "1A")
dini.Rows.Add("36112009", "Rahmaniah", "P",
"19/01/1994", "1500000", "1A")
dini.Rows.Add("36112010", "Yulianti", "P",
"28/09/1994", 3000000, "1A")
dini.Rows.Add("36112011", "Zulfitra Qadar Yasin", "L", "03/10/1994",
10000000, "1A")
dini.Rows.Add("36112012", "Sri Aprianti", "P",
"04/05/1994", 4000000, "1A")
dini.Rows.Add("36112013", "Noviantri Paembonan", "P", "19/11/1994",
6000000, "1A")
dini.Rows.Add("36112014", "A. Rahmawaty", "P",
"04/04/1994", 5000000, "1A")
dini.Rows.Add("36112015", "Danela Mangintek", "P", "11/06/1994",
3000000, "1A")
dini.Rows.Add("36112016", "Andi Jusma Nilam Sari", "P", "09/02/1994",
10000000, "1A")
dini.Rows.Add("36112017", "Dana Abrian", "L",
"10/05/1994", 5000000, "1A")
dini.Rows.Add("36112018", "Kurniawati", "P",
"10/11/1994", 2000000, "1A")
dini.Rows.Add("36112019", "Kharisma Yusuf", "P", "14/06/1994",
4000000, "1A")
dini.Rows.Add("36112020", "Bernard Talebong", "P", "10/01/1994",
10000000, "1A")
dini.Rows.Add("36112021", "Sulaipah", "P",
"28/09/1994", 1000000, "1A")
dini.Rows.Add("36112022", "Rismawati", "P",
"09/07/1994", 900000, "1A")
dini.Rows.Add("36112023", "Andi Arhami Hamzah", "P", "28/06/1994",
10000000, "1A")
dini.Rows.Add("36112024", "Syahrul Kamal", "L", "18/10/1994",
10000000, "1A")
dini.Rows.Add("36112025", "Ivana Olivia Aser", "P", "14/10/1993",
6000000, "1A")
dini.Rows.Add("36112026", "Melinda Rizkawati", "P", "05/07/1994",
2000000, "1A")
dini.Rows.Add("36112027", "Nurul Rezki Susanti", "P", "24/09/1994",
5000000, "1A")
dini.Rows.Add("36112029", "Trinayanti", "P",
"06/03/1992", 3000000, "1B")
dini.Rows.Add("36112030", "Sri Widya Ayu Wandini", "P", "06/01/1994",
5000000, "1B")
dini.Rows.Add("36112031", "Nur Indahsari Idris", "P", "28/08/1994",
5000000, "1B")
dini.Rows.Add("36112032", "Artis Susan", "P",
"29/10/1993", 5000000, "1B")
dini.Rows.Add("36112032", "Rosita Satri", "P",
"12/06/1994", 3000000, "1B")
dini.Rows.Add("36112033", "A. Syasya Annisa Ausan", "P", "08/08/1994",
7000000, "1B")
dini.Rows.Add("36112034", "Fibra Yoseph P.", "P", "27/03/1995",
6000000, "1B")
dini.Rows.Add("36112034", "Rezky Arianti", "P", "27/01/1994",
3000000, "1B")
dini.Rows.Add("36112035", "Tri Arismunandar", "L", "12/09/1993",
1000000, "1B")
dini.Rows.Add("36112036", "Nurmilasari", "P",
"07/06/1993", 200000, "1B")
dini.Rows.Add("36112037", "Ismawati", "P",
"08/01/1994", 900000, "1B")
dini.Rows.Add("36112039", "Andi Syahril", "L",
"10/02/1994", 2000000, "1B")
dini.Rows.Add("36112040", "Dian Eka Puteri", "P", "11/11/1993",
1000000, "1B")
dini.Rows.Add("36112041", "Musyarafah Asis", "L", "13/07/1994",
6000000, "1B")
dini.Rows.Add("36112042", "Sukmawati Amir", "P", "13/04/1994",
6000000, "1B")
dini.Rows.Add("36112043", "Mu'minat Nur", "P",
"17/05/1995", 5000000, "1B")
dini.Rows.Add("36112044", "Muhammad Fachri Sani", "L", "02/02/1994",
5000000, "1B")
dini.Rows.Add("36112045", "Ibnu Affan Al-Mufar'id", "L", "08/05/1994",
8000000, "1B")
dini.Rows.Add("36112046", "Sri Wahyuni Hafid", "P", "25/12/1994",
11000000, "1B")
dini.Rows.Add("36112047",
"A. Dian Pelita Waty", "P", "05/05/1994",
3000000, "1B")
dini.Rows.Add("36112048", "Tri Wahyuni", "P",
"11/11/1994", 800000, "1B")
dini.Rows.Add("36112049", "Alfin Riani Bandaso", "P", "04/11/1994",
3000000, "1B")
dini.Rows.Add("36112050", "Andi Anggi Fadliyah", "P", "15/08/1994",
1500000, "1B")
dini.Rows.Add("36112051", "Muhammad Adhe Anugrah", "L", "31/08/1993",
5000000, "1B")
dini.Rows.Add("36112052", "Sabri", "L",
"24/07/1993", 700000, "1B")
dini.Rows.Add("36112053", "Resky Yonada Ahmad", "P", "22/03/1994",
1500000, "1B")
dini.Rows.Add("36112054", "Ade Apriathis Rantelino", "L", "27/04/1994",
3000000, "1B")
dini.Rows.Add("36112055", "Achmad Rezky Satria Perdana", "L", "17/12/1993",
3000000, "1B")
dini.Rows.Add("36112056", "andri prianto tukan", "L", "26/04/1994",
2000000, "1B")
dini.Rows.Add("36112057", "Reenaldy Alchudri Azsagaf", "L", "05/03/1994",
10000000, "1B")
dini.Rows.Add("36112059", "Ummul Hayyul Qayyum", "P", "12/01/1993",
3500000, "1A")
dini.Rows.Add("36112060", "Nita", "P",
"01/04/1995", 2500000, "1A")
dini.Rows.Add("36112061", "Rahmat Adi Pratama", "L", "21/04/1994",
10000000, "1A")
dini.Rows.Add("46112001", "Rizka Awalia Mustakim", "P", "10/07/1994",
3000000, "1A")
dini.Rows.Add("46112002", "Dewi Sartika", "P",
"02/10/1994", 1000000, "1A")
dini.Rows.Add("46112003", "Nurawalia M.", "P",
"12/04/1994", 3000000, "1A")
dini.Rows.Add("46112004", "Anita Rahmah Muhtadin", "P", "12/07/1994",
5000000, "1A")
dini.Rows.Add("46112004", "Siti Khaerunnisa", "P", "28/03/1994",
1000000, "1A")
dini.Rows.Add("46112005", "Mardhotillah", "P",
"13/01/1994", 3000000, "1A")
dini.Rows.Add("46112006", "Rezky Tri Utami", "P", "07/03/1994",
3000000, "1A")
dini.Rows.Add("46112007", "Andi Rabiah", "L",
"09/07/1994", 1000000, "1A")
dini.Rows.Add("46112008", "Nanda Ardilia Pratama", "L", "08/01/1994",
1000000, "1A")
dini.Rows.Add("46112009", "Eka Yuli Astuti", "P", "08/07/1994",
2000000, "1A")
dini.Rows.Add("46112010", "Nur Indah Purnamasari", "P", "22/07/1994",
2500000, "1A")
dini.Rows.Add("46112011", "Delsi Tifani Lan", "P", "24/12/1994",
2000000, "1A")
dini.Rows.Add("46112012", "Nurul Qadri Musra", "L", "24/08/1994",
3000000, "1A")
dini.Rows.Add("46112013", "A. Muh. Lutfi Ahmad", "L", "10/10/1993",
4000000, "1A")
dini.Rows.Add("46112014", "Mariana.", "P",
"22/06/1994", 1000000, "1A")
dini.Rows.Add("46112015", "Irmayanti", "P",
"23/09/1994", 1000000, "1A")
dini.Rows.Add("46112016", "Dyah Sukma Anggraini", "P", "05/10/1994",
3500000, "1A")
dini.Rows.Add("46112017", "Camelia Indulgenssya Gundung", "P", "14/09/1994",
2000000, "1A")
dini.Rows.Add("46112018", "Rose Anne Tarida Situmorang", "P", "14/12/1994",
5000000, "1A")
dini.Rows.Add("46112020", "Sukriani Karunia Rahma", "P", "12/01/1994",
3000000, "1A")
dini.Rows.Add("46112021", "Rafidah",
"P", "06/05/1994",
5000000, "1A")
dini.Rows.Add("46112022", "Liliani Paelongan", "P", "25/05/1994",
3000000, "1A")
dini.Rows.Add("46112023", "Puspita Susilawati Ridjal", "P", "01/01/1994",
4000000, "1A")
dini.Rows.Add("46112025", "Fitri Amalia Islamiati", "P", "26/03/1995",
4000000, "1A")
dini.Rows.Add("46112026", "Muhammad Khaidir", "L", "26/12/1993",
3000000, "1A")
dini.Rows.Add("46112027", "Reny Rita Waty Djafar", "P", "26/07/1993",
3000000, "1A")
dini.Rows.Add("46112028", "Nur Salim Rusdi", "L", "04/12/1994",
1500000, "1A")
dini.Rows.Add("46112029", "Azwar Arfah", "L",
"04/03/1994", 3000000, "1A")
dini.Rows.Add("46112031", "Irmayanti", "P",
"05/02/1994", 1000000, "1B")
dini.Rows.Add("46112032", "Abd. Rahman", "L",
"10/08/1994", 1500000, "1B")
dini.Rows.Add("46112033", "Maulanan Ibrahim", "L", "04/10/1994",
1000000, "1B")
dini.Rows.Add("46112034", "Gamaliel Giovani Rafael Nong", "L", "08/06/1993",
3700000, "1B")
dini.Rows.Add("46112035", "Herpita Tohura", "P", "24/10/1993",
700000, "1B")
dini.Rows.Add("46112036", "Hasmiati Hajar", "P", "17/05/1994",
5000000, "1B")
dini.Rows.Add("46112037", "Herianto", "L",
"12/08/1993", 3000000, "1B")
dini.Rows.Add("46112038", "Viorensi S", "P",
"13/10/1994", 2000000, "1B")
dini.Rows.Add("46112039", "Carissa Evan Anthen", "P", "23/10/1994",
6000000, "1B")
dini.Rows.Add("46112040", "Tommy Paunganan", "L", "22/02/1993",
2000000, "1B")
dini.Rows.Add("46112041", "Nida Hazimah Ulfah", "P", "24/09/1995",
5000000, "1B")
dini.Rows.Add("46112042", "Faradhiba Zainal Putri", "P", "12/04/1993",
3000000, "1B")
dini.Rows.Add("46112043", "Remon Agit Rimang", "L", "01/06/1995",
3000000, "1B")
dini.Rows.Add("46112044", "Ulfah Nas", "P",
"26/01/1994", 5000000, "1B")
dini.Rows.Add("46112045", "Abdul Qawwam Nurjaya", "L", "26/11/1994",
3500000, "1B")
dini.Rows.Add("46112046", "Andini Hayrunnisyah", "P", "27/06/1994",
1500000, "1B")
dini.Rows.Add("46112047", "Hasmawati", "P",
"22/11/1994", 5000000, "1B")
dini.Rows.Add("46112048", "Udin Pranata", "L",
"29/01/1993", 1000000, "1B")
dini.Rows.Add("46112049", "Muhammad Farid Syah", "L", "20/01/1995",
5000000, "1B")
dini.Rows.Add("46112050", "Andi Akbar", "L",
"26/11/1994", 2000000, "1B")
dini.Rows.Add("46112051", "Afrisca Fraktiani Rante", "P", "13/04/1995",
5000000, "1B")
dini.Rows.Add("46112052", "Aprianto Sandy", "L", "11/04/1993",
3000000, "1B")
dini.Rows.Add("46112053", "Khusnul Khatimah A", "P", "27/08/1994",
3000000, "1B")
dini.Rows.Add("46112054", "Rahmi Ani", "P",
"30/11/1994", 2000000, "1B")
dini.Rows.Add("46112055", "Reni Anggraeni", "P", "12/10/1994",
1500000, "1B")
dini.Rows.Add("46112056", "Kartini Widyasita", "P", "21/04/1993",
4650000, "1B")
dini.Rows.Add("46112057", "I Ketut Yuda Sadpwa", "L", "02/05/1993",
4500000, "1B")
dini.Rows.Add("46112058", "citra amalia ramadhani", "L", "16/02/1995",
3000000, "1B")
kusuma = dini.DefaultView
DGV_36110034.DataSource = kusuma
End Sub
Private Sub
RB1_36110034_CheckedChanged1(ByVal sender As Object, ByVal e As
System.EventArgs) Handles
RB1_36110034.CheckedChanged
If RB1_36110034.Checked = True Then
kusuma.Sort = "Stambuk"
End If
End Sub
Private Sub
RB2_36110034_CheckedChanged(ByVal sender As Object, ByVal e As
System.EventArgs) Handles
RB2_36110034.CheckedChanged
If RB2_36110034.Checked = True Then
kusuma.Sort = "kelas desc"
End If
End Sub
Private Sub
RB3_36110034_CheckedChanged(ByVal sender As Object, ByVal e As
System.EventArgs) Handles
RB3_36110034.CheckedChanged
If RB3_36110034.Checked = True Then
kusuma.Sort = "kelas asc, tanggal lahir asc"
End If
End Sub
Private Sub
RB4_36110034_CheckedChanged(ByVal sender As Object, ByVal e As
System.EventArgs) Handles
RB4_36110034.CheckedChanged
If RB4_36110034.Checked = True Then
kusuma.Sort = "Gaji Ortu desc"
End If
End Sub
Private Sub
GAJI1_36110034_TextChanged(ByVal sender As Object, ByVal e As
System.EventArgs) Handles
GAJI1_36110034.TextChanged
kusuma.RowFilter = "[Gaji Ortu]
>" & Val(GAJI1_36110034.Text)
End Sub
Private Sub
BK1_36110034_TextChanged(ByVal sender As Object, ByVal e As
System.EventArgs) Handles
BK1_36110034.TextChanged
kusuma.RowFilter = "kelas <>
" & "'" &
BK1_36110034.Text & "'"
End Sub
Private Sub
DTP1_36110034_ValueChanged(ByVal sender As Object, ByVal e As
System.EventArgs) Handles
DTP1_36110034.ValueChanged
kusuma.RowFilter = " [Tanggal Lahir]
<" & "#" &
DTP1_36110034.Value.Month & "/"
& DTP1_36110034.Value.Day & "/"
& DTP1_36110034.Value.Year & "#"
End Sub
Private Sub
NU1_36110034_TextChanged(ByVal sender As Object, ByVal e As
System.EventArgs) Handles
NU1_36110034.TextChanged
kusuma.RowFilter = "Nama like"
& "'%" & NU1_36110034.Text
& "%'"
End Sub
Private Sub
FIL_36110034_Click(ByVal sender As Object, ByVal e As
System.EventArgs) Handles FIL_36110034.Click
kusuma.RowFilter = "[Gaji Ortu]
>" & Val(GAJI2_36110034.Text) & "
and kelas <> " & "'"
& BK2_36110034.Text & "'"
& "
and [Tanggal Lahir] <" & "#"
& DTP2_36110034.Value.Month & "/"
& DTP2_36110034.Value.Day & "/"
& DTP2_36110034.Value.Year & "#"
& "
and Nama like" & "'%"
& NU2_36110034.Text & "%'"
End Sub
Private Sub
AW_36110034_Click(ByVal sender As Object, ByVal e As
System.EventArgs) Handles AW_36110034.Click
For Each
DIAN As DataGridViewRow In DGV_36110034.Rows
If
DIAN.Cells("Gaji Ortu").Value >
6000000 Then
DIAN.DefaultCellStyle.BackColor
= Color.Red
ElseIf
DIAN.Cells("Gaji Ortu").Value >
5000000 Then
DIAN.DefaultCellStyle.BackColor
= Color.Crimson
ElseIf
DIAN.Cells("Gaji Ortu").Value >
4000000 Then
DIAN.DefaultCellStyle.BackColor
= Color.Bisque
ElseIf
DIAN.Cells("Gaji Ortu").Value >
3000000 Then
DIAN.DefaultCellStyle.BackColor
= Color.Brown
ElseIf
DIAN.Cells("Gaji Ortu").Value >
2000000 Then
DIAN.DefaultCellStyle.BackColor
= Color.Chocolate
Else
DIAN.DefaultCellStyle.BackColor
= Color.CornflowerBlue
End
If
Next
End Sub
End Class
5.
Jalankan program dengan “start debugging”.
Tidak ada komentar:
Posting Komentar