PROGRAM NILAI MAHASISWA MENGGUNAKAN vb.NET 2008

KETENTUAN SOAL SEBAGAI BERIKUT  :

1. Untuk nama, jenjang, dan jurusan ditentukan oleh NPM

2. Nama dosen ditentukan oleh Kode dosen.

3. Mata kuliah di tentukan oleh kode mata kuliah

4. Nilai kehadiran, nilai tugas, nilai UTS, nilai UAS menggunakan perulangan dari 100 sampai 1 dan di kelang 3 digit.

5. nilai akhir = 10% * nilai kehadiran + 15 % * nilai tugas + 30% * nilai UTS + 45% * nilai UAS

6. jika nilai akhir lebih dari atau sama dengan 80 maka nilai huruf = "A", keterangan = "LULUS"

    jika nilai akhir lebih dari atau sama dengan 70 maka nilai huruf = "B", keterangan = "LULUS"

    jika nilai akhir lebih dari atau sama dengan 60 maka nilai huruf = "C", keterangan = "LULUS"

    jika nilai akhir lebih dari atau sama 50 maka nilai huruf = "D", keterangan = "LULUS"

    jika nilai akhir dibawah 50 maka nilai huruf = "E", keterangan = "GAGAL" 

CODING PROGRAMNYA:

 

Public Class Form1

    Private Sub Npm_SelecteedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Npm.SelectedIndexChanged
        Select Case Npm.Text
            Case "12119045"
                Nama.Text = "Arman Saleh"
            Case "12110502"
                Nama.Text = "Abdul mustopa hsb"
            Case "12110983"
                Nama.Text = "Indra Doli"
        End Select
        Dim i As String
        i = Microsoft.VisualBasic.Left(Npm.Text, 2)
        If i = "11" Then
            Jurusan.Text = "Sistem Informasi"
            Jenjang.Text = "D3"
        ElseIf i = "12" Then
            Jurusan.Text = "Teknik Informatika"
            Jenjang.Text = "S1"
        ElseIf i = "10" Then
            Jurusan.Text = "Komputer Akuntansi"
            Jenjang.Text = "D1"
        End If
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Npm.Items.Add("12119045")
        Npm.Items.Add("12110502")
        Npm.Items.Add("12110983")

        KoDo.Items.Add("k1234567")
        KoDo.Items.Add("R4567890")
        KoDo.Items.Add("S0987654")

        Dim i As Integer
        For i = 40 To 100
            NiKe.Items.Add(i)
            NUas.Items.Add(i)
            NT.Items.Add(i)
            NUts.Items.Add(i)
        Next i
    End Sub

    Private Sub KoDo_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KoDo.SelectedIndexChanged
        Select Case KoDo.Text
            Case ("k1234567")
                NaDo.Text = ("Mesran,S.Kom M.com")
            Case ("R4567890")
                NaDo.Text = ("Sinar Sinurat")
            Case ("S0987654")
                NaDo.Text = ("Hery Sunandar ST. M.com")
            Case Else
                Nama.Text = "_"
        End Select
        Dim i As String
        i = Microsoft.VisualBasic.Right(KoDo.Text, 3)
        If i = "567" Then
            KoMa.Text = "001"
            Matakuliah.Text = "Pemograman"
        ElseIf i = "890" Then
            KoMa.Text = "002"
            Matakuliah.Text = "Sistem informasi"
        ElseIf i = "654" Then
            KoMa.Text = "003"
            Matakuliah.Text = "Matriks"

        End If
    End Sub

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

    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 = ""
        KoDo.Text = ""
        NaDo.Text = ""
        KoMa.Text = ""
        Matakuliah.Text = ""
        NiKe.Text = ""
        NT.Text = ""
        NUas.Text = ""
        NUts.Text = ""
        Ket.Text = ""
        NH.Text = ""
        NA.Text = ""
    End Sub

    Private Sub Btnproses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnproses.Click
        NA.Text = 0.01 * NiKe.Text + 0.15 * NT.Text + 0.3 * NUts.Text + 0.45 * NUas.Text

        If NA.Text < 50 Then
            Ket.Text = "GagaL"
            NH.Text = "E"
        ElseIf NA.Text < 60 Then
            Ket.Text = "Gagal"
            NH.Text = "D"
        ElseIf NA.Text < 70 Then
            Ket.Text = "Lulus"
            NH.Text = "B"
        ElseIf NA.Text > 70 Then
            Ket.Text = "Lulus"
            NH.Text = "B+"
        ElseIf NA.Text > 90 Then
            Ket.Text = "Lulus"
            NH.Text = "A"
        End If
    End Sub
End Class

HASIL PROGRAM/OUTPUT