A. Langkah-langkah Pembuatan dan Penyelesaian Form Pada Latihan 14
1. Bukalah Kumpulan Project yang telah dibuat.
2. Kemudian pilih Project, lalu Add Windows Form
3. Ubah nama Form menjadi "Latihan_14_NIM" tanpa menghilangkan (.vb)
4. Buatlah form pada window tersebut seperti gambar dibawah ini:
semua kelengkapan (object) pada form dapat kita temukan di ToolBox
5. Ubah nama pada Data Grid View sesuai dengan yang kita inginkan. Jangan lupa menambahkan NIM anda pada akhir nama. Begitu juga pada object Button, TextBox, DateTimePicker, kecuali Object Label dan RadioButton tidak usah.
6. Setelah form selesai klik kanan pada form lalu pilih View Code lalu masukkan script dibawah ini pada window:
Public Class Latihan_14_46110043
Dim TRINITA As New DataTable
Dim BON As New DataView
Private Sub Latihan_14_46110043_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
TRINITA.Columns.Add(New DataColumn("Stambuk", GetType(String)))
TRINITA.Columns.Add(New DataColumn("Nama", GetType(String)))
TRINITA.Columns.Add(New DataColumn("JenisKelamin", GetType(String)))
TRINITA.Columns.Add(New DataColumn("TanggalLahir", GetType(String)))
TRINITA.Columns.Add(New DataColumn("GajiOrtu", GetType(Double)))
TRINITA.Columns.Add(New DataColumn("Kelas", GetType(String)))
TRINITA.Rows.Add("46112003", "Nurawalia M", "P", "12/04/1994", 3000000, "1AD4")
TRINITA.Rows.Add("46120023", "Puspita Susilawati Ridjal", "P", "01/01/1994", 4000000, "1AD4")
TRINITA.Rows.Add("46110018", "Rose Anne Tarida Situmorang", "P", "12/01/1994", 5000000, "1AD4")
TRINITA.Rows.Add("46112004", "Siti Khaerunnisa", "P", "03/28/1994", 1000000, "1AD4")
TRINITA.Rows.Add("46112015", "Irmayanti", "P", "09/23/1994", 1000000, "1AD4")
TRINITA.Rows.Add("46112011", "Delsi Tifani Lan", "P", "12/24/1994", 2000000, "1AD4")
TRINITA.Rows.Add("46112027", "Reny Rita Waty Djafar", "P", "07/26/1993", 3000000, "1AD4")
TRINITA.Rows.Add("46112002", "Dewi Sartika", "P", "02/10/1994", 1000000, "1AD4")
TRINITA.Rows.Add("46112004", "Anita Rahmah Muhtadin", "P", "12/07/1994", 5000000, "1AD4")
TRINITA.Rows.Add("46112021", "Rafidah", "P", "06/05/1994", 500000, "1AD4")
TRINITA.Rows.Add("46112009", "Eka Yuli Astuti", "P", "08/07/1994", 2000000, "1AD4")
TRINITA.Rows.Add("46112025", "Fitri Amalia Islamiati", "P", "03/26/1995", 4000000, "1AD4")
TRINITA.Rows.Add("46112014", "Mariana", "P", "06/22/1994", 1000000, "1AD4")
TRINITA.Rows.Add("46112013", "A. Muh. Lutfi Ahmad", "L", "10/10/1993", 4000000, "1AD4")
TRINITA.Rows.Add("46112008", "Nanda Ardilia Pratama", "L", "08/01/1994", 1000000, "1AD4")
TRINITA.Rows.Add("46112022", "Liliani Paelongan", "P", "05/25/1994", 3000000, "1AD4")
TRINITA.Rows.Add("46112007", "Andi Rabiah", "L", "09/07/1994", 1000000, "1AD4")
TRINITA.Rows.Add("46112001", "Rizka Awalia Mustakim", "P", "10/07/1994", 3000000, "1AD4")
TRINITA.Rows.Add("46112005", "Mardhotillah", "P", "01/13/1994", 3000000, "1AD4")
TRINITA.Rows.Add("46112017", "Camelia Indulgenssya Gundung", "P", "09/14/1994", 2000000, "1AD4")
TRINITA.Rows.Add("46112028", "Nur Salim Rusdi", "L", "04/12/1994", 1500000, "1AD4")
TRINITA.Rows.Add("46112026", "Muhammad Khaidir", "L", "12/26/1993", 3000000, "1AD4")
TRINITA.Rows.Add("46112020", "Sukriani Karunia Rahma", "P", "12/01/1994", 3000000, "1AD4")
TRINITA.Rows.Add("46112006", "Rezky Tri Utami", "P", "07/03/1994", 3000000, "1AD4")
TRINITA.Rows.Add("46112029", "Azwar Arfah", "L", "04/03/1994", 3000000, "1AD4")
TRINITA.Rows.Add("46112016", "Dyah Sukma Anggraini", "P", "05/10/1994", 3500000, "1AD4")
TRINITA.Rows.Add("46112010", "Nur Indah Purnamasari", "P", "07/22/1994", 2500000, "1AD4")
TRINITA.Rows.Add("46112012", "Nurul Qadri Musra", "L", "08/24/1994", 3000000, "1AD4")
TRINITA.Rows.Add("46112055", "Reni Anggraeni", "P", "10/12/1994", 1500000, "1BD4")
TRINITA.Rows.Add("46112042", "Faradhiba Zainal Putri", "P", "12/04/1993", 3000000, "1BD4")
TRINITA.Rows.Add("46112054", "Rahmi Ani", "P", "11/30/1994", 2000000, "1BD4")
TRINITA.Rows.Add("46112043", "Remon Agit Rimang", "L", "01/06/1995", 3000000, "1BD4")
TRINITA.Rows.Add("46112032", "Abd. Rahman", "L", "10/08/1994", 1500000, "1BD4")
TRINITA.Rows.Add("46112057", "I Ketut Yuda Sadpwa", "L", "05/02/1993", 4500000, "1BD4")
TRINITA.Rows.Add("46112037", "Herianto", "L", "12/08/1993", 3000000, "1BD4")
TRINITA.Rows.Add("46112058", "citra amalia ramadhani", "L", "02/16/1995", 3000000, "1BD4")
TRINITA.Rows.Add("46112050", "Andi Akbar", "L", "11/26/1994", 2000000, "1BD4")
TRINITA.Rows.Add("46112034", "Gamaliel Giovani Rafael Nong", "L", "08/06/1993", 3700000, "1BD4")
TRINITA.Rows.Add("46112047", "Hasmawati", "P", "11/22/1994", 5000000, "1BD4")
TRINITA.Rows.Add("46112038", "Viorensi S", "P", "10/13/1994", 2000000, "1BD4")
TRINITA.Rows.Add("46112046", "Andini Hayrunnisyah", "P", "06/27/1994", 1500000, "1BD4")
TRINITA.Rows.Add("46112031", "Irmayanti", "P", "05/02/1994", 1000000, "1BD4")
TRINITA.Rows.Add("46112039", "Carissa Evan Anthen", "P", "10/23/1994", 6000000, "1BD4")
TRINITA.Rows.Add("46112052", "Aprianto Sandy", "L", "04/11/1993", 3000000, "1BD4")
TRINITA.Rows.Add("46112049", "Muhammad Farid Syah", "L", "01/20/1995", 5000000, "1BD4")
TRINITA.Rows.Add("46112033", "Maulanan Ibrahim", "L", "04/10/1994", 1000000, "1BD4")
TRINITA.Rows.Add("46112035", "Herpita Tohura", "P", "10/24/1993", 700000, "1BD4")
TRINITA.Rows.Add("46112048", "Udin Pranata", "L", "01/29/1993", 1000000, "1BD4")
TRINITA.Rows.Add("46112051", "Afrisca Fraktiani Rante", "P", "04/13/1995", 5000000, "1BD4")
TRINITA.Rows.Add("46112056", "Kartini Widyasita", "P", "04/21/1993", 4650000, "1BD4")
TRINITA.Rows.Add("46112045", "Abdul Qawwam Nurjaya", "L", "11/26/1994", 3500000, "1BD4")
TRINITA.Rows.Add("46112040", "Tommy Paunganan", "L", "02/22/1993", 2000000, "1BD4")
TRINITA.Rows.Add("46112053", "Khusnul Khatimah A", "P", "08/27/1994", 3000000, "1BD4")
TRINITA.Rows.Add("46112041", "Nida Hazimah Ulfah", "P", "09/24/1995", 5000000, "1BD4")
TRINITA.Rows.Add("46112044", "Ulfah Nas", "P", "01/26/1994", 5000000, "1BD4")
TRINITA.Rows.Add("46112036", "Hasmiati Hajar", "P", "05/17/1994", 5000000, "1BD4")
TRINITA.Rows.Add("36112001", "Fitri", "P", "10/20/1994", 5000000, "1AD3")
TRINITA.Rows.Add("36112002", "andri prianto tukan", "L", "04/26/1994", 2000000, "1BD3")
TRINITA.Rows.Add("36112003", "Fathin Ammar Asidik", "L", "06/29/1994", 6800000, "1AD3")
TRINITA.Rows.Add("36112004", "Endah Mariadi", "P", "11/07/1994", 7500000, "1AD3")
TRINITA.Rows.Add("36112005", "Mawar Aztanti", "P", "06/01/1993", 4000000, "1AD3")
TRINITA.Rows.Add("36112006", "Izmi Istiqamah", "P", "11/04/1994", 7000000, "1AD3")
TRINITA.Rows.Add("36112007", "Imran Novrin Ruslim", "L", "11/21/1994", 1000000, "1AD3")
TRINITA.Rows.Add("36112008", "Adbul Malik", "L", "11/09/1993", 2500000, "1AD3")
TRINITA.Rows.Add("36112010", "Yulianti", "P", "09/28/1994", 2500000, "1AD3")
TRINITA.Rows.Add("36112011", "Zulfitra Qadar Yasin", "L", "03/10/1994", 10000000, "1AD3")
TRINITA.Rows.Add("36112012", "Sri Aprianti", "P", "04/05/1994", 4000000, "1AD3")
TRINITA.Rows.Add("36112013", "Noviantri Paembonan", "P", "11/19/1994", 6000000, "1AD3")
TRINITA.Rows.Add("36112016", "Andi Jusma Nilam Sari", "P", "09/02/1994", 10000000, "1AD3")
TRINITA.Rows.Add("36112017", "Dana Abrian", "L", "10/05/1994", 5000000, "1AD3")
TRINITA.Rows.Add("36112018", "Kurniawati", "P", "10/11/1994", 2000000, "1AD3")
TRINITA.Rows.Add("36112020", "Bernard Talebong", "P", "10/01/1994", 10000000, "1AD3")
TRINITA.Rows.Add("36112023", "Andi Arhami Hamzah", "P", "06/28/1994", 10000000, "1AD3")
TRINITA.Rows.Add("36112024", "Syahrul Kamal", "L", "10/18/1994", 10000000, "1AD3")
TRINITA.Rows.Add("36112027", "Nurul Rezki Susanti", "P", "09/24/1994", 5000000, "1AD3")
TRINITA.Rows.Add("36112059", "Ummul Hayyul Qayyum", "P", "12/01/1993", 3500000, "1AD3")
TRINITA.Rows.Add("36112022", "Rismawati", "P", "09/07/1994", 900000, "1AD3")
TRINITA.Rows.Add("36112026", "Melinda Rizkawati", "P", "05/07/1994", 2000000, "1AD3")
TRINITA.Rows.Add("36112025", "Ivana Olivia Aser", "P", "01/14/1993", 6000000, "1AD3")
TRINITA.Rows.Add("36112021", "Sulaipah", "P", "09/28/1994", 1000000, "1AD3")
TRINITA.Rows.Add("36112061", "Rahmat Adi Pratama", "L", "04/21/1994", 10000000, "1AD3")
TRINITA.Rows.Add("36112060", "Nita", "P", "01/04/1995", 2500000, "1AD3")
TRINITA.Rows.Add("36112019", "Kharisma Yusuf", "P", "06/14/1994", 4000000, "1AD3")
TRINITA.Rows.Add("36112014", "A. Rahmawaty", "P", "04/04/1994", 5000000, "1AD3")
TRINITA.Rows.Add("36112015", "Danela Mangintek", "P", "11/06/1994", 3000000, "1AD3")
TRINITA.Rows.Add("36112009", "Rahmaniah", "P", "01/19/1994", 2500000, "1AD3")
TRINITA.Rows.Add("36112057", "Reenaldy Alchudri Azsagaf", "L", "05/03/1994", 10000000, "1BD3")
TRINITA.Rows.Add("36112039", "Andi Syahril", "L", "10/02/1994", 2000000, "1BD3")
TRINITA.Rows.Add("36112051", "Muhammad Adhe Anugrah", "L", "08/31/1993", 5000000, "1BD3")
TRINITA.Rows.Add("36112042", "Sukmawati Amir", "P", "04/13/1994", 6000000, "1BD3")
TRINITA.Rows.Add("36112019", "Dian Eka Puteri", "P", "11/11/1993", 1000000, "1BD3")
TRINITA.Rows.Add("36112048", "Tri Wahyuni", "P", "11/11/1994", 800000, "1BD3")
TRINITA.Rows.Add("36112047", "A. Dian Pelita Waty", "P", "05/05/1994", 3000000, "1BD3")
TRINITA.Rows.Add("36112028", "Mu'minat Nur", "P", "05/17/1995", 5000000, "1BD3")
TRINITA.Rows.Add("36112038", "Andi Anggi Fadliyah", "P", "08/15/1994", 1500000, "1BD3")
TRINITA.Rows.Add("36112033", "A. Syasya Annisa Ausan", "P", "08/08/1994", 7000000, "1BD3")
TRINITA.Rows.Add("36112044", "Muhammad Fachri Sani", "L", "02/02/1994", 5000000, "1BD3")
TRINITA.Rows.Add("36112053", "Resky Yonada Ahmad", "P", "03/22/1994", 1500000, "1BD3")
TRINITA.Rows.Add("36112029", "Trinayanti", "P", "06/03/1992", 3000000, "1BD3")
TRINITA.Rows.Add("36112041", "Musyarafah Asis", "L", "07/13/1994", 6000000, "1BD3")
TRINITA.Rows.Add("36112055", "Achmad Rezky Satria Perdana", "L", "12/17/1993", 3000000, "1BD3")
TRINITA.Rows.Add("36112040", "Fibra Yoseph P", "P", "03/27/1995", 6000000, "1BD3")
TRINITA.Rows.Add("36112045", "Ibnu Affan Al-Mufar'id", "L", "08/05/1994", 8000000, "1BD3")
TRINITA.Rows.Add("36112030", "Sri Widya Ayu Wandini", "P", "06/01/1994", 5000000, "1BD3")
TRINITA.Rows.Add("36112046", "Sri Wahyuni Hafid", "P", "12/25/1994", 11000000, "1BD3")
TRINITA.Rows.Add("36112032", "Rosita Satri", "P", "12/06/1994", 3000000, "1BD3")
TRINITA.Rows.Add("36112052", "Sabri", "L", "07/24/1993", 700000, "1BD3")
TRINITA.Rows.Add("36112049", "Alfin Riani Bandaso", "P", "04/11/1994", 3000000, "1BD3")
TRINITA.Rows.Add("36112036", "Nurmilasari", "P", "07/06/1993", 2000000, "1BD3")
TRINITA.Rows.Add("36112035", "Tri Arismunandar", "L", "12/09/1993", 1000000, "1BD3")
TRINITA.Rows.Add("36112031", "Nur Indahsari Idris", "P", "08/28/1994", 5000000, "1BD3")
TRINITA.Rows.Add("36112037", "Ismawati", "P", "08/01/1994", 900000, "1BD3")
TRINITA.Rows.Add("36112034", "Rezky Arianti", "P", "01/27/1994", 3000000, "1BD3")
TRINITA.Rows.Add("36112043", "Artis Susan", "P", "10/29/1993", 5000000, "1BD3")
TRINITA.Rows.Add("36112054", "Ade Apriathis Rantelino", "L", "04/27/1994", 3000000, "1BD3")
BON = TRINITA.DefaultView
HASIL46110043.DataSource = BON
End Sub
Private Sub STAMBUK46110043_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles STAMBUK46110043.CheckedChanged
If STAMBUK46110043.Checked = True Then
BON.Sort = "Stambuk"
End If
End Sub
Private Sub GAJI1_46110043_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GAJI1_46110043.CheckedChanged
If GAJI1_46110043.Checked = True Then
BON.Sort = "kelas desc"
End If
End Sub
Private Sub GAJI2_46110043_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GAJI2_46110043.CheckedChanged
If GAJI2_46110043.Checked = True Then
BON.Sort = "kelas,tanggalLahir"
End If
End Sub
Private Sub GAJI3_46110043_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GAJI3_46110043.CheckedChanged
If GAJI3_46110043.Checked = True Then
BON.Sort = "GajiOrtu desc"
End If
End Sub
Private Sub A46110043_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles A46110043.TextChanged
BON.RowFilter = "[GajiOrtu]>=" & Val(A46110043.Text)
End Sub
Private Sub B46110043_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles B46110043.TextChanged
BON.RowFilter = "Kelas <> '" & B46110043.Text & "'"
End Sub
Private Sub TANGGAL1_46110043_ValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TANGGAL1_46110043.ValueChanged
BON.RowFilter = "[TanggalLahir]<#" & TANGGAL1_46110043.Value.Date & "#"
End Sub
Private Sub FILTER46110043_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles FILTER46110043.Click
BON.RowFilter = "[GAJIORTU]>" & Val(C46110043.Text) & " AND [KELAS]<>'" & D46110043.Text & "'" & " AND [TANGGAL LAHIR]<#" & TANGGAL2_46110043.Value.Month & "/" & TANGGAL2_46110043.Value.Day & "/" & TANGGAL2_46110043.Value.Year & "#" & " AND NAMA LIKE '%" & MU2_46110043.Text & "%'"
End Sub
Private Sub WARNA46110043_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles WARNA46110043.Click
For Each TRINITA As DataGridViewRow In HASIL46110043.Rows
If TRINITA.Cells("GAJI ORTU").Value > 6000000 Then
TRINITA.DefaultCellStyle.BackColor = merah46110043.BackColor
ElseIf TRINITA.Cells("GAJI ORTU").Value > 5000000 Then
TRINITA.DefaultCellStyle.BackColor = kuning46110043.BackColor
ElseIf TRINITA.Cells("GAJI ORTU").Value > 4000000 Then
TRINITA.DefaultCellStyle.BackColor = hijau46110043.BackColor
ElseIf TRINITA.Cells("GAJI ORTU").Value > 3000000 Then
TRINITA.DefaultCellStyle.BackColor = biru46110043.BackColor
ElseIf TRINITA.Cells("GAJI ORTU").Value > 2000000 Then
TRINITA.DefaultCellStyle.BackColor = orange46110043.BackColor
Else
TRINITA.DefaultCellStyle.BackColor = ungu46110043.BackColor
End If
Next
End Sub
End Class
8. Klik Start Debugging pada ToolBar untuk menjalankan form.
B. Deskripsi Form Latihan_14
Pada form latihan 14 ada 7 object yang digunakan yaitu Label, Text Box, Button, Date Time Picker, Radio Button, Data Grid View dan Group Box.
Object Label
Terdapat 8 label pada form latihan 14 (gaji orang tua lebih dari (2), bukan kelas (2), tanggal lahir sebelum (2) dan nama yang memiliki unsur (2)).
Object TextBox
Pada form ini ada 12 textbox yang digunakan (6 status input dan 6 status readonly). Status input digunakan untuk memasukkan data sedangkan readonly dalam form ini digunakan sebagai pengganti label yang berguna dalam pengklasifikasian gaji (gaji ortu>=6000000, gaji ortu>=5000000, gaji ortu>=4000000, gaji ortu>=3000000, gaji ortu>=2000000, selain itu).
Object Button
Terdapat 2 object button yaitu masing-masing bernama "Filter" dan "Atur Warna". Tombol filter digunakan untuk memfilter data tabel berdasarkan data yang telah diinput pada textbox yang tersedia. Tombol atur warna digunakan dalam pengklasifikasian gaji orang tua yang nantinya akan memberi warna tertentu sesuai klasifikasi yang telah dibuat.
Object DateTimePicker
Pada latihan 14 terdapat 2 datetimepicker. Datetimepicker digunakan dalam menginput data berupa tahun, bulan dan tanggal.
Object RadioButton
Radiobutton pada form ini ada 4 (stambuk, kelas (besaràkecil), kelas (kecilàbesar) tanggal lahir (kecilàbesar) dan gaji orang tua (kecilàbesar) berisi perintah.
Object GroupBox
Terdapat 4 object groupbox pada latihan 14 (urutkan berdasarkan, filter berdasarkan, filter dengan menggabungkan dan pengaturan warna).
Object DataGridView
Terdapat 1 object datagridview yang berfungsi untuk menampilkan data tabel yang telah dibuat.
Script Unique
Untuk membuat data tabel
Dim TRINITA As New DataTable
Membuat kolom pada data tabel
TRINITA.Columns.Add(New DataColumn("Stambuk", GetType(String)))
TRINITA.Columns.Add(New DataColumn("Nama", GetType(String)))
TRINITA.Columns.Add(New DataColumn("JenisKelamin", GetType(String)))
TRINITA.Columns.Add(New DataColumn("TanggalLahir", GetType(String)))
TRINITA.Columns.Add(New DataColumn("GajiOrtu", GetType(Double)))
TRINITA.Columns.Add(New DataColumn("Kelas", GetType(String)))
Membuat data source
HASIL46110043.DataSource = BON
Menginput data
TRINITA.Rows.Add("46112003", "Nurawalia M", "P", "12/04/1994", 3000000, "1AD4")
TRINITA.Rows.Add("46120023", "Puspita Susilawati Ridjal", "P", "01/01/1994", 4000000, "1AD4")
TRINITA.Rows.Add("46110018", "Rose Anne Tarida Situmorang", "P", "12/01/1994", 5000000, "1AD4")
dst..
Mengurutkan data berdasarkan perintah
If STAMBUK46110043.Checked = True Then
BON.Sort = "Stambuk"
End If
Memfilter data berdasarkan perintah
BON.RowFilter = "[GajiOrtu]>=" & Val(A46110043.Text)
Memfilter data dengan lebih dari satu kriteria sekaligus
BON.RowFilter = "[GAJIORTU]>" & Val(C46110043.Text) & " AND [KELAS]<>'" & D46110043.Text & "'" & " AND [TANGGAL LAHIR]<#" & TANGGAL2_46110043.Value.Month & "/" & TANGGAL2_46110043.Value.Day & "/" & TANGGAL2_46110043.Value.Year & "#" & " AND NAMA LIKE '%" & MU2_46110043.Text & "%'"
Memberi warna di setiap klasifikasi gaji orang tua (telah ditentukan)
If TRINITA.Cells("GAJI ORTU").Value > 6000000 Then
TRINITA.DefaultCellStyle.BackColor = merah46110043.BackColor
Even
ButtonClick
TextChanged
CheckedChanged
Load
ValueChanged
Property
Property TextBox => ReadOnly = True
Property TextBox => BackColor
Langkah-Langkah Menjalankan Form Latihan 14
- Untuk menjalankan perintah pada GroupBox 1 (urutkan berdasarkan) pilih salah satu perintah dengan meng-klik perintah yang diinginkan. Datagrideview akan menampilkan tabel sesuai perintah.
- Untuk menjalankan perintah pada GroupBox 2 (filter berdasarkan) input data pada textbox yang tersedia. Datagrideview akan menampilkan tabel sesuai perintah yang telah diinput.
- Untuk menjalankan perintah pada GroupBox 3 (filter dengan menggabungkan) input data pada semua textbox yang tersedia, kemudian klik tombol “Filter”. Datagrideview akan menampilkan tabel sesuai perintah yang diinput.
- Untuk menjalankan perintah pada GroupBox 4 (pengaturan warna) cukup dengan meng-klik tombol “Atur Warna”. Tabel akan berwarna sesuai klasifikasi gaji.
Tidak ada komentar:
Posting Komentar