TUGAS KONSEP PEMROGRAMAN MUTIARA KAMILA ATHIYYA

Untuk Ujian Tengah Semester 2 Mata Kuliah Konsep Pemrograman, saya membuat aplikasi bagi Dosen untuk menginput nilai Mahasiswa dalam salah satu kelas yang diajarnya, dan mengetahui berapa jumlah data yang diinput, berapa rata-rata, apa predikat kelasnya, termasuk ke kategori berapakah, dan berapa orang dari kelas tersebut yang bisa diikuti dalam olimpiade.

1.       Dosen yang mengakses aplikasi ini, diharuskan untuk menginput username dan password. Setelah menginput username dan password, langkah selanjutnya adalah menekan button “LOG IN”

.       Setelah menekan button “LOG IN” maka akan langsung muncul Form kedua untuk menginput nilai Mahasiswa, Mata Kuliahnya apa,  Nilai Mahasiswa termasuk Nilai Tugas Individu, Nilai Tugas Kelompok, Nilai UTS, setelah menginput, maka kita harus menekan button “Simpan” dan nilai yang tadi kita input pun akan langsung terlihat pada List Box di sampingnya. Untuk mengisi nilai untuk mahasiswa lain, maka kita harus menekan button “Isi Data Lain”, maka Text Box untuk menginput Nilai Tugas Individu, Kelompok, dan UTS akan kembali kosong dan siap untuk diisi dengan data baru.

32.       Setelah List Box untuk 11 Mahasiswa sudah terpenuhi, maka harus menekan beberapa button, button yang dimaksud adalah, Jumlah Data, Total Nilai, Rata Rata, dan Rata Rata Kelas, setelah itu maka kita diharuskan menekan button “Proses”, setelah button tersebut ditekan, maka Kategori Kelas dan Predikat Kelas akan langsung terpampang.

a.       Untuk Rata-Rata Kelas antara 86 – 100, maka Predikat Kelasnya “Sangat Memuaskan” dan Kategori Kelasnya yang ke 1.

b.      Untuk Rata-Rata Kelas antara 76 – 85, maka Predikat Kelasnya “Memuaskan” dan Kategori Kelasnya yang ke 2.

c.       Untuk Rata-Rata Kelas antara 66 – 75, maka Predikat Kelasnya “Cukup Memuaskan” dan Kategori Kelasnya yang ke 3.

d.      Untuk Rata-Rata Kelas antara 56 –64, maka Predikat Kelasnya “Cukup Memprihatinkan” dan Kategori Kelasnya yang ke 4.

e.      Untuk Rata-Rata Kelas dibawah 55, maka Predikat Kelasnya “Memprihatinkan” dan Kategori Kelasnya yang ke 5.

43.       Setelah mengetahui Kategori Kelas setiap kelas, maka kita akan mengetahui berapa orang yang bisa diikutkan Olimpiade dari setiap kelas tersebut.

a.       Untuk kategori 1 dan 2, maka yang bisa diikutkan olimpiade adalah 5 orang.

b.      Untuk kategori 3 dan 4, maka yang bisa diikutkan olimpiade adalah 3 orang.

c.       Untuk kategori lainnya, maka yang bisa diikutkan olimpiade adalah 1 orang.

54.       Button “Reset” digunakan untuk menghapus semua data yang telah tersimpan.

56.       Jika menekan button “Selesai” maka akan muncul Message Box untuk mengkonfirmasi apakah yakin akan keluar dari aplikasi tersebut.

Source Code :

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Form2.Show()
    End Sub
End Class

