Deskripsi & Prosedur Form Latihan_14_36110046
Deskripsi Form Latihan_14_36110046
Pada Form Latihan 14 terdapat 7 object, yaitu label, textbox, button, groupbox, datagridview,
datetimepicker, radiobutton. (Banya’ nya..hehehe)
Object
Pada Form
Object Label
Terdapat 13 objek label (seperti terlihat
gambar di atas)
Object Textbox
Terdapat 6 objek textbox (seperti terlihat
gambar di atas)
Object Button
Terdapat 2 objek button (seperti terlihat
gambar di atas)
Object Groupbox
Terdapat 4 objek groupbox (seperti terlihat
gambar di atas)
Object DataGridView
Terdapat 1 objek datagridview (seperti
terlihat gambar di atas)
Object DataTimePicker
Terdapat 2 objek datatimepicker (seperti
terlihat gambar di atas)
Object Radiobutton
Terdapat 4 objek radiobutton (seperti
terlihat gambar di atas)
Script Unique
Menginput data pada datatable
dtMaba.Rows.Add("46112003",
"Qipe", "L", "12/04/1994", 3000000,
"1AD4")
Memberikan warna pada kolom datatable
X.DefaultCellStyle.BackColor = Color.Red
Event
ButtonClick
Form Load
Property
BackColor
Prosedur Form Latihan_14_36110046
Langkah-langkah mengerjakan Latihan 14, sbb:
1.
Buka Ms. Visual Studio
2.
Klik Create Project
3.
Ketik nama file yang ingin disimpan
4.
Akan terbuka jendela pekerjaan Ms.
Visual Studio
5.
Design form dengan menggunakan tools
pada toolbox
6.
Buat text pada form dengan menggunakan label,
seperti pada gambar
7.
Buat objek semua objek sesuai dengan design pada
latihan 14 dengan toolbox, ikuti gambar dibawah ini:
8.
Setelah design sudah bagus, saatnya
untuk membuat script
9.
Buat script prosedur sendiri seperti
dibawah ini:
Public Class Latihan_14_36110046
Dim dtMaba As New DataTable
Dim dvmaba As New DataView
Private Sub Latihan_14_36110046_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(Date)))
dtMaba.Columns.Add(New DataColumn("Gaji
Ortu", 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("46112023", "Puspita
Susilawati Ridjal", "P",
"01/01/1994", 4000000, "1AD4")
dtMaba.Rows.Add("46112018", "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("46112019", "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_36110046.DataSource = dvmaba
End Sub
Private Sub RB1_36110046_CheckedChanged(ByVal sender As
System.Object, ByVal e As
System.EventArgs) Handles
RB1_36110046.CheckedChanged
If
RB1_36110046.Checked = True Then
dvmaba.Sort = "STAMBUK"
End If
End Sub
Private Sub RB2_36110046_CheckedChanged(ByVal sender As
System.Object, ByVal e As
System.EventArgs) Handles
RB2_36110046.CheckedChanged
If
RB2_36110046.Checked = True Then
dvmaba.Sort = "KELAS DESC"
End If
End Sub
Private Sub RB3_36110046_CheckedChanged(ByVal sender As
System.Object, ByVal e As
System.EventArgs) Handles
RB3_36110046.CheckedChanged
If
RB3_36110046.Checked = True Then
dvmaba.Sort = "KELAS, TANGGAL LAHIR"
End If
End Sub
Private Sub RB4_36110046_CheckedChanged(ByVal sender As
System.Object, ByVal e As
System.EventArgs) Handles
RB4_36110046.CheckedChanged
If
RB4_36110046.Checked = True Then
dvmaba.Sort = "GAJI ORTU"
End If
End Sub
Private Sub F1GJ_36110046_TextChanged(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles
F1GJ_36110046.TextChanged
dvmaba.RowFilter = "[GAJI ORTU] >" &
Val(F1GJ_36110046.Text)
End Sub
Private Sub F1KLS_36110046_TextChanged(ByVal sender As
System.Object, ByVal e As
System.EventArgs) Handles
F1KLS_36110046.TextChanged
dvmaba.RowFilter = "KELAS <>'" &
F1KLS_36110046.Text & "'"
End Sub
Private Sub F1TGL_36110046_ValueChanged(ByVal sender As
System.Object, ByVal e As
System.EventArgs) Handles
F1TGL_36110046.ValueChanged
dvmaba.RowFilter = "[tanggal lahir]<#" &
F1TGL_36110046.Value & "#"
End Sub
Private Sub F1NM_36110046_TextChanged(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles
F1NM_36110046.TextChanged
dvmaba.RowFilter = "NAMA like '%" & F1NM_36110046.Text
& "%'"
End Sub
Private Sub TB1_36110046_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles TB1_36110046.Click
dvmaba.RowFilter = "[GAJI ORTU] >" &
Val(F2GJ_36110046.Text) & " AND
[KELAS]<>'" & F2KLS_36110046.Text & "'" & "
AND [TANGGAL LAHIR] <#" & F2TGL_36110046.Value.Month & "/" & F2TGL_36110046.Value.Day &
"/" &
F2TGL_36110046.Value.Year & "#"
& " AND NAMA LIKE '%" &
F2NM_36110046.Text & "%'"
End Sub
Private Sub TB2_36110046_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles TB2_36110046.Click
For Each X As
DataGridViewRow In DGV_36110046.Rows
If
X.Cells("GAJI ORTU").Value >
6000000 Then
X.DefaultCellStyle.BackColor =
Color.Red
ElseIf
X.Cells("GAJI ORTU").Value >
5000000 Then
X.DefaultCellStyle.BackColor =
Color.Yellow
ElseIf
X.Cells("GAJI ORTU").Value >
4000000 Then
X.DefaultCellStyle.BackColor =
Color.Blue
ElseIf
X.Cells("GAJI ORTU").Value >
3000000 Then
X.DefaultCellStyle.BackColor =
Color.Green
ElseIf
X.Cells("GAJI ORTU").Value >
2000000 Then
X.DefaultCellStyle.BackColor =
Color.HotPink
Else
X.DefaultCellStyle.BackColor =
Color.Lavender
End
If
Next
End Sub
End Class
10. Silahkan
jalankan program anda. Wassalam.
Tidak ada komentar:
Posting Komentar