Latihan_14_46110020

Deskripsi Form Latihan 14

Form latihan 14 terdapat Tujuh object yaitu GroupBox, Label, TextBox, Button,  DataGriedView, dan DateTimePicker.

Object GroupBox:

Dalam form ini terdapat Empat item groupbox yang berguna untuk menyatukan beberapa object toolbox dalam satu kategori tertentu dan groupbox ini bernama (Urutkan Berdasarkan, Filter Berdasarkan, Filter dengan menggabungkan, dan Pengaturan Warna).

Object Label :

Dalam form ini terdapat  Delapan  item yang bertuliskan (Gaji Orang tua lebih dari, Bukan kelas, Tanggal lahir sebelum, dan Nama memiliki umur).

Object Textbox :

Dalam form ini  terdapat 12 textbox yaitu (enam status input dan enam berstatus read only). Status input digunakan untuk memasukkan data yang diinginkan pada (Gaji Orang tua lebih dari, Bukan kelas, Tanggal lahir sebelum, dan Nama memiliki umur), Sedangkan, Status Read Only ini  digunakan untuk  memberikan warna dalam DataGriedView berdasarkan warna yang telah diguankan untuk gaji orang tua.

Object Button :

Dalam form ini  terdapat Dua item Button yaitu pada GroupBox Pertama Bertuliskan (Filter) Pada GroupBox Keempat(Atur Warna) yang dimana Tombol Filter ini digunakan untuk menghasilkan data yang telah diinput ke dalam textbox yang berada pada groupbox (Filter dengan menggabungkan). Tombol Atur Warna digunakan untuk menampilkan Warna dalam datagridview sesuai dengan wrna yang diberikan pada gaji orang tua dalam groupbox (pengaturan warna).

Object DataGridView

Dalam form ini terdapat satu objek DataGridView yang berfungsi untuk menampilkan semua data maba yang berada dalam rumus yang telah dimasukkan.

Object DateTimePicker

Dalam form ini terdapat Dua object DateTimePicker yang digunakan untuk menentukan tanggal,bulan, dan Tahun kelahiran Maba.

Object RadioButton

Dalam form ini terdapat Empat object Radiobutton yang digunakan untuk pengelompokan berdasarkan kelompok-kelompok yang bernama (Urutkan Berdasarkan, Filter Berdasarkan, Filter dengan menggabungkan, dan Pengaturan Warna).

Cara Untuk Membuat Form Latihan 14:

1.        Pertama Bukalah Project yang telah anda buat sebelumnya.

2.      Pilih dan  Buka Project dalam visual basic.

3.      Kemudian pilih Add Windows form

4.      Lalu add new item dan rename file “form.vb menjadi Latihan_14_46110020”

5.      Setelah namenya di rename pilih add lalu muncullah form seperti ini :

6.      Kemudian mulailah membuat form 14 dengan mengunakan GroupBox, Label, TextBox, Button,  DataGriedView, dan DateTimePicker.

7.       Lalu buatlah sesuai contoh latihan 14 dengan menggunkan GroupBox, Label, TextBox, Button,  DataGriedView, dan DateTimePicker. maka akan menjadi seperti ini :

8.      Setelah form di atas telah jadi maka klik kanan lalu pilih View Code,kemudian masukkan rumus seperti berikut :