Public Class Form2

   
    Private Sub btnsimpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnsimpan.Click
        lstnpm.Items.Add(txtnpm.Text)
        lsttgsind.Items.Add(txttgsind.Text)
        lsttgsklm.Items.Add(txttgsklm.Text)
        lstuts.Items.Add(txtuts.Text)
    End Sub
    Dim bulan As Integer
    Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        For a = 1 To 31
            cmbtgl.Items.Add(a)
        Next

        For b = 2015 To 2000 Step -1
            cmbthn.Items.Add(b)
        Next

        bulan = 1
        While bulan <= 12
            cmbbln.Items.Add(bulan)
            bulan = bulan + 1
        End While
    End Sub

    Private Sub radiokonsep_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles radiokonsep.CheckedChanged
        If radiokonsep.Checked = True Then
            lblmatkul.Text = "Konsep Pemrograman"
            lblmatkul2.Text = "Konsep Pemrograman"
            lblkesimpulan1.Text = "Konsep Pemrograman"
        End If
    End Sub

    Private Sub radiobisnis_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles radiobisnis.CheckedChanged
        If radiobisnis.Checked = True Then
            lblmatkul.Text = "Lab Pemrograman Bisnis"
            lblmatkul2.Text = "Lab Pemrograman Bisnis"
            lblkesimpulan1.Text = "Lab Pemrograman Bisnis"
        End If
    End Sub

    Private Sub radiovisual_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles radiovisual.CheckedChanged
        If radiovisual.Checked = True Then
            lblmatkul.Text = "Pemrograman Visual"
            lblmatkul2.Text = "Pemrograman Visual"
            lblkesimpulan1.Text = "Pemrograman Visual"
        End If
    End Sub

   
    Private Sub btnisilainnya_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnisilainnya.Click
        txtnpm.Text = ""
        txttgsind.Text = ""
        txttgsklm.Text = ""
        txtuts.Text = ""
    End Sub

    Dim total1, total2, total3 As Integer
    Private Sub btntotal_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btntotal.Click
        For i As Integer = 0 To lsttgsind.Items.Count - 1
            total1 = total1 + lsttgsind.Items(i)
        Next
        txttotal1.Text = total1

        For j As Integer = 0 To lsttgsklm.Items.Count - 1
            total2 = total2 + lsttgsklm.Items(j)
        Next
        txttotal2.Text = total2


        For k As Integer = 0 To lstuts.Items.Count - 1
            total3 = total3 + lstuts.Items(k)
        Next
        txttotal3.Text = total3

    End Sub

    Private Sub btnjmldata_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnjmldata.Click
        txtdata1.Text = lsttgsind.Items.Count
        txtdata2.Text = lsttgsklm.Items.Count
        txtdata3.Text = lstuts.Items.Count
    End Sub

    Private Sub btnratarata_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnratarata.Click
        txtrata1.Text = txttotal1.Text / txtdata1.Text
        txtrata2.Text = txttotal2.Text / txtdata2.Text
        txtrata3.Text = txttotal3.Text / txtdata3.Text
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        txtratakelas.Text = (Val(0.25 * txtrata1.Text) + Val(0.25 * txtrata2.Text) + Val(0.5 * txtrata3.Text))
    End Sub

    Sub bersih()
        txtmahasiswa.Text = ""
        lblkategorikls.Text = ""
        cmbtgl.Text = ""
        cmbbln.Text = ""
        cmbthn.Text = ""
        txtnpm.Text = ""
        txttgsind.Text = ""
        txttgsklm.Text = ""
        txtuts.Text = ""
        lstnpm.Items.Clear()
        lsttgsind.Items.Clear()
        lsttgsklm.Items.Clear()
        lstuts.Items.Clear()
        radiobisnis.Checked = False
        radiokonsep.Checked = False
        radiovisual.Checked = False
        lblmatkul.Text = ""
        lblmatkul2.Text = ""
        txtdata1.Text = ""
        txtdata2.Text = ""
        txtdata3.Text = ""
        txtrata1.Text = ""
        txtrata2.Text = ""
        txtrata3.Text = ""
        txttotal1.Text = ""
        txttotal2.Text = ""
        txttotal3.Text = ""
        lblpredikatkls.Text = ""
        txtratakelas.Text = ""
    End Sub

    Private Sub btnreset_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnreset.Click
     
        Call bersih()
    End Sub

    Dim vkategori, vmahasiswa As String
    Private Sub btnproses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnproses.Click
        If txtratakelas.Text <= 100 Then
            lblpredikatkls.Text = "Sangat Memuaskan"
            lblkategorikls.Text = "1"

        ElseIf txtratakelas.Text <= 85 Then
            lblpredikatkls.Text = "Memuaskan"
            lblkategorikls.Text = "2"

        ElseIf txtratakelas.Text <= 75 Then
            lblpredikatkls.Text = "Cukup Memuaskan"
            lblkategorikls.Text = "3"

        ElseIf txtratakelas.Text <= 65 Then
            lblpredikatkls.Text = "Cukup Memprihatinkan"
            lblkategorikls.Text = "4"

        ElseIf txtratakelas.Text <= 55 Then
            lblpredikatkls.Text = "Memprihatinkan"
            lblkategorikls.Text = "5"

        Else : lblpredikatkls.Text = "Sangat Memprihatinkan"
            lblkategorikls.Text = "6"
        End If

        vkategori = lblkategorikls.Text
        Select Case vkategori
            Case 1, 2
                vmahasiswa = "5"
                txtmahasiswa.Text = vmahasiswa

            Case 3, 4
                vmahasiswa = "3"
                txtmahasiswa.Text = vmahasiswa

            Case Else
                vmahasiswa = "1"
                txtmahasiswa.Text = vmahasiswa
        End Select
    End Sub

    Dim x As Integer
    Sub selesai()
        x = MsgBox("Yakin akan Selesai", MsgBoxStyle.YesNo + MsgBoxStyle.Question, "Konfirmasi")
        If x = vbYes Then
            End
        Else : Call bersih()
        End If
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Call selesai()
    End Sub
