A.
Object-object dalam Latihan_14_36110051
:
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.
Object DataGridView
Terdapat
satu objeck datagridview yang digunakan untuk menampilkan data tabel yang telah
dibuat.
B.
Script Unique
Untuk
button Filter:
FILTER36110051_Click
Untuk button
Atur Warna:
AW36110051_Click
C. Even
STB_36110051_CheckedChanged
K36110051_CheckedChanged
KT36110051_CheckedChanged
G36110051_CheckedChanged
GOLD1_36110051_TextChanged
BK1_36110051_TextChanged
TGL1_36110048_ValueChanged
UNSUR1_36110048_TextChanged
FILTER_36110048_Click
WARNA_36110048_Click
D.
Property
Property
TextBox ==> ReadOnly=True
PROSEDUR :
1.
Klik Start dan pilih Microsoft Visual Studio 2008.
2.
Klik menu file dan pilih New Project.
3.
Ketik nama dan pilih lokasi yang diinginkan pada masing-masing tempat yang
tersedia, klik Ok.
4.
Klik menu view dan pilih toolbox.
5. Buatlah design form seperti dibawah ini:
6.
Berikut ini adalah rumus untuk menjalankan form di atas:
Public NotInheritable Class
Latihan_14_36110051
Dim Tabel As New DataTable
Dim Data As New DataView
Private Sub Latihan_14_36110051_Load(ByVal
sender As Object,
ByVal e As
System.EventArgs) Handles Me.Load
Tabel.Columns.Add(New DataColumn("Stambuk",
GetType(String)))
Tabel.Columns.Add(New DataColumn("Nama",
GetType(String)))
Tabel.Columns.Add(New DataColumn("Jenis
Kelamin", GetType(String)))
Tabel.Columns.Add(New DataColumn("Tanggal
Lahir", GetType(Date)))
Tabel.Columns.Add(New DataColumn("Gaji
Ortu", GetType(Double)))
Tabel.Columns.Add(New DataColumn("Kelas",
GetType(String)))
Tabel.Rows.Add("46112003",
"Nurawalia M.", "P", "12/04/1994",
3000000, "1AD4")
Tabel.Rows.Add("46120023",
"Puspita Susilawati Ridjal", "P", "01/01/1994",
4000000, "1AD4")
Tabel.Rows.Add("46110018",
"Rose Anne Tarida Situmorang", "P", "12/01/1994",
5000000, "1AD4")
Tabel.Rows.Add("46112004",
"Siti Khaerunnisa", "P", "03/28/1994",
1000000, "1AD4")
Tabel.Rows.Add("46112015",
"Irmayanti", "P", "09/23/1994",
1000000, "1AD4")
Tabel.Rows.Add("46112011",
"Delsi Tifani Lan", "P", "12/24/1994",
2000000, "1AD4")
Tabel.Rows.Add("46112027",
"Reny Rita Waty Djafar", "P", "07/26/1993",
3000000, "1AD4")
Tabel.Rows.Add("46112002",
"Dewi Sartika", "P", "02/10/1994",
1000000, "1AD4")
Tabel.Rows.Add("46112004",
"Anita Rahmah Muhtadin", "P", "12/07/1994",
5000000, "1AD4")
Tabel.Rows.Add("46112021",
"Rafidah", "P", "06/05/1994",
500000, "1AD4")
Tabel.Rows.Add("46112009",
"Eka Yuli Astuti", "P", "08/07/1994",
2000000, "1AD4")
Tabel.Rows.Add("46112025",
"Fitri Amalia Islamiati", "P", "03/26/1995",
4000000, "1AD4")
Tabel.Rows.Add("46112014",
"Mariana.", "P", "06/22/1994",
1000000, "1AD4")
Tabel.Rows.Add("46112013",
"A. Muh. Lutfi Ahmad", "L", "10/10/1993",
4000000, "1AD4")
Tabel.Rows.Add("46112008",
"Nanda Ardilia Pratama", "L", "08/01/1994",
1000000, "1AD4")
Tabel.Rows.Add("46112022",
"Liliani Paelongan", "P", "05/25/1994",
3000000, "1AD4")
Tabel.Rows.Add("46112007",
"Andi Rabiah", "L", "09/07/1994",
1000000, "1AD4")
Tabel.Rows.Add("46112001",
"Rizka Awalia Mustakim", "P", "10/07/1994",
3000000, "1AD4")
Tabel.Rows.Add("46112005",
"Mardhotillah", "P", "01/13/1994",
3000000, "1AD4")
Tabel.Rows.Add("46112017",
"Camelia Indulgenssya Gundung", "P", "09/14/1994",
2000000, "1AD4")
Tabel.Rows.Add("46112028",
"Nur Salim Rusdi", "L", "04/12/1994",
1500000, "1AD4")
Tabel.Rows.Add("46112026",
"Muhammad Khaidir", "L", "12/26/1993",
3000000, "1AD4")
Tabel.Rows.Add("46112020",
"Sukriani Karunia Rahma", "P", "12/01/1994",
3000000, "1AD4")
Tabel.Rows.Add("46112006",
"Rezky Tri Utami", "P", "07/03/1994",
3000000, "1AD4")
Tabel.Rows.Add("46112029",
"Azwar Arfah", "L", "04/03/1994",
3000000, "1AD4")
Tabel.Rows.Add("46112016",
"Dyah Sukma Anggraini", "P", "05/10/1994",
3500000, "1AD4")
Tabel.Rows.Add("46112010",
"Nur Indah Purnamasari", "P", "07/22/1994",
2500000, "1AD4")
Tabel.Rows.Add("46112012",
"Nurul Qadri Musra", "L", "08/24/1994",
3000000, "1AD4")
Tabel.Rows.Add("36112011",
"Andri prianto tukan", "L", "04/26/1994",
2000000, "1BD3")
Tabel.Rows.Add("36112057",
"Reenaldy Alchudri Azsagaf", "L", "05/03/1994",
10000000, "1BD3")
Tabel.Rows.Add("36112039",
"Andi Syahril", "L", "10/02/1994",
2000000, "1BD3")
Tabel.Rows.Add("36112051",
"Muhammad Adhe Anugrah", "L", "08/31/1993",
5000000, "1BD3")
Tabel.Rows.Add("36112042",
"Sukmawati Amir", "P", "04/13/1994",
6000000, "1BD3")
Tabel.Rows.Add("36112040",
"Dian Eka Puteri", "P", "11/11/1993",
1000000, "1BD3")
Tabel.Rows.Add("36112048",
"Tri Wahyuni", "P", "11/11/1994",
800000, "1BD3")
Tabel.Rows.Add("36112047",
"A. Dian Pelita Waty", "P", "05/05/1994",
3000000, "1BD3")
Tabel.Rows.Add("36112043",
"Mu'minat Nur", "P", "05/17/1995",
5000000, "1BD3")
Tabel.Rows.Add("36112050",
"Andi Anggi Fadliyah", "P", "08/15/1994",
1500000, "1BD3")
Tabel.Rows.Add("36112033",
"A. Syasya Annisa Ausan", "P", "08/08/1994",
7000000, "1BD3")
Tabel.Rows.Add("36112044",
"Muhammad Fachri Sani", "L", "02/02/1994",
5000000, "1BD3")
Tabel.Rows.Add("36112053",
"Resky Yonada Ahmad", "P", "03/22/1994",
1500000, "1BD3")
Tabel.Rows.Add("36112029",
"Trinayanti", "P", "06/03/1992",
3000000, "1BD3")
Tabel.Rows.Add("36112041",
"Musyarafah Asis", "L", "07/13/1994",
6000000, "1BD3")
Tabel.Rows.Add("36112055",
"Achmad Rezky Satria Perdana", "L", "12/17/1993",
3000000, "1BD3")
Tabel.Rows.Add("36112056",
"Fibra Yoseph P.", "P", "03/27/1995",
6000000, "1BD3")
Tabel.Rows.Add("36112045",
"Ibnu Affan Al-Mufar'id", "L", "08/05/1994",
8000000, "1BD3")
Tabel.Rows.Add("36112030",
"Sri Widya Ayu Wandini", "P", "06/01/1994",
5000000, "1BD3")
Tabel.Rows.Add("36112046",
"Sri Wahyuni Hafid", "P", "12/25/1994",
11000000, "1BD3")
Tabel.Rows.Add("36112032",
"Rosita Satri", "P", "12/06/1994",
3000000, "1BD3")
Tabel.Rows.Add("36112052",
"Sabri", "L",
"07/24/1993", 700000, "1BD3")
Tabel.Rows.Add("36112049",
"Alfin Riani Bandaso", "P", "04/11/1994",
3000000, "1BD3")
Tabel.Rows.Add("36112036",
"Nurmilasari", "P", "07/06/1993",
200000, "1BD3")
Tabel.Rows.Add("36112035",
"Tri Arismunandar", "L", "12/09/1993",
1000000, "1BD3")
Tabel.Rows.Add("36112031",
"Nur Indahsari Idris", "P", "08/28/1994",
5000000, "1BD3")
Tabel.Rows.Add("36112037",
"Ismawati", "P", "08/01/1994",
900000, "1BD3")
Tabel.Rows.Add("36112034",
"Rezky Arianti", "P", "01/27/1994",
3000000, "1BD3")
Tabel.Rows.Add("36112038",
"Artis Susan", "P", "10/29/1993",
5000000, "1BD3")
Tabel.Rows.Add("36112054",
"Ade Apriathis Rantelino", "L", "04/27/1994",
3000000, "1BD3")
Tabel.Rows.Add("46112055",
"Reni Anggraeni", "P", "10/12/1994",
1500000, "1BD4")
Tabel.Rows.Add("46112042",
"Faradhiba Zainal Putri", "P", "12/04/1993",
3000000, "1BD4")
Tabel.Rows.Add("46112054",
"Rahmi Ani", "P", "11/30/1994",
2000000, "1BD4")
Tabel.Rows.Add("46112043",
"Remon Agit Rimang", "L", "01/06/1995",
3000000, "1BD4")
Tabel.Rows.Add("46112032",
"Abd. Rahman", "L", "10/08/1994",
1500000, "1BD4")
Tabel.Rows.Add("46112057",
"I Ketut Yuda Sadpwa", "L", "05/02/1993",
4500000, "1BD4")
Tabel.Rows.Add("46112037",
"Herianto", "L", "12/08/1993",
3000000, "1BD4")
Tabel.Rows.Add("46112058",
"citra amalia ramadhani", "L", "02/16/1995",
3000000, "1BD4")
Tabel.Rows.Add("46112050",
"Andi Akbar", "L", "11/26/1994",
2000000, "1BD4")
Tabel.Rows.Add("46112034",
"Gamaliel Giovani Rafael Nong", "L", "08/06/1993",
3700000, "1BD4")
Tabel.Rows.Add("46112047",
"Hasmawati", "P", "11/22/1994",
5000000, "1BD4")
Tabel.Rows.Add("46112038",
"Viorensi S", "P", "10/13/1994",
2000000, "1BD4")
Tabel.Rows.Add("46112046",
"Andini Hayrunnisyah", "P", "06/27/1994",
1500000, "1BD4")
Tabel.Rows.Add("46112031",
"Irmayanti", "P", "05/02/1994",
1000000, "1BD4")
Tabel.Rows.Add("46112039",
"Carissa Evan Anthen", "P", "10/23/1994",
6000000, "1BD4")
Tabel.Rows.Add("46112052",
"Aprianto Sandy", "L", "04/11/1993",
3000000, "1BD4")
Tabel.Rows.Add("46112049",
"Muhammad Farid Syah", "L", "01/20/1995",
5000000, "1BD4")
Tabel.Rows.Add("46112033",
"Maulanan Ibrahim", "L", "04/10/1994",
1000000, "1BD4")
Tabel.Rows.Add("46112035",
"Herpita Tohura", "P", "10/24/1993",
700000, "1BD4")
Tabel.Rows.Add("46112048",
"Udin Pranata", "L", "01/29/1993",
1000000, "1BD4")
Tabel.Rows.Add("46112051",
"Afrisca Fraktiani Rante", "P", "04/13/1995",
5000000, "1BD4")
Tabel.Rows.Add("46112056",
"Kartini Widyasita", "P", "04/21/1993",
4650000, "1BD4")
Tabel.Rows.Add("46112045",
"Abdul Qawwam Nurjaya", "L", "11/26/1994",
3500000, "1BD4")
Tabel.Rows.Add("46112040",
"Tommy Paunganan", "L", "02/22/1993",
2000000, "1BD4")
Tabel.Rows.Add("46112053",
"Khusnul Khatimah A", "P", "08/27/1994",
3000000, "1BD4")
Tabel.Rows.Add("46112041",
"Nida Hazimah Ulfah", "P", "09/24/1995",
5000000, "1BD4")
Tabel.Rows.Add("46112044",
"Ulfah Nas", "P", "01/26/1994",
5000000, "1BD4")
Tabel.Rows.Add("46112036",
"Hasmiati Hajar", "P", "05/17/1994",
5000000, "1BD4")
Tabel.Rows.Add("36112016",
"Andi Jusma Nilam Sari", "P", "09/02/1994",
10000000, "1AD3")
Tabel.Rows.Add("36112006",
"Izmi Istiqamah", "P", "11/04/1994",
7000000, "1AD3")
Tabel.Rows.Add("36112007",
"Imran Novrin Ruslim", "L", "11/21/1994",
1000000, "1AD3")
Tabel.Rows.Add("36112003",
"Fathin Ammar Asidik", "L", "06/29/1994",
6800000, "1AD3")
Tabel.Rows.Add("36112008",
"Adbul Malik", "L", "11/09/1993",
3000000, "1AD3")
Tabel.Rows.Add("36112028",
"Zulfitra Qadar Yasin", "L", "03/10/1994",
10000000, "1AD3")
Tabel.Rows.Add("36112020",
"Bernard Talebong", "P", "10/01/1994",
10000000, "1AD3")
Tabel.Rows.Add("36112024",
"Syahrul Kamal", "L", "10/18/1994",
10000000, "1AD3")
Tabel.Rows.Add("36112001",
"Fitri", "P",
"10/20/1994", 5000000, "1AD3")
Tabel.Rows.Add("36112010",
"Yulianti", "P", "09/28/1994",
3000000, "1AD3")
Tabel.Rows.Add("36112012",
"Sri Aprianti", "P", "04/05/1994",
4000000, "1AD3")
Tabel.Rows.Add("36112013",
"Noviantri Paembonan", "P", "11/19/1994",
6000000, "1AD3")
Tabel.Rows.Add("36112018",
"Kurniawati", "P", "10/11/1994",
2000000, "1AD3")
Tabel.Rows.Add("36112017",
"Dana Abrian", "L", "10/05/1994",
5000000, "1AD3")
Tabel.Rows.Add("36112023",
"Andi Arhami Hamzah", "P", "06/28/1994",
10000000, "1AD3")
Tabel.Rows.Add("36112059",
"Ummul Hayyul Qayyum", "P", "12/01/1993",
3500000, "1AD3")
Tabel.Rows.Add("36112027",
"Nurul Rezki Susanti", "P", "09/24/1994",
5000000, "1AD3")
Tabel.Rows.Add("36112005",
"Mawar Aztanti", "P", "06/01/1993",
4000000, "1AD3")
Tabel.Rows.Add("36112022",
"Rismawati", "P", "09/07/1994",
900000, "1AD3")
Tabel.Rows.Add("36112004",
"Endah Mariadi", "P", "11/07/1994",
7500000, "1AD3")
Tabel.Rows.Add("36112026",
"Melinda Rizkawati", "P", "05/07/1994",
2000000, "1AD3")
Tabel.Rows.Add("36112025",
"Ivana Olivia Aser", "P", "01/14/1993",
6000000, "1AD3")
Tabel.Rows.Add("36112021",
"Sulaipah", "P", "09/28/1994",
1000000, "1AD3")
Tabel.Rows.Add("36112061",
"Rahmat Adi Pratama", "L", "04/21/1994",
10000000, "1AD3")
Tabel.Rows.Add("36112060",
"Nita", "P",
"01/04/1995", 2500000, "1AD3")
Tabel.Rows.Add("36112019",
"Kharisma Yusuf", "P", "06/14/1994",
4000000, "1AD3")
Tabel.Rows.Add("36112014",
"A. Rahmawaty", "P", "04/04/1994",
5000000, "1AD3")
Tabel.Rows.Add("36112015",
"Danela Mangintek", "P", "11/06/1994",
3000000, "1AD3")
Tabel.Rows.Add("36112009",
"Rahmaniah", "P", "01/19/1994",
3000000, "1AD3")
Data = Tabel.DefaultView
DGV36110051.DataSource = Data
End Sub
Private Sub STB_36110051_CheckedChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles
Stb36110051.CheckedChanged
If
Stb36110051.Checked Then
Data.Sort = "Stambuk"
End If
End Sub
Private Sub K36110051_CheckedChanged(ByVal
sender As Object,
ByVal e As
System.EventArgs) Handles
K36110051.CheckedChanged
If
K36110051.Checked Then
Data.Sort = "Kelas
desc"
End If
End Sub
Private Sub kt36110051_CheckedChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles
kt36110051.CheckedChanged
If
kt36110051.Checked Then
Data.Sort = "Kelas asc, [Tanggal Lahir] asc"
End If
End Sub
Private Sub g36110051_CheckedChanged(ByVal
sender As Object,
ByVal e As
System.EventArgs) Handles
g36110051.CheckedChanged
If
g36110051.Checked Then
Data.Sort = "[Gaji Ortu] desc"
End If
End Sub
Private Sub GOLD1_36110051_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles
GOLD1_36110051.TextChanged
Data.RowFilter = "[Gaji ortu] > " &
Val(GOLD1_36110051.Text)
End Sub
Private Sub BK1_36110051_TextChanged(ByVal
sender As Object,
ByVal e As
System.EventArgs) Handles
BK1_36110051.TextChanged
Data.RowFilter = "Kelas <> " & "'" & BK1_36110051.Text & "'"
End Sub
Private Sub TGL1_36110048_ValueChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles
DTP1_36110051.ValueChanged
Dim tgl
As String
tgl = "#"
& DTP1_36110051.Value.Month & "/"
& DTP1_36110051.Value.Day & "/"
& DTP1_36110051.Value.Year & "#"
Data.RowFilter = "[Tanggal Lahir] <" & tgl
End Sub
Private Sub NMU_36110051_TextChanged(ByVal
sender As Object,
ByVal e As
System.EventArgs) Handles
NMU_36110051.TextChanged
Data.RowFilter = "Nama like'" & "%" & NMU_36110051.Text & "%" & "'"
End Sub
Private Sub FILTER36110051_Click(ByVal
sender As Object,
ByVal e As
System.EventArgs) Handles FILTER36110051.Click
Dim tgl
As String
tgl = "#"
& DTP2_36110051.Value.Month & "/"
& DTP2_36110051.Value.Day & "/"
& DTP2_36110051.Value.Year & "#"
Data.RowFilter = "[Gaji ortu] >" &
Val(GOLD2_36110051.Text) & " and Kelas
<>" & "'"
& kt36110051.Text & "'"
& " and [Tanggal Lahir] <"
& tgl & " and Nama like"
& "'%" &
NMU2_36110051.Text & "%'"
End Sub
Private Sub AW36110051_Click(ByVal
sender As Object,
ByVal e As
System.EventArgs) Handles AW36110051.Click
For Each X As
DataGridViewRow In DGV36110051.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
7. Untuk melihat
apakah program yang anda telah buat sudah benar atau belum tepat maka klik icon
Start Debugging.
Tidak ada komentar:
Posting Komentar