Tugas Belajar Bahasa Pemrograman

Program Penilaian Mahasiswa dalam Microsoft Visual Basic

Form design :

Form Program :

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        NPM.Items.Add("12110900")

        NPM.Items.Add("12110880")

        NPM.Items.Add("12110918")

        NPM.Items.Add("12110770")

        KD.Items.Add("ME512AN")

        KD.Items.Add("NE11Y")

        KD.Items.Add("Ya5112")

        KD.Items.Add("GU113IO")

        KDM.Items.Add("KKTI4303")

        KDM.Items.Add("KBTI4306")

        KDM.Items.Add("KBTI4303")

        KDM.Items.Add("KBTI4305")

        Dim i As Integer

        For i = 1 To 100

            NH.Items.Add(i)

            NT.Items.Add(i)

            NU.Items.Add(i)

            NUA.Items.Add(i)

        Next i

    End Sub

    Private Sub NPM_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NPM.SelectedIndexChanged

        Select Case NPM.Text

            Case "12110900"

                Nama.Text = "Rio Fritz Salomo"

                Jenjang.Text = "S1"

                Jur.Text = "Teknik Informatika"

            Case "12110880"

                Nama.Text = "Hendri"

                Jenjang.Text = "S1"

                Jur.Text = "Sistem Informasi"

            Case "12110918"

                Nama.Text = "Ivana Jovita Butar-butar"

                Jenjang.Text = "S1"

                Jur.Text = "Manajemen Informatika"

            Case "12110770"

                Nama.Text = "Afrizal Syahputra"

                Jenjang.Text = "S1"

                Jur.Text = "Teknik Informatika"

        End Select

    End Sub

    Private Sub KD_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KD.SelectedIndexChanged

        Select Case KD.Text

            Case "ME512AN"

                ND.Text = "Mesran M.Kom"

            Case "NE11Y"

                ND.Text = "Nelly Astuti"

            Case "Ya5112"

                ND.Text = "Yasir Hasan"

            Case "GU113IO"

                ND.Text = "Guidio Ginting"

        End Select

    End Sub

    Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KDM.SelectedIndexChanged

        Select Case KDM.Text

            Case "KKTI4303"

                MK.Text = "Struktur Data"

            Case "KBTI4306"

                MK.Text = "Sistem Operasi"

            Case "KBTI4303"

                MK.Text = "Sistem Basis Data"

            Case "KBTI4305"

                MK.Text = "Pemograman Visual Basic"

        End Select

    End Sub

    Private Sub Keluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Keluar.Click

        End

    End Sub

    Private Sub Hapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Hapus.Click

        NPM.Text = ""

        Nama.Text = ""

        Jenjang.Text = ""

        KD.Text = ""

        ND.Text = ""

        KDM.Text = ""

        MK.Text = ""

        NH.Text = ""

        NT.Text = ""

        NU.Text = ""

        NUA.Text = ""

        NAK.Text = ""

        NHUr.Text = ""

        Ket.Text = ""

        Jur.Text = ""

    End Sub

    Private Sub Proses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Proses.Click

        NAK.Text = 0.1 * NH.Text + 0.3 * NT.Text + 0.15 * NU.Text + 0.45 * NUA.Text

        If NAK.Text >= 88 Then

            NHUr.Text = "A"

        ElseIf NAK.Text >= 79 Then

            NHUr.Text = "B+"

        ElseIf NAK.Text >= 69 Then

            NHUr.Text = "B"

        ElseIf NAK.Text >= 59 Then

            NHUr.Text = "C+"

        ElseIf NAK.Text >= 49 Then

            NHUr.Text = "C"

        ElseIf NAK.Text >= 39 Then

            NHUr.Text = "D"

        ElseIf NAK.Text >= 29 Then

            NHUr.Text = "E"

        End If

        If NAK.Text >= 65 Then

            Ket.Text = "Lulus"

        ElseIf NAK.Text <= 65 Then

            Ket.Text = "Gagal"

        End If

    End Sub

End Class

Hasil Output :