End Class

Rangkuman OSK (Pak Yulius)

Kali ini saya akan merangkum apa saja materi yang disampaikan oleh Pak Yulius Eka di pertemuan pertama semester ini dalam mata kuliahnya yakni OSK (Organisasi Sistem Komputer)

Dalam pertemuan kali ini, Pak Yulius menjelaskan tentang bagaimana cara memperbaiki peralatan elektronik seperti Laptop, PC, dsb. Ada beberapa hal yang akan saya bahas dalam postingan saya kali ini, contohnya; kita tidak boleh memainkan laptop diatas kasur, bagaimana memilih charger laptop yang tepat, bagaimana memperbaiki charger alat elektronik yang rusak, cara membersihkan laptop, dan lain-lain.

Pertama, kita tidak boleh memainkan laptop di atas kasur lho. Mengapa demikian?

Bermain laptop di atas kasur.

Salah satu cara agar laptop yang kita miliki tidak mudah rusak yakni dengan tidak menaruhnya di alas yang sulit untuk mengalirkan udara masuk, misalnya di atas kasur pada saat kita sedang bermain sambil berbaring, atau di atas karpet kain. Hal ini di sebabkan karna laptop membutuhkan sirkulasi udara yang lancar, jika sirkulasi udara terhambat, maka suhu ruangan yang ada pada laptop akan cepat panas dan ini sangat berpengaruh pada kipas pendingin di dalamnya atau Fan.

Biasakanlah bermain di atas meja, lantai, ataupun alas yang dapat menyalurkan udara masuk. Jika anda Menghidupkan laptop lebih dari 3 jam, maka usahakan memasang kipas pendingin tambahan, ini jelas sangat membantu agar laptop tidak mudah panas, dan rusak.

Selanjutnya, memilih charger laptop yang tepat.

Charger Laptop.

 Hal yang musti diperhatikan terlebih dulu, Laptop dengan berbagai seri yang berbeda mungkin saja memiliki pengisi daya (charger) yang sama. Model yang berbeda diproduksi oleh suatu perusahaan memiliki spesifikasi yang berbeda.

Jadi, jika ingin membeli charger untuk laptop kita, kita harus selalu memeriksa tegangan input dan outputnya terlebih dahulu. Rincian ini diberi label pada kemasan produk. Pastikan informasi ini sesuai dengan spesifikasi dari laptop yang kita miliki. Janganlah kita dengan cerobohnya memakai charger dengan tegangan yang jauh lebih besar dari yang seharusnya, hal itu akan cepat membuat laptop rusak. Kalo kata pak Yulius sih gini, coba bayangin aja, kita makan biasanya 3 kali sehari, tapi tiba-tiba kita dijejelin disuruh makan 10 piring dalam sehari. Bisa-bisa gumoh haha.

Janganlah pula kita tergiur dengan harga yang rendah luar biasa di beberapa website seperti yang Kita bisa saja membeli produk duplikat. Lebih baik kita membeli charger laptop dari sebuah situs terkenal.

