Latihan_14_36110052
A.
Object-object dalam Latihan_14_36110052
:
1. Object Label
Terdapat delapan label (yang bertuliskan gaji orang tua
lebih dari terdapat dua label, bukan kelas terdapat dua label, tanggal lahir
sebelum terdapat dua label, dan nama memiliki unsur terdapat dua label juga).
2. Object Textbox
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.
3. Object Button
Terdapat dua object button (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.
4. Object DateTimePicker
Terdapat dua object datetimepicker yang digunakan dalam
memfilter data tabel yang ada di datagridview.
5. Object
RadioButton
Terdapat empat object radiobutton (yang bertuliskan stambuk,
kelas (besar->kecil), kelas (kecil->besar) tanggal lahir
(kecil->besar), dan gaji orang tua (besar->kecil).
6. Object datagridView
Terdapat satu objeck datagridview yang digunakan untuk
menampilkan data tabel yang telah dibuat.
B. Script Unique
Untuk button Filter:
filter_36110052_Click
Untuk button Atur Warna:
WARNA_36110052_Click
C. Even
stambuk_36110052_CheckedChanged
Kelasbesar_36110052_CheckedChanged
Kelaskecil_36110052_CheckedChanged
gaji_36110052_CheckedChanged
gajiberdasarkan_36110052_TextChanged
bukanberdasarkan_36110052_TextChanged
tanggalberdasarkan_36110052_ValueChanged
namaberdasarkan_36110052_TextChanged
FILTER_36110052_Click
WARNA_36110052_Click
D. Property
Property TextBox ==>
ReadOnly=True
Langkah-langkah kerja latihan_14_36110052
1. Buat
new windows form dengan cara ketik project àadd
windows form pada project yang telah
dibuat dan berikan nama form yang diinginkan
Contoh: latihan_14_36110052
3. Setiap
tools yang diambil pada textbox dapat diubah propertiesnya seperti nama dan
teksnya dengan cara klik kanan-properties.
Buat form dengan bentuk seperti ini:
5. Setelah
selesai form, masuk ke lembar Vb dan masukkan script
Public Class LATIHAN_14_36110052
Dim Table As
New DataTable
Dim TableView As
New DataView
Private Sub
LATIHAN_14_36110052_Load(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
MyBase.Load
Table.Columns.Add(New DataColumn("Stambuk",
GetType(String)))
Table.Columns.Add(New DataColumn("Nama",
GetType(String)))
Table.Columns.Add(New DataColumn("Jenis
Kelamin", GetType(String)))
Table.Columns.Add(New DataColumn("Tanggal
Lahir", GetType(Date)))
Table.Columns.Add(New DataColumn("Gaji
Ortu", GetType(Double)))
Table.Columns.Add(New DataColumn("Kelas",
GetType(String)))
Table.Rows.Add("46112003",
"Nurawalia M.", "P", "12/04/1994",
3000000, "1AD4")
Table.Rows.Add("46120023",
"Puspita Susilawati Ridjal", "P", "01/01/1994",
4000000, "1AD4")
Table.Rows.Add("46110018",
"Rose Anne Tarida Situmorang", "P", "12/14/1994",
5000000, "1AD4")
Table.Rows.Add("46112004",
"Siti Khaerunnisa", "P", "03/28/1994",
1000000, "1AD4")
Table.Rows.Add("46112015",
"Irmayanti", "P", "09/23/1994",
1000000, "1AD4")
Table.Rows.Add("46112011",
"Delsi Tifani Lan", "P", "12/24/1994",
2000000, "1AD4")
Table.Rows.Add("46112027",
"Reny Rita Waty Djafar", "P", "07/26/1993",
3000000, "1AD4")
Table.Rows.Add("46112002",
"Dewi Sartika", "P", "02/10/1994",
1000000, "1AD4")
Table.Rows.Add("46112004",
"Anita Rahmah Muhtadin", "P", "12/07/1994",
5000000, "1AD4")
Table.Rows.Add("46112021",
"Rafidah", "P", "06/05/1994",
500000, "1AD4")
Table.Rows.Add("46112009",
"Eka Yuli Astuti", "P", "08/07/1994",
2000000, "1AD4")
Table.Rows.Add("46112025",
"Fitri Amalia Islamiati", "P", "03/26/1995",
4000000, "1AD4")
Table.Rows.Add("46112014",
"Mariana.", "P", "06/22/1994",
1000000, "1AD4")
Table.Rows.Add("46112013",
"A. Muh. Lutfi Ahmad", "L", "10/10/1993",
4000000, "1AD4")
Table.Rows.Add("46112008",
"Nanda Ardilia Pratama", "L", "08/01/1994",
1000000, "1AD4")
Table.Rows.Add("46112022",
"Liliani Paelongan", "P", "05/25/1994",
3000000, "1AD4")
Table.Rows.Add("46112007",
"Andi Rabiah", "L", "09/07/1994",
1000000, "1AD4")
Table.Rows.Add("46112001",
"Rizka Awalia Mustakim", "P", "10/07/1994",
3000000, "1AD4")
Table.Rows.Add("46112005",
"Mardhotillah", "P", "01/13/1994",
3000000, "1AD4")
Table.Rows.Add("46112017",
"Camelia Indulgenssya Gundung", "P", "09/14/1994",
2000000, "1AD4")
Table.Rows.Add("46112028",
"Nur Salim Rusdi", "L", "04/12/1994",
1500000, "1AD4")
Table.Rows.Add("46112026",
"Muhammad Khaidir", "L", "12/26/1993",
3000000, "1AD4")
Table.Rows.Add("46112020",
"Sukriani Karunia Rahma", "P", "12/01/1994",
3000000, "1AD4")
Table.Rows.Add("46112006",
"Rezky Tri Utami", "P", "07/03/1994",
3000000, "1AD4")
Table.Rows.Add("46112029",
"Azwar Arfah", "L", "04/03/1994",
3000000, "1AD4")
Table.Rows.Add("46112016",
"Dyah Sukma Anggraini", "P", "05/10/1994",
3500000, "1AD4")
Table.Rows.Add("46112010",
"Nur Indah Purnamasari", "P", "07/22/1994",
2500000, "1AD4")
Table.Rows.Add("46112012",
"Nurul Qadri Musra", "L", "08/24/1994",
3000000, "1AD4")
Table.Rows.Add("46112055",
"Reni Anggraeni", "P", "10/12/1994",
1500000, "1B D4")
Table.Rows.Add("46112042",
"Faradhiba Zainal Putri", "P", "12/04/1993",
3000000, "1B D4")
Table.Rows.Add("46112054",
"Rahmi Ani", "P", "11/30/1994",
2000000, "1B D4")
Table.Rows.Add("46112043",
"Remon Agit Rimang", "L", "01/06/1995",
3000000, "1B D4")
Table.Rows.Add("46112032", "Abd.
Rahman", "L", "10/08/1994", 1500000, "1B D4")
Table.Rows.Add("46112057",
"I Ketut Yuda Sadpwa", "L", "05/02/1993",
4500000, "1B D4")
Table.Rows.Add("46112037",
"Herianto", "L", "12/08/1993",
3000000, "1B D4")
Table.Rows.Add("46112058",
"citra amalia ramadhani", "L", "02/16/1995",
3000000, "1B D4")
Table.Rows.Add("46112050",
"Andi Akbar", "L", "11/26/1994",
2000000, "1B D4")
Table.Rows.Add("46112034",
"Gamaliel Giovani Rafael Nong", "L", "08/06/1993",
3700000, "1B D4")
Table.Rows.Add("46112047",
"Hasmawati", "P", "11/22/1994",
5000000, "1B D4")
Table.Rows.Add("46112038",
"Viorensi S", "P", "10/13/1994",
2000000, "1B D4")
Table.Rows.Add("46112046",
"Andini Hayrunnisyah", "P", "06/27/1994",
1500000, "1B D4")
Table.Rows.Add("46112031",
"Irmayanti", "P", "05/02/1994",
1000000, "1B D4")
Table.Rows.Add("46112039",
"Carissa Evan Anthen", "P", "10/23/1994",
6000000, "1B D4")
Table.Rows.Add("46112052",
"Aprianto Sandy", "L", "04/11/1993",
3000000, "1B D4")
Table.Rows.Add("46112049",
"Muhammad Farid Syah", "L", "01/20/1995",
5000000, "1B D4")
Table.Rows.Add("46112033",
"Maulanan Ibrahim", "L", "04/10/1994",
1000000, "1B D4")
Table.Rows.Add("46112035", "Herpita
Tohura", "P", "10/24/1993", 700000, "1B D4")
Table.Rows.Add("46112048",
"Udin Pranata", "L", "01/29/1993",
1000000, "1B D4")
Table.Rows.Add("46112051",
"Afrisca Fraktiani Rante", "P", "04/13/1995",
5000000, "1B D4")
Table.Rows.Add("46112056",
"Kartini Widyasita", "P", "04/21/1993",
4650000, "1B D4")
Table.Rows.Add("46112045",
"Abdul Qawwam Nurjaya", "L", "11/26/1994",
3500000, "1B D4")
Table.Rows.Add("46112040",
"Tommy Paunganan", "L", "02/22/1993",
2000000, "1B D4")
Table.Rows.Add("46112053",
"Khusnul Khatimah A", "P", "08/27/1994",
3000000, "1B D4")
Table.Rows.Add("46112041",
"Nida Hazimah Ulfah", "P", "09/24/1995",
5000000, "1B D4")
Table.Rows.Add("46112044",
"Ulfah Nas", "P", "01/26/1994",
5000000, "1B D4")
Table.Rows.Add("46112036",
"Hasmiati Hajar", "P", "05/17/1994",
5000000, "1B D4")
Table.Rows.Add("36112016",
"Andi Jusma Nilam Sari", "P", "09/02/1994",
10000000, "1A-D3")
Table.Rows.Add("3612
006", "Izmi Istiqamah",
"P", "11/04/1994",
7000000, "1A-D3")
Table.Rows.Add("36112007",
"Imran Novrin Ruslim", "L", "11/21/1994",
1000000, "1A-D3")
Table.Rows.Add("36112003",
"Fathin Ammar Asidik", "L", "06/29/1994",
6800000, "1A-D3")
Table.Rows.Add("36112008",
"Adbul Malik", "L", "11/09/1993",
50000000, "1A-D3")
Table.Rows.Add("36112011",
"Zulfitra Qadar Yasin", "L", "03/10/1994",
10000000, "1A-D3")
Table.Rows.Add("36112020",
"Bernard Talebong", "P", "10/01/1994",
10000000, "1A-D3")
Table.Rows.Add("36112024",
"Syahrul Kamal", "L", "10/18/1994",
10000000, "1A-D3")
Table.Rows.Add("36112001",
"Fitri", "P",
"10/20/1994", 5000000, "1A-D3")
Table.Rows.Add("36112010",
"Yulianti", "P", "09/28/1994",
6000000, "1A-D3")
Table.Rows.Add("36112012",
"Sri Aprianti", "P", "04/05/1994",
4000000, "1A-D3")
Table.Rows.Add("36112013",
"Noviantri Paembonan", "P", "11/19/1994",
6000000, "1A-D3")
Table.Rows.Add("36112018",
"Kurniawati", "P", "10/11/1994",
2000000, "1A-D3")
Table.Rows.Add("36112017",
"Dana Abrian", "L", "10/05/1994",
5000000, "1A-D3")
Table.Rows.Add("36112023",
"Andi Arhami Hamzah", "P", "06/28/1994",
10000000, "1A-D3")
Table.Rows.Add("36112059",
"Ummul Hayyul Qayyum", "P", "12/01/1993",
3500000, "1A-D3")
Table.Rows.Add("36112027",
"Nurul Rezki Susanti", "P", "09/24/1994",
5000000, "1A-D3")
Table.Rows.Add("36112005",
"Mawar Aztanti", "P", "06/01/1993",
4000000, "1A-D3")
Table.Rows.Add("36112022",
"Rismawati", "P", "09/07/1994",
900000, "1A-D3")
Table.Rows.Add("36112004",
"Endah Mariadi", "P", "11/07/1994",
7500000, "1A-D3")
Table.Rows.Add("36112026",
"Melinda Rizkawati", "P", "05/07/1994",
2000000, "1A-D3")
Table.Rows.Add("36112025",
"Ivana Olivia Aser", "P", "01/14/1993",
6000000, "1A-D3")
Table.Rows.Add("36112021",
"Sulaipah", "P", "09/28/1994",
1000000, "1A-D3")
Table.Rows.Add("36112061",
"Rahmat Adi Pratama", "L", "04/21/1994",
10000000, "1A-D3")
Table.Rows.Add("36112060",
"Nita", "P",
"01/04/1995", 2500000, "1A-D3")
Table.Rows.Add("36112019",
"Kharisma Yusuf", "P", "06/14/1994",
4000000, "1A-D3")
Table.Rows.Add("36112014",
"A. Rahmawaty", "P", "04/04/1994",
5000000, "1A-D3")
Table.Rows.Add("36112015",
"Danela Mangintek", "P", "11/06/1994",
3000000, "1A-D3")
Table.Rows.Add("36112009",
"Rahmaniah", "P", "01/19/1994",
6500000, "1A-D3")
Table.Rows.Add("36112002",
"andri prianto tukan", "L", "04/26/1994",
2000000, "1B D-3")
Table.Rows.Add("36112057",
"Reenaldy Alchudri Azsagaf", "L", "05/03/1994",
10000000, "1B D-3")
Table.Rows.Add("36112039",
"Andi Syahril", "L", "10/02/1994",
2000000, "1B D-3")
Table.Rows.Add("36112051",
"Muhammad Adhe Anugrah", "L", "08/31/1993",
5000000, "1B D-3")
Table.Rows.Add("36112042",
"Sukmawati Amir", "P", "04/13/1994",
6000000, "1B D-3")
Table.Rows.Add("36112056",
"Dian Eka Puteri", "P", "11/11/1993",
1000000, "1B D-3")
Table.Rows.Add("36112048",
"Tri Wahyuni", "P", "11/11/1994",
800000, "1B D-3")
Table.Rows.Add("36112047",
"A. Dian Pelita Waty", "P", "05/05/1994",
3000000, "1B D-3")
Table.Rows.Add("36112043",
"Mu'minat Nur", "P", "05/17/1995",
5000000, "1B D-3")
Table.Rows.Add("36112058",
"Andi Anggi Fadliyah", "P", "08/15/1994",
1500000, "1B D-3")
Table.Rows.Add("36112033",
"A. Syasya Annisa Ausan", "P", "08/08/1994",
7000000, "1B D-3")
Table.Rows.Add("36112044",
"Muhammad Fachri Sani", "L", "02/02/1994",
5000000, "1B D-3")
Table.Rows.Add("36112053",
"Resky Yonada Ahmad", "P", "03/22/1994",
1500000, "1B D-3")
Table.Rows.Add("36112029",
"Trinayanti", "P", "06/03/1992",
3000000, "1B D-3")
Table.Rows.Add("36112041",
"Musyarafah Asis", "L", "07/13/1994",
6000000, "1B D-3")
Table.Rows.Add("36112055",
"Achmad Rezky Satria Perdana", "L", "12/17/1993",
3000000, "1B D-3")
Table.Rows.Add("36112050",
"Fibra Yoseph P.", "P", "03/27/1995",
6000000, "1B D-3")
Table.Rows.Add("36112045",
"Ibnu Affan Al-Mufar'id", "L", "08/05/1994",
8000000, "1B D-3")
Table.Rows.Add("36112030",
"Sri Widya Ayu Wandini", "P", "06/01/1994",
5000000, "1B D-3")
Table.Rows.Add("36112046", "Sri
Wahyuni Hafid", "P", "12/25/1994", 11000000, "1B D-3")
Table.Rows.Add("36112032",
"Rosita Satri", "P", "12/06/1994",
3000000, "1B D-3")
Table.Rows.Add("36112052",
"Sabri", "L",
"07/24/1993", 700000, "1B D-3")
Table.Rows.Add("36112049",
"Alfin Riani Bandaso", "P", "04/11/1994",
3000000, "1B D-3")
Table.Rows.Add("36112036",
"Nurmilasari", "P", "07/06/1993",
200000, "1B D-3")
Table.Rows.Add("36112035",
"Tri Arismunandar", "L", "12/09/1993",
1000000, "1B D-3")
Table.Rows.Add("36112031",
"Nur Indahsari Idris", "P", "08/28/1994",
5000000, "1B D-3")
Table.Rows.Add("36112037",
"Ismawati", "P", "08/01/1994",
900000, "1B D-3")
Table.Rows.Add("36112034",
"Rezky Arianti", "P", "01/27/1994",
3000000, "1B D-3")
Table.Rows.Add("36112028",
"Artis Susan", "P", "10/29/1993",
5000000, "1B D-3")
Table.Rows.Add("36112054",
"Ade Apriathis Rantelino", "L", "04/27/1994",
3000000, "1B D-3")
TableView = Table.DefaultView
DataGridView_36110052.DataSource =
TableView
DataGridView_36110052.Columns("Stambuk").Width = 60
DataGridView_36110052.Columns("Jenis Kelamin").Width = 50
DataGridView_36110052.Columns("Tanggal Lahir").Width = 70
DataGridView_36110052.Columns("Gaji Ortu").Width = 60
DataGridView_36110052.Columns("Kelas").Width = 40
DataGridView_36110052.Columns("Jenis Kelamin").DefaultCellStyle.Alignment
= DataGridViewContentAlignment.MiddleCenter
DataGridView_36110052.Columns("Kelas").DefaultCellStyle.Alignment =
DataGridViewContentAlignment.MiddleCenter
End Sub
Private Sub
stambuk_36110052_CheckedChanged(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
stambuk_36110052.CheckedChanged
If
stambuk_36110052.Checked = True Then
TableView.Sort = "Stambuk"
End If
End Sub
Private Sub
Kelasbesar_36110052_CheckedChanged(ByVal sender
As System.Object, ByVal
e As System.EventArgs) Handles
Kelasbesar_36110052.CheckedChanged
If
Kelasbesar_36110052.Checked = True Then
TableView.Sort = "[Kelas] desc"
End If
End Sub
Private Sub
Kelaskecil_36110052_CheckedChanged(ByVal sender
As System.Object, ByVal
e As System.EventArgs) Handles
Kelaskecil_36110052.CheckedChanged
If
Kelaskecil_36110052.Checked = True Then
TableView.Sort = "[Kelas], [Tanggal Lahir]"
End If
End Sub
Private Sub
gaji_36110052_CheckedChanged(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
gaji_36110052.CheckedChanged
If
gaji_36110052.Checked = True Then
TableView.Sort = "[Gaji Ortu] desc"
End If
End Sub
Private Sub
gajiberdasarkan_36110052_TextChanged(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles
gajiberdasarkan_36110052.TextChanged
TableView.RowFilter = "[Gaji Ortu] > " &
Val(gajiberdasarkan_36110052.Text)
End Sub
Private Sub
bukanberdasarkan_36110052_TextChanged(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles
bukanberdasarkan_36110052.TextChanged
TableView.RowFilter = "[Kelas] <> '" &
bukanberdasarkan_36110052.Text & "'"
End Sub
Private
Sub tanggalberdasarkan_36110052_ValueChanged(ByVal sender As
System.Object, ByVal e As
System.EventArgs) Handles
tanggalberdasarkan_36110052.ValueChanged
TableView.RowFilter = "[Tanggal Lahir] < #" &
tanggalberdasarkan_36110052.Value.Month & "/"
& tanggalberdasarkan_36110052.Value.Day & "/"
& tanggalberdasarkan_36110052.Value.Year & "#"
End Sub
Private Sub
namaberdasarkan_36110052_TextChanged(ByVal
sender As System.Object, ByVal e As System.EventArgs)
Handles namaberdasarkan_36110052.TextChanged
TableView.RowFilter = "[Nama] like '%" &
namaberdasarkan_36110052.Text & "%'"
End Sub
Private Sub
filter_36110052_Click(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
filter_36110052.Click
TableView.RowFilter = "[Gaji Ortu] > " &
Val(gajimenggabungkan_36110052.Text) & _
" and
[Kelas] <> '" & bukanmenggabungkan_36110052.Text & "'" & _
" and
[Tanggal Lahir] < #" & tanggalmenggabungkan_36110052.Value.Month
& "/" &
tanggalmenggabungkan_36110052.Value.Day & "/"
& tanggalmenggabungkan_36110052.Value.Year & "#"
& _
" and
[Nama] like '%" & namamenggabungkan_36110052.Text & "%'"
End Sub
Private
Sub WARNA_36110052_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles
WARNA_36110052.Click
For Each X As DataGridViewRow In
DataGridView_36110052.Rows
If X.Cells("Gaji
Ortu").Value > 6000000 Then
X.DefaultCellStyle.BackColor = Color.DarkBlue
ElseIf X.Cells("Gaji
Ortu").Value > 5000000 Then
X.DefaultCellStyle.BackColor = Color.Aquamarine
ElseIf X.Cells("Gaji
Ortu").Value > 4000000 Then
X.DefaultCellStyle.BackColor = Color.BlanchedAlmond
ElseIf X.Cells("Gaji
Ortu").Value > 3000000 Then
X.DefaultCellStyle.BackColor = Color.DarkRed
ElseIf X.Cells("Gaji
Ortu").Value > 2000000 Then
X.DefaultCellStyle.BackColor = Color.AliceBlue
Else
X.DefaultCellStyle.BackColor = Color.DarkGoldenrod
End If
Next
End Sub
End Class
6.
Uji program dengan mengklik “Start Debbuging” dan save program dengan mengklik
“Save”.
7.
SELESAI
Tidak ada komentar:
Posting Komentar