penilaian

Desain tampilan awal

 

 

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

        kode_Dosen.Items.Add("301")

        kode_Dosen.Items.Add("302")

        kode_Dosen.Items.Add("303")

        kode_Dosen.Items.Add("304")

        kode_Dosen.Items.Add("305")

        kode_matakulyah.Items.Add("301")

        kode_matakulyah.Items.Add("302")

        kode_matakulyah.Items.Add("303")

        kode_matakulyah.Items.Add("304")

        kode_matakulyah.Items.Add("305")

        Dim x As Integer

        For x = 100 To 1 Step -3

            nilai_kehadiran.Items.Add(x)

        Next (x)

        x = 100

        Do While x >= 1

            nilai_tugas.Items.Add(x)

            x = x - 3

        Loop

        For x = 100 To 1 Step -3

            nilai_uts.Items.Add(x)

        Next (x)

        For x = 100 To 1 Step -3

            nilai_uas.Items.Add(x)

        Next (x)

    End SubPrivate Sub NPM_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NPM.SelectedIndexChanged

        Select Case NPM.Text

            Case "12110400"

                mahasiswa.Text = "linda wati"

                jenjang.Text = "S1"

                jurusan.Text = "Teknik Informatika"

            Case "12110321"

                mahasiswa.Text = "linda wati"

                jenjang.Text = "S1"

                Jurusan.Text = "Teknik Informatika"

            Case "12110336"

                mahasiswa.Text = "sofy"

                jenjang.Text = "S1"

                Jurusan.Text = "Teknik Informatika"

            Case "12110597"

                mahasiswa.Text = "lia"

                jenjang.Text = "S1"

                Jurusan.Text = "Teknik Informatika"

            Case "12110320"

                mahasiswa.Text = "susi"

                jenjang.Text = "S1"

                Jurusan.Text = "Teknik Informatika"

        End Select

    End Sub

    Friend WithEvents Label15 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 kode_Dosen.SelectedIndexChanged

        Select Case kode_Dosen.Text

            Case "301"

                nama_dosen.Text = "Toni Limbong,S.Kom,M.Kom"

            Case "302"

                nama_dosen.Text = "Sinar Sinurat,ST,M.Kom"

            Case "303"

                nama_dosen.Text = "Mesran,S.Kom,M.Kom"

            Case "304"

                nama_dosen.Text = "Kennedi Tampubolon,S.Si"

            Case "305"

                nama_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 kode_matakulyah.SelectedIndexChanged

        Select Case kode_matakulyah.Text

            Case "301"

                matakulyah.Text = "Sistem Basis Data"

            Case "302"

                matakulyah.Text = "Matematika Diskrit"

            Case "303"

                matakulyah.Text = "Pemrogaman Visual Basic"

            Case "304"

                matakulyah.Text = "Kalkulus II"

            Case "305"

                matakulyah.Text = "HTML"

        End Select

    End Sub

    Private Sub hapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles hapus.Click

        NPM.Text = ("")

        mahasiswa.Text = ("")

        jenjang.Text = ("")

        jurusan.Text = ("")

        kode_Dosen.Text = ("")

        nama_dosen.Text = ("")

        kode_matakulyah.Text = ("")

        matakulyah.Text = ("")

        nilai_kehadiran.Text = ("")

        nilai_tugas.Text = ("")

        nilai_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 keluar.Click

    End Sub

    Private Sub proses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles proses.Click

        nilai_akhir.Text = 0.45 * nilai_uas.Text + 0.3 * nilai_uts.Text + 0.15 * nilai_tugas.Text + 0.1 * nilai_kehadiran.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

Tampilan hasil proses