Ohya, kalo ada kabel yang rusak di charger, jangan kita rekatkan pake solatape atau sejenisnya. Kita harusnya memakai alat yang bernama heat shrink tubing, bentuknya kayak pipa gitu, kalo dipanasin nanti dia akan mengikuti bentuk kabel tsb. Jangan pake solatape ya! Soalnya bahaya sekali lho, nanti kalo tiba-tiba solatape nya bolong terus keinjek terus kita kesetrum, beuh mantap juga sih haha. Warnanya juga bermacam-macam, tingal disesuaikan aja sama warna kabel kita.

Heat Shrink Tubing.

Selanjutnya, cara membersihkan laptop dengan benar.

1.      Langkah pertama adalah mematikan laptop. Setelah benar-benar mati, cabut semua kabel yang terhubung dengan laptop kita. Dalam proses pembersihan, janganlah kita menggunakan minyak kayu putih atau hal-hal lain yang terdengar konyol hahaha. Pak Yulius juga menganjurkan untuk menggunakan Thinner, mengapa demikian? Karena thinner sifatnya akan menguap untuk proses pengeringannya, berbeda dengan air.

2.      Gunakan kain yang berbulu, jangan gunakan tisu wajah atau kain yang kasar karena dapat membuat laptop kita tergores, terutama pada bagian LCD kita harus hati-hati karena bagian ini lunak dan mudah tergores. Gunakan kain yang biasa anda gunakan untuk membersihkan kacamata.

3.      membersihkan partikel debu yang paling baik yakni dengan menggunakan vacuum cleaner, tapi bisa juga dengan menggunakan sikat gigi kalo kata Pak Yulius

4.      yang terakhir, sebelum menyalakan laptop pastikan bahwa semua cairan sudah benar-benar kering.

Vacuuming Laptop.

Untuk memperbaiki laptop yang rusak, kita membutuhkan alat-alat seperti obeng, baut, tang dll.  Obeng yang digunakan yakni obeng yang berbentuk bunga, yang seperti tanda plus, dan yang seperti tanda minus. Tang yang digunakan adalah yang seperti gambar dibawah ini, yang satu set, yang isinya meliputi tang pipih, tang buaya, tang jepit, tang kombinasi, dll. Baut, baut itu sebenarnya sangatlah penting, karena kata Pak Yulius sih kemarin, baut itu merupakan penghantar listrik yang bekerja di dalam laptop tersebut.

Satu set Tang.

Baut.

Satu set Obeng.

Multitester. Multitester adalah suatu alat untuk mendeteksi kerusakan atau jika ada suatu alat yang tidak berfungsi, dan jika ada kabel yang tidak tersambung dengan baik. Caranya hanya dengan menggesekkan multitester ke kabel atau bagian laptop yang rusak. Jika terdeteksi kerusakan, multitester akan mengeluarkan bunyi. Berikut saya lampirkan contoh gambar multitester;

Multitester.

Oiya, ada sedikit info tambahan nih, kalo laptop kita rusak dan udah dengan segala cara memperbaiki tapi tetap tidak bisa juga, caranya yakni dengan mengganti motherboard laptop tersebut. Motherboard dewasa ini sangat mudah didapatkan, kita bisa memesannya secara personal, tidak perlu dengan nama perusahaan. Harga motherboard dari China aja harganya hanya sekitar Rp.300.000-Rp.400.000. Banyak teknisi yang menipu customernya bilang bahwa motherboardnya rusak lah apalah, padahal cuma kotor aja, bukan harus diganti. Kalo cuma kotor sih kita bisa bersihin aja pake thinner sesuai dengan artikel yang saya bahas di bagian atas tadi. Mulai saat ini, jangan sampai kita ketipu lagi ya sama teknisi-teknisi yang tidak bertanggung jawab itu.

Motherboard.

Sekian rangkuman saya tentang materi yang disampaikan Pak Yulius dalam kesempatan yang lalu, kurang lebihnya mohon maaf. Semoga apa yang saya postingkan ini dapat memberikan manfaat kepada kita semua yang membacanya. Terimakasih.