membuat program aplikasi nilai

DESAIN FORM SEPERTI GAMBAR DI BAWAH

Keterangan

Untuk penentuan Nama di ambil dari ketentuan NPM
Untuk penentuan Jenjang di ambil karakter yang ke tiga dari NPM
Untuk penentuan jurusan di ambil dua karakter dari tengah NPM
Untuk Penentuan Nama Dosen di tentukan berdasarkan Kode Dosen
Untuk penentuan Nama Matakuliah di tentukan berdasarkan Kode Matakuliah
Untuk penentuan Nilai akhir
Nilai akhir = 10%  * Nilai kehadiran + 15% *  Nilai Tugas  + 3%  * Nilai UTS + 45%  * Nilai_UAS
Untuk penentuan Nilai huruf
A = Jika Nilai akhir Lebih besar dari 80
B = Jika Nilai akhir Lebih besar dari 70
C = Jika Nilai akhir Lebih besar dari 60
D = Jika Nilai akhir Lebih besar dari 50
E = Jika Nilai akhir Lebih kecil dari 50
Untuk penentuan keterangan
Lulus jika Nilai akhir lebih besar dari 50
Tidak lulus jika Nilai akhir lebih kecil dari 50

Listing Program
Public Class Form2


    Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        npm.Items.Add("12110096")
        npm.Items.Add("12110098")
        npm.Items.Add("12110201")

        kode_dosen.Items.Add("KW9000")
        kode_dosen.Items.Add("KW8000")
        kode_dosen.Items.Add("KW1000")

        Kode_mat.Items.Add("KD001")
        Kode_mat.Items.Add("KD002")
        Kode_mat.Items.Add("KD003")

        Dim i As Integer
        For i = 100 To 30 Step -1
            nilai_krhadiran.Items.Add(i)
            Ntugas.Items.Add(i)
            nuts.Items.Add(i)
            nuas.Items.Add(i)
        Next
        nama.Enabled = False
        jenjang.Enabled = False
        jurusan.Enabled = False
        nama_dosen.Enabled = False
        mat_kul.Enabled = False
        nilai_akhir.Enabled = False
        N_huruf.Enabled = False
        textbox8.Enabled = False

    End Sub

    Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles npm.SelectedIndexChanged
        Select Case npm.Text
            Case "12110201"
                nama.Text = "lenni sundari"
                jenjang.Text = "S1"
                jurusan.Text = "TI"
            Case "12110096"
                nama.Text = "Reza ariansyah"
                jenjang.Text = "S1"
                jurusan.Text = "TI"
            Case "12110098"
                nama.Text = "agus setiawan"
                jenjang.Text = "S1"
                jurusan.Text = "TI"
            Case Else
                nama.Text = ""
                jenjang.Text = ""
                jurusan.Text = ""

        End Select
    End Sub

    Private Sub ComboBox2_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kode_dosen.SelectedIndexChanged
        Select Case kode_dosen.Text
            Case "KW8000"
                nama_dosen.Text = "mesran, M.kom"
            Case "KW9000"
                nama_dosen.Text = "abdul asani sembiring, M.kom"
            Case "KW1000"
                nama_dosen.Text = "Tonni Limbong, S.kom,M.kom"


        End Select
    End Sub

    Private Sub ComboBox3_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Kode_mat.SelectedIndexChanged
        Select Case Kode_mat.Text
            Case "KD001"
                mat_kul.Text = "program visual"
            Case "KD002"
                mat_kul.Text = "sistem operasi"
            Case "KD003"
                mat_kul.Text = " Sistem basis data"
        End Select

    End Sub
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnproses.Click
        nilai_akhir.Text = 0.1 * nilai_krhadiran.Text + 0.15 * Ntugas.Text + 0.3 * nuts.Text + 0.45 * nuts.Text
        If nilai_akhir.Text >= 90 Then
            N_huruf.Text = "A"
            textbox8.Text = "lulus"
        ElseIf nilai_akhir.Text >= 80 Then
            N_huruf.Text = "B"
            textbox8.Text = "lulus"
        ElseIf nilai_akhir.Text >= 70 Then
            N_huruf.Text = "C"
            textbox8.Text = "lulus"
        ElseIf nilai_akhir.Text >= 60 Then
            N_huruf.Text = "D"
            textbox8.Text = "lulus"
        Else
            N_huruf.Text = "E"
            textbox8.Text = "tidak lulus"


        End If

    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhapus.Click
        nama.Text = ""
        jenjang.Text = ""
        jurusan.Text = ""
        nama_dosen.Text = ""
        mat_kul.Text = ""
        npm.Text = ""
        kode_dosen.Text = ""
        Kode_mat.Text = ""
        nilai_krhadiran.Text = ""
        Ntugas.Text = ""
        nilai_akhir.Text = ""
        N_huruf.Text = ""
        nuts.Text = ""
        nuas.Text = ""

    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnkeluar.Click
        Me.Close()

    End Sub