forrm nilai mahasiswa

Di bawah ini adalah desain dari perhitungan nilai mahasiswa dengan menggunakan visual basic 2008 :

Public Class Form1

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

        npm.Items.Add("12110720")

        npm.Items.Add("12110730")

        npm.Items.Add("12110740")

        kdosen.Items.Add("0720")

        kdosen.Items.Add("0730")

        kdosen.Items.Add("0740")

        kmatkul.Items.Add("A11")

        kmatkul.Items.Add("A22")

        kmatkul.Items.Add("A33")

        Dim i As Integer

        For i = 1 To 100

            hadir.Items.Add(i)

            tugas.Items.Add(i)

            uts.Items.Add(i)

            uas.Items.Add(i)

        Next i

    End Sub

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

        Dim x As String

        x = Microsoft.VisualBasic.Right(npm.Text, 2)

        Select Case npm.Text

            Case "12110720"

                nama.Text = "APRYANTI S"

                If x = "20" Then

                    jenjang.Text = "S1"

                    jurusan.Text = "Sistem informasi"

                ElseIf x = "30" Then

                    jenjang.Text = "D3"

                    jurusan.Text = "Manajemen"

                ElseIf x = "40" Then

                    jenjang.Text = "D1"

                    jurusan.Text = "Akutansi"

                End If

            Case "12110730"

                nama.Text = "BARRY"

                If x = "20" Then

                    jenjang.Text = "S1"

                    jurusan.Text = "Sistem informasi"

                ElseIf x = "30" Then

                    jenjang.Text = "D3"

                    jurusan.Text = "Manajemen"

                ElseIf x = "40" Then

                    jenjang.Text = "D1"

                    jurusan.Text = "Akutansi"

                End If

            Case Else

                nama.Text = "CITRA"

                If x = "20" Then

                    jenjang.Text = "S1"

                    jurusan.Text = "Sistem informasi"

                ElseIf x = "30" Then

                    jenjang.Text = "D3"

                    jurusan.Text = "Manajemen"

                ElseIf x = "40" Then

                    jenjang.Text = "D1"

                    jurusan.Text = "Akutansi"

                End If

        End Select

    End Sub

    Private Sub kmatkul_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kmatkul.SelectedIndexChanged

        Select Case kmatkul.Text

            Case "A11"

                matkul.Text = "SISTEM OPERASI"

            Case "A22"

                matkul.Text = "SISTEM BASIS DATA"

            Case Else

                matkul.Text = "LOGIKA DAN ALGORITMA"

        End Select

    End Sub

    Private Sub kdosen_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kdosen.SelectedIndexChanged

        Select Case kdosen.Text

            Case "0720"

                ndosen.Text = "YASIR HASAN S.KOM"

            Case "0730"

                ndosen.Text = "HARVEI D.HUTAHAEAN S.KOM,M.KM"

            Case Else

                ndosen.Text = "MHD.IQBAL BATUBARA S.K,M.KOM"

        End Select

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

        kdosen.Text = ""

        ndosen.Text = ""

        kmatkul.Text = ""

        matkul.Text = ""

        hadir.Text = ""

        tugas.Text = ""

        uts.Text = ""

        uas.Text = ""

        NA.Text = ""

        NH.Text = ""

        ket.Text = ""

    End Sub

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

        NA.Text = 0.1 * hadir.Text + 0.15 * tugas.Text + 0.3 * uts.Text + 0.45 * uas.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

    Private Sub NA_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles NA.KeyPress

        If Asc(e.KeyChar) = 13 Then

            btnproses_Click(sender, e)

        End If

    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 dari desain tersebut :