Form Penilaian Mahasiswa

Kode Program

Public Class Form1

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

        npm.Items.Add("12110139")

        npm.Items.Add("12021976")

        npm.Items.Add("12008754")

        npm.Items.Add("12025764")

        kdDosen.Items.Add("1198753")

        kdDosen.Items.Add("1198273")

        kdDosen.Items.Add("1198753")

        kdMataKuliah.Items.Add("A213")

        kdMataKuliah.Items.Add("B247")

        kdMataKuliah.Items.Add("C283")

        Call JenjangDanJurusan()

        Dim i As Integer

        i = 100

        Do While i >= 1

            nt.Items.Add(i)

            nUas.Items.Add(i)

            nk.Items.Add(i)

            nUts.Items.Add(i)

            i = i - 1

        Loop

    End Sub

    Private Sub btnKeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnKeluar.Click

        End

    End Sub

    Private Sub btnHapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnHapus.Click

        nmMtaKuliah.Text = ""

        na.Text = ""

        nt.Text = ""

        npm.Text = ""

        jurusan.Text = ""

        jenjang.Text = ""

        kdDosen.Text = ""

        kdMataKuliah.Text = ""

        ket.Text = ""

        nama.Text = ""

        nmDosen.Text = ""

        nUas.Text = ""

        nUts.Text = ""

        nk.Text = ""

        nh.Text = ""

    End Sub

    Private Sub btnProses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnProses.Click

        na.Text = 0.1 * nk.Text + 0.15 * nt.Text + 0.3 * nUts.Text + 0.45 * nUas.Text

        If na.Text >= 80 Then

            nh.Text = "A"

                  ElseIf na.Text >= 70 Then

            nh.Text = "B"

                   ElseIf na.Text >= 60 Then

            nh.Text = "C"

                   ElseIf na.Text >= 50 Then

            nh.Text = "D"

        Else

            nh.Text = "E"

        End If

        If na.Text >= 50 Then

            ket.Text = "Lulus"

        Else

            ket.Text = "Gagal"

        End If

    End Sub

    Sub JenjangDanJurusan()

        Dim x As String

        x = Microsoft.VisualBasic.Mid(npm.Text, 3, 2)

        If x = "11" Then

            jenjang.Text = "S1"

        ElseIf x = "02" Then

            jenjang.Text = "D3"

        ElseIf x = "00" Then

            jenjang.Text = "D1"

        End If

        x = Microsoft.VisualBasic.Mid(npm.Text, 5, 1)

        If x = "0" Then

            jurusan.Text = "Tehnik Informatika"

        ElseIf x = "1" Then

            jurusan.Text = "Managemen informatika"

        ElseIf x = "8" Then

            jurusan.Text = "Teknisi Komputer"

        ElseIf x = "5" Then

            jurusan.Text = "Managemen Akuntansi"

        End If

    End Sub

    Private Sub nama_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles nama.TextChanged

       

    End Sub

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

        Select Case npm.Text

            Case "12110139"

                nama.Text = "Toni Sahata Pandapotan"

            Case "12021976"

                nama.Text = "Sandi Putra Siregar"

            Case "12008754"

                nama.Text = "Titi Wahyuni Harahap"

            Case "12110764"

                nama.Text = "Juandi Sinaga"

        End Select

        Call JenjangDanJurusan()

    End Sub

    Private Sub kdDosen_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kdDosen.SelectedIndexChanged

        Select Case kdDosen.Text

            Case "1198753"

                nmDosen.Text = "Guildio Tarigan s.kom, M.kom"

            Case "1198273"

                nmDosen.Text = "Abdul sani seimbiring s.kom, M.kom"

            Case "1198753"

                nmDosen.Text = "Harvei Hutahaean s.kom, M.kom"

        End Select

    End Sub

    Private Sub kdMataKuliah_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kdMataKuliah.SelectedIndexChanged

        Select Case kdMataKuliah.Text

            Case "A213"

                nmMtaKuliah.Text = "Komunikasi Data"

            Case "B247"

                nmMtaKuliah.Text = "Sistem Operasi"

            Case "C283"

                nmMtaKuliah.Text = "Sistem Basis Data"

        End Select

    End Sub

    Private Sub jurusan_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles jurusan.TextChanged

    End Sub

End Class