Program Aplikasi Nilai Mahasiswa

Program Aplikasi Nilai mahasiswa adalah pelajaran sederhana dalam pemogroman, karena disini lah awal dari kesempurnaan progam. Kami berharap Semoga program Aplikasi Nilai Mahasisiwa ini dapat bermanfaat bagi para programer dasar.

 Berikiu ini adalah Listing Program Aplikasi Nilai Mahasisiwa

Public Class Nilai_Mahasisiwa

    
    Private Sub Nilai_Mahasisiwa_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        npm.Items.Add("12110044")
        npm.Items.Add("12110033")
        npm.Items.Add("12110022")

        kddosen.Items.Add("KDOS112")
        kddosen.Items.Add("KDOS113")
        kddosen.Items.Add("KDOS114")

        kdmatkul.Items.Add("KDMAT001")
        kdmatkul.Items.Add("KDMAT002")
        kdmatkul.Items.Add("KDMAT003")

        Dim i As Integer
        For i = 100 To 1 Step -1
            nlhadir.Items.Add(i)
        Next
        For i = 100 To 1 Step -1
            nltugas.Items.Add(i)
        Next
        For i = 100 To 1 Step -1
            nluts.Items.Add(i)
        Next
        For i = 100 To 1 Step -1
            nluas.Items.Add(i)
        Next

        keterangan.Enabled = False
        nlakhir.Enabled = False
        nmdosen.Enabled = False
        nmmatkul.Enabled = False
        jurusan.Enabled = False
        jenjang.Enabled = False
        nama.Enabled = False
        nlhuruf.Enabled = False
    End Sub

    Private Sub npm_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles npm.SelectedIndexChanged
        If npm.Text = "12110044" Then
            nama.Text = "Chanif Arvani"
            jurusan.Text = "Teknik Informatika"
            jenjang.Text = "S1"
        ElseIf npm.Text = "12110033" Then
            nama.Text = "M.Hidayat"
            jurusan.Text = "Sistem Informasi"
            jenjang.Text = "S1"
        Else
            nama.Text = "Jaialamm Igaph S"
            jurusan.Text = "Manajemen Informatika"
            jenjang.Text = "D3"
        End If
    End Sub

    Private Sub kddosen_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kddosen.SelectedIndexChanged
        If nmdosen.Text = "KDOS112" Then
            nmdosen.Text = "Mesran, M.kom"
        ElseIf nmdosen.Text = "KDOS113" Then
            nmdosen.Text = "Pilipus Tarigan, ST, M.kom"
        Else
            nmdosen.Text = "Kristian Siregar, S.kom"
        End If
    End Sub

    Private Sub kdmatkul_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kdmatkul.SelectedIndexChanged
        If kdmatkul.Text = "KDMAT001" Then
            nmmatkul.Text = "Pemograman Visual"
        ElseIf kdmatkul.Text = "KDMAT002" Then
            nmmatkul.Text = "Arsitektur Komputer"
        Else
            nmmatkul.Text = "Pemograman HTML"
        End If
    End Sub

    Private Sub btnproses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnproses.Click
        nlakhir.Text = 0.1 * nlhadir.Text + 0.15 * nltugas.Text + 0.3 * nluts.Text + 0.45 * nluas.Text
        If nlakhir.Text >= 80 Then
            nlhuruf.Text = "A"
        ElseIf nlakhir.Text >= 70 Then
            nlhuruf.Text = "B"
        ElseIf nlakhir.Text >= 60 Then
            nlhuruf.Text = "C"
        ElseIf nlakhir.Text >= 50 Then
            nlhuruf.Text = "D"
        Else
            nlhuruf.Text = "E"
        End If

        If nluas.Text >= 50 Then
            keterangan.Text = "LULUS"
        Else
            keterangan.Text = "GAGAl"
        End If
    End Sub

    Private Sub btnhapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhapus.Click
        Me.Close()
        npm.Focus()
    End Sub

    Private Sub btnkeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnkeluar.Click
        npm.Text = ""
        nama.Text = ""
        jenjang.Text = ""
        jurusan.Text = ""
        kddosen.Text = ""
        nmdosen.Text = ""
        kdmatkul.Text = ""
        nmmatkul.Text = ""
        nlhadir.Text = ""
        nltugas.Text = ""
        nluts.Text = ""
        nluas.Text = ""
        nlhuruf.Text = ""
        keterangan.Text = ""
    End Sub

    Private Sub nlakhir_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles nlakhir.KeyPress
        If Asc(e.KeyChar) = 13 Then
            nlakhir.Text = 0.1 * nlhadir.Text + 0.15 * nltugas.Text + 0.3 * nluts.Text + 0.45 * nluas.Text
            If nlakhir.Text >= 80 Then
                nlhuruf.Text = "A"
            ElseIf nlakhir.Text >= 70 Then
                nlhuruf.Text = "B"
            ElseIf nlakhir.Text >= 60 Then
                nlhuruf.Text = "C"
            ElseIf nlakhir.Text >= 50 Then
                nlhuruf.Text = "D"
            Else
                nlhuruf.Text = "E"
            End If

            If nluas.Text >= 50 Then
                keterangan.Text = "LULUS"
            Else
                keterangan.Text = "GAGAl"
            End If
        End If
    End Sub

    Private Sub nlakhir_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles nlakhir.TextChanged

    End Sub

End Class

Semoga Progam Aplikasi Nilai Mahasiswa diatas dapat bermanfaat bagi para Programer Pemula.