Tahap
Penyelesaian Latihan_14_36110031
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 dan add. seperti pada gambar dibawah:
4.
Buat Form Latihan_14 dibawah ini:
5.
Berikut ini Rumus untuk menjalankan
Form diatas:
Public Class
Latihan_14_36110031
Dim AAM As New DataTable
Dim View As New DataView
Private Sub
Latihan_14_36110031_Load(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
MyBase.Load
AAM.Columns.Add(New DataColumn("Stambuk", GetType(String)))
AAM.Columns.Add(New DataColumn("Nama", GetType(String)))
AAM.Columns.Add(New DataColumn("Jenis kelamin", GetType(String)))
AAM.Columns.Add(New DataColumn("Tanggal Lahir", GetType(Date)))
AAM.Columns.Add(New DataColumn("Gaji Orang Tua", GetType(Double)))
AAM.Columns.Add(New DataColumn("Kelas", GetType(String)))
AAM.Rows.Add("36112019", "Kharisma
Yusuf", "P", "06/14/1994", 4000000, "1A")
AAM.Rows.Add("36112014", "A.
Rahmawaty", "P", "04/04/1994", 5000000, "1AD3")
AAM.Rows.Add("36112015", "Danela
Mangintek", "P", "11/06/1994", 3000000, "1AD3")
AAM.Rows.Add("36112009", "Rahmaniah",
"P", "01/19/1994",
1000000, "1AD3")
AAM.Rows.Add("36112016", "Andi
Jusma Nilam Sari", "P",
"09/02/1994", 10000000, "1AD3")
AAM.Rows.Add("36112006", "Izmi
Istiqamah", "P", "11/04/1994", 7000000, "1AD3")
AAM.Rows.Add("36112007", "Imran
Novrin Ruslim", "L", "11/21/1994", 1000000, "1AD3")
AAM.Rows.Add("36112003", "Fathin
Ammar Asidik", "L", "06/29/1994", 6800000, "1AD3")
AAM.Rows.Add("36112008", "Adbul
Malik", "L", "11/09/1993", 1000000, "1AD3")
AAM.Rows.Add("36112011", "Zulfitra
Qadar Yasin", "L", "03/10/1994", 10000000, "1AD3")
AAM.Rows.Add("36112020", "Bernard
Talebong", "P", "10/01/1994", 10000000, "1AD3")
AAM.Rows.Add("36112024", "Syahrul
Kamal", "L", "10/18/1994", 10000000, "1AD3")
AAM.Rows.Add("36112001", "Fitri",
"P", "10/20/1994",
5000000, "1AD3")
AAM.Rows.Add("36112010", "Yulianti",
"P", "09/28/1994",
1000000, "1AD3")
AAM.Rows.Add("36112012", "Sri
Aprianti", "P", "04/05/1994", 4000000, "1AD3")
AAM.Rows.Add("36112013", "Noviantri
Paembonan", "P", "11/19/1994", 6000000, "1AD3")
AAM.Rows.Add("36112018", "Kurniawati",
"P", "10/11/1994",
"2000000", "1AD3")
AAM.Rows.Add("36112017", "Dana
Abrian", "L", "10/05/1994", 5000000, "1AD3")
AAM.Rows.Add("36112023", "Andi
Arhami Hamzah", "P", "06/28/1994", 10000000, "1AD3")
AAM.Rows.Add("36112059", "Ummul
Hayyul Qayyum", "P", "12/01/1993", 3500000, "1AD3")
AAM.Rows.Add("36112027", "Nurul
Rezki Susanti", "P", "09/24/1994", 5000000, "1AD3")
AAM.Rows.Add("36112060", "Nita",
"P", "01/04/1995",
2500000, "1AD3")
AAM.Rows.Add("36112005", "Mawar
Aztanti", "P", "06/01/1993", 4000000, "1AD3")
AAM.Rows.Add("36112022", "Rismawati",
"P", "09/07/1994",
900000, "1AD3")
AAM.Rows.Add("36112004", "Endah
Mariadi", "P", "11/07/1994", 7500000, "1AD3")
AAM.Rows.Add("36112026", "Melinda
Rizkawati", "P", "05/07/1994", 2000000, "1AD3")
AAM.Rows.Add("36112025", "Ivana
Olivia Aser", "P", "01/14/1993", 6000000, "1AD3")
AAM.Rows.Add("36112021", "Sulaipah",
"P", "09/28/1994",
1000000, "1AD3")
AAM.Rows.Add("36112061", "Rahmat
Adi Pratama", "L", "04/21/1994", 10000000, "1AD3")
AAM.Rows.Add("36112028", "andri
prianto tukan", "L", "04/26/1994", 2000000, "1BD3")
AAM.Rows.Add("36112057", "Reenaldy
Alchudri Azsagaf", "L",
"05/03/1994", 10000000, "1BD3")
AAM.Rows.Add("36112039", "Andi
Syahril", "L", "10/02/1994", 2000000, "1BD3")
AAM.Rows.Add("36112051", "Muhammad
Adhe Anugrah", "L", "08/31/1993", 5000000, "1BD3")
AAM.Rows.Add("36112042", "Sukmawati
Amir", "P", "04/13/1994", 6000000, "1BD3")
AAM.Rows.Add("36112040", "Dian
Eka Puteri", "P", "11/11/1993", 1000000, "1bD3")
AAM.Rows.Add("36112048", "Tri
Wahyuni", "P", "11/11/1994", 800000, "1BD3")
AAM.Rows.Add("36112047", "A.
Dian Pelita Waty", "P",
"05/05/1994", 3000000, "1BD3")
AAM.Rows.Add("36112043", "Mu'minat
Nur", "P", "05/17/1995", 5000000, "1BD3")
AAM.Rows.Add("36112050", "Andi
Anggi Fadliyah", "P", "08/15/1994", 1500000, "1BD3")
AAM.Rows.Add("36112033", "A.
Syasya Annisa Ausan", "P",
"08/08/1994", 7000000, "1BD3")
AAM.Rows.Add("36112044", "Muhammad
Fachri Sani", "L", "02/02/1994", 5000000, "1BD3")
AAM.Rows.Add("36112053", "Resky
Yonada Ahmad", "P", "03/22/1994", 1500000, "1BD3")
AAM.Rows.Add("36112029", "Trinayanti",
"P", "06/03/1992",
3000000, "1BD3")
AAM.Rows.Add("36112041", "Musyarafah
Asis", "L", "07/13/1994", 6000000, "1BD3")
AAM.Rows.Add("36112055", "Achmad
Rezky Satria Perdana", "L",
"12/17/1993", 3000000, "1BD3")
AAM.Rows.Add("36112034", "Fibra
Yoseph P.", "P", "03/27/1995", 6000000, "1BD3")
AAM.Rows.Add("36112045", "Ibnu
Affan Al-Mufar'id", "L",
"08/05/1994", 8000000, "1BD3")
AAM.Rows.Add("36112030", "Sri
Widya Ayu Wandini", "P",
"06/01/1994", 5000000, "1BD3")
AAM.Rows.Add("36112046", "Sri
Wahyuni Hafid", "P", "12/25/1994", 11000000, "1BD3")
AAM.Rows.Add("36112032", "Rosita
Satri", "P", "12/06/1994", 3000000, "1BD3")
AAM.Rows.Add("36112052", "Sabri",
"L", "07/24/1993",
700000, "1BD3")
AAM.Rows.Add("36112049",
"Alfin Riani Bandaso", "P", "04/11/1994",
3000000, "1BD3")
AAM.Rows.Add("36112036", "Nurmilasari",
"P", "07/06/1993",
200000, "1B D-3")
AAM.Rows.Add("36112035", "Tri
Arismunandar", "L", "12/09/1993", 1000000, "1BD3")
AAM.Rows.Add("36112031", "Nur
Indahsari Idris", "P",
"08/28/1994", 5000000, "1BD3")
AAM.Rows.Add("36112037", "Ismawati",
"P", "08/01/1994",
900000, "1BD3")
AAM.Rows.Add("36112034", "Rezky
Arianti", "P", "01/27/1994", 3000000, "1BD3")
AAM.Rows.Add("36112032", "Artis
Susan", "P", "10/29/1993", 5000000, "1BD3")
AAM.Rows.Add("36112054", "Ade
Apriathis Rantelino", "L",
"04/27/1994", 3000000, "1BD3")
AAM.Rows.Add("46112003", "Nurawalia
M.", "P", "12/04/1994", 3000000, "1AD4")
AAM.Rows.Add("46120023", "Puspita
Susilawati Ridjal", "P",
"01/01/1994", 4000000, "1AD4")
AAM.Rows.Add("46110018", "Rose
Anne Tarida Situmorang", "P",
"12/14/1994", 5000000, "1AD4")
AAM.Rows.Add("46112004", "Siti
Khaerunnisa", "P", "03/28/1994", 1000000, "1AD4")
AAM.Rows.Add("46112015", "Irmayanti",
"P", "09/23/1994",
1000000, "1AD4")
AAM.Rows.Add("46112011", "Delsi
Tifani Lan", "P", "12/24/1994", 2000000, "1AD4")
AAM.Rows.Add("46112027", "Reny
Rita Waty Djafar", "P",
"07/26/1993", 3000000, "1AD4")
AAM.Rows.Add("46112002", "Dewi
Sartika", "P", "02/10/1994", 1000000, "1AD4")
AAM.Rows.Add("46112004", "Anita
Rahmah Muhtadin", "P",
"12/07/1994", 5000000, "1AD4")
AAM.Rows.Add("46112021",
"Rafidah", "P", "06/05/1994",
500000, "1AD4")
AAM.Rows.Add("46112009", "Eka
Yuli Astuti", "P", "08/07/1994", 2000000, "1AD4")
AAM.Rows.Add("46112025", "Fitri
Amalia Islamiati", "P",
"03/26/1995", 4000000, "1AD4")
AAM.Rows.Add("46112014", "Mariana.",
"P", "06/22/1994",
1000000, "1AD4")
AAM.Rows.Add("46112013", "A.
Muh. Lutfi Ahmad", "L",
"10/10/1993", 4000000, "1AD4")
AAM.Rows.Add("46112008", "Nanda
Ardilia Pratama", "L",
"08/01/1994", 1000000, "1AD4")
AAM.Rows.Add("46112022", "Liliani
Paelongan", "P", "05/25/1994", 3000000, "1AD4")
AAM.Rows.Add("46112007", "Andi
Rabiah", "L", "09/07/1994", 1000000, "1AD4")
AAM.Rows.Add("46112001", "Rizka
Awalia Mustakim", "P",
"10/07/1994", 3000000, "1AD4")
AAM.Rows.Add("46112005", "Mardhotillah",
"P", "01/13/1994",
3000000, "1AD4")
AAM.Rows.Add("46112017", "Camelia
Indulgenssya Gundung", "P",
"09/14/1994", 2000000, "1AD4")
AAM.Rows.Add("46112028", "Nur
Salim Rusdi", "L", "04/12/1994", 1500000, "1AD4")
AAM.Rows.Add("46112026", "Muhammad
Khaidir", "L", "12/26/1993", 3000000, "1AD4")
AAM.Rows.Add("46112020", "Sukriani
Karunia Rahma", "P", "12/01/1994", 3000000, "1AD4")
AAM.Rows.Add("46112006", "Rezky
Tri Utami", "P", "07/03/1994", 3000000, "1AD4")
AAM.Rows.Add("46112029", "Azwar
Arfah", "L", "04/03/1994", 3000000, "1AD4")
AAM.Rows.Add("46112016", "Dyah
Sukma Anggraini", "P",
"05/10/1994", 3500000, "1AD4")
AAM.Rows.Add("46112010", "Nur
Indah Purnamasari", "P",
"07/22/1994", 2500000, "1AD4")
AAM.Rows.Add("46112012", "Nurul
Qadri Musra", "L", "08/24/1994", 3000000, "1AD4")
AAM.Rows.Add("46112055", "Reni
Anggraeni", "P", "10/12/1994", 1500000, "1BD4")
AAM.Rows.Add("46112042", "Faradhiba
Zainal Putri", "P", "12/04/1993", 3000000, "1BD4")
AAM.Rows.Add("46112054", "Rahmi
Ani", "P", "11/30/1994", 2000000, "1BD4")
AAM.Rows.Add("46112043", "Remon
Agit Rimang", "L", "01/06/1995", 3000000, "1BD4")
AAM.Rows.Add("46112032", "Abd.
Rahman", "L", "10/08/1994", 1500000, "1BD4")
AAM.Rows.Add("46112057", "I
Ketut Yuda Sadpwa", "L",
"05/02/1993", 4500000, "1B D4")
AAM.Rows.Add("46112037", "Herianto",
"L", "12/08/1993",
3000000, "1B D4")
AAM.Rows.Add("46112058", "citra
amalia ramadhani", "L",
"02/16/1995", 3000000, "1BD4")
AAM.Rows.Add("46112050", "Andi
Akbar", "L", "11/26/1994", 2000000, "1B D4")
AAM.Rows.Add("46112034", "Gamaliel
Giovani Rafael Nong", "L",
"08/06/1993", 3700000, "1B")
AAM.Rows.Add("46112047", "Hasmawati",
"P", "11/22/1994",
5000000, "1B")
AAM.Rows.Add("46112038", "Viorensi
S", "P", "10/13/1994", 2000000, "1B")
AAM.Rows.Add("46112046", "Andini
Hayrunnisyah", "P", "06/27/1994", 1500000, "1B")
AAM.Rows.Add("46112031", "Irmayanti",
"P", "05/02/1994",
1000000, "1B")
AAM.Rows.Add("46112039", "Carissa
Evan Anthen", "P", "10/23/1994", 6000000, "1B")
AAM.Rows.Add("46112052", "Aprianto
Sandy", "L", "04/11/1993", 3000000, "1B")
AAM.Rows.Add("46112049", "Muhammad
Farid Syah", "L", "01/20/1995", 5000000, "1B")
AAM.Rows.Add("46112033", "Maulanan
Ibrahim", "L", "04/10/1994", 1000000, "1B")
AAM.Rows.Add("46112035", "Herpita
Tohura", "P", "10/24/1993", 700000, "1B")
AAM.Rows.Add("46112048", "Udin
Pranata", "L", "01/29/1993", 1000000, "1B")
AAM.Rows.Add("46112051", "Afrisca
Fraktiani Rante", "P",
"04/13/1995", 5000000, "1B")
AAM.Rows.Add("46112056", "Kartini
Widyasita", "P", "04/21/1993", 4650000, "1B")
AAM.Rows.Add("46112045", "Abdul
Qawwam Nurjaya", "L", "11/26/1994", 3500000, "1B")
AAM.Rows.Add("46112040", "Tommy
Paunganan", "L", "02/22/1993", 2000000, "1B")
View =
AAM.DefaultView
DGV1_36110031.DataSource = View
End Sub
Private Sub
Stambuk_36110031_CheckedChanged(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
Stambuk_36110031.CheckedChanged
If Stambuk_36110031.Checked = True Then
View.Sort =
"stambuk"
End If
End Sub
Private Sub
Kelas_36110031_CheckedChanged(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
Kelas_36110031.CheckedChanged
If Kelas_36110031.Checked = True
Then
View.Sort =
"[kelas] desc"
End If
End Sub
Private Sub
Kelas1_36110031_CheckedChanged(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
Kelas1_36110031.CheckedChanged
If
Kelas1_36110031.Checked = True Then
View.Sort =
"[kelas], [Tanggal lahir]"
End If
End Sub
Private Sub
Gajiortu_36110031_CheckedChanged(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
Gajiortu_36110031.CheckedChanged
If Gajiortu_36110031.Checked = True Then
View.Sort =
"[Gaji orang tua] desc"
End If
End Sub
Private Sub
GOT1_36110031_TextChanged(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
GOT1_36110031.TextChanged
View.RowFilter
= "[Gaji orang tua] >" &
Val(GOT1_36110031.Text)
End Sub
Private Sub
bknkelas1_36110031_TextChanged(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
bknkelas1_36110031.TextChanged
View.RowFilter
= "kelas <>'" &
bknkelas1_36110031.Text & "'"
End Sub
Private Sub
DTP1_36110031_ValueChanged(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
DTP1_36110031.ValueChanged
View.RowFilter
= "[Tanggal lahir]< #" &
DTP1_36110031.Value.Month & "/"
& DTP1_36110031.Value.Day & "/"
& DTP1_36110031.Value.Year & "#"
End Sub
Private Sub
unsur1_36110031_TextChanged(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
unsur1_36110031.TextChanged
View.RowFilter
= "[nama]like '%" &
unsur1_36110031.Text & "%'"
End Sub
Private Sub
Filter_36110031_Click(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
Filter_36110031.Click
View.RowFilter = "[Gaji
orang tua] > " & Val(GOT2_36110031.Text) & _
" And [Kelas] <> '" &
bknklas2_36110031.Text & "'"
& _
" And [Tanggal lahir] < #" &
DTP2_36110031.Value.Month & "/"
& DTP2_36110031.Value.Day & "/"
& DTP2_36110031.Value.Year & "#"
& _
" And [nama]like '%" &
unsur2_36110031.Text & "%'"
End Sub
Private Sub
Label9_Click(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
Label9.Click
If ColorDialog1.ShowDialog() =
Windows.Forms.DialogResult.OK Then
Label9.BackColor = ColorDialog1.Color
End If
End Sub
Private Sub
Label12_Click(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
Label12.Click
If ColorDialog1.ShowDialog() =
Windows.Forms.DialogResult.OK Then
Label12.BackColor = ColorDialog1.Color
End If
End Sub
Private Sub
Label10_Click(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
Label10.Click
If ColorDialog1.ShowDialog() =
Windows.Forms.DialogResult.OK Then
Label10.BackColor = ColorDialog1.Color
End If
End Sub
Private Sub
Label13_Click(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
Label13.Click
If
ColorDialog1.ShowDialog() = Windows.Forms.DialogResult.OK Then
Label13.BackColor = ColorDialog1.Color
End If
End Sub
Private Sub
Label11_Click(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
Label11.Click
If ColorDialog1.ShowDialog() =
Windows.Forms.DialogResult.OK Then
Label11.BackColor = ColorDialog1.Color
End If
End Sub
Private Sub
Label14_Click(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
Label14.Click
If ColorDialog1.ShowDialog() =
Windows.Forms.DialogResult.OK Then
Label14.BackColor = ColorDialog1.Color
End If
End Sub
Private Sub
Aturwarna_36110031_Click(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
Aturwarna_36110031.Click
For Each baris As DataGridViewRow In
DGV1_36110031.Rows
If baris.Cells("gaji
orang tua").Value > 6000000 Then
baris.DefaultCellStyle.BackColor = Label9.BackColor
ElseIf baris.Cells("gaji
orang tua").Value > 5000000 Then
baris.DefaultCellStyle.BackColor = Label12.BackColor
ElseIf baris.Cells("gaji
orang tua").Value > 4000000 Then
baris.DefaultCellStyle.BackColor = Label10.BackColor
ElseIf baris.Cells("gaji
orang tua").Value > 3000000 Then
baris.DefaultCellStyle.BackColor = Label13.BackColor
ElseIf baris.Cells("gaji
orang tua").Value > 2000000 Then
baris.DefaultCellStyle.BackColor =
Label11.BackColor
Else : baris.DefaultCellStyle.BackColor =
Label14.BackColor
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
Deskripsi
Penyelesaian Latihan_14_36110031
A.
Form
Latihan 05
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_36110031_Click
Untuk Button Warna:
Aturwarna_36110031_Click
C.
Even
Stambuk_36110031_CheckedChanged
Kelas_36110031_CheckedChanged
Kelas1_36110031_CheckedChanged
Gajiortu_36110031_CheckedChanged
GOT1_36110031_TextChanged
bknkelas1_36110031_TextChanged
DTP1_36110031_ValueChanged
unsur1_36110031_TextChanged
Filter_36110031_Click
Aturwarna_36110031_Click
D.
Property
Property TextBox è ReadOnly = True
Tidak ada komentar:
Posting Komentar