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