Public Class Latihan_14_46110020

    Dim YUNI As New DataTable

    Dim DV As New DataView

    Private Sub Latihan_14_46110020_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

        YUNI.Columns.Add(New DataColumn("Stambuk", GetType(String)))

        YUNI.Columns.Add(New DataColumn("Nama", GetType(String)))

        YUNI.Columns.Add(New DataColumn("Jenis Kelamin", GetType(String)))

        YUNI.Columns.Add(New DataColumn("Tanggal Lahir", GetType(String)))

        YUNI.Columns.Add(New DataColumn("Gaji Ortu", GetType(Double)))

        YUNI.Columns.Add(New DataColumn("Kelas", GetType(String)))

        YUNI.Rows.Add("46112003", "Nurawalia M", "P", "12/04/1994", 3000000, "1AD4")

        YUNI.Rows.Add("46120023", "Puspita Susilawati Ridjal", "P", "01/01/1994", 4000000, "1AD4")

        YUNI.Rows.Add("46110018", "Rose Anne Tarida Situmorang", "P", "12/01/1994", 5000000, "1AD4")

        YUNI.Rows.Add("46112004", "Siti Khaerunnisa", "P", "03/28/1994", 1000000, "1AD4")

        YUNI.Rows.Add("46112015", "Irmayanti", "P", "09/23/1994", 1000000, "1AD4")

        YUNI.Rows.Add("46112011", "Delsi Tifani Lan", "P", "12/24/1994", 2000000, "1AD4")

        YUNI.Rows.Add("46112027", "Reny Rita Waty Djafar", "P", "07/26/1993", 3000000, "1AD4")

        YUNI.Rows.Add("46112002", "Dewi Sartika", "P", "02/10/1994", 1000000, "1AD4")

        YUNI.Rows.Add("46112004", "Anita Rahmah Muhtadin", "P", "12/07/1994", 5000000, "1AD4")

        YUNI.Rows.Add("46112021", "Rafidah", "P", "06/05/1994", 500000, "1AD4")

        YUNI.Rows.Add("46112009", "Eka Yuli Astuti", "P", "08/07/1994", 2000000, "1AD4")

        YUNI.Rows.Add("46112025", "Fitri Amalia Islamiati", "P", "03/26/1995", 4000000, "1AD4")

        YUNI.Rows.Add("46112014", "Mariana", "P", "06/22/1994", 1000000, "1AD4")

        YUNI.Rows.Add("46112013", "A. Muh. Lutfi Ahmad", "L", "10/10/1993", 4000000, "1AD4")

        YUNI.Rows.Add("46112008", "Nanda Ardilia Pratama", "L", "08/01/1994", 1000000, "1AD4")

        YUNI.Rows.Add("46112022", "Liliani Paelongan", "P", "05/25/1994", 3000000, "1AD4")

        YUNI.Rows.Add("46112007", "Andi Rabiah", "L", "09/07/1994", 1000000, "1AD4")

        YUNI.Rows.Add("46112001", "Rizka Awalia Mustakim", "P", "10/07/1994", 3000000, "1AD4")

        YUNI.Rows.Add("46112005", "Mardhotillah", "P", "01/13/1994", 3000000, "1AD4")

        YUNI.Rows.Add("46112017", "Camelia Indulgenssya Gundung", "P", "09/14/1994", 2000000, "1AD4")

        YUNI.Rows.Add("46112028", "Nur Salim Rusdi", "L", "04/12/1994", 1500000, "1AD4")

        YUNI.Rows.Add("46112026", "Muhammad Khaidir", "L", "12/26/1993", 3000000, "1AD4")

        YUNI.Rows.Add("46112020", "Sukriani Karunia Rahma", "P", "12/01/1994", 3000000, "1AD4")

        YUNI.Rows.Add("46112006", "Rezky Tri Utami", "P", "07/03/1994", 3000000, "1AD4")

        YUNI.Rows.Add("46112029", "Azwar Arfah", "L", "04/03/1994", 3000000, "1AD4")

        YUNI.Rows.Add("46112016", "Dyah Sukma Anggraini", "P", "05/10/1994", 3500000, "1AD4")

        YUNI.Rows.Add("46112010", "Nur Indah Purnamasari", "P", "07/22/1994", 2500000, "1AD4")

        YUNI.Rows.Add("46112012", "Nurul Qadri Musra", "L", "08/24/1994", 3000000, "1AD4")

        YUNI.Rows.Add("46112055", "Reni Anggraeni", "P", "10/12/1994", 1500000, "1BD4")

        YUNI.Rows.Add("46112042", "Faradhiba Zainal Putri", "P", "12/04/1993", 3000000, "1BD4")

        YUNI.Rows.Add("46112054", "Rahmi Ani", "P", "11/30/1994", 2000000, "1BD4")

        YUNI.Rows.Add("46112043", "Remon Agit Rimang", "L", "01/06/1995", 3000000, "1BD4")

        YUNI.Rows.Add("46112032", "Abd. Rahman", "L", "10/08/1994", 1500000, "1BD4")

        YUNI.Rows.Add("46112057", "I Ketut Yuda Sadpwa", "L", "05/02/1993", 4500000, "1BD4")

        YUNI.Rows.Add("46112037", "Herianto", "L", "12/08/1993", 3000000, "1BD4")

        YUNI.Rows.Add("46112058", "citra amalia ramadhani", "L", "02/16/1995", 3000000, "1BD4")

        YUNI.Rows.Add("46112050", "Andi Akbar", "L", "11/26/1994", 2000000, "1BD4")

        YUNI.Rows.Add("46112034", "Gamaliel Giovani Rafael Nong", "L", "08/06/1993", 3700000, "1BD4")

        YUNI.Rows.Add("46112047", "Hasmawati", "P", "11/22/1994", 5000000, "1BD4")

        YUNI.Rows.Add("46112038", "Viorensi S", "P", "10/13/1994", 2000000, "1BD4")

        YUNI.Rows.Add("46112046", "Andini Hayrunnisyah", "P", "06/27/1994", 1500000, "1BD4")

        YUNI.Rows.Add("46112031", "Irmayanti", "P", "05/02/1994", 1000000, "1BD4")

        YUNI.Rows.Add("46112039", "Carissa Evan Anthen", "P", "10/23/1994", 6000000, "1BD4")

        YUNI.Rows.Add("46112052", "Aprianto Sandy", "L", "04/11/1993", 3000000, "1BD4")

        YUNI.Rows.Add("46112049", "Muhammad Farid Syah", "L", "01/20/1995", 5000000, "1BD4")

        YUNI.Rows.Add("46112033", "Maulanan Ibrahim", "L", "04/10/1994", 1000000, "1BD4")

        YUNI.Rows.Add("46112035", "Herpita Tohura", "P", "10/24/1993", 700000, "1BD4")

        YUNI.Rows.Add("46112048", "Udin Pranata", "L", "01/29/1993", 1000000, "1BD4")

        YUNI.Rows.Add("46112051", "Afrisca Fraktiani Rante", "P", "04/13/1995", 5000000, "1BD4")

        YUNI.Rows.Add("46112056", "Kartini Widyasita", "P", "04/21/1993", 4650000, "1BD4")

        YUNI.Rows.Add("46112045", "Abdul Qawwam Nurjaya", "L", "11/26/1994", 3500000, "1BD4")

        YUNI.Rows.Add("46112040", "Tommy Paunganan", "L", "02/22/1993", 2000000, "1BD4")

        YUNI.Rows.Add("46112053", "Khusnul Khatimah A", "P", "08/27/1994", 3000000, "1BD4")

        YUNI.Rows.Add("46112041", "Nida Hazimah Ulfah", "P", "09/24/1995", 5000000, "1BD4")

        YUNI.Rows.Add("46112044", "Ulfah Nas", "P", "01/26/1994", 5000000, "1BD4")

        YUNI.Rows.Add("46112036", "Hasmiati Hajar", "P", "05/17/1994", 5000000, "1BD4")

        YUNI.Rows.Add("36112001", "Fitri", "P", "10/20/1994", 5000000, "1AD3")

        YUNI.Rows.Add("36112002", "andri prianto tukan", "L", "04/26/1994", 2000000, "1BD3")

        YUNI.Rows.Add("36112003", "Fathin Ammar Asidik", "L", "06/29/1994", 6800000, "1AD3")

        YUNI.Rows.Add("36112004", "Endah Mariadi", "P", "11/07/1994", 7500000, "1AD3")

        YUNI.Rows.Add("36112005", "Mawar Aztanti", "P", "06/01/1993", 4000000, "1AD3")

        YUNI.Rows.Add("36112006", "Izmi Istiqamah", "P", "11/04/1994", 7000000, "1AD3")

        YUNI.Rows.Add("36112007", "Imran Novrin Ruslim", "L", "11/21/1994", 1000000, "1AD3")

        YUNI.Rows.Add("36112008", "Adbul Malik", "L", "11/09/1993", 2500000, "1AD3")

        YUNI.Rows.Add("36112010", "Yulianti", "P", "09/28/1994", 2500000, "1AD3")

        YUNI.Rows.Add("36112011", "Zulfitra Qadar Yasin", "L", "03/10/1994", 10000000, "1AD3")

        YUNI.Rows.Add("36112012", "Sri Aprianti", "P", "04/05/1994", 4000000, "1AD3")

        DV = YUNI.DefaultView

        DATA_46110020.DataSource = DV

    End Sub

    Private Sub Y1_46110020_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Y1_46110020.CheckedChanged

        If Y1_46110020.Checked = True Then

            DV.Sort = "Stambuk"

        End If

    End Sub

    Private Sub Y2_46110020_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Y2_46110020.CheckedChanged

        If Y2_46110020.Checked = True Then

            DV.Sort = "kelas desc"

        End If

    End Sub

    Private Sub Y3_46110020_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Y3_46110020.CheckedChanged

        If Y3_46110020.Checked = True Then

            DV.Sort = "kelas,tanggal Lahir"

        End If

    End Sub

    Private Sub Y4_46110020_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Y4_46110020.CheckedChanged

        If Y4_46110020.Checked = True Then

            DV.Sort = "Gaji Ortu desc"

        End If

    End Sub

    Private Sub TB1_46110020_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TB1_46110020.TextChanged

        DV.RowFilter = "[Gaji ortu] > " & Val(TB1_46110020.Text)

    End Sub

    Private Sub TB2_46110020_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TB2_46110020.TextChanged

        DV.RowFilter = "Kelas <> '" & TB2_46110020.Text & "'"

    End Sub

    Private Sub DTP1_46110020_ValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DTP1_46110020.ValueChanged

        DV.RowFilter = "[Tanggal Lahir] < #" & DTP1_46110020.Value.Date & "#"

    End Sub

    Private Sub TB3_46110020_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TB3_46110020.TextChanged

        DV.RowFilter = "nama like '%" & TB3_46110020.Text & "%'"

    End Sub

    Private Sub FILTER_46110020_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles FILTER_46110020.Click

        DV.RowFilter = "[Gaji ortu] > " & Val(SR1_46110020.Text) & "and kelas <>" & "'" & SR2_46110020.Text & "'" & "and[tanggal lahir] < #" & DTP2_46110020.Value.Month & "/" & DTP2_46110020.Value.Day & "/" & DTP2_46110020.Value.Year & "#" & " and nama like '%" & SR3_46110020.Text & "%'"

    End Sub

    Private Sub ATRWARNA_46110020_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ATRWARNA_46110020.Click

        For Each CINTA As DataGridViewRow In DATA_46110020.Rows

            If CINTA.Cells("gaji ortu").Value > 6000000 Then

                CINTA.DefaultCellStyle.BackColor = PINK_46110020.BackColor

            ElseIf CINTA.Cells("gaji ortu").Value > 5000000 Then

                CINTA.DefaultCellStyle.BackColor = COKELAT_46110020.BackColor

            ElseIf CINTA.Cells("gaji ortu").Value > 4000000 Then

                CINTA.DefaultCellStyle.BackColor = UNGU_46110020.BackColor

            ElseIf CINTA.Cells("gaji ortu").Value > 3000000 Then

                CINTA.DefaultCellStyle.BackColor = KUNING_46110020.BackColor

            ElseIf CINTA.Cells("gaji ortu").Value > 2000000 Then

                CINTA.DefaultCellStyle.BackColor = MERAH_46110020.BackColor

            Else

                CINTA.DefaultCellStyle.BackColor = HIJAU_46110020.BackColor

            End If

        Next

    End Sub

