Membuat Program Aplikasi Nilai Mahasisiwa dengan VB.Net

Program Aplikasi Nilai mahasiswa adalah pelajaran sederhana dalam pemogroman, disini kita menggunakan VB.Net sebagai Aplikasi untuk membuat program . 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.