Aplikasi Nilai Mahasiswa Menggunakan Visual Basic 2008

" Assalammu'alaikum warahmatullahi wabarakatuh "

Ya elah jumpa lagi kita (hahaha) ,saat ini saya/aku/eke capcus deh bok,ya Ampyuun !!! akan membahas tentang "Aplikasi Nilai Mahasiswa" tanpa bacot lagi langsung aja ke TKP nya gan :

Public Class Form1

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

        npm.Items.Add("121108")

        npm.Items.Add("1111111")

        Kodedosen.Items.Add("SAO1")

        Kodedosen.Items.Add("SAO2")

        kodematakuliah.Items.Add("SAO4")

        kodematakuliah.Items.Add("SAO5")

        Keterangan.Enabled = False

        status.Enabled = False

        akhir.Enabled = False

        ayam()

        hitung()

        iyaiya()

        zxcmz()

    End Sub

    Sub ayam()

        Dim a As Integer

        a = 100

        While a >= 1

            tugas.Items.Add(a)

            a = a - 1

        End While

    End Sub

    Private Sub npm_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles npm.SelectedIndexChanged

        Select Case npm.Text

            Case ("121108")

                Nama.Text = "Sulian"

                Jenjang.Text = "S1"

                Jurusan.Text = "TI"

            Case ("1111111")

                Nama.Text = "Arief"

                Jenjang.Text = "D3"

                Jurusan.Text = "MI"

        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 ("SAO1")

                dosen.Text = "Sulian"

            Case ("SAO2")

                dosen.Text = "Arief"

        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 ("SAO4")

                matakuliah.Text = "Kalkulus"

            Case ("SAO5")

                matakuliah.Text = "Agama"

        End Select

    End Sub

    Sub hitung()

        Dim a As Integer

        a = 100

        While a >= 1

            kehadiran.Items.Add(a)

            a = a - 1

        End While

    End Sub

    Sub iyaiya()

        Dim a As Integer

        a = 100

        While a >= 1

            uas.Items.Add(a)

            a = a - 1

        End While

    End Sub

    Sub zxcmz()

        Dim a As Integer

        a = 100

        While a >= 1

            uts.Items.Add(a)

            a = a - 1

        End While

            End Sub

    Private Sub Proses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Proses.Click

        akhir.Text = Val(0.1 * kehadiran.Text) + Val(0.15 * tugas.Text) + Val(0.3 * uts.Text) + Val(0.45 * uas.Text)

        stat()

    End Sub

    Sub stat()

        Dim a As String

        a = "GAGAL"

        If akhir.Text >= 50 Then a = "LULUS"

        Keterangan.Text = a

        If akhir.Text >= 80 Then

            status.Text = "A"

        ElseIf akhir.Text >= 70 Then

            status.Text = "B"

        ElseIf akhir.Text >= 60 Then

            status.Text = "c"

        ElseIf akhir.Text >= 50 Then

            status.Text = "D"

        Else

            akhir.Text = "E"

        End If

        

    End Sub

End Class

Yah hanya ini saja yang bisa di sampaikan apa bila ada kekurangan ataukesalahan mohon maaf yeee karena aku manusia biasa (hahahahaha).Terima kasih atas kunjungannya ke blog ini,maka langsung saja kita akhiri dengan mengucapkan 

" Walaikumsalamwarah matulahi wabarakatuh "