Belajar microsoft visual basic

Public Class Form2


    Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        NPM.Items.Add("12110011")
        NPM.Items.Add("12110012")
        NPM.Items.Add("12110013")

        KodeDosen.Items.Add("111")
        KodeDosen.Items.Add("112")
        KodeDosen.Items.Add("113")

        KodeMatakuliah.Items.Add("A01")
        KodeMatakuliah.Items.Add("A02")
        KodeMatakuliah.Items.Add("A03")

        Dim i As Byte
        For i = 1 To 100
            NilaiKehadiran.Items.Add(i)
            NilaiTugas.Items.Add(i)
            NilaiUTS.Items.Add(i)
            NilaiUAS.Items.Add(i)
        Next
    End Sub

    Private Sub NPM_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NPM.SelectedIndexChanged
        Select Case NPM.Text
            Case "12110011"
                Nama.Text = "Maruli s"
                Jenjang.Text = "S1"
                Jurusan.Text = "Teknik informatika"
            Case "12110012"
                Nama.Text = "Lasmian"
                Jenjang.Text = "D3"
                Jurusan.Text = "Sistem informasi"
            Case "12110013"
                Nama.Text = "Eflinda Sarumaha"
                Jenjang.Text = "S1"
                Jurusan.Text = "Manajemen informatika"
            Case Else
                Nama.Text = "_"
        End Select
    End Sub

    Private Sub KodeDosen_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KodeDosen.SelectedIndexChanged
        Select Case KodeDosen.Text
            Case "111"
                NamaDosen.Text = "Abdul sani sembiring M.kom"
            Case "112"
                NamaDosen.Text = "Sinar sinurat ST, Mkom"
            Case "113"
                NamaDosen.Text = "Mesran S.kom, M.kom"
            Case Else
                NamaDosen.Text = "_"
        End Select
    End Sub

    Private Sub Btnproses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnproses.Click
        NilaiAkhir.Text = 0.4 * NilaiUTS.Text + 0.6 * NilaiUAS.Text + 0.1 * NilaiKehadiran.Text + 0.15 * NilaiTugas.Text

        If NilaiAkhir.Text >= 80 Then
            NilaiHuruf.Text = "A"
        ElseIf NilaiAkhir.Text >= 70 Then
            NilaiHuruf.Text = "B"
        ElseIf NilaiAkhir.Text >= 60 Then
            NilaiHuruf.Text = "C"
        ElseIf NilaiAkhir.Text >= 50 Then
            NilaiHuruf.Text = "D"
        Else
            NilaiHuruf.Text = "E"
        End If

        If NilaiAkhir.Text >= 50 Then
            Keterangan.Text = "Lulus"
        Else
            Keterangan.Text = "Gagal"
        End If

        If Jenjang.Text = "1" Then
            Jenjang.Text = "Diploma 1"
        ElseIf Jenjang.Text = "3" Then
            Jenjang.Text = "Diploma 3"
        ElseIf Jenjang.Text = "4" Then
            Jenjang.Text = "Strata 1"
        End If

        If Jurusan.Text = "001" Then
            Jurusan.Text = "Manajemen Informatika"
        ElseIf Jurusan.Text = "002" Then
            Jurusan.Text = "Sistem Informatika"
        ElseIf Jurusan.Text = "003" Then
            Jurusan.Text = "Teknik komputer"
        ElseIf Jurusan.Text = "004" Then
            Jurusan.Text = "Akuntansi"
        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 = ""
        NamaDosen.Text = ""
        KodeMatakuliah.Text = ""
        NamaMatakuliah.Text = ""
        NilaiKehadiran.Text = ""
        NilaiTugas.Text = ""
        NilaiUTS.Text = ""
        NilaiUAS.Text = ""
        NilaiAkhir.Text = ""
        NilaiHuruf.Text = ""
        Keterangan.Text = ""
    End Sub

    Private Sub Btnkeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnkeluar.Click
        Me.Close()
    End Sub

    Private Sub NilaiUAS_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles NilaiUAS.KeyPress
        Dim tombol As Integer = Asc(e.KeyChar)
        If tombol = 13 Then
            Btnproses_Click(sender, e)
        End If
    End Sub

    Private Sub KodeMatakuliah_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KodeMatakuliah.SelectedIndexChanged
        Select Case KodeMatakuliah.Text
            Case "A01"
                NamaMatakuliah.Text = "Sistem operasi"
            Case "A02"
                NamaMatakuliah.Text = "Struktur Data"
            Case "A03"
                NamaMatakuliah.Text = "Programan visual"
            Case Else
                NamaMatakuliah.Text = "_"
        End Select
    End Sub
End Class