Pages

Jumat, 05 Oktober 2012

Latihan_14_46110001

Diposting oleh Unknown di 08.24

A.      Object-object dalam Latihan_14_46110001 :

1.        Object Label
       Object label yang terdapat pada latihan ini adalah terdiri dari delapan label (yang bertuliskan gaji orang tua lebih dari terdapat (2)dua label, bukan kelas terdapat (2)dua label, tanggal lahir sebelum terdapat (2)dua label, dan nama memiliki unsur terdapat dua label juga).

2.        Object Textbox
       Jumlah texbox pada form ini adalah 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
       object button pada form ini ada dua yaitu (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        didatagridview.
5.        Object RadioButton
       Terdapat empat object radiobutton (yang bertuliskan stambuk, kelas (besar->kecil), kelas (kecil->besar) tanggal lahir (kecil->besar), dan gaji orang tua (besar->kecil).
6.        Object DataGridView
       Terdapat satu objeck datagridview yang digunakan untuk menampilkan data tabel yang telah dibuat.

B.        Script Unique
Untuk button Filter:
BT1_46110001.Click
Untuk button Atur Warna:
BT2_46110001.Click

C.      Even
STB_46110001.CheckedChanged
KBK_46110001.CheckedChanged
KKB_46110001.CheckedChanged
GAJIOT_46110001.TextChanged
BK_46110001.TextChanged
GAJIOT_46110001.CheckedChanged
NMU_46110001.TextChanged
BT1_46110001.Click
BT2_46110001.Click
D.       Property
 Property TextBox ==> ReadOnly=True

E.       Cara penyelesaian
  • Langkah pertama dalam membuat form/ latihan 14 ialah, pada desktop anda, pilih microsoft visual studio 2008.seperti pada langkah dibawah ini
 
  •  Setelah itu pilih file kemudian New setelah itu pilih project, maka akan muncul tampilan   seperti   dibawah ini
  • Setelah langkah ke dua selesai maka langkah selanjutnya adalah, pada tampilan project tersebut silahkan anda mengganti nama form sesuai dengan yang anda inginkan
  • atau jika anda pernah membuat form sebelumnya, maka langkah selanjutnya  yang perlu anda lakukan adalah hanya dengan membuat buat form baru dengan memilih project kemudian pilih add  windows form, seperti pada gambar dibawah ini. 
  • Buatlah form seperti gambar dibawah ini, 
  • Berikut ini adalah rumus untuk menjalankan form di atas  
  • Public Class Latihan_14_46110001

        Dim BAHRI As New DataTable
        Dim BAHE As New DataView
        Private Sub RadioButton1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles STB_46110001.CheckedChanged
            BAHE.Sort = "Stambuk"
        End Sub

        Private Sub RadioButton2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KBK_46110001.CheckedChanged
            BAHE.Sort = "Kelas desc"
        End Sub

        Private Sub RadioButton3_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KKB_46110001.CheckedChanged
            BAHE.Sort = "Kelas, TanggalLahir"
        End Sub

        Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GAJIOT_46110001.TextChanged
            BAHE.RowFilter = "[GajiOrtu]>=" & Val(GAJIOT_46110001.Text)
        End Sub

        Private Sub TextBox2_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BK_46110001.TextChanged
            BAHE.RowFilter = "Kelas <> '" & BK_46110001.Text & "'"
        End Sub

        Private Sub DateTimePicker1_ValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DateTimePicker1.ValueChanged
            BAHE.RowFilter = "[Tanggal Lahir] < #" & DateTimePicker1.Value.Date & "#"
        End Sub

        Private Sub atur_46110001_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BT2_46110001.Click
            For Each X As DataGridViewRow In DGV1_46110001.Rows
                If X.Cells("GAJIORTU").Value > 6000000 Then
                    X.DefaultCellStyle.BackColor = GT1_46110001.BackColor
                ElseIf X.Cells("GAJIORTU").Value > 5000000 Then
                    X.DefaultCellStyle.BackColor = GT4_46110001.BackColor
                ElseIf X.Cells("GAJIORTU").Value > 4000000 Then
                    X.DefaultCellStyle.BackColor = GT2_46110001.BackColor
                ElseIf X.Cells("GAJIORTU").Value > 3000000 Then
                    X.DefaultCellStyle.BackColor = GT5_46110001.BackColor
                ElseIf X.Cells("GAJIORTU").Value > 2000000 Then
                    X.DefaultCellStyle.BackColor = GT3_46110001.BackColor
                Else
                    X.DefaultCellStyle.BackColor = GT6_46110001.BackColor
                End If
            Next
        End Sub

        Private Sub bgaji_46110001_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GAJIOT_46110001.CheckedChanged
            BAHE.Sort = "GajiOrtu desc"
        End Sub

        Private Sub unsur_46110001_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NMU_46110001.TextChanged
            BAHE.RowFilter = "Nama LIKE'% " & NMU_46110001.Text & "%'"
        End Sub

        Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BT1_46110001.Click
            BAHE.RowFilter = "[GAJIORTU]>" & Val(GAJILEBIH2_46110001.Text) & " AND [Kelas]<>'" & BT2_46110001.Text & "'" & " AND [TanggalLahir]<#" & DateTimePicker2.Value.Month & "/" & DateTimePicker2.Value.Day & "/" & DateTimePicker2.Value.Year & "#" & " AND Nama LIKE '%" & NMU2_46110001.Text & "%'"
        End Sub

        Private Sub Latihan_14_46110001_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Load
            BAHRI.Columns.Add(New DataColumn("Stambuk", GetType(String)))
            BAHRI.Columns.Add(New DataColumn("Nama", GetType(String)))
            BAHRI.Columns.Add(New DataColumn("JenisKelamin", GetType(String)))
            BAHRI.Columns.Add(New DataColumn("TanggalLahir", GetType(String)))
            BAHRI.Columns.Add(New DataColumn("GajiOrtu", GetType(Double)))
            BAHRI.Columns.Add(New DataColumn("Kelas", GetType(String)))


            BAHRI.Rows.Add("36112001", "Fitri", "P", "10/20/1994", 5000000, "1AD3")
            BAHRI.Rows.Add("36112002", "andri prianto tukan", "L", "04/26/1994", 2000000, "1BD3")
            BAHRI.Rows.Add("36112003", "Fathin Ammar Asidik", "L", "06/29/1994", 6800000, "1AD3")
            BAHRI.Rows.Add("36112004", "Endah Mariadi", "P", "11/07/1994", 7500000, "1AD3")
            BAHRI.Rows.Add("36112005", "Mawar Aztanti", "P", "06/01/1993", 4000000, "1AD3")
            BAHRI.Rows.Add("36112006", "Izmi Istiqamah", "P", "11/04/1994", 7000000, "1AD3")
            BAHRI.Rows.Add("36112007", "Imran Novrin Ruslim", "L", "11/21/1994", 1000000, "1AD3")
            BAHRI.Rows.Add("36112008", "Adbul Malik", "L", "11/09/1993", 2500000, "1AD3")
            BAHRI.Rows.Add("36112009", "Rahmaniah", "P", "01/19/1994", 2500000, "1AD3")
            BAHRI.Rows.Add("36112010", "Yulianti", "P", "09/28/1994", 2500000, "1AD3")
            BAHRI.Rows.Add("36112011", "Zulfitra Qadar Yasin", "L", "03/10/1994", 10000000, "1AD3")
            BAHRI.Rows.Add("36112012", "Sri Aprianti", "P", "04/05/1994", 4000000, "1AD3")
            BAHRI.Rows.Add("36112013", "Noviantri Paembonan", "P", "11/19/1994", 6000000, "1AD3")
            BAHRI.Rows.Add("36112014", "A. Rahmawaty", "P", "04/04/1994", 5000000, "1AD3")
            BAHRI.Rows.Add("36112015", "Danela Mangintek", "P", "11/06/1994", 3000000, "1AD3")
            BAHRI.Rows.Add("36112016", "Andi Jusma Nilam Sari", "P", "09/02/1994", 10000000, "1AD3")
            BAHRI.Rows.Add("36112017", "Dana Abrian", "L", "10/05/1994", 5000000, "1AD3")
            BAHRI.Rows.Add("36112018", "Kurniawati", "P", "10/11/1994", 2000000, "1AD3")
            BAHRI.Rows.Add("36112019", "Kharisma Yusuf", "P", "06/14/1994", 4000000, "1AD3")
            BAHRI.Rows.Add("36112020", "Bernard Talebong", "P", "10/01/1994", 10000000, "1AD3")
            BAHRI.Rows.Add("36112021", "Sulaipah", "P", "09/28/1994", 1000000, "1AD3")
            BAHRI.Rows.Add("36112022", "Rismawati", "P", "09/07/1994", 900000, "1AD3")
            BAHRI.Rows.Add("36112023", "Andi Arhami Hamzah", "P", "06/28/1994", 10000000, "1AD3")
            BAHRI.Rows.Add("36112024", "Syahrul Kamal", "L", "10/18/1994", 10000000, "1AD3")
            BAHRI.Rows.Add("36112025", "Ivana Olivia Aser", "P", "01/14/1993", 6000000, "1AD3")
            BAHRI.Rows.Add("36112026", "Melinda Rizkawati", "P", "05/07/1994", 2000000, "1AD3")
            BAHRI.Rows.Add("36112027", "Nurul Rezki Susanti", "P", "09/24/1994", 5000000, "1AD3")
            BAHRI.Rows.Add("36112028", "Mu'minat Nur", "P", "05/17/1995", 5000000, "1BD3")
            BAHRI.Rows.Add("36112029", "Trinayanti", "P", "06/03/1992", 3000000, "1BD3")
            BAHRI.Rows.Add("36112030", "Sri Widya Ayu Wandini", "P", "06/01/1994", 5000000, "1BD3")
            BAHRI.Rows.Add("36112031", "Nur Indahsari Idris", "P", "08/28/1994", 5000000, "1BD3")
            BAHRI.Rows.Add("36112032", "Rosita Satri", "P", "12/06/1994", 3000000, "1BD3")
            BAHRI.Rows.Add("36112033", "A. Syasya Annisa Ausan", "P", "08/08/1994", 7000000, "1BD3")
            BAHRI.Rows.Add("36112034", "Rezky Arianti", "P", "01/27/1994", 3000000, "1BD3")
            BAHRI.Rows.Add("36112035", "Tri Arismunandar", "L", "12/09/1993", 1000000, "1BD3")
            BAHRI.Rows.Add("36112036", "Nurmilasari", "P", "07/06/1993", 2000000, "1BD3")
            BAHRI.Rows.Add("36112037", "Ismawati", "P", "08/01/1994", 900000, "1BD3")
            BAHRI.Rows.Add("36112038", "Andi Anggi Fadliyah", "P", "08/15/1994", 1500000, "1BD3")
            BAHRI.Rows.Add("36112039", "Andi Syahril", "L", "10/02/1994", 2000000, "1BD3")
            BAHRI.Rows.Add("36112040", "Fibra Yoseph P", "P", "03/27/1995", 6000000, "1BD3")
            BAHRI.Rows.Add("36112041", "Musyarafah Asis", "L", "07/13/1994", 6000000, "1BD3")
            BAHRI.Rows.Add("36112042", "Sukmawati Amir", "P", "04/13/1994", 6000000, "1BD3")
            BAHRI.Rows.Add("36112043", "Artis Susan", "P", "10/29/1993", 5000000, "1BD3")
            BAHRI.Rows.Add("36112044", "Muhammad Fachri Sani", "L", "02/02/1994", 5000000, "1BD3")
            BAHRI.Rows.Add("36112045", "Ibnu Affan Al-Mufar'id", "L", "08/05/1994", 8000000, "1BD3")
            BAHRI.Rows.Add("36112046", "Sri Wahyuni Hafid", "P", "12/25/1994", 11000000, "1BD3")
            BAHRI.Rows.Add("36112047", "A. Dian Pelita Waty", "P", "05/05/1994", 3000000, "1BD3")
            BAHRI.Rows.Add("36112048", "Tri Wahyuni", "P", "11/11/1994", 800000, "1BD3")
            BAHRI.Rows.Add("36112049", "Alfin Riani Bandaso", "P", "04/11/1994", 3000000, "1BD3")
            BAHRI.Rows.Add("36112051", "Muhammad Adhe Anugrah", "L", "08/31/1993", 5000000, "1BD3")
            BAHRI.Rows.Add("36112052", "Sabri", "L", "07/24/1993", 700000, "1BD3")
            BAHRI.Rows.Add("36112053", "Resky Yonada Ahmad", "P", "03/22/1994", 1500000, "1BD3")
            BAHRI.Rows.Add("36112054", "Ade Apriathis Rantelino", "L", "04/27/1994", 3000000, "1BD3")
            BAHRI.Rows.Add("36112055", "Achmad Rezky Satria Perdana", "L", "12/17/1993", 3000000, "1BD3")
            BAHRI.Rows.Add("36112056", "Dian Eka Puteri", "P", "11/11/1993", 1000000, "1BD3")
            BAHRI.Rows.Add("36112057", "Reenaldy Alchudri Azsagaf", "L", "05/03/1994", 10000000, "1BD3")
            BAHRI.Rows.Add("36112059", "Ummul Hayyul Qayyum", "P", "12/01/1993", 3500000, "1AD3")
            BAHRI.Rows.Add("36112060", "Nita", "P", "01/04/1995", 2500000, "1AD3")
            BAHRI.Rows.Add("36112061", "Rahmat Adi Pratama", "L", "04/21/1994", 10000000, "1AD3")
            BAHRI.Rows.Add("46110018", "Rose Anne Tarida Situmorang", "P", "12/01/1994", 5000000, "1AD4")
            BAHRI.Rows.Add("46112001", "Rizka Awalia Mustakim", "P", "10/07/1994", 3000000, "1AD4")
            BAHRI.Rows.Add("46112002", "Dewi Sartika", "P", "02/10/1994", 1000000, "1AD4")
            BAHRI.Rows.Add("46112003", "Nurawalia M", "P", "12/04/1994", 3000000, "1AD4")
            BAHRI.Rows.Add("46112018", "Anita Rahmah Muhtadin", "P", "12/07/1994", 5000000, "1AD4")
            BAHRI.Rows.Add("46112004", "Siti Khaerunnisa", "P", "03/28/1994", 1000000, "1AD4")
            BAHRI.Rows.Add("46112005", "Mardhotillah", "P", "01/13/1994", 3000000, "1AD4")
            BAHRI.Rows.Add("46112006", "Rezky Tri Utami", "P", "07/03/1994", 3000000, "1AD4")
            BAHRI.Rows.Add("46112007", "Andi Rabiah", "L", "09/07/1994", 1000000, "1AD4")
            BAHRI.Rows.Add("46112008", "Nanda Ardilia Pratama", "L", "08/01/1994", 1000000, "1AD4")
            BAHRI.Rows.Add("46112009", "Eka Yuli Astuti", "P", "08/07/1994", 2000000, "1AD4")
            BAHRI.Rows.Add("46112010", "Nur Indah Purnamasari", "P", "07/22/1994", 2500000, "1AD4")
            BAHRI.Rows.Add("46112011", "Delsi Tifani Lan", "P", "12/24/1994", 2000000, "1AD4")
            BAHRI.Rows.Add("46112012", "Nurul Qadri Musra", "L", "08/24/1994", 3000000, "1AD4")
            BAHRI.Rows.Add("46112013", "A. Muh. Lutfi Ahmad", "L", "10/10/1993", 4000000, "1AD4")
            BAHRI.Rows.Add("46112014", "Mariana", "P", "06/22/1994", 1000000, "1AD4")
            BAHRI.Rows.Add("46112015", "Irmayanti", "P", "09/23/1994", 1000000, "1AD4")
            BAHRI.Rows.Add("46112016", "Dyah Sukma Anggraini", "P", "05/10/1994", 3500000, "1AD4")
            BAHRI.Rows.Add("46112017", "Camelia Indulgenssya Gundung", "P", "09/14/1994", 2000000, "1AD4")
            BAHRI.Rows.Add("46112020", "Sukriani Karunia Rahma", "P", "12/01/1994", 3000000, "1AD4")
            BAHRI.Rows.Add("46112021", "Rafidah", "P", "06/05/1994", 500000, "1AD4")
            BAHRI.Rows.Add("46112022", "Liliani Paelongan", "P", "05/25/1994", 3000000, "1AD4")
            BAHRI.Rows.Add("46112025", "Fitri Amalia Islamiati", "P", "03/26/1995", 4000000, "1AD4")
            BAHRI.Rows.Add("46112026", "Muhammad Khaidir", "L", "12/26/1993", 3000000, "1AD4")
            BAHRI.Rows.Add("46112027", "Reny Rita Waty Djafar", "P", "07/26/1993", 3000000, "1AD4")
            BAHRI.Rows.Add("46112028", "Nur Salim Rusdi", "L", "04/12/1994", 1500000, "1AD4")
            BAHRI.Rows.Add("46112029", "Azwar Arfah", "L", "04/03/1994", 3000000, "1AD4")
            BAHRI.Rows.Add("46112032", "Abd. Rahman", "L", "10/08/1994", 1500000, "1BD4")
            BAHRI.Rows.Add("46112037", "Herianto", "L", "12/08/1993", 3000000, "1BD4")
            BAHRI.Rows.Add("46112042", "Faradhiba Zainal Putri", "P", "12/04/1993", 3000000, "1BD4")
            BAHRI.Rows.Add("46112043", "Remon Agit Rimang", "L", "01/06/1995", 3000000, "1BD4")
            BAHRI.Rows.Add("46112050", "Andi Akbar", "L", "11/26/1994", 2000000, "1BD4")
            BAHRI.Rows.Add("46112054", "Rahmi Ani", "P", "11/30/1994", 2000000, "1BD4")
            BAHRI.Rows.Add("46112055", "Reni Anggraeni", "P", "10/12/1994", 1500000, "1BD4")
            BAHRI.Rows.Add("46112057", "I Ketut Yuda Sadpwa", "L", "05/02/1993", 4500000, "1BD4")
            BAHRI.Rows.Add("46112058", "citra amalia ramadhani", "L", "02/16/1995", 3000000, "1BD4")
            BAHRI.Rows.Add("46120023", "Puspita Susilawati Ridjal", "P", "01/01/1994", 4000000, "1AD4")
            BAHRI.Rows.Add("46112031", "Irmayanti", "P", "05/02/1994", 1000000, "1BD4")
            BAHRI.Rows.Add("46112033", "Maulanan Ibrahim", "L", "04/10/1994", 1000000, "1BD4")
            BAHRI.Rows.Add("46112034", "Gamaliel Giovani Rafael Nong", "L", "08/06/1993", 3700000, "1BD4")
            BAHRI.Rows.Add("46112035", "Herpita Tohura", "P", "10/24/1993", 700000, "1BD4")
            BAHRI.Rows.Add("46112036", "Hasmiati Hajar", "P", "05/17/1994", 5000000, "1BD4")
            BAHRI.Rows.Add("46112038", "Viorensi S", "P", "10/13/1994", 2000000, "1BD4")
            BAHRI.Rows.Add("46112039", "Carissa Evan Anthen", "P", "10/23/1994", 6000000, "1BD4")
            BAHRI.Rows.Add("46112040", "Tommy Paunganan", "L", "02/22/1993", 2000000, "1BD4")
            BAHRI.Rows.Add("46112041", "Nida Hazimah Ulfah", "P", "09/24/1995", 5000000, "1BD4")
            BAHRI.Rows.Add("46112044", "Ulfah Nas", "P", "01/26/1994", 5000000, "1BD4")
            BAHRI.Rows.Add("46112045", "Abdul Qawwam Nurjaya", "L", "11/26/1994", 3500000, "1BD4")
            BAHRI.Rows.Add("46112046", "Andini Hayrunnisyah", "P", "06/27/1994", 1500000, "1BD4")
            BAHRI.Rows.Add("46112047", "Hasmawati", "P", "11/22/1994", 5000000, "1BD4")
            BAHRI.Rows.Add("46112048", "Udin Pranata", "L", "01/29/1993", 1000000, "1BD4")
            BAHRI.Rows.Add("46112049", "Muhammad Farid Syah", "L", "01/20/1995", 5000000, "1BD4")
            BAHRI.Rows.Add("46112051", "Afrisca Fraktiani Rante", "P", "04/13/1995", 5000000, "1BD4")
            BAHRI.Rows.Add("46112052", "Aprianto Sandy", "L", "04/11/1993", 3000000, "1BD4")
            BAHRI.Rows.Add("46112053", "Khusnul Khatimah A", "P", "08/27/1994", 3000000, "1BD4")
            BAHRI.Rows.Add("46112056", "Kartini Widyasita", "P", "04/21/1993", 4650000, "1BD4")

            BAHE = BAHRI.DefaultView

            DGV1_46110001.DataSource = BAHE
        End Sub
    End Class
  •  jalankan program dengan Mengklik start debugging seperti pada gambar dibawah ini

0 komentar:

Posting Komentar

Langganan: Posting Komentar (Atom)