Deskripsi Penyelesaian Latihan_14_36110040
A. Form Latihan 14 terdapat Empat Object yaitu label,
textbox, button, datetimepiker dan datagridview.
- 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 memilikiunsur terdapat dua label).
- Object Textbox
Terdapat Dua belas TextBox (enam
textbox status input dan delapan textbox status readonly dan digunakan
pengganti label). Status input digunakan untuk memasukkan gaji orang tua, bukan
kelas, dan nama memiliki unsur. Status
readonly 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
Terdapat dua object button yaitu Filter dan
Atur Warna. Button Filter digunakan untuk memfilter data table
berdasarkan data yang telah diinput di pada kolom textbox. Sedangkan button
Atur Warna digunakan untuk memberikan warna pada data dalam datagridview
berdasarkan besarnya gaji orang tua.
- Object DateTimePicker
Terdapat dua Object datetimepiker yang digunakan dalam memfilter data
table yang ada pada datagridview.
- Object DataGridView
Terdapat satu Object DataGridView yang dimana digunakan untuk
menampilkan data table yang telah dibuat.
B. Script Unique
Untuk Button
Filter:
Filter_36110040_Click
Untuk Button Warna:
Aturwarna_36110040_Click
C. Even
Stambuk_36110040_CheckedChanged
Kelas_36110040_CheckedChanged
Kelas1_36110040_CheckedChanged
Gajiortu_36110040_CheckedChanged
GOT1_36110040_TextChanged
bknkelas1_36110040_TextChanged
DTP1_36110040_ValueChanged
unsur1_36110040_TextChanged
Filter_36110040_Click
Aturwarna_36110040_Click
D.
Property
Property
TextBox è ReadOnly = True
Tahap Penyelesaian Latihan_14_36110040
1. Buka Project yang telah dibuat, lalu buka solution Explorer
2. Setelah
itu klik kanan nama project, pilih add dan klik “new item”
3. Click Add New Item terbuka, pilih Windows Form, lalu isi Name
dengan Nama Latihan_14_36110040
4. Buat Form Latihan_14 dibawah ini:
5. Berikut
ini Rumus untuk menjalankan Form diatas:
Public Class Latihan_14_36110040
Dim rahmi As New DataTable
Dim rahmi2 As New DataView
Private Sub Latihan_14_36110048_Load(ByVal
sender As Object,
ByVal e As
System.EventArgs) Handles Me.Load
rahmi.Columns.Add(New DataColumn("Stambuk",
GetType(String)))
rahmi.Columns.Add(New DataColumn("Nama",
GetType(String)))
rahmi.Columns.Add(New DataColumn("Jenis
Kelamin", GetType(String)))
rahmi.Columns.Add(New DataColumn("Tanggal
Lahir", GetType(Date)))
rahmi.Columns.Add(New DataColumn("Gaji
Ortu", GetType(Double)))
rahmi.Columns.Add(New DataColumn("Kelas",
GetType(String)))
rahmi.Rows.Add("46112003",
"Nurawalia M.", "P", "12/04/1994",
3000000, "1AD4")
rahmi.Rows.Add("46120023",
"Puspita Susilawati Ridjal", "P", "01/01/1994",
4000000, "1AD4")
rahmi.Rows.Add("46110018",
"Rose Anne Tarida Situmorang", "P", "12/01/1994",
5000000, "1AD4")
rahmi.Rows.Add("46112004",
"Siti Khaerunnisa", "P", "03/28/1994",
1000000, "1AD4")
rahmi.Rows.Add("46112015",
"Irmayanti", "P", "09/23/1994",
1000000, "1AD4")
rahmi.Rows.Add("46112011",
"Delsi Tifani Lan", "P", "12/24/1994",
2000000, "1AD4")
rahmi.Rows.Add("46112027",
"Reny Rita Waty Djafar", "P", "07/26/1993",
3000000, "1AD4")
rahmi.Rows.Add("46112002",
"Dewi Sartika", "P", "02/10/1994",
1000000, "1AD4")
rahmi.Rows.Add("46112004",
"Anita Rahmah Muhtadin", "P", "12/07/1994",
5000000, "1AD4")
rahmi.Rows.Add("46112021",
"Rafidah", "P", "06/05/1994",
500000, "1AD4")
rahmi.Rows.Add("46112009",
"Eka Yuli Astuti", "P", "08/07/1994",
2000000, "1AD4")
rahmi.Rows.Add("46112025",
"Fitri Amalia Islamiati", "P", "03/26/1995",
4000000, "1AD4")
rahmi.Rows.Add("46112014",
"Mariana.", "P", "06/22/1994",
1000000, "1AD4")
rahmi.Rows.Add("46112013",
"A. Muh. Lutfi Ahmad", "L", "10/10/1993",
4000000, "1AD4")
rahmi.Rows.Add("46112008",
"Nanda Ardilia Pratama", "L", "08/01/1994",
1000000, "1AD4")
rahmi.Rows.Add("46112022",
"Liliani Paelongan", "P", "05/25/1994",
3000000, "1AD4")
rahmi.Rows.Add("46112007",
"Andi Rabiah", "L", "09/07/1994",
1000000, "1AD4")
rahmi.Rows.Add("46112001",
"Rizka Awalia Mustakim", "P", "10/07/1994",
3000000, "1AD4")
rahmi.Rows.Add("46112005",
"Mardhotillah", "P", "01/13/1994",
3000000, "1AD4")
rahmi.Rows.Add("46112017",
"Camelia Indulgenssya Gundung", "P", "09/14/1994",
2000000, "1AD4")
rahmi.Rows.Add("46112028",
"Nur Salim Rusdi", "L", "04/12/1994",
1500000, "1AD4")
rahmi.Rows.Add("46112026",
"Muhammad Khaidir", "L", "12/26/1993",
3000000, "1AD4")
rahmi.Rows.Add("46112020",
"Sukriani Karunia Rahma", "P", "12/01/1994",
3000000, "1AD4")
rahmi.Rows.Add("46112006",
"Rezky Tri Utami", "P", "07/03/1994",
3000000, "1AD4")
rahmi.Rows.Add("46112029",
"Azwar Arfah", "L", "04/03/1994",
3000000, "1AD4")
rahmi.Rows.Add("46112016",
"Dyah Sukma Anggraini", "P", "05/10/1994",
3500000, "1AD4")
rahmi.Rows.Add("46112010",
"Nur Indah Purnamasari", "P", "07/22/1994",
2500000, "1AD4")
rahmi.Rows.Add("46112012",
"Nurul Qadri Musra", "L", "08/24/1994",
3000000, "1AD4")
rahmi.Rows.Add("36112011",
"Andri prianto tukan", "L", "04/26/1994",
2000000, "1BD3")
rahmi.Rows.Add("36112057",
"Reenaldy Alchudri Azsagaf", "L", "05/03/1994",
10000000, "1BD3")
rahmi.Rows.Add("36112039",
"Andi Syahril", "L", "10/02/1994",
2000000, "1BD3")
rahmi.Rows.Add("36112051",
"Muhammad Adhe Anugrah", "L", "08/31/1993",
5000000, "1BD3")
rahmi.Rows.Add("36112042",
"Sukmawati Amir", "P", "04/13/1994",
6000000, "1BD3")
rahmi.Rows.Add("36112040",
"Dian Eka Puteri", "P", "11/11/1993",
1000000, "1BD3")
rahmi.Rows.Add("36112048",
"Tri Wahyuni", "P", "11/11/1994",
800000, "1BD3")
rahmi.Rows.Add("36112047",
"A. Dian Pelita Waty", "P", "05/05/1994",
3000000, "1BD3")
rahmi.Rows.Add("36112043",
"Mu'minat Nur", "P", "05/17/1995",
5000000, "1BD3")
rahmi.Rows.Add("36112050",
"Andi Anggi Fadliyah", "P", "08/15/1994",
1500000, "1BD3")
rahmi.Rows.Add("36112033",
"A. Syasya Annisa Ausan", "P", "08/08/1994",
7000000, "1BD3")
rahmi.Rows.Add("36112044",
"Muhammad Fachri Sani", "L", "02/02/1994",
5000000, "1BD3")
rahmi.Rows.Add("36112053",
"Resky Yonada Ahmad", "P", "03/22/1994",
1500000, "1BD3")
rahmi.Rows.Add("36112029",
"Trinayanti", "P", "06/03/1992",
3000000, "1BD3")
rahmi.Rows.Add("36112041",
"Musyarafah Asis", "L", "07/13/1994",
6000000, "1BD3")
rahmi.Rows.Add("36112055",
"Achmad Rezky Satria Perdana", "L", "12/17/1993",
3000000, "1BD3")
rahmi.Rows.Add("36112056",
"Fibra Yoseph P.", "P", "03/27/1995",
6000000, "1BD3")
rahmi.Rows.Add("36112045",
"Ibnu Affan Al-Mufar'id", "L", "08/05/1994",
8000000, "1BD3")
rahmi.Rows.Add("36112030",
"Sri Widya Ayu Wandini", "P", "06/01/1994",
5000000, "1BD3")
rahmi.Rows.Add("36112046",
"Sri Wahyuni Hafid", "P", "12/25/1994",
11000000, "1BD3")
rahmi.Rows.Add("36112032",
"Rosita Satri", "P", "12/06/1994",
3000000, "1BD3")
rahmi.Rows.Add("36112052",
"Sabri", "L",
"07/24/1993", 700000, "1BD3")
rahmi.Rows.Add("36112049",
"Alfin Riani Bandaso", "P", "04/11/1994",
3000000, "1BD3")
rahmi.Rows.Add("36112036",
"Nurmilasari", "P", "07/06/1993",
200000, "1BD3")
rahmi.Rows.Add("36112035",
"Tri Arismunandar", "L", "12/09/1993",
1000000, "1BD3")
rahmi.Rows.Add("36112031",
"Nur Indahsari Idris", "P", "08/28/1994",
5000000, "1BD3")
rahmi.Rows.Add("36112037",
"Ismawati", "P", "08/01/1994",
900000, "1BD3")
rahmi.Rows.Add("36112034",
"Rezky Arianti", "P", "01/27/1994",
3000000, "1BD3")
rahmi.Rows.Add("36112038",
"Artis Susan", "P", "10/29/1993",
5000000, "1BD3")
rahmi.Rows.Add("36112054",
"Ade Apriathis Rantelino", "L", "04/27/1994",
3000000, "1BD3")
rahmi.Rows.Add("46112055",
"Reni Anggraeni", "P", "10/12/1994",
1500000, "1BD4")
rahmi.Rows.Add("46112042",
"Faradhiba Zainal Putri", "P", "12/04/1993",
3000000, "1BD4")
rahmi.Rows.Add("46112054",
"Rahmi Ani", "P", "11/30/1994",
2000000, "1BD4")
rahmi.Rows.Add("46112043",
"Remon Agit Rimang", "L", "01/06/1995",
3000000, "1BD4")
rahmi.Rows.Add("46112032",
"Abd. Rahman", "L", "10/08/1994",
1500000, "1BD4")
rahmi.Rows.Add("46112057",
"I Ketut Yuda Sadpwa", "L", "05/02/1993",
4500000, "1BD4")
rahmi.Rows.Add("46112037",
"Herianto", "L", "12/08/1993",
3000000, "1BD4")
rahmi.Rows.Add("46112058",
"citra amalia ramadhani", "L", "02/16/1995",
3000000, "1BD4")
rahmi.Rows.Add("46112050",
"Andi Akbar", "L", "11/26/1994",
2000000, "1BD4")
rahmi.Rows.Add("46112034",
"Gamaliel Giovani Rafael Nong", "L", "08/06/1993",
3700000, "1BD4")
rahmi.Rows.Add("46112047",
"Hasmawati", "P", "11/22/1994",
5000000, "1BD4")
rahmi.Rows.Add("46112038",
"Viorensi S", "P", "10/13/1994",
2000000, "1BD4")
rahmi.Rows.Add("46112046",
"Andini Hayrunnisyah", "P", "06/27/1994",
1500000, "1BD4")
rahmi.Rows.Add("46112031",
"Irmayanti", "P", "05/02/1994",
1000000, "1BD4")
rahmi.Rows.Add("46112039",
"Carissa Evan Anthen", "P", "10/23/1994",
6000000, "1BD4")
rahmi.Rows.Add("46112052",
"Aprianto Sandy", "L", "04/11/1993",
3000000, "1BD4")
rahmi.Rows.Add("46112049",
"Muhammad Farid Syah", "L", "01/20/1995",
5000000, "1BD4")
rahmi.Rows.Add("46112033",
"Maulanan Ibrahim", "L", "04/10/1994",
1000000, "1BD4")
rahmi.Rows.Add("46112035",
"Herpita Tohura", "P", "10/24/1993",
700000, "1BD4")
rahmi.Rows.Add("46112048",
"Udin Pranata", "L", "01/29/1993",
1000000, "1BD4")
rahmi.Rows.Add("46112051",
"Afrisca Fraktiani Rante", "P", "04/13/1995",
5000000, "1BD4")
rahmi.Rows.Add("46112056",
"Kartini Widyasita", "P", "04/21/1993",
4650000, "1BD4")
rahmi.Rows.Add("46112045",
"Abdul Qawwam Nurjaya", "L", "11/26/1994",
3500000, "1BD4")
rahmi.Rows.Add("46112040",
"Tommy Paunganan", "L", "02/22/1993",
2000000, "1BD4")
rahmi.Rows.Add("46112053",
"Khusnul Khatimah A", "P", "08/27/1994",
3000000, "1BD4")
rahmi.Rows.Add("46112041",
"Nida Hazimah Ulfah", "P", "09/24/1995",
5000000, "1BD4")
rahmi.Rows.Add("46112044",
"Ulfah Nas", "P", "01/26/1994",
5000000, "1BD4")
rahmi.Rows.Add("46112036",
"Hasmiati Hajar", "P", "05/17/1994",
5000000, "1BD4")
rahmi.Rows.Add("36112016",
"Andi Jusma Nilam Sari", "P", "09/02/1994",
10000000, "1AD3")
rahmi.Rows.Add("36112006",
"Izmi Istiqamah", "P", "11/04/1994",
7000000, "1AD3")
rahmi.Rows.Add("36112007",
"Imran Novrin Ruslim", "L", "11/21/1994",
1000000, "1AD3")
rahmi.Rows.Add("36112003",
"Fathin Ammar Asidik", "L", "06/29/1994",
6800000, "1AD3")
rahmi.Rows.Add("36112008",
"Adbul Malik", "L", "11/09/1993",
3000000, "1AD3")
rahmi.Rows.Add("36112028",
"Zulfitra Qadar Yasin", "L", "03/10/1994",
10000000, "1AD3")
rahmi.Rows.Add("36112020",
"Bernard Talebong", "P", "10/01/1994",
10000000, "1AD3")
rahmi.Rows.Add("36112024",
"Syahrul Kamal", "L", "10/18/1994",
10000000, "1AD3")
rahmi.Rows.Add("36112001",
"Fitri", "P",
"10/20/1994", 5000000, "1AD3")
rahmi.Rows.Add("36112010",
"Yulianti", "P", "09/28/1994",
3000000, "1AD3")
rahmi.Rows.Add("36112012",
"Sri Aprianti", "P", "04/05/1994",
4000000, "1AD3")
rahmi.Rows.Add("36112013",
"Noviantri Paembonan", "P", "11/19/1994",
6000000, "1AD3")
rahmi.Rows.Add("36112018",
"Kurniawati", "P", "10/11/1994",
2000000, "1AD3")
rahmi.Rows.Add("36112017",
"Dana Abrian", "L", "10/05/1994",
5000000, "1AD3")
rahmi.Rows.Add("36112023",
"Andi Arhami Hamzah", "P", "06/28/1994",
10000000, "1AD3")
rahmi.Rows.Add("36112059",
"Ummul Hayyul Qayyum", "P", "12/01/1993",
3500000, "1AD3")
rahmi.Rows.Add("36112027",
"Nurul Rezki Susanti", "P", "09/24/1994",
5000000, "1AD3")
rahmi.Rows.Add("36112005",
"Mawar Aztanti", "P", "06/01/1993",
4000000, "1AD3")
rahmi.Rows.Add("36112022",
"Rismawati", "P", "09/07/1994",
900000, "1AD3")
rahmi.Rows.Add("36112004",
"Endah Mariadi", "P", "11/07/1994",
7500000, "1AD3")
rahmi.Rows.Add("36112026",
"Melinda Rizkawati", "P", "05/07/1994",
2000000, "1AD3")
rahmi.Rows.Add("36112025",
"Ivana Olivia Aser", "P", "01/14/1993",
6000000, "1AD3")
rahmi.Rows.Add("36112021",
"Sulaipah", "P", "09/28/1994",
1000000, "1AD3")
rahmi.Rows.Add("36112061",
"Rahmat Adi Pratama", "L", "04/21/1994",
10000000, "1AD3")
rahmi.Rows.Add("36112060",
"Nita", "P",
"01/04/1995", 2500000, "1AD3")
rahmi.Rows.Add("36112019",
"Kharisma Yusuf", "P", "06/14/1994",
4000000, "1AD3")
rahmi.Rows.Add("36112014",
"A. Rahmawaty", "P", "04/04/1994",
5000000, "1AD3")
rahmi.Rows.Add("36112015",
"Danela Mangintek", "P", "11/06/1994",
3000000, "1AD3")
rahmi.Rows.Add("36112009",
"Rahmaniah", "P", "01/19/1994",
3000000, "1AD3")
DGV_36110040.DataSource = rahmi
rahmi2 = rahmi.DefaultView
DGV_36110040.DataSource = rahmi2
End Sub
Private Sub STB_36110048_CheckedChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles
STB_36110040.CheckedChanged
If
STB_36110040.Checked Then
rahmi2.Sort = "Stambuk"
End If
End Sub
Private Sub KLS1_36110048_CheckedChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles
KLS1_36110040.CheckedChanged
If
KLS1_36110040.Checked Then
rahmi2.Sort = "Kelas desc"
End If
End Sub
Private Sub KLS2_36110048_CheckedChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles
KLS2_36110040.CheckedChanged
If
KLS2_36110040.Checked Then
rahmi2.Sort = "Kelas asc, [Tanggal Lahir] asc"
End If
End Sub
Private Sub GAJI_36110048_CheckedChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles
GAJI_36110040.CheckedChanged
If
GAJI_36110040.Checked Then
rahmi2.Sort = "[Gaji Ortu] desc"
End If
End Sub
Private Sub GAJI1_36110048_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles
GAJI1_36110048.TextChanged
rahmi2.RowFilter = "[Gaji ortu] > " &
Val(GAJI1_36110048.Text)
End Sub
Private Sub BK1_36110048_TextChanged(ByVal
sender As Object,
ByVal e As
System.EventArgs) Handles
BK1_36110048.TextChanged
rahmi2.RowFilter = "Kelas <> " & "'" & BK1_36110048.Text & "'"
End Sub
Private Sub TGL1_36110048_ValueChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles
TGL1_36110048.ValueChanged
Dim tgl
As String
tgl = "#"
& TGL1_36110048.Value.Month & "/"
& TGL1_36110048.Value.Day & "/"
& TGL1_36110048.Value.Year & "#"
rahmi2.RowFilter = "[Tanggal Lahir] <" & tgl
End Sub
Private Sub UNSUR1_36110048_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles
UNSUR1_36110048.TextChanged
rahmi2.RowFilter = "Nama like'" & "%" & UNSUR1_36110048.Text & "%" & "'"
End Sub
Private Sub FILTER_36110048_Click(ByVal
sender As Object,
ByVal e As
System.EventArgs) Handles FILTER_36110040.Click
Dim tgl
As String
tgl = "#"
& TGL2_36110048.Value.Month & "/"
& TGL2_36110048.Value.Day & "/"
& TGL2_36110048.Value.Year & "#"
rahmi2.RowFilter = "[Gaji ortu] >" &
Val(GAJI2_36110048.Text) & " and Kelas
<>" & "'"
& KLS2_36110040.Text & "'"
& " and [Tanggal Lahir] <"
& tgl & " and Nama like"
& "'%" &
UNSUR2_36110048.Text & "%'"
End Sub
Private Sub WARNA_36110048_Click(ByVal
sender As Object,
ByVal e As
System.EventArgs) Handles WARNA_36110040.Click
For Each X As
DataGridViewRow In DGV_36110040.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. Setelah itu
jalankan Programnya dengan menekan “start debugging”
7. Kemudian simpan
file tersebut dengan menekan icon “save”
8. Selesai
Tidak ada komentar:
Posting Komentar