contoh program penilaian

Public Class Form1

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        cbnpm.Items.Add("161510021")
        cbnpm.Items.Add("161510056")
        cbnpm.Items.Add("161510043")

        cbkdmk.Items.Add("mk1")
        cbkdmk.Items.Add("mk2")
        cbkdmk.Items.Add("mk3")
        cbkdmk.Items.Add("mk4")
        cbkdmk.Items.Add("mk5")
    End Sub

    Private Sub cbnpm_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cbnpm.SelectedIndexChanged
        Select Case cbnpm.Text
            Case "161510021"
                txtnama.Text = "Devi"
            Case "161510056"
                txtnama.Text = "dery"
            Case "161510043"
                txtnama.Text = "jessy"
        End Select
    End Sub

    Private Sub cbkdmk_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cbkdmk.SelectedIndexChanged
        Select Case cbkdmk.Text
            Case "mk1"
                txtmatakuliah.Text = "algoritma"
            Case "mk2"
                txtmatakuliah.Text = "matematika diskrit"
            Case "mk3"
                txtmatakuliah.Text = "pemograman visual"
            Case "mk4"
                txtmatakuliah.Text = "Agama"
            Case "mk5"
                txtmatakuliah.Text = "sistem informasi manajemen"
        End Select
    End Sub

    Private Sub proses_Click(sender As Object, e As EventArgs) Handles proses.Click

        Dim Txtnilaiakhir, n1, n2, n3 As Integer
        n1 = txtnilaiquiz.Text
        n2 = txtnilaiuts.Text
        n3 = txtnilaiuas.Text
        Txtnilaiakhir = 0.2 * n1 + 0.2 * n2 + 0.6 * n3
        tbnilaiakhir.Text = Convert.ToString(Txtnilaiakhir)
        If Txtnilaiakhir >= 85 Then
            txtnilaihuruf.Text = "A"
        ElseIf Txtnilaiakhir >= 75 Then
            txtnilaihuruf.Text = "B"
        ElseIf Txtnilaiakhir >= 65 Then
            txtnilaihuruf.Text = "C"
        ElseIf Txtnilaiakhir >= 50 Then
            txtnilaihuruf.Text = "D"
        Else
            txtnilaihuruf.Text = "E"
        End If
    End Sub
End Class