penilaian mahasiswa

 

 

Public Class Form1

    Private Sub Label3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label3.Click

    End Sub

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

        npm.Items.Add("12110403")

        npm.Items.Add("12110820")

        npm.Items.Add("12110057")

        npm.Items.Add("12110351")

        npm.Items.Add("12110288")

        kd_dos.Items.Add("1001")

        kd_dos.Items.Add("1002")

        kd_dos.Items.Add("1003")

        kd_dos.Items.Add("1004")

        kd_dos.Items.Add("1005")

        kd_matkul.Items.Add("701")

        kd_matkul.Items.Add("702")

        kd_matkul.Items.Add("703")

        kd_matkul.Items.Add("704")

        kd_matkul.Items.Add("705")

        Dim r As Integer

        For r = 1 To 100

            kehadiran.Items.Add(r)

            tugas.Items.Add(r)

            uts.Items.Add(r)

            uas.Items.Add(r)

        Next r

    End Sub

    Private Sub npm_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles npm.SelectedIndexChanged

        Select npm.Text

            Case "12110403"

                nama.Text = "Rina"

                jenjang.Text = "S1"

                jurusan.Text = "T1"

            Case "12110820"

                nama.Text = "Vera"

                jenjang.Text = "D3"

                jurusan.Text = "MI"

            Case "12110057"

                nama.Text = "Lia"

                jenjang.Text = "S1"

                jurusan.Text = "SI"

            Case "12110351"

                nama.Text = "Wani"

                jenjang.Text = "D3"

                jurusan.Text = "MI"

            Case "12110288"

                nama.Text = "Yayuk"

                jenjang.Text = "S1"

                jurusan.Text = "TI"

        End Select

    End Sub

    Private Sub kd_dos_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kd_dos.SelectedIndexChanged

        Select (kd_dos.Text)

            Case "1001"

                namadosen.Text = "Rivarly K Hondro"

            Case "1002"

                namadosen.Text = "Pristiwanto, S.Kom"

            Case "1003"

                namadosen.Text = "Surya Darma Nasution, S.Kom"

            Case "1004"

                namadosen.Text = "Mesran, S.Kom, M.Kom"

            Case "1005"

                namadosen.Text = "Kennedi Tampubolon, S.Si"

        End Select

    End Sub

    Private Sub kd_matkul_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kd_matkul.SelectedIndexChanged

        Select Case (kd_matkul.Text)

            Case "701"

                matkul.Text = "Struktur Data"

            Case "702"

                matkul.Text = "Sistem Operasi"

            Case "703"

                matkul.Text = "Sistem Basis Data"

            Case "704"

                matkul.Text = "Pemrograman Visual"

            Case "705"

                matkul.Text = "Komunikasi Data"

        End Select

    End Sub

    Private Sub btnproses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnproses.Click

        na.Text = 0.1 * kehadiran.Text + 0.15 * tugas.Text + 0.4 * uts.Text + 0.6 * uas.Text

        If na.Text >= 80 Then

            huruf.Text = "A"

            ket.Text = "Lulus"

        ElseIf na.Text >= 70 Then

            huruf.Text = "B"

            ket.Text = "Lulus"

        ElseIf na.Text >= 60 Then

            huruf.Text = "C+"

            ket.Text = "Lulus"

        ElseIf na.Text >= 50 Then

            huruf.Text = "C"

            ket.Text = "Perbaikan"

        ElseIf na.Text >= 40 Then

            huruf.Text = "D"

            ket.Text = "Mengulang"

        Else

            huruf.Text = "E"

            ket.Text = "Tidak Lengkap"

        End If

    End Sub

    Private Sub btnhapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhapus.Click

        npm.Text = ""

        nama.Text = ""

        jenjang.Text = ""

        jurusan.Text = ""

        kd_dos.Text = ""

        namadosen.Text = ""

        kd_matkul.Text = ""

        matkul.Text = ""

        kehadiran.Text = ""

        tugas.Text = ""

        uts.Text = ""

        uas.Text = ""

        na.Text = ""

        huruf.Text = ""

        ket.Text = ""

    End Sub

    Private Sub btnkeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnkeluar.Click

        End

    End Sub

End Class