A.
DESKRIPSI FORM LATIHAN_14_46110023
pada Form Latihan ini Terdapat 7 object yaitu
datagridview, label, radiobutton, groupbox, datetimepicker, textbox,dan button:
Object
datagridview.
Pada form ini, hanya terdapat 1 object datagridview. Object ini akan
menampilkan table berupa baris dan kolom dari data-data siswa kelas 1 yang
telah dibuatkan fungsi yang ada dala script.
Object Groupbox.
Pada form ini terdapat 4 groupbox, yaitu urutkan berdasarkan, filter
berdasarkan, filter dengan menggunakan, dan pengaturan warna. Didalam groupbox
ini terdapat object textbox dan label.
Object Label.
Pada form ini, terdapat 14 label yaitu pada gruopbox:
- filter berdasarkan Gaji ortu lebih dari, bukan kelas, tanggal lahir sebelum, nama memiliki unsur.
- filter dengan menggunakan è Gaji ortu lebih dari, bukan kelas, tanggal lahir sebelum, nama memiliki unsur.
- pengaturan warna ègaji ortu >= 6000000, gaji ortu>=5000000, gaji ortu>=4000000, gaji ortu>=3000000, gaji ortu>=2000000, dan selain itu
Object Radiobutton.
Object radio button terdapat pada group box urutkan berdasarkan. object
ini akan melakukan perintah sesuai fungsi yang dimasukkan ke dalam objeck
tersebut dan akan bekerja apabila salah
satu radio button dipilih.
Object datetimepicker.
Dalam form ini terdapat 2 object datetimepicker yaitu terdapat disebelah
objcet label yang bertuliskan tanggal.
Object Textbox.
Pada form ini Terdapat 6 text box. 3 text box berada pada groupbox filter
berdasarkan, dan 3 lagi terdapat pada groupbox filter dengan menggunakan. Semuanya berstatus
input.
Object Button
Terdapat 2 Object button yaitu filter dan atur warna. Ketika button filter
diklik maka datatable pada datagridview akan terfilter sesuai dengan perintah
yang ada pada groupbox (filter dengan
menggabungkan) yang telah diinput datanya. Sedangkan object button atur warna
ditekan, maka data pada datagridview akan berubah warna sesuai dengan
warna-warna yang telah diatur dalam groupbox pengaturan warna.
B.
LANGKAH_LANGKAH MEMBUAT FORM
LATIHAN_14_6110023
- Buatlah form baru dengan langkah atau cara yang sama dengan form-form sebelumnya.
- Ubahlah nama form sesuai dengan urutan latihannya.
- Buatlah design form seperti pada gambar berikut ini
- kemudian beri nama pada setiap
object , kecuali object label. Contohnya:
·
Setelah itu, klik kanan pada form 14 dan pilih fiew code dan buatlah script
sepertii dibawah ini:
Public Class
LATIHAN_14_46110023
Dim DIAN As New DataTable
Dim MABA As New DataView
Private Sub
LATIHAN_14_46110023_Load(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
MyBase.Load
DIAN.Columns.Add(New DataColumn("stambuk", GetType(String)))
DIAN.Columns.Add(New DataColumn("nama", GetType(String)))
DIAN.Columns.Add(New DataColumn("jeniskelamin", GetType(String)))
DIAN.Columns.Add(New DataColumn("tanggallahir", GetType(Date)))
DIAN.Columns.Add(New DataColumn("gajiortu", GetType(Double)))
DIAN.Columns.Add(New DataColumn("kelas", GetType(String)))
DIAN.Rows.Add("46112003",
"Nurawalia M", "P", "12/04/1994",
3000000, "1AD4")
DIAN.Rows.Add("46120023",
"Puspita Susilawati Ridjal", "P", "01/01/1994",
4000000, "1AD4")
DIAN.Rows.Add("46110018",
"Rose Anne Tarida Situmorang", "P", "12/01/1994",
5000000, "1AD4")
DIAN.Rows.Add("46112004",
"Siti Khaerunnisa", "P", "03/28/1994",
1000000, "1AD4")
DIAN.Rows.Add("46112015",
"Irmayanti", "P", "09/23/1994",
1000000, "1AD4")
DIAN.Rows.Add("46112011",
"Delsi Tifani Lan", "P", "12/24/1994",
2000000, "1AD4")
DIAN.Rows.Add("46112027",
"Reny Rita Waty Djafar", "P", "07/26/1993",
3000000, "1AD4")
DIAN.Rows.Add("46112002",
"Dewi Sartika", "P", "02/10/1994",
1000000, "1AD4")
DIAN.Rows.Add("46112004",
"Anita Rahmah Muhtadin", "P", "12/07/1994",
5000000, "1AD4")
DIAN.Rows.Add("46112021",
"Rafidah", "P", "06/05/1994",
500000, "1AD4")
DIAN.Rows.Add("46112009",
"Eka Yuli Astuti", "P", "08/07/1994",
2000000, "1AD4")
DIAN.Rows.Add("46112025",
"Fitri Amalia Islamiati", "P", "03/26/1995",
4000000, "1AD4")
DIAN.Rows.Add("46112014",
"Mariana", "P", "06/22/1994",
1000000, "1AD4")
DIAN.Rows.Add("46112013",
"A. Muh. Lutfi Ahmad", "L", "10/10/1993",
4000000, "1AD4")
DIAN.Rows.Add("46112008",
"Nanda Ardilia Pratama", "L", "08/01/1994",
1000000, "1AD4")
DIAN.Rows.Add("46112022",
"Liliani Paelongan", "P", "05/25/1994",
3000000, "1AD4")
DIAN.Rows.Add("46112007",
"Andi Rabiah", "L", "09/07/1994",
1000000, "1AD4")
DIAN.Rows.Add("46112001",
"Rizka Awalia Mustakim", "P", "10/07/1994",
3000000, "1AD4")
DIAN.Rows.Add("46112005",
"Mardhotillah", "P", "01/13/1994",
3000000, "1AD4")
DIAN.Rows.Add("46112017",
"Camelia Indulgenssya Gundung", "P", "09/14/1994",
2000000, "1AD4")
DIAN.Rows.Add("46112028",
"Nur Salim Rusdi", "L", "04/12/1994",
1500000, "1AD4")
DIAN.Rows.Add("46112026",
"Muhammad Khaidir", "L", "12/26/1993",
3000000, "1AD4")
DIAN.Rows.Add("46112020",
"Sukriani Karunia Rahma", "P", "12/01/1994",
3000000, "1AD4")
DIAN.Rows.Add("46112006",
"Rezky Tri Utami", "P", "07/03/1994",
3000000, "1AD4")
DIAN.Rows.Add("46112029",
"Azwar Arfah", "L", "04/03/1994",
3000000, "1AD4")
DIAN.Rows.Add("46112016",
"Dyah Sukma Anggraini", "P", "05/10/1994",
3500000, "1AD4")
DIAN.Rows.Add("46112010",
"Nur Indah Purnamasari", "P", "07/22/1994",
2500000, "1AD4")
DIAN.Rows.Add("46112012",
"Nurul Qadri Musra", "L", "08/24/1994",
3000000, "1AD4")
DIAN.Rows.Add("46112055",
"Reni Anggraeni", "P", "10/12/1994",
1500000, "1BD4")
DIAN.Rows.Add("46112042",
"Faradhiba Zainal Putri", "P", "12/04/1993",
3000000, "1BD4")
DIAN.Rows.Add("46112054",
"Rahmi Ani", "P", "11/30/1994",
2000000, "1BD4")
DIAN.Rows.Add("46112043",
"Remon Agit Rimang", "L", "01/06/1995",
3000000, "1BD4")
DIAN.Rows.Add("46112032",
"Abd. Rahman", "L", "10/08/1994",
1500000, "1BD4")
DIAN.Rows.Add("46112057",
"I Ketut Yuda Sadpwa", "L", "05/02/1993",
4500000, "1BD4")
DIAN.Rows.Add("46112037",
"Herianto", "L", "12/08/1993",
3000000, "1BD4")
DIAN.Rows.Add("46112058",
"citra amalia ramadhani", "L", "02/16/1995",
3000000, "1BD4")
DIAN.Rows.Add("46112050",
"Andi Akbar", "L", "11/26/1994",
2000000, "1BD4")
DIAN.Rows.Add("46112034",
"Gamaliel Giovani Rafael Nong", "L", "08/06/1993",
3700000, "1BD4")
DIAN.Rows.Add("46112047",
"Hasmawati", "P", "11/22/1994",
5000000, "1BD4")
DIAN.Rows.Add("46112038",
"Viorensi S", "P", "10/13/1994",
2000000, "1BD4")
DIAN.Rows.Add("46112046",
"Andini Hayrunnisyah", "P", "06/27/1994",
1500000, "1BD4")
DIAN.Rows.Add("46112031",
"Irmayanti", "P", "05/02/1994",
1000000, "1BD4")
DIAN.Rows.Add("46112039",
"Carissa Evan Anthen", "P", "10/23/1994",
6000000, "1BD4")
DIAN.Rows.Add("46112052",
"Aprianto Sandy", "L", "04/11/1993",
3000000, "1BD4")
DIAN.Rows.Add("46112049",
"Muhammad Farid Syah", "L", "01/20/1995",
5000000, "1BD4")
DIAN.Rows.Add("46112033",
"Maulanan Ibrahim", "L", "04/10/1994",
1000000, "1BD4")
DIAN.Rows.Add("46112035",
"Herpita Tohura", "P", "10/24/1993",
700000, "1BD4")
DIAN.Rows.Add("46112048",
"Udin Pranata", "L", "01/29/1993",
1000000, "1BD4")
DIAN.Rows.Add("46112051",
"Afrisca Fraktiani Rante", "P", "04/13/1995",
5000000, "1BD4")
DIAN.Rows.Add("46112056",
"Kartini Widyasita", "P", "04/21/1993",
4650000, "1BD4")
DIAN.Rows.Add("46112045",
"Abdul Qawwam Nurjaya", "L", "11/26/1994",
3500000, "1BD4")
DIAN.Rows.Add("46112040",
"Tommy Paunganan", "L", "02/22/1993",
2000000, "1BD4")
DIAN.Rows.Add("46112053",
"Khusnul Khatimah A", "P", "08/27/1994",
3000000, "1BD4")
DIAN.Rows.Add("46112041",
"Nida Hazimah Ulfah", "P", "09/24/1995",
5000000, "1BD4")
DIAN.Rows.Add("46112044",
"Ulfah Nas", "P", "01/26/1994",
5000000, "1BD4")
DIAN.Rows.Add("46112036",
"Hasmiati Hajar", "P", "05/17/1994",
5000000, "1BD4")
DIAN.Rows.Add("36112001",
"Fitri", "P",
"10/20/1994", 5000000, "1AD3")
DIAN.Rows.Add("36112002",
"andri prianto tukan", "L", "04/26/1994",
2000000, "1BD3")
DIAN.Rows.Add("36112003",
"Fathin Ammar Asidik", "L", "06/29/1994",
6800000, "1AD3")
DIAN.Rows.Add("36112004",
"Endah Mariadi", "P", "11/07/1994",
7500000, "1AD3")
DIAN.Rows.Add("36112005",
"Mawar Aztanti", "P", "06/01/1993",
4000000, "1AD3")
DIAN.Rows.Add("36112006",
"Izmi Istiqamah", "P", "11/04/1994",
7000000, "1AD3")
DIAN.Rows.Add("36112007",
"Imran Novrin Ruslim", "L", "11/21/1994",
1000000, "1AD3")
DIAN.Rows.Add("36112008",
"Adbul Malik", "L", "11/09/1993",
2500000, "1AD3")
DIAN.Rows.Add("36112010",
"Yulianti", "P", "09/28/1994",
2500000, "1AD3")
DIAN.Rows.Add("36112011",
"Zulfitra Qadar Yasin", "L", "03/10/1994",
10000000, "1AD3")
DIAN.Rows.Add("36112012",
"Sri Aprianti", "P", "04/05/1994",
4000000, "1AD3")
DIAN.Rows.Add("36112013",
"Noviantri Paembonan", "P", "11/19/1994",
6000000, "1AD3")
DIAN.Rows.Add("36112016",
"Andi Jusma Nilam Sari", "P", "09/02/1994",
10000000, "1AD3")
DIAN.Rows.Add("36112017",
"Dana Abrian", "L", "10/05/1994",
5000000, "1AD3")
DIAN.Rows.Add("36112018",
"Kurniawati", "P", "10/11/1994",
2000000, "1AD3")
DIAN.Rows.Add("36112020",
"Bernard Talebong", "P", "10/01/1994",
10000000, "1AD3")
DIAN.Rows.Add("36112023",
"Andi Arhami Hamzah", "P", "06/28/1994",
10000000, "1AD3")
DIAN.Rows.Add("36112024",
"Syahrul Kamal", "L", "10/18/1994",
10000000, "1AD3")
DIAN.Rows.Add("36112027",
"Nurul Rezki Susanti", "P", "09/24/1994",
5000000, "1AD3")
DIAN.Rows.Add("36112059",
"Ummul Hayyul Qayyum", "P", "12/01/1993",
3500000, "1AD3")
DIAN.Rows.Add("36112022",
"Rismawati", "P", "09/07/1994",
900000, "1AD3")
DIAN.Rows.Add("36112026",
"Melinda Rizkawati", "P", "05/07/1994",
2000000, "1AD3")
DIAN.Rows.Add("36112025",
"Ivana Olivia Aser", "P", "01/14/1993",
6000000, "1AD3")
DIAN.Rows.Add("36112021",
"Sulaipah", "P", "09/28/1994",
1000000, "1AD3")
DIAN.Rows.Add("36112061",
"Rahmat Adi Pratama", "L", "04/21/1994",
10000000, "1AD3")
DIAN.Rows.Add("36112060",
"Nita", "P",
"01/04/1995", 2500000, "1AD3")
DIAN.Rows.Add("36112019",
"Kharisma Yusuf", "P", "06/14/1994",
4000000, "1AD3")
DIAN.Rows.Add("36112014",
"A. Rahmawaty", "P", "04/04/1994",
5000000, "1AD3")
DIAN.Rows.Add("36112015",
"Danela Mangintek", "P", "11/06/1994",
3000000, "1AD3")
DIAN.Rows.Add("36112009",
"Rahmaniah", "P", "01/19/1994",
2500000, "1AD3")
DIAN.Rows.Add("36112057",
"Reenaldy Alchudri Azsagaf", "L", "05/03/1994",
10000000, "1BD3")
DIAN.Rows.Add("36112039",
"Andi Syahril", "L", "10/02/1994",
2000000, "1BD3")
DIAN.Rows.Add("36112051",
"Muhammad Adhe Anugrah", "L", "08/31/1993",
5000000, "1BD3")
DIAN.Rows.Add("36112042",
"Sukmawati Amir", "P", "04/13/1994",
6000000, "1BD3")
DIAN.Rows.Add("36112019",
"DIAN Eka Puteri", "P", "11/11/1993",
1000000, "1BD3")
DIAN.Rows.Add("36112048",
"Tri Wahyuni", "P", "11/11/1994",
800000, "1BD3")
DIAN.Rows.Add("36112047",
"A. DIAN Pelita Waty", "P", "05/05/1994",
3000000, "1BD3")
DIAN.Rows.Add("36112028",
"Mu'minat Nur", "P", "05/17/1995",
5000000, "1BD3")
DIAN.Rows.Add("36112038",
"Andi Anggi Fadliyah", "P", "08/15/1994",
1500000, "1BD3")
DIAN.Rows.Add("36112033",
"A. Syasya Annisa Ausan", "P", "08/08/1994",
7000000, "1BD3")
DIAN.Rows.Add("36112044",
"Muhammad Fachri Sani", "L", "02/02/1994",
5000000, "1BD3")
DIAN.Rows.Add("36112053",
"Resky Yonada Ahmad", "P", "03/22/1994",
1500000, "1BD3")
DIAN.Rows.Add("36112029",
"Trinayanti", "P", "06/03/1992",
3000000, "1BD3")
DIAN.Rows.Add("36112041",
"Musyarafah Asis", "L", "07/13/1994",
6000000, "1BD3")
DIAN.Rows.Add("36112055",
"Achmad Rezky Satria Perdana", "L", "12/17/1993",
3000000, "1BD3")
DIAN.Rows.Add("36112040",
"Fibra Yoseph P", "P", "03/27/1995",
6000000, "1BD3")
DIAN.Rows.Add("36112045",
"Ibnu Affan Al-Mufar'id", "L", "08/05/1994",
8000000, "1BD3")
DIAN.Rows.Add("36112030",
"Sri Widya Ayu Wandini", "P", "06/01/1994",
5000000, "1BD3")
DIAN.Rows.Add("36112046",
"Sri Wahyuni Hafid", "P", "12/25/1994",
11000000, "1BD3")
DIAN.Rows.Add("36112032",
"Rosita Satri", "P", "12/06/1994",
3000000, "1BD3")
DIAN.Rows.Add("36112052",
"Sabri", "L",
"07/24/1993", 700000, "1BD3")
DIAN.Rows.Add("36112049",
"Alfin Riani Bandaso", "P", "04/11/1994",
3000000, "1BD3")
DIAN.Rows.Add("36112036",
"Nurmilasari", "P", "07/06/1993",
2000000, "1BD3")
DIAN.Rows.Add("36112035",
"Tri Arismunandar", "L", "12/09/1993",
1000000, "1BD3")
DIAN.Rows.Add("36112031",
"Nur Indahsari Idris", "P", "08/28/1994",
5000000, "1BD3")
DIAN.Rows.Add("36112037",
"Ismawati", "P", "08/01/1994",
900000, "1BD3")
DIAN.Rows.Add("36112034",
"Rezky Arianti", "P", "01/27/1994",
3000000, "1BD3")
DIAN.Rows.Add("36112043",
"Artis Susan", "P", "10/29/1993",
5000000, "1BD3")
DIAN.Rows.Add("36112054",
"Ade Apriathis Rantelino", "L", "04/27/1994",
3000000, "1BD3")
MABA = DIAN.DefaultView
TABELMABA_46110023.DataSource = MABA
End Sub
Private Sub STB_46110023_CheckedChanged(ByVal sender As
System.Object, ByVal e As
System.EventArgs) Handles
STB_46110023.CheckedChanged
If
STB_46110023.Checked = True Then
MABA.Sort = "STAMBUK"
End If
End Sub
Private Sub KLS_46110023_CheckedChanged(ByVal sender As
System.Object, ByVal e As
System.EventArgs) Handles
KLS_46110023.CheckedChanged
If
KLS_46110023.Checked = True Then
MABA.Sort = "KELAS DESC"
End If
End Sub
Private Sub TGL_46110023_CheckedChanged(ByVal sender As
System.Object, ByVal e As
System.EventArgs) Handles
TGL_46110023.CheckedChanged
If
TGL_46110023.Checked = True Then
MABA.Sort = "KELAS, TANGGALLAHIR"
End If
End Sub
Private Sub GAJI_46110023_CheckedChanged(ByVal sender As
System.Object, ByVal e As
System.EventArgs) Handles
GAJI_46110023.CheckedChanged
If
GAJI_46110023.Checked = True Then
MABA.Sort = "GAJIORTU DESC"
End If
End Sub
Private Sub filter_46110023_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles filter_46110023.Click
MABA.RowFilter = "GAJIORTU>" &
Val(gaji2_46110023.Text) & "AND
[KELAS]<> '" & bkan2_46110023.Text & "'" & "
AND TANGGALLAHIR<#" & dTP2_46110023.Value.Month & "/" & dTP2_46110023.Value.Day & "/" & dTP2_46110023.Value.Year &
"#" & "
AND NAMA LIKE '%" & nama2_46110023.Text & "%'"
End Sub
Private Sub atur_46110023_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles atur_46110023.Click
For Each X As
DataGridViewRow In TABELMABA_46110023.Rows
If
X.Cells("gajiortu").Value >
6000000 Then
X.DefaultCellStyle.BackColor =
G1_46110023.BackColor
ElseIf
X.Cells("gajiortu").Value >
5000000 Then
X.DefaultCellStyle.BackColor =
G2_46110023.BackColor
ElseIf
X.Cells("gajiortu").Value >
4000000 Then
X.DefaultCellStyle.BackColor =
G3_46110023.BackColor
ElseIf
X.Cells("gajiortu").Value >
3000000 Then
X.DefaultCellStyle.BackColor =
G4_46110023.BackColor
ElseIf
X.Cells("gajiortu").Value >
2000000 Then
X.DefaultCellStyle.BackColor =
G5_46110023.BackColor
Else
X.DefaultCellStyle.BackColor =
G6_46110023.BackColor
End
If
Next
End Sub
Private Sub nama2_46110023_TextChanged(ByVal sender As
System.Object, ByVal e As
System.EventArgs) Handles
nama2_46110023.TextChanged
MABA.RowFilter = "nama like'% " & nama2_46110023.Text
& "%'"
End Sub
Private Sub gaji1_46110023_TextChanged(ByVal sender As
System.Object, ByVal e As
System.EventArgs) Handles
gaji1_46110023.TextChanged
MABA.RowFilter = "gajiortu>" &
Val(gaji1_46110023.Text)
End Sub
Private Sub bkn1_46110023_TextChanged(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles
bkn1_46110023.TextChanged
MABA.RowFilter = "[kelas]<>' " &
bkn1_46110023.Text & "'"
End Sub
Private Sub nama1_46110023_TextChanged(ByVal sender As
System.Object, ByVal e As
System.EventArgs) Handles
nama1_46110023.TextChanged
MABA.RowFilter = "nama like'% " & nama1_46110023.Text
& "%'"
End Sub
End Class
·
Setelah script selesai Klik start debugging.
·
Data akan secara otomatis muncul pada object
datagridview. Untuk memfilter data yang ada di dalam datagridview pilihlah
radio button, atau masukkan syarat pada groupbox dan klik button filter , atau jika anda ingin
mengelompokkan berdasarkan gaji orang tua yang di tunjukkan dengan warna maka
klik button atur warna
Script unique
a. MABA.Sort = "GAJIORTU
DESC"--> script ini untuk menyortir data menurut gaji orang tua dari yang besar ke yang kecil
b. " For Each X As
DataGridViewRow In TABELMABA_46110023.Rows
If X.Cells("gajiortu").Value
> 6000000 Then
X.DefaultCellStyle.BackColor = G1_46110023.BackColor
ElseIf X.Cells("gajiortu").Value
> 5000000 Then
X.DefaultCellStyle.BackColor = G2_46110023.BackColor
ElseIf X.Cells("gajiortu").Value
> 4000000 Then
X.DefaultCellStyle.BackColor = G3_46110023.BackColor
ElseIf X.Cells("gajiortu").Value
> 3000000 Then
X.DefaultCellStyle.BackColor = G4_46110023.BackColor
ElseIf X.Cells("gajiortu").Value
> 2000000 Then
X.DefaultCellStyle.BackColor = G5_46110023.BackColor
Else
X.DefaultCellStyle.BackColor = G6_46110023.BackColor
End If
Next
" -> fungsi ini sebagai syarat pemberian warna pada data
di datagridview sesuai dengan gaji orang tua
Even
ButtonClick
TextChanged
CheckedChanged
Load
ValueChanged
Property
Property TextBox => BackColor
Tidak ada komentar:
Posting Komentar