End Class

Langkah – Langkah Menjalankan Latihan 14:

1.        Pertama, Klik start debugging, Maka Secara otomatis akan muncul seperti di bawah ini :

2.       Apabila telah tampil seperti ini cara menjalankannya adalah apabila anda ingin mengurutkan sesuai dengan groupbox yang bertuliskan Urutkan Berdasarkan maka kilik radiobutton sesuai yang anda inginkan.

3.       Dan apabila anda ingin melihat  data sesuai dengan gaji orang tua ataukah tanggal lahir maka anda menginput data pada groupbox yang bertuliskan Filter Berdasarkan maka data yang berada dalam DataGriedView akan secara otomatis tampil sesuai dengan data yang anda masukkan begitupun juga dengan Groupbox yag bertuliskan Filter dengan gabungan yang dimana anda menginput data sesuai yang anda inginkan lalu tekan tobol filter maka pada datagriedview akan menampilkan data mahasiswa yang anda inginkan.

4.       Pada Pengaturan warna yang dimna pada pengaturan warna ini anda hanya menkan tombol Atur Warna maka dalam datagriedview akan menampilkan warna sesuai dengan warna pada Pengaturan warna contohnya seperti di bawah ini : 

5.       Selamat Mencoba dan Berhasil J

Script unik

Untuk membuat DataTable  :

Dim YUNI As New DataTable

Untuk membuat DataView :

Dim DV As New DataView

Untuk Membuat DefaultView dan DataSource :

DV = YUNI.DefaultView

        DATA_46110020.DataSource = DV

Untuk membuat kolom pada DataTable :

YUNI.Columns.Add(New DataColumn("Stambuk", GetType(String)))

Untuk menampilkan datatable  sesuai yang diinginkan (DataSort) :

If Y1_46110020.Checked = True Then

            DV.Sort = "Stambuk"

Untuk Menampilkan datatable dengan Filter  :

DV.RowFilter = "[Gaji ortu] > " & Val(SR1_46110020.Text) & "and kelas <>" & "'" & SR2_46110020.Text & "'" & "and[tanggal lahir] < #" & DTP2_46110020.Value.Month & "/" & DTP2_46110020.Value.Day & "/" & DTP2_46110020.Value.Year & "#" & " and nama like '%" & SR3_46110020.Text & "%'"

Untuk Membuat Pengaturan Warna:

For Each CINTA As DataGridViewRow In DATA_46110020.Rows

            If CINTA.Cells("gaji ortu").Value > 6000000 Then

                CINTA.DefaultCellStyle.BackColor = PINK_46110020.BackColor

Even

  Load

  Property

  Default