Quis No satu

Public Class Form2

    Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        npm.Items.Add("12110559")
        npm.Items.Add("12111045")
        npm.Items.Add("12110766")

        kode_dosen.Items.Add("MS")
        kode_dosen.Items.Add("GT")
        kode_dosen.Items.Add("HH")

        kode_dosen.Items.Add("KBTI4202")
        kode_dosen.Items.Add("KBTI4302")
        kode_dosen.Items.Add("KBTI4303")

        Dim N As Integer
        For N = 1 To 100
            nilai_kehadiran.Items.Add(N)
            nilai_tugas.Items.Add(N)
            nilai_uts.Items.Add(N)
            nilai_uas.Items.Add(N)
        Next

    End Sub

    Private Sub NPM_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NPM.SelectedIndexChanged
        If NPM.Text = "12110559" Then
            Nama.Text = "Adelina Pangaribuan"
            jenjang.Text = "S1"
            jurusan.Text = "Sistem Informasi"
        ElseIf NPM.Text = "12111045" Then
            Nama.Text = "Tomi"
            jenjang.Text = "DIII"
            jurusan.Text = "Komputerisasi Akuntansi"
        Else
            Nama.Text = "Messi"
            jenjang.Text = "DI"
            jurusan.Text = "Desain Grafis"
        End If

    End Sub

    Private Sub kode_dosen_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kode_dosen.SelectedIndexChanged
        If kode_dosen.Text = "MS" Then
            nama_dosen.Text = "Mesran M.Kom"
        ElseIf kode_dosen.Text = "GT" Then
            nama_dosen.Text = "Guidio Leonarde Tarigan,M.Kom"
        Else
            nama_dosen.Text = "Harvei D.Hutahaean,M.Kom"
        End If

    End Sub

    Private Sub kode_mtakuliah_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kode_mtakuliah.SelectedIndexChanged
        If kode_mtakuliah.Text = "KBTI4203" Then
            mata_kuliah.Text = "Vb.Net"
        ElseIf kode_mtakuliah.Text = "Guidio Leonarde Tarigan,M.kom" Then
            mata_kuliah.Text = "Komunikasi Data"
        Else
            mata_kuliah.Text = "Struktur Data"
        End If

    End Sub

    Private Sub proses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles proses.Click
        If nilai_akhir.Text = "" Then
            nilai_akhir.Text = 0.1 * nilai_kehadiran.Text + 0.15 * nilai_tugas.Text + 0.3 * nilai_uts.Text + 0.45 * nilai_uas.Text
            nilai_akhir.Focus()
        End If
        If nilai_akhir.Text >= 50 Then
            keterangan.Text = "Lulus"
        Else
            keterangan.Text = "Gagal"
        End If
        If nilai_akhir.Text >= 85 Then
            nilai_huruf.Text = "A"
        ElseIf nilai_akhir.Text >= 75 Then
            nilai_huruf.Text = "B"
        ElseIf nilai_akhir.Text >= 60 Then
            nilai_huruf.Text = "C"
        ElseIf nilai_akhir.Text >= 50 Then
            nilai_huruf.Text = "D"
        Else
            nilai_huruf.Text = "E"
        End If

    End Sub

    Private Sub hapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles hapus.Click
        NPM.Text = ""
        Nama.Text = ""
        jenjang.Text = ""
        jurusan.Text = ""
        kode_dosen.Text = ""
        nama_dosen.Text = ""
        kode_mtakuliah.Text = ""
        mata_kuliah.Text = ""
        nilai_akhir.Text = ""
        nilai_tugas.Text = ""
        nilai_uts.Text = ""
        nilai_uas.Text = ""
        nilai_akhir.Text = ""
        nilai_huruf.Text = ""
        keterangan.Text = ""

    End Sub

    Private Sub keluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles keluar.Click
        Dim tanya As String
        tanya = MsgBox("Apakah Anda Yakin Mau Keluar", MsgBoxStyle.Question + MsgBoxStyle.YesNo)
        If tanya = vbYes Then
            Me.Close()
        Else
            Exit Sub
        End If

    End Sub
End Class