Deskripsi Form :
Form Latihan ini Terdapat 7 object yaitu
datagridview, label, radiobutton, groupbox, datetimepicker, textbox,dan button:
A.
Object
datagridview.
Pada form ini, hanya terdapat 1 datagridview.
Object ini akan menampilkan table data-data siswa kelas 1 yang telah dimasukkan
kedalam fungsi.
B.
Object
Groupbox.
Pada form ini terdapat 4 groupbox, yaitu urutkan
berdasarkan, filter berdasarkan, filter dengan menggunakan, dan pengaturan
warna
C.
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), pada groupbox : filter dengan menggunakan (Gaji ortu
lebih dari, bukan kelas, tanggal lahir sebelum, nama memiliki unsur), dan pada
group box: pengaturan warna (gaji ortu >= 6000000, gaji ortu>=5000000,
gaji ortu>=4000000, gaji ortu>=3000000, gaji ortu>=2000000, dan selain
itu)
D.
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 berjalanatau bekerja apabila salah satu radio
button dipilih.
E.
Object
datetimepicker.
Terdapat 2 datetimepicker. Object ini berada
pada samping label tanggal
F.
Object
Textbox.
Terdapat
6 text box. 3 text box berada pada groupbox: filter berdasarkan, dan 3 lagi terdapat pada groupbox
: filter dengan menggunakan
G.
Object
Button
Object button ada 2 yaitu filter dan atur
warna. Ketika button filter ditekan maka data table pada datagridview akan
tersort atai tersaring sesuai dengan sarat yang dimasukkan pada text box yang
berada pada 1 groupbox dengan button filter. Sedangkan ketika atur warna
ditekan, maka data pada datagridview akan berubah warna sesuai dengan syarat
yang terlah dibuat.
Cara Membuat Form
A.
Buka
project anda, lalu pilih “Project” pada menu bar dan pilih add windows form.
B.
Masukkan
nama form yang sesuai dengan kemauan anda lalu tekan “add”.
C.
Buatka
desain form sesuai dengan gambar dibawah ini, lihat dan sesuaikan dengan deskripsi
agar tidak salah memilih object.
D.
Ubah
nama object tersebut. Ingat, nama object di desain harus sama dengan nama
object di rumus vb.
E.
Setelah
itu, klik kanan lalu pilih view code untuk memasukkan fungsi dan masukkan
fungsi yang sesuai. Atau masukkan fungsi dibawah ini.
Public Class Latihan_14_46110021
Dim idham As New DataTable
Dim idho As New DataView
Private Sub Lat_Load(ByVal
sender As System.Object, ByVal e As System.EventArgs)
Handles MyBase.Load
idham.Columns.Add(New DataColumn("Stambuk",
GetType(String)))
idham.Columns.Add(New DataColumn("Nama",
GetType(String)))
idham.Columns.Add(New DataColumn("JenisKelamin",
GetType(String)))
idham.Columns.Add(New DataColumn("TanggalLahir",
GetType(String)))
idham.Columns.Add(New DataColumn("GajiOrtu",
GetType(Double)))
idham.Columns.Add(New DataColumn("Kelas",
GetType(String)))
idham.Rows.Add("36112001",
"Fitri", "P",
"10/20/1994", 5000000, "1AD3")
idham.Rows.Add("36112002",
"andri prianto tukan", "L", "04/26/1994",
2000000, "1BD3")
idham.Rows.Add("36112003",
"Fathin Ammar Asidik", "L", "06/29/1994",
6800000, "1AD3")
idham.Rows.Add("36112004",
"Endah Mariadi", "P", "11/07/1994",
7500000, "1AD3")
idham.Rows.Add("36112005",
"Mawar Aztanti", "P", "06/01/1993",
4000000, "1AD3")
idham.Rows.Add("36112006",
"Izmi Istiqamah", "P", "11/04/1994",
7000000, "1AD3")
idham.Rows.Add("36112007",
"Imran Novrin Ruslim", "L", "11/21/1994",
1000000, "1AD3")
idham.Rows.Add("36112008",
"Adbul Malik", "L", "11/09/1993",
2500000, "1AD3")
idham.Rows.Add("36112009",
"Rahmaniah", "P", "01/19/1994",
2500000, "1AD3")
idham.Rows.Add("36112010",
"Yulianti", "P", "09/28/1994",
2500000, "1AD3")
idham.Rows.Add("36112011",
"Zulfitra Qadar Yasin", "L", "03/10/1994",
10000000, "1AD3")
idham.Rows.Add("36112012",
"Sri Aprianti", "P", "04/05/1994",
4000000, "1AD3")
idham.Rows.Add("36112013",
"Noviantri Paembonan", "P", "11/19/1994",
6000000, "1AD3")
idham.Rows.Add("36112014",
"A. Rahmawaty", "P", "04/04/1994",
5000000, "1AD3")
idham.Rows.Add("36112015",
"Danela Mangintek", "P", "11/06/1994",
3000000, "1AD3")
idham.Rows.Add("36112016",
"Andi Jusma Nilam Sari", "P", "09/02/1994",
10000000, "1AD3")
idham.Rows.Add("36112017",
"Dana Abrian", "L", "10/05/1994",
5000000, "1AD3")
idham.Rows.Add("36112018",
"Kurniawati", "P", "10/11/1994",
2000000, "1AD3")
idham.Rows.Add("36112019",
"Kharisma Yusuf", "P", "06/14/1994",
4000000, "1AD3")
idham.Rows.Add("36112020",
"Bernard Talebong", "P", "10/01/1994",
10000000, "1AD3")
idham.Rows.Add("36112021",
"Sulaipah", "P", "09/28/1994",
1000000, "1AD3")
idham.Rows.Add("36112022",
"Rismawati", "P", "09/07/1994",
900000, "1AD3")
idham.Rows.Add("36112023",
"Andi Arhami Hamzah", "P", "06/28/1994",
10000000, "1AD3")
idham.Rows.Add("36112024",
"Syahrul Kamal", "L", "10/18/1994",
10000000, "1AD3")
idham.Rows.Add("36112025",
"Ivana Olivia Aser", "P", "01/14/1993",
6000000, "1AD3")
idham.Rows.Add("36112026",
"Melinda Rizkawati", "P", "05/07/1994",
2000000, "1AD3")
idham.Rows.Add("36112027",
"Nurul Rezki Susanti", "P", "09/24/1994",
5000000, "1AD3")
idham.Rows.Add("36112028",
"Mu'minat Nur", "P", "05/17/1995",
5000000, "1BD3")
idham.Rows.Add("36112029",
"Trinayanti", "P", "06/03/1992",
3000000, "1BD3")
idham.Rows.Add("36112030",
"Sri Widya Ayu Wandini", "P", "06/01/1994",
5000000, "1BD3")
idham.Rows.Add("36112031",
"Nur Indahsari Idris", "P", "08/28/1994",
5000000, "1BD3")
idham.Rows.Add("36112032",
"Rosita Satri", "P", "12/06/1994",
3000000, "1BD3")
idham.Rows.Add("36112033",
"A. Syasya Annisa Ausan", "P", "08/08/1994",
7000000, "1BD3")
idham.Rows.Add("36112034",
"Rezky Arianti", "P", "01/27/1994",
3000000, "1BD3")
idham.Rows.Add("36112035",
"Tri Arismunandar", "L", "12/09/1993",
1000000, "1BD3")
idham.Rows.Add("36112036",
"Nurmilasari", "P", "07/06/1993",
2000000, "1BD3")
idham.Rows.Add("36112037",
"Ismawati", "P", "08/01/1994",
900000, "1BD3")
idham.Rows.Add("36112038",
"Andi Anggi Fadliyah", "P", "08/15/1994",
1500000, "1BD3")
idham.Rows.Add("36112039",
"Andi Syahril", "L", "10/02/1994",
2000000, "1BD3")
idham.Rows.Add("36112040",
"Fibra Yoseph P", "P", "03/27/1995",
6000000, "1BD3")
idham.Rows.Add("36112041",
"Musyarafah Asis", "L", "07/13/1994",
6000000, "1BD3")
idham.Rows.Add("36112042",
"Sukmawati Amir", "P", "04/13/1994",
6000000, "1BD3")
idham.Rows.Add("36112043",
"Artis Susan", "P", "10/29/1993",
5000000, "1BD3")
idham.Rows.Add("36112044",
"Muhammad Fachri Sani", "L", "02/02/1994",
5000000, "1BD3")
idham.Rows.Add("36112045",
"Ibnu Affan Al-Mufar'id", "L", "08/05/1994",
8000000, "1BD3")
idham.Rows.Add("36112046",
"Sri Wahyuni Hafid", "P", "12/25/1994",
11000000, "1BD3")
idham.Rows.Add("36112047",
"A. Dian Pelita Waty", "P", "05/05/1994",
3000000, "1BD3")
idham.Rows.Add("36112048",
"Tri Wahyuni", "P", "11/11/1994",
800000, "1BD3")
idham.Rows.Add("36112049",
"Alfin Riani Bandaso", "P", "04/11/1994",
3000000, "1BD3")
idham.Rows.Add("36112051",
"Muhammad Adhe Anugrah", "L", "08/31/1993",
5000000, "1BD3")
idham.Rows.Add("36112052",
"Sabri", "L",
"07/24/1993", 700000, "1BD3")
idham.Rows.Add("36112053",
"Resky Yonada Ahmad", "P", "03/22/1994",
1500000, "1BD3")
idham.Rows.Add("36112054",
"Ade Apriathis Rantelino", "L", "04/27/1994",
3000000, "1BD3")
idham.Rows.Add("36112055",
"Achmad Rezky Satria Perdana", "L", "12/17/1993",
3000000, "1BD3")
idham.Rows.Add("36112056",
"Dian Eka Puteri", "P", "11/11/1993",
1000000, "1BD3")
idham.Rows.Add("36112057",
"Reenaldy Alchudri Azsagaf", "L", "05/03/1994",
10000000, "1BD3")
idham.Rows.Add("36112059",
"Ummul Hayyul Qayyum", "P", "12/01/1993",
3500000, "1AD3")
idham.Rows.Add("36112060",
"Nita", "P",
"01/04/1995", 2500000, "1AD3")
idham.Rows.Add("36112061",
"Rahmat Adi Pratama", "L", "04/21/1994",
10000000, "1AD3")
idham.Rows.Add("46110018",
"Rose Anne Tarida Situmorang", "P", "12/01/1994",
5000000, "1AD4")
idham.Rows.Add("46112001",
"Rizka Awalia Mustakim", "P", "10/07/1994",
3000000, "1AD4")
idham.Rows.Add("46112002",
"Dewi Sartika", "P", "02/10/1994",
1000000, "1AD4")
idham.Rows.Add("46112003",
"Nurawalia M", "P", "12/04/1994",
3000000, "1AD4")
idham.Rows.Add("46112018",
"Anita Rahmah Muhtadin", "P", "12/07/1994",
5000000, "1AD4")
idham.Rows.Add("46112004",
"Siti Khaerunnisa", "P", "03/28/1994",
1000000, "1AD4")
idham.Rows.Add("46112005",
"Mardhotillah", "P", "01/13/1994",
3000000, "1AD4")
idham.Rows.Add("46112006",
"Rezky Tri Utami", "P", "07/03/1994",
3000000, "1AD4")
idham.Rows.Add("46112007",
"Andi Rabiah", "L", "09/07/1994",
1000000, "1AD4")
idham.Rows.Add("46112008",
"Nanda Ardilia Pratama", "L", "08/01/1994",
1000000, "1AD4")
idham.Rows.Add("46112009",
"Eka Yuli Astuti", "P", "08/07/1994",
2000000, "1AD4")
idham.Rows.Add("46112010",
"Nur Indah Purnamasari", "P", "07/22/1994",
2500000, "1AD4")
idham.Rows.Add("46112011",
"Delsi Tifani Lan", "P", "12/24/1994",
2000000, "1AD4")
idham.Rows.Add("46112012",
"Nurul Qadri Musra", "L", "08/24/1994",
3000000, "1AD4")
idham.Rows.Add("46112013",
"A. Muh. Lutfi Ahmad", "L", "10/10/1993",
4000000, "1AD4")
idham.Rows.Add("46112014",
"Mariana", "P", "06/22/1994",
1000000, "1AD4")
idham.Rows.Add("46112015",
"Irmayanti", "P", "09/23/1994",
1000000, "1AD4")
idham.Rows.Add("46112016",
"Dyah Sukma Anggraini", "P", "05/10/1994",
3500000, "1AD4")
idham.Rows.Add("46112017",
"Camelia Indulgenssya Gundung", "P", "09/14/1994",
2000000, "1AD4")
idham.Rows.Add("46112020",
"Sukriani Karunia Rahma", "P", "12/01/1994",
3000000, "1AD4")
idham.Rows.Add("46112021",
"Rafidah", "P", "06/05/1994",
500000, "1AD4")
idham.Rows.Add("46112022",
"Liliani Paelongan", "P", "05/25/1994",
3000000, "1AD4")
idham.Rows.Add("46112025",
"Fitri Amalia Islamiati", "P", "03/26/1995",
4000000, "1AD4")
idham.Rows.Add("46112026",
"Muhammad Khaidir", "L", "12/26/1993",
3000000, "1AD4")
idham.Rows.Add("46112027",
"Reny Rita Waty Djafar", "P", "07/26/1993",
3000000, "1AD4")
idham.Rows.Add("46112028",
"Nur Salim Rusdi", "L", "04/12/1994",
1500000, "1AD4")
idham.Rows.Add("46112029",
"Azwar Arfah", "L", "04/03/1994",
3000000, "1AD4")
idham.Rows.Add("46112032",
"Abd. Rahman", "L", "10/08/1994",
1500000, "1BD4")
idham.Rows.Add("46112037",
"Herianto", "L", "12/08/1993",
3000000, "1BD4")
idham.Rows.Add("46112042",
"Faradhiba Zainal Putri", "P", "12/04/1993",
3000000, "1BD4")
idham.Rows.Add("46112043",
"Remon Agit Rimang", "L", "01/06/1995",
3000000, "1BD4")
idham.Rows.Add("46112050",
"Andi Akbar", "L", "11/26/1994",
2000000, "1BD4")
idham.Rows.Add("46112054",
"Rahmi Ani", "P", "11/30/1994",
2000000, "1BD4")
idham.Rows.Add("46112055",
"Reni Anggraeni", "P", "10/12/1994",
1500000, "1BD4")
idham.Rows.Add("46112057",
"I Ketut Yuda Sadpwa", "L", "05/02/1993",
4500000, "1BD4")
idham.Rows.Add("46112058",
"citra amalia ramadhani", "L", "02/16/1995",
3000000, "1BD4")
idham.Rows.Add("46120023",
"Puspita Susilawati Ridjal", "P", "01/01/1994",
4000000, "1AD4")
idham.Rows.Add("46112031",
"Irmayanti", "P", "05/02/1994",
1000000, "1BD4")
idham.Rows.Add("46112033",
"Maulanan Ibrahim", "L", "04/10/1994",
1000000, "1BD4")
idham.Rows.Add("46112034",
"Gamaliel Giovani Rafael Nong", "L", "08/06/1993",
3700000, "1BD4")
idham.Rows.Add("46112035",
"Herpita Tohura", "P", "10/24/1993",
700000, "1BD4")
idham.Rows.Add("46112036",
"Hasmiati Hajar", "P", "05/17/1994",
5000000, "1BD4")
idham.Rows.Add("46112038",
"Viorensi S", "P", "10/13/1994",
2000000, "1BD4")
idham.Rows.Add("46112039",
"Carissa Evan Anthen", "P", "10/23/1994",
6000000, "1BD4")
idham.Rows.Add("46112040",
"Tommy Paunganan", "L", "02/22/1993",
2000000, "1BD4")
idham.Rows.Add("46112041",
"Nida Hazimah Ulfah", "P", "09/24/1995",
5000000, "1BD4")
idham.Rows.Add("46112044",
"Ulfah Nas", "P", "01/26/1994",
5000000, "1BD4")
idham.Rows.Add("46112045",
"Abdul Qawwam Nurjaya", "L", "11/26/1994",
3500000, "1BD4")
idham.Rows.Add("46112046",
"Andini Hayrunnisyah", "P", "06/27/1994",
1500000, "1BD4")
idham.Rows.Add("46112047",
"Hasmawati", "P", "11/22/1994",
5000000, "1BD4")
idham.Rows.Add("46112048",
"Udin Pranata", "L", "01/29/1993",
1000000, "1BD4")
idham.Rows.Add("46112049",
"Muhammad Farid Syah", "L", "01/20/1995",
5000000, "1BD4")
idham.Rows.Add("46112051",
"Afrisca Fraktiani Rante", "P", "04/13/1995",
5000000, "1BD4")
idham.Rows.Add("46112052",
"Aprianto Sandy", "L", "04/11/1993",
3000000, "1BD4")
idham.Rows.Add("46112053",
"Khusnul Khatimah A", "P", "08/27/1994",
3000000, "1BD4")
idham.Rows.Add("46112056",
"Kartini Widyasita", "P", "04/21/1993",
4650000, "1BD4")
idho = idham.DefaultView
DataGridView_46110021.DataSource = idho
End Sub
Private Sub RadioButton1_CheckedChanged(ByVal sender As
System.Object, ByVal e As
System.EventArgs) Handles
stb_46110021.CheckedChanged
idho.Sort = "Stambuk"
End Sub
Private Sub RadioButton2_CheckedChanged(ByVal sender As
System.Object, ByVal e As
System.EventArgs) Handles
bk_46110021.CheckedChanged
idho.Sort = "Kelas
desc"
End Sub
Private Sub RadioButton3_CheckedChanged(ByVal sender As
System.Object, ByVal e As
System.EventArgs) Handles
kb_46110021.CheckedChanged
idho.Sort = "Kelas, TanggalLahir"
End Sub
Private Sub TextBox1_TextChanged(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles
gajileb_46110021.TextChanged
idho.RowFilter = "[GajiOrtu]>=" &
Val(gajileb_46110021.Text)
End Sub
Private Sub TextBox2_TextChanged(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles
buk_46110021.TextChanged
idho.RowFilter = "Kelas <> '" &
buk_46110021.Text & "'"
End Sub
Private Sub DateTimePicker1_ValueChanged(ByVal sender As
System.Object, ByVal e As
System.EventArgs) Handles
DateTimePicker_46110021.ValueChanged
idho.RowFilter = "[Tanggal Lahir] < #" &
DateTimePicker_46110021.Value.Date & "#"
End Sub
Private Sub atur_46110021_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles atur_46110021.Click
For Each X As
DataGridViewRow In DataGridView_46110021.Rows
If
X.Cells("GAJIORTU").Value >
6000000 Then
X.DefaultCellStyle.BackColor =
label_46110021.BackColor
ElseIf
X.Cells("GAJIORTU").Value >
5000000 Then
X.DefaultCellStyle.BackColor =
Label13.BackColor
ElseIf
X.Cells("GAJIORTU").Value >
4000000 Then
X.DefaultCellStyle.BackColor =
Label14.BackColor
ElseIf
X.Cells("GAJIORTU").Value >
3000000 Then
X.DefaultCellStyle.BackColor =
Label15.BackColor
ElseIf
X.Cells("GAJIORTU").Value >
2000000 Then
X.DefaultCellStyle.BackColor =
Label16.BackColor
Else
X.DefaultCellStyle.BackColor =
Label10.BackColor
End
If
Next
End Sub
Private Sub bgaji_46110021_CheckedChanged(ByVal sender As
System.Object, ByVal e As
System.EventArgs) Handles
bgaji_46110021.CheckedChanged
idho.Sort = "GajiOrtu
desc"
End Sub
Private Sub unsur_46110021_TextChanged(ByVal sender As
System.Object, ByVal e As
System.EventArgs) Handles
unsur_46110021.TextChanged
idho.RowFilter = "Nama LIKE'% " & unsur_46110021.Text
& "%'"
End Sub
Private Sub Button1_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles Button1.Click
idho.RowFilter = "[GAJIORTU]>" &
Val(gajile_46110021.Text) & " AND
[Kelas]<>'" & bukan_46110021.Text & "'" & "
AND [TanggalLahir]<#" &
DateTimePicker2__46110021.Value.Month & "/"
& DateTimePicker2__46110021.Value.Day & "/"
& DateTimePicker2__46110021.Value.Year & "#"
& " AND Nama LIKE '%" &
unsu1_46110021.Text & "%'"
End Sub
End Class
Script Unik
A. idho.Sort = "GajiOrtu desc" --> script ini untuk menyortir data menurut gaji orang tua dari yang besar
B. " For Each X As DataGridViewRow In DataGridView_46110021.Rows
If X.Cells("GAJIORTU").Value > 6000000 Then
X.DefaultCellStyle.BackColor = label_46110021.BackColor
ElseIf X.Cells("GAJIORTU").Value > 5000000 Then
X.DefaultCellStyle.BackColor = Label13.BackColor
ElseIf X.Cells("GAJIORTU").Value > 4000000 Then
X.DefaultCellStyle.BackColor = Label14.BackColor
ElseIf X.Cells("GAJIORTU").Value > 3000000 Then
X.DefaultCellStyle.BackColor = Label15.BackColor
ElseIf X.Cells("GAJIORTU").Value > 2000000 Then
X.DefaultCellStyle.BackColor = Label16.BackColor
Else
X.DefaultCellStyle.BackColor = Label10.BackColor
End If
Next " -> fungsi ini sebagai syarat pemberian warna pada data di datagrid view sesuai dengan gaji orang tua
Langkah
untuk menjalankan form ini :
A.
Klik
start debugging.
B. Data
akan secara otomatis muncul pada object datagridview. Untuk mensort data yang
ada di dalam datagridview pilihlah radio button, atau masukkan syarat pada
groupbox:filterberdasarkan, atau masukkan syarat di groupbox filter dengan
menggunakan lalu tekan button, atau jika anda ingin mengelompokkan berdasarkan
gaji orang tua yang di tunjukkan dengan warna maka klik button atur warna