Program Nilai Mahasiswa VB.net 2008

Program Nilai Mahasiswa VB.net 2008 

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        Npm.Items.Add("12110155")

        Npm.Items.Add("12110156")

        Npm.Items.Add("12110157")

        KodeDosen.Items.Add("AA")

        KodeDosen.Items.Add("AB")

        KodeDosen.Items.Add("AC")

        KodeMatakuliah.Items.Add("SO")

        KodeMatakuliah.Items.Add("VB")

        KodeMatakuliah.Items.Add("SBD")

        Dim s As Integer

        For s = 100 To 1 Step -3

            NilaiUAS.Items.Add(s)

        Next

        For s = 100 To 1 Step -3

            NilaiUTS.Items.Add(s)

        Next

        For s = 100 To 1 Step -3

            NilaiTugas.Items.Add(s)

        Next

        For s = 100 To 1 Step -3

            Nilaikehadiran.Items.Add(s)

        Next

    End Sub

    Private Sub BtnProses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnProses.Click

        NilaiAkhir.Text = 0.3 * NilaiUTS.Text + 0.45 * NilaiUAS.Text + 0.1 * NilaiTugas.Text + 0.15 * Nilaikehadiran.Text

        If NilaiAkhir.Text >= 100 Then

            NIlaiHuruf.Text = "A"

            Keterangan.Text = "Tingkat kan Prestasimu"

        ElseIf NilaiAkhir.Text >= 70 Then

            NIlaiHuruf.Text = "B"

            Keterangan.Text = "Anda Hampir Memenuhi Target"

        ElseIf NilaiAkhir.Text >= 50 Then

            NIlaiHuruf.Text = "C"

            Keterangan.Text = "Jangan Malas Belajar DirumaH"

        ElseIf NilaiAkhir.Text >= 30 Then

            NIlaiHuruf.Text = "D"

            Keterangan.Text = "Tingkat Cara Belajar Anda"

        Else

            NIlaiHuruf.Text = "E"

            Keterangan.Text = "Anda gagal, Coba lagi"

        End If

    End Sub

    Private Sub Npm_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Npm.SelectedIndexChanged

        Select Case Npm.Text

            Case "12110155"

                Nama.Text = "Mukti Pradana"

                Jenjang.Text = "strata 1"

                Jurusan.Text = "teknik infomatika"

            Case "12110156"

                Nama.Text = "Riki sudirman"

                Jenjang.Text = "Diploma 3"

                Jurusan.Text = "Manajemen informatika"

            Case "12110157"

                Nama.Text = "fahrijal"

                Jenjang.Text = "Diploma 1"

                Jurusan.Text = "akutansi"

            Case Else

                Nama.Text = "_"

        End Select

    End Sub

    Private Sub KodeDosen_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KodeDosen.SelectedIndexChanged

        Select Case KodeDosen.Text

            Case "AA"

                Namadosen.Text = "Abdul sani sembiring"

            Case "AB"

                Namadosen.Text = "Mesran"

            Case "Ac"

                Namadosen.Text = "pandi simangunsong"

            Case Else

                Namadosen.Text = "_"

        End Select

    End Sub

    Private Sub KodeMatakuliah_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KodeMatakuliah.SelectedIndexChanged

        Select Case KodeMatakuliah.Text

            Case "SO"

                NamaMatakuliah.Text = "Sistem Operasi"

            Case "VB"

                NamaMatakuliah.Text = "Visual Basic"

            Case "SBD"

                NamaMatakuliah.Text = "sitem basis data"

            Case Else

                NamaMatakuliah.Text = "_"

        End Select

    End Sub

    Private Sub BtnHapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnHapus.Click

        NamaMatakuliah.Text = ""

        KodeMatakuliah.Text = ""

        Namadosen.Text = ""

        KodeDosen.Text = ""

        NIlaiHuruf.Text = ""

        NilaiTugas.Text = ""

        NilaiUTS.Text = ""

        Nilaikehadiran.Text = ""

        NilaiAkhir.Text = ""

    End Sub

    Private Sub BtnKeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnKeluar.Click

        End

    End Sub

End Class