Penilaian Mahasiswa

Ini adalah gambar untuk membuat penilaian mahasiswa.Berikut adalah gambarnya:

Public Class Form1

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

        Select Case npm.Text

            Case "12110234"

                nama.Text = "jonny"

                jenjang.Text = "S1"

                jurusan.Text = "Teknik informatika"

            Case "12110235"

                nama.Text = "sari mutiara"

                jenjang.Text = "D3"

                jurusan.Text = "Manajemen informatika"

            Case "12110236"

                nama.Text = "kartini ros"

                jenjang.Text = "S1"

                jurusan.Text = "Sistem informatika"

            Case "12110237"

                nama.Text = "ratna sari"

                jenjang.Text = "S1"

                jurusan.Text = "Sistem informatika"

        End Select

    End Sub

    Private Sub ComboBox2_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kodedosen.SelectedIndexChanged

        Select Case kodedosen.Text

            Case "001"

                nd.Text = "Tonni Limbong S.Kom,M.Kom"

            Case "002"

                nd.Text = "Garuda Ginting,ST,M.Kom"

            Case "003"

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

            Case "004"

                nd.Text = "Sinar sinurat,ST,M.Kom"

        End Select

    End Sub

    Private Sub ComboBox3_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kdmatakul.SelectedIndexChanged

        Select Case kdmatakul.Text

            Case "011"

                matakul.Text = "Sistem basis data"

            Case "012"

                matakul.Text = "Visual basic"

            Case "013"

                matakul.Text = "Struktur data"

            Case "014"

                matakul.Text = "Interaksi Manusia dan Komputer"

        End Select

    End Sub

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

        npm.Items.Add("12110234")

        npm.Items.Add("12110235")

        npm.Items.Add("12110236")

        npm.Items.Add("12110237")

        kodedosen.Items.Add("001")

        kodedosen.Items.Add("002")

        kodedosen.Items.Add("003")

        kodedosen.Items.Add("004")

        kdmatakul.Items.Add("011")

        kdmatakul.Items.Add("012")

        kdmatakul.Items.Add("013")

        kdmatakul.Items.Add("014")

        Dim x As Integer

        For x = 0 To 100

            nilaikehadiran.Items.Add("" & x)

            nilaitugas.Items.Add("" & x)

            nilaiuts.Items.Add("" & x)

            nilaiuas.Items.Add("" & x)

        Next

    End Sub

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

        na.Text = 0.1 * nilaikehadiran.Text + 0.2 * nilaitugas.Text + 0.4 * nilaiuts.Text + 0.6 * nilaiuas.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

            keterangan.Text = "Lulus"

        Else

            keterangan.Text = "Gagal"

        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 = ""

        kodedosen.Text = ""

        nd.Text = ""

        kdmatakul.Text = ""

        matakul.Text = ""

        nilaikehadiran.Text = ""

        nilaitugas.Text = ""

        nilaiuts.Text = ""

        nilaiuas.Text = ""

        na.Text = ""

        nh.Text = ""

        keterangan.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

Ini adalah hasil gambar hasil dari rancangan diatas:

Terimakasih.

http://katarinachite.blogspot.com/2013/11/penilaian-mahasiswa.html