DESKRIPSI
FORM LATIHAN 14
Form Latihan ini Terdapat tujuh object yaitu label,
textbox, button, radiobutton, datetimepicker, groupbox, dan datagridview
Object Label
Dalam form latihan ini
terdapat 14 buah label, antara lain 2 label bertuliskan gaji orang tua lebih dari, 2 label bertuliskan bukan kelas, 2 label bertuliskan tanggal lahir sebelum, 2 label
bertuliskan nama memiliki unsur
dan 6 label yang diberi warna yang berbeda-beda untuk membedakan
penghasilan orang tua pada data yang telah ada.
Object
Textbox
Dalam form ini enam buah textbox yang semuanya berstatus
input yaitu gaji orang tua lebih dari, bukan kelas,
nama memiliki unsur yang masing-masing berjumlah 2 textbox
Object Button
Terdapat dua object button yaitu filter dan atur warna. Button filter
berfungsi memfilter data tabel berdasarkan data yang telah diinput di textbox.
Button atur warna berfungsi memberikan warna berbeda menurut besarnya gaji
orang tua pada data yang ditampilkan di datagridview
Object RadioButton
Dalam form ini terdapat
4 buah object radio button, antara lain stambuk, kelas (besar->kecil), kelas
(kecil->besar) tanggal lahir (kecil->besar), dan gaji orang tua (besar->kecil). Object ini akan melakukan perintah sesuai fungsi
yang dimasukkan ke dalam objeck tersebut dan akan berjalan atau bekerja apabila
salah satu radio button dipilih.
Object Date Time
Picker
Terdapat
dua date time picker digunakan untuk menerima input berupa tanggal
Object Groupbox
terdapat 4 buah object groupbox. Group box berfungsi
untuk mengelompokkan objek-objek yang diinginkan
Object Data
Gridview
Terdapat sebuah object datagridview. Datagridview digunakan untuk menampilkan data yang ingin
ditampilkan.
Script Unique
Untuk memfilter data dengan syarat tunggal
Private Sub gjilbh_46110024_TextChanged(ByVal sender As
System.Object, ByVal e As
System.EventArgs) Handles
gjilbh_46110024.TextChanged
dvmaba.RowFilter
= "[Gaji Orang Tua] >" &
Val(gjilbh_46110024.Text)
End Sub
Untuk memfilter data dengan multi syarat
dvmaba.RowFilter = "[Gaji Orang
Tua]>" & Val(gaji_46110024.Text) & " AND [Kelas]<>'" &
klas_46110024.Text & "'" &
" AND [Tanggal Lahir]<#" &
date2_46110024.Value.Month & "/"
& date2_46110024.Value.Day & "/"
& date2_46110024.Value.Year & "#"
& " AND Nama LIKE '%" &
nama2_46110024.Text & "%'"
Untuk mengatur warna
For Each X As
DataGridViewRow In dgv_46110024.Rows
If
X.Cells("Gaji Orang Tua").Value
> 6000000 Then
X.DefaultCellStyle.BackColor =
Label9.BackColor
ElseIf
X.Cells("Gaji Orang Tua").Value
> 5000000 Then
X.DefaultCellStyle.BackColor =
Label12.BackColor
ElseIf
X.Cells("Gaji Orang Tua").Value
> 4000000 Then
X.DefaultCellStyle.BackColor =
Label10.BackColor
ElseIf
X.Cells("Gaji Orang Tua").Value
> 3000000 Then
X.DefaultCellStyle.BackColor =
Label13.BackColor
ElseIf
X.Cells("Gaji Orang Tua").Value
> 2000000 Then
X.DefaultCellStyle.BackColor =
Label11.BackColor
Else
X.DefaultCellStyle.BackColor =
Label14.BackColor
End
If
Even
TextChanged
ButtonClick
Load
Langkah-
Langkah Membuat Form Latihan 14
1 .Buka File Microsoft Visual Studio
Anda lalu pilih project --> Add
windows form
2. Ganti nama sesuai dengan nama
yang anda ingingkan
3. Lalu pilih object yang
ada di latihan 14
4. Buat form sampai
menghasilkan form seperti di bawah ini
5. Pilih menu view lalu klik code
6. Masukkan script sebagai berikut:
Public Class Latihan_14_46110024
Dim dtmaba As
New DataTable
Dim dvmaba As
New DataView
Private Sub
Latihan_14_46110024_Load(ByVal sender As Object, ByVal e As
System.EventArgs) Handles Me.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(String)))
dtmaba.Columns.Add(New DataColumn("Gaji
Orang Tua", 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
dgv_46110024.DataSource = dvmaba
End Sub
Private Sub
stb_46110024_CheckedChanged(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
stb_46110024.CheckedChanged
dvmaba.Sort = "Stambuk"
End Sub
Private Sub
kls_46110024_CheckedChanged(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
kls_46110024.CheckedChanged
dvmaba.Sort = "Kelas
desc"
End Sub
Private Sub
klstgl_46110024_CheckedChanged(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
klstgl_46110024.CheckedChanged
dvmaba.Sort = "kelas
desc, Tanggal Lahir desc"
End Sub
Private Sub
gajoi_46110024_CheckedChanged(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
gajoi_46110024.CheckedChanged
dvmaba.Sort = "Gaji
Orang Tua"
End Sub
Private Sub
gjilbh_46110024_TextChanged(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
gjilbh_46110024.TextChanged
dvmaba.RowFilter = "[Gaji Orang Tua] >" &
Val(gjilbh_46110024.Text)
End Sub
Private Sub
bknkls_46110024_TextChanged(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
bknkls_46110024.TextChanged
dvmaba.RowFilter = "Kelas <>" & "'" & bknkls_46110024.Text & "'"
End Sub
Private Sub
date_46110024_ValueChanged(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
date_46110024.ValueChanged
dvmaba.RowFilter = "[Tanggal Lahir] < #" &
date_46110024.Text & "#"
End Sub
Private Sub
nama_46110024_TextChanged(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
nama_46110024.TextChanged
dvmaba.RowFilter = "and Nama like '%" &
nama_46110024.Text & "%'"
End Sub
Private Sub
filter_46110024_Click(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
filter_46110024.Click
dvmaba.RowFilter = "[Gaji Orang Tua]>" &
Val(gaji_46110024.Text) & " AND
[Kelas]<>'" & klas_46110024.Text & "'" & "
AND [Tanggal Lahir]<#" & date2_46110024.Value.Month & "/" & date2_46110024.Value.Day &
"/" &
date2_46110024.Value.Year & "#"
& " AND Nama LIKE '%" &
nama2_46110024.Text & "%'"
End Sub
Private Sub
warna_46110024_Click(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
warna_46110024.Click
For Each X As
DataGridViewRow In dgv_46110024.Rows
If
X.Cells("Gaji Orang Tua").Value
> 6000000 Then
X.DefaultCellStyle.BackColor =
Label9.BackColor
ElseIf
X.Cells("Gaji Orang Tua").Value
> 5000000 Then
X.DefaultCellStyle.BackColor =
Label12.BackColor
ElseIf
X.Cells("Gaji Orang Tua").Value
> 4000000 Then
X.DefaultCellStyle.BackColor =
Label10.BackColor
ElseIf
X.Cells("Gaji Orang Tua").Value
> 3000000 Then
X.DefaultCellStyle.BackColor =
Label13.BackColor
ElseIf
X.Cells("Gaji Orang Tua").Value
> 2000000 Then
X.DefaultCellStyle.BackColor =
Label11.BackColor
Else
X.DefaultCellStyle.BackColor =
Label14.BackColor
End
If
Next
End Sub
End Class
Langkah-Langkah
Menjalankan Form Latihan 14
- Klick Star Debugging
- Data akan secara otomatis muncul pada object datagridview. Untuk mensort data berdasarkan radiobutton yang anda pilih pada groupbox urutkan berdasarkan 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
0 komentar:
Posting Komentar