Program Penilaian Mahasiswa

Ketikkan Perintah Di bawah ini:

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        NPM.Items.Add("12110378")
        NPM.Items.Add("12110321")
        NPM.Items.Add("12110336")
        NPM.Items.Add("12110597")
        NPM.Items.Add("12110320")

        KodeDosen.Items.Add("301")
        KodeDosen.Items.Add("302")
        KodeDosen.Items.Add("303")
        KodeDosen.Items.Add("304")
        KodeDosen.Items.Add("305")

        KodeMakul.Items.Add("301")
        KodeMakul.Items.Add("302")
        KodeMakul.Items.Add("303")
        KodeMakul.Items.Add("304")
        KodeMakul.Items.Add("305")



        Dim x As Integer
        For x = 100 To 1 Step -3
            Hadir.Items.Add(x)
        Next (x)
        x = 100

        Do While x >= 1
            Tugas.Items.Add(x)
            x = x - 3
        Loop
        For x = 100 To 1 Step -3
            UTS.Items.Add(x)
        Next (x)

        For x = 100 To 1 Step -3
            Nilai_Uas.Items.Add(x)
        Next (x)
    End Sub

    Friend WithEvents Ma As System.Windows.Forms.Label
    Friend WithEvents jurusan As System.Windows.Forms.TextBox

    Private Sub kode_Dosen_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KodeDosen.SelectedIndexChanged
        Select Case KodeDosen.Text
            Case "301"
                Dosen.Text = "Toni Limbong,S.Kom,M.Kom"
            Case "302"
                Dosen.Text = "Sinar Sinurat,ST,M.Kom"
            Case "303"
                Dosen.Text = "Mesran,S.Kom,M.Kom"
            Case "304"
                Dosen.Text = "Kennedi Tampubolon,S.Si"
            Case "305"
                Dosen.Text = "Kristian Siregar,S.Kom"
        End Select
    End Sub

    Private Sub kode_matakulyah_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KodeMakul.SelectedIndexChanged
        Select Case KodeMakul.Text
            Case "301"
                Makul.Text = "Sistem Basis Data"
            Case "302"
                Makul.Text = "Matematika Diskrit"
            Case "303"
                Makul.Text = "Pemrogaman Visual Basic"
            Case "304"
                Makul.Text = "Kalkulus II"
            Case "305"
                Makul.Text = "HTML"

        End Select
    End Sub

    Private Sub hapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnHapus.Click
        NPM.Text = ("")
        Mahasiswa.Text = ("")
        Jenjang.Text = ("")
        jurusan.Text = ("")
        KodeDosen.Text = ("")
        Dosen.Text = ("")
        KodeMakul.Text = ("")
        Makul.Text = ("")
        Hadir.Text = ("")
        Tugas.Text = ("")
        UTS.Text = ("")
        Nilai_Uas.Text = ("")
        Nilai_Akhir.Text = ("")
        Nilai_Huruf.Text = ("")
        Keterangan.Text = ("")
    End Sub

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

    Private Sub proses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnProses.Click
        Nilai_Akhir.Text = 0.45 * Nilai_Uas.Text + 0.3 * UTS.Text + 0.15 * Tugas.Text + 0.1 * Hadir.Text()

        If Nilai_Akhir.Text >= 50 Then
            Keterangan.Text = "Lulus"
        Else
            Keterangan.Text = "Gagal"
        End If

        If Nilai_Akhir.Text >= 80 Then
            Nilai_Huruf.Text = "A"
        ElseIf (Nilai_Akhir.Text >= 70) And (Nilai_Akhir.Text < 80) Then
            Nilai_Huruf.Text = "B"
        ElseIf (Nilai_Akhir.Text >= 60) And (Nilai_Akhir.Text < 70) Then
            Nilai_Huruf.Text = "C"
        ElseIf (Nilai_Akhir.Text >= 50) And (Nilai_Akhir.Text < 60) Then
            Nilai_Huruf.Text = "D"
        Else
            Nilai_Huruf.Text = "E"
        End If
    End Sub

    Private Sub NPM_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NPM.SelectedIndexChanged
         Select NPM.Text
            Case "12110389"
                Mahasiswa.Text = "Awal"
                Jenjang.Text = "S1"
                jurusan.Text = "Teknik Informatika"
            Case "12110321"
                Mahasiswa.Text = "cahyo Shobirin"
                Jenjang.Text = "S1"
                jurusan.Text = "Teknik Informatika"
            Case "12110320"
                Mahasiswa.Text = "Yuyun"
                Jenjang.Text = "S1"
                jurusan.Text = "Teknik Informatika"
            Case "12110400"
                Mahasiswa.Text = "Steven"
                Jenjang.Text = "S1"
                jurusan.Text = "Teknik Informatika"
        End Select
    End Sub
End Class