Deskripsi Latihan 14
Pada form latihan 14 terdapat 7 object yang digunakan yaitu Label, Text Box, Button, Date Time Picker, Radio Button, Data Grid View dan Group Box.
Object Label
Pada form ini terdapat delapan object label ( 2 yang bertuliskan "gaji orang tua lebih dari" , 2 "bukan kelas", 2 "tanggal lahir sebelum",
dan 2 label untuk "nama memiliki unsur").
Object Textbox
Pada form ini terdapat dua belas textbox (enam status input; delapan status read only dan hanya digunakan sebagai pengganti label).
Status input digunakan untuk memasukkan gaji orang tua lebih dari, bukan kelas, dan nama memiliki unsur. Masing-masing 2 textbox.
Status Read Only digunakan sebagai pengganti label yang bertuliskan "gaji ortu>=6000000, gaji ortu>=5000000, gaji ortu>=4000000, gaji ortu>=3000000, gaji ortu>=2000000, selain itu".
Object Button
Pada form ini terdapat dua object button yaitu (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 besar gaji ortunya.
Object DateTimePicker
Pada form ini terdapat dua object datetimepicker yang digunakan dalam memfilter data tabel yang ada di datagridview.
Object RadioButton
Pada form ini terdapat empat object radiobutton (stambuk, kelas (besar->kecil), kelas (kecil->besar) tanggal lahir (kecil->besar), dan gaji orang tua (besar->kecil).
Object DataGridView
Pada form ini terdapat satu objeck datagridview yang digunakan untuk menampilkan data tabel yang telah dibuat.
Object GroupBox
Terdapat 4 object groupbox pada latihan 14 ("urutkan berdasarkan", "filter berdasarkan", "filter dengan menggabungkan" dan "pengaturan warna").
Script Unique
Untuk memfilter :
dvmaba.RowFilter = "[Gaji ortu] > " & Val(gaji146110055.Text)
Untuk mengatur warna :
For Each X As DataGridViewRow In dgv46110055.Rows
If X.Cells("Gaji Ortu").Value > 6000000 Then
X.DefaultCellStyle.BackColor = biru46110055.BackColor
ElseIf X.Cells("Gaji Ortu").Value > 5000000 Then
X.DefaultCellStyle.BackColor = kuning46110055.BackColor
ElseIf X.Cells("Gaji Ortu").Value > 4000000 Then
X.DefaultCellStyle.BackColor = merah46110055.BackColor
ElseIf X.Cells("Gaji Ortu").Value > 3000000 Then
X.DefaultCellStyle.BackColor = ungu46110055.BackColor
ElseIf X.Cells("Gaji Ortu").Value > 2000000 Then
X.DefaultCellStyle.BackColor = hijau46110055.BackColor
Else
X.DefaultCellStyle.BackColor = tosca46110055.BackColor
End If
Next
End Sub
Even
CheckedChanged
ButtonClick
Load
Valuechanged
Property
Property TextBox ==> ReadOnly=True
Cara membuat Latihan 14:
1. Buka Microsoft Visual Studio 2008
2. Setelah itu pilih “kumpulan_Latihan_46110055” (sesuai dengan nama file anda)
.
8. Masukkan rumus berikut :Public Class Latihan_14_46110055
Dim feby As New DataTable
Dim dvmaba As New DataView
Private Sub Latihan_14_46110055_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
feby.Columns.Add(New DataColumn("Stambuk", GetType(String)))
feby.Columns.Add(New DataColumn("NAMA", GetType(String)))
feby.Columns.Add(New DataColumn("Jenis Kelamin", GetType(String)))
feby.Columns.Add(New DataColumn("Tanggal Lahir", GetType(Date)))
feby.Columns.Add(New DataColumn("Gaji Ortu", GetType(Double)))
feby.Columns.Add(New DataColumn("Kelas", GetType(String)))
feby.Rows.Add("46112003", "Nurawalia M", "P", "12/04/1994", 3000000, "1AD4")
feby.Rows.Add("46120023", "Puspita Susilawati Ridjal", "P", "01/01/1994", 4000000, "1AD4")
feby.Rows.Add("46110018", "Rose Anne Tarida Situmorang", "P", "12/01/1994", 5000000, "1AD4")
feby.Rows.Add("46112004", "Siti Khaerunnisa", "P", "03/28/1994", 1000000, "1AD4")
feby.Rows.Add("46112015", "Irmayanti", "P", "09/23/1994", 1000000, "1AD4")
feby.Rows.Add("46112011", "Delsi Tifani Lan", "P", "12/24/1994", 2000000, "1AD4")
feby.Rows.Add("46112027", "Reny Rita Waty Djafar", "P", "07/26/1993", 3000000, "1AD4")
feby.Rows.Add("46112002", "Dewi Sartika", "P", "02/10/1994", 1000000, "1AD4")
feby.Rows.Add("46112004", "Anita Rahmah Muhtadin", "P", "12/07/1994", 5000000, "1AD4")
feby.Rows.Add("46112021", "Rafidah", "P", "06/05/1994", 500000, "1AD4")
feby.Rows.Add("46112009", "Eka Yuli Astuti", "P", "08/07/1994", 2000000, "1AD4")
feby.Rows.Add("46112025", "Fitri Amalia Islamiati", "P", "03/26/1995", 4000000, "1AD4")
feby.Rows.Add("46112014", "Mariana", "P", "06/22/1994", 1000000, "1AD4")
feby.Rows.Add("46112013", "A. Muh. Lutfi Ahmad", "L", "10/10/1993", 4000000, "1AD4")
feby.Rows.Add("46112008", "Nanda Ardilia Pratama", "L", "08/01/1994", 1000000, "1AD4")
feby.Rows.Add("46112022", "Liliani Paelongan", "P", "05/25/1994", 3000000, "1AD4")
feby.Rows.Add("46112007", "Andi Rabiah", "L", "09/07/1994", 1000000, "1AD4")
feby.Rows.Add("46112001", "Rizka Awalia Mustakim", "P", "10/07/1994", 3000000, "1AD4")
feby.Rows.Add("46112005", "Mardhotillah", "P", "01/13/1994", 3000000, "1AD4")
feby.Rows.Add("46112017", "Camelia Indulgenssya Gundung", "P", "09/14/1994", 2000000, "1AD4")
feby.Rows.Add("46112028", "Nur Salim Rusdi", "L", "04/12/1994", 1500000, "1AD4")
feby.Rows.Add("46112026", "Muhammad Khaidir", "L", "12/26/1993", 3000000, "1AD4")
feby.Rows.Add("46112020", "Sukriani Karunia Rahma", "P", "12/01/1994", 3000000, "1AD4")
feby.Rows.Add("46112006", "Rezky Tri Utami", "P", "07/03/1994", 3000000, "1AD4")
feby.Rows.Add("46112029", "Azwar Arfah", "L", "04/03/1994", 3000000, "1AD4")
feby.Rows.Add("46112016", "Dyah Sukma Anggraini", "P", "05/10/1994", 3500000, "1AD4")
feby.Rows.Add("46112010", "Nur Indah Purnamasari", "P", "07/22/1994", 2500000, "1AD4")
feby.Rows.Add("46112012", "Nurul Qadri Musra", "L", "08/24/1994", 3000000, "1AD4")
feby.Rows.Add("46112055", "Reni Anggraeni", "P", "10/12/1994", 1500000, "1BD4")
feby.Rows.Add("46112042", "Faradhiba Zainal Putri", "P", "12/04/1993", 3000000, "1BD4")
feby.Rows.Add("46112054", "Rahmi Ani", "P", "11/30/1994", 2000000, "1BD4")
feby.Rows.Add("46112043", "Remon Agit Rimang", "L", "01/06/1995", 3000000, "1BD4")
feby.Rows.Add("46112032", "Abd. Rahman", "L", "10/08/1994", 1500000, "1BD4")
feby.Rows.Add("46112057", "I Ketut Yuda Sadpwa", "L", "05/02/1993", 4500000, "1BD4")
feby.Rows.Add("46112037", "Herianto", "L", "12/08/1993", 3000000, "1BD4")
feby.Rows.Add("46112058", "citra amalia ramadhani", "L", "02/16/1995", 3000000, "1BD4")
feby.Rows.Add("46112050", "Andi Akbar", "L", "11/26/1994", 2000000, "1BD4")
feby.Rows.Add("46112034", "Gamaliel Giovani Rafael Nong", "L", "08/06/1993", 3700000, "1BD4")
feby.Rows.Add("46112047", "Hasmawati", "P", "11/22/1994", 5000000, "1BD4")
feby.Rows.Add("46112038", "Viorensi S", "P", "10/13/1994", 2000000, "1BD4")
feby.Rows.Add("46112046", "Andini Hayrunnisyah", "P", "06/27/1994", 1500000, "1BD4")
feby.Rows.Add("46112031", "Irmayanti", "P", "05/02/1994", 1000000, "1BD4")
feby.Rows.Add("46112039", "Carissa Evan Anthen", "P", "10/23/1994", 6000000, "1BD4")
feby.Rows.Add("46112052", "Aprianto Sandy", "L", "04/11/1993", 3000000, "1BD4")
feby.Rows.Add("46112049", "Muhammad Farid Syah", "L", "01/20/1995", 5000000, "1BD4")
feby.Rows.Add("46112033", "Maulanan Ibrahim", "L", "04/10/1994", 1000000, "1BD4")
feby.Rows.Add("46112035", "Herpita Tohura", "P", "10/24/1993", 700000, "1BD4")
feby.Rows.Add("46112048", "Udin Pranata", "L", "01/29/1993", 1000000, "1BD4")
feby.Rows.Add("46112051", "Afrisca Fraktiani Rante", "P", "04/13/1995", 5000000, "1BD4")
feby.Rows.Add("46112056", "Kartini Widyasita", "P", "04/21/1993", 4650000, "1BD4")
feby.Rows.Add("46112045", "Abdul Qawwam Nurjaya", "L", "11/26/1994", 3500000, "1BD4")
feby.Rows.Add("46112040", "Tommy Paunganan", "L", "02/22/1993", 2000000, "1BD4")
feby.Rows.Add("46112053", "Khusnul Khatimah A", "P", "08/27/1994", 3000000, "1BD4")
feby.Rows.Add("46112041", "Nida Hazimah Ulfah", "P", "09/24/1995", 5000000, "1BD4")
feby.Rows.Add("46112044", "Ulfah Nas", "P", "01/26/1994", 5000000, "1BD4")
feby.Rows.Add("46112036", "Hasmiati Hajar", "P", "05/17/1994", 5000000, "1BD4")
feby.Rows.Add("36112001", "Fitri", "P", "10/20/1994", 5000000, "1AD3")
feby.Rows.Add("36112002", "andri prianto tukan", "L", "04/26/1994", 2000000, "1BD3")
feby.Rows.Add("36112003", "Fathin Ammar Asidik", "L", "06/29/1994", 6800000, "1AD3")
feby.Rows.Add("36112004", "Endah Mariadi", "P", "11/07/1994", 7500000, "1AD3")
feby.Rows.Add("36112005", "Mawar Aztanti", "P", "06/01/1993", 4000000, "1AD3")
feby.Rows.Add("36112006", "Izmi Istiqamah", "P", "11/04/1994", 7000000, "1AD3")
feby.Rows.Add("36112007", "Imran Novrin Ruslim", "L", "11/21/1994", 1000000, "1AD3")
feby.Rows.Add("36112008", "Adbul Malik", "L", "11/09/1993", 2500000, "1AD3")
feby.Rows.Add("36112010", "Yulianti", "P", "09/28/1994", 2500000, "1AD3")
feby.Rows.Add("36112011", "Zulfitra Qadar Yasin", "L", "03/10/1994", 10000000, "1AD3")
feby.Rows.Add("36112012", "Sri Aprianti", "P", "04/05/1994", 4000000, "1AD3")
feby.Rows.Add("36112013", "Noviantri Paembonan", "P", "11/19/1994", 6000000, "1AD3")
feby.Rows.Add("36112016", "Andi Jusma Nilam Sari", "P", "09/02/1994", 10000000, "1AD3")
feby.Rows.Add("36112017", "Dana Abrian", "L", "10/05/1994", 5000000, "1AD3")
feby.Rows.Add("36112018", "Kurniawati", "P", "10/11/1994", 2000000, "1AD3")
feby.Rows.Add("36112020", "Bernard Talebong", "P", "10/01/1994", 10000000, "1AD3")
feby.Rows.Add("36112023", "Andi Arhami Hamzah", "P", "06/28/1994", 10000000, "1AD3")
feby.Rows.Add("36112024", "Syahrul Kamal", "L", "10/18/1994", 10000000, "1AD3")
feby.Rows.Add("36112027", "Nurul Rezki Susanti", "P", "09/24/1994", 5000000, "1AD3")
feby.Rows.Add("36112059", "Ummul Hayyul Qayyum", "P", "12/01/1993", 3500000, "1AD3")
feby.Rows.Add("36112022", "Rismawati", "P", "09/07/1994", 900000, "1AD3")
feby.Rows.Add("36112026", "Melinda Rizkawati", "P", "05/07/1994", 2000000, "1AD3")
feby.Rows.Add("36112025", "Ivana Olivia Aser", "P", "01/14/1993", 6000000, "1AD3")
feby.Rows.Add("36112021", "Sulaipah", "P", "09/28/1994", 1000000, "1AD3")
feby.Rows.Add("36112061", "Rahmat Adi Pratama", "L", "04/21/1994", 10000000, "1AD3")
feby.Rows.Add("36112060", "Nita", "P", "01/04/1995", 2500000, "1AD3")
feby.Rows.Add("36112019", "Kharisma Yusuf", "P", "06/14/1994", 4000000, "1AD3")
feby.Rows.Add("36112014", "A. Rahmawaty", "P", "04/04/1994", 5000000, "1AD3")
feby.Rows.Add("36112015", "Danela Mangintek", "P", "11/06/1994", 3000000, "1AD3")
feby.Rows.Add("36112009", "Rahmaniah", "P", "01/19/1994", 2500000, "1AD3")
feby.Rows.Add("36112057", "Reenaldy Alchudri Azsagaf", "L", "05/03/1994", 10000000, "1BD3")
feby.Rows.Add("36112039", "Andi Syahril", "L", "10/02/1994", 2000000, "1BD3")
feby.Rows.Add("36112051", "Muhammad Adhe Anugrah", "L", "08/31/1993", 5000000, "1BD3")
feby.Rows.Add("36112042", "Sukmawati Amir", "P", "04/13/1994", 6000000, "1BD3")
feby.Rows.Add("36112019", "Dian Eka Puteri", "P", "11/11/1993", 1000000, "1BD3")
feby.Rows.Add("36112048", "Tri Wahyuni", "P", "11/11/1994", 800000, "1BD3")
feby.Rows.Add("36112047", "A. Dian Pelita Waty", "P", "05/05/1994", 3000000, "1BD3")
feby.Rows.Add("36112028", "Mu'minat Nur", "P", "05/17/1995", 5000000, "1BD3")
feby.Rows.Add("36112038", "Andi Anggi Fadliyah", "P", "08/15/1994", 1500000, "1BD3")
feby.Rows.Add("36112033", "A. Syasya Annisa Ausan", "P", "08/08/1994", 7000000, "1BD3")
feby.Rows.Add("36112044", "Muhammad Fachri Sani", "L", "02/02/1994", 5000000, "1BD3")
feby.Rows.Add("36112053", "Resky Yonada Ahmad", "P", "03/22/1994", 1500000, "1BD3")
feby.Rows.Add("36112029", "Trinayanti", "P", "06/03/1992", 3000000, "1BD3")
feby.Rows.Add("36112041", "Musyarafah Asis", "L", "07/13/1994", 6000000, "1BD3")
feby.Rows.Add("36112055", "Achmad Rezky Satria Perdana", "L", "12/17/1993", 3000000, "1BD3")
feby.Rows.Add("36112040", "Fibra Yoseph P", "P", "03/27/1995", 6000000, "1BD3")
feby.Rows.Add("36112045", "Ibnu Affan Al-Mufar'id", "L", "08/05/1994", 8000000, "1BD3")
feby.Rows.Add("36112030", "Sri Widya Ayu Wandini", "P", "06/01/1994", 5000000, "1BD3")
feby.Rows.Add("36112046", "Sri Wahyuni Hafid", "P", "12/25/1994", 11000000, "1BD3")
feby.Rows.Add("36112032", "Rosita Satri", "P", "12/06/1994", 3000000, "1BD3")
feby.Rows.Add("36112052", "Sabri", "L", "07/24/1993", 700000, "1BD3")
feby.Rows.Add("36112049", "Alfin Riani Bandaso", "P", "04/11/1994", 3000000, "1BD3")
feby.Rows.Add("36112036", "Nurmilasari", "P", "07/06/1993", 2000000, "1BD3")
feby.Rows.Add("36112035", "Tri Arismunandar", "L", "12/09/1993", 1000000, "1BD3")
feby.Rows.Add("36112031", "Nur Indahsari Idris", "P", "08/28/1994", 5000000, "1BD3")
feby.Rows.Add("36112037", "Ismawati", "P", "08/01/1994", 900000, "1BD3")
feby.Rows.Add("36112034", "Rezky Arianti", "P", "01/27/1994", 3000000, "1BD3")
feby.Rows.Add("36112043", "Artis Susan", "P", "10/29/1993", 5000000, "1BD3")
feby.Rows.Add("36112054", "Ade Apriathis Rantelino", "L", "04/27/1994", 3000000, "1BD3")
dvmaba = feby.DefaultView
dgv46110055.DataSource = dvmaba
End Sub
Private Sub stb46110055_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles stb46110055.CheckedChanged
dvmaba.Sort = "STAMBUK"
End Sub
Private Sub kls146110055_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kls146110055.CheckedChanged
dvmaba.Sort = "KELAS desc"
End Sub
Private Sub kls246110055_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kls246110055.CheckedChanged
dvmaba.Sort = "KELAS , Tanggal Lahir"
End Sub
Private Sub gaji46110055_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles gaji46110055.CheckedChanged
dvmaba.Sort = "Gaji Ortu desc"
End Sub
Private Sub gaji146110055_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles gaji146110055.TextChanged
dvmaba.RowFilter = "[Gaji ortu] > " & Val(gaji146110055.Text)
End Sub
Private Sub bkn146110055_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bkn146110055.TextChanged
dvmaba.RowFilter = "kelas <>" & "'" & bkn146110055.Text & "'"
End Sub
Private Sub tgl146110055_ValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tgl146110055.ValueChanged
dvmaba.RowFilter = "[tanggal lahir] < #" & tgl146110055.Value & "#"
End Sub
Private Sub nama146110055_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles nama146110055.TextChanged
dvmaba.RowFilter = " nama like '%" & nama146110055.Text & "%'"
End Sub
Private Sub filter46110055_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles filter46110055.Click
dvmaba.RowFilter = "[Gaji ortu] > " & Val(gaji246110055.Text) & "and kelas <>" & "'" & bkn246110055.Text & "'" & "and [tanggal lahir] < #" & tgl146110055.Value.Month & "/" & tgl246110055.Value.Day & "/" & tgl246110055.Value.Year & "#" & " and nama like '%" & nama246110055.Text & "%'"
End Sub
Private Sub atur46110055_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles atur46110055.Click
For Each X As DataGridViewRow In dgv46110055.Rows
If X.Cells("Gaji Ortu").Value > 6000000 Then
X.DefaultCellStyle.BackColor = biru46110055.BackColor
ElseIf X.Cells("Gaji Ortu").Value > 5000000 Then
X.DefaultCellStyle.BackColor = kuning46110055.BackColor
ElseIf X.Cells("Gaji Ortu").Value > 4000000 Then
X.DefaultCellStyle.BackColor = merah46110055.BackColor
ElseIf X.Cells("Gaji Ortu").Value > 3000000 Then
X.DefaultCellStyle.BackColor = ungu46110055.BackColor
ElseIf X.Cells("Gaji Ortu").Value > 2000000 Then
X.DefaultCellStyle.BackColor = hijau46110055.BackColor
Else
X.DefaultCellStyle.BackColor = tosca46110055.BackColor
End If
Next
End Sub
End Class
9. klik start debugging.
Langkah-Langkah Menjalankan Latihan 14 :
1. Pada GroupBox "urutkan berdasarkan" pilih salah satu perintah dengan meng-klik perintah yang diinginkan. Datagrideview akan menampilkan tabel sesuai perintah.
2. Pada GroupBox "filter berdasarkan" input data pada textbox yang tersedia. Datagrideview akan menampilkan tabel sesuai perintah yang telah diinput.
3. Pada GroupBox "filter dengan menggabungkan" input data pada semua textbox yang tersedia, kemudian klik tombol “Filter”. Datagrideview akan menampilkan tabel sesuai perintah yang diinput.
4. Pada GroupBox "pengaturan warna" cukup dengan meng-klik tombol “Atur Warna”. Tabel akan berwarna sesuai klasifikasi gaji.
Tidak ada komentar:
Posting Komentar