penilaian

Desain tampilan awal

Syntax:

Public Class Form1

    Private Sub Label3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label3.Click

    End Sub

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

        npm.Items.Add("12110288")

        npm.Items.Add("12110777")

        npm.Items.Add("12110403")

        npm.Items.Add("12110351")

        npm.Items.Add("12111729")

        kd_dos.Items.Add("1111")

        kd_dos.Items.Add("1112")

        kd_dos.Items.Add("1113")

        kd_dos.Items.Add("1114")

        kd_dos.Items.Add("1115")

        kd_matkul.Items.Add("301")

        kd_matkul.Items.Add("302")

        kd_matkul.Items.Add("303")

        kd_matkul.Items.Add("304")

        kd_matkul.Items.Add("305")

        Dim y As Integer

        For y = 1 To 100

            kehadiran.Items.Add(y)

            tugas.Items.Add(y)

            uts.Items.Add(y)

            uas.Items.Add(y)

        Next y

    End Sub

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

        Select npm.Text

            Case "12110288"

                nama.Text = "Yayuk sulistiawati"

                jenjang.Text = "S1"

                jurusan.Text = "T1"

            Case "12110777"

                nama.Text = "susila"

                jenjang.Text = "D3"

                jurusan.Text = "MI"

            Case "12110403"

                nama.Text = "Rina pancari"

                jenjang.Text = "S1"

                jurusan.Text = "TI"

            Case "12110351"

                nama.Text = "Wani melaie"

                jenjang.Text = "D3"

                jurusan.Text = "MI"

            Case "12111729"

                nama.Text = "Fitria"

                jenjang.Text = "S1"

                jurusan.Text = "TI"

        End Select

    End Sub

    Private Sub kd_dos_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kd_dos.SelectedIndexChanged

        Select (kd_dos.Text)

            Case "1111"

                namadosen.Text = "M.Syahrizal,S.kom, M.kom "

            Case "1112"

                namadosen.Text = "Garuda Ginting, ST,M.Kom"

            Case "1113"

                namadosen.Text = "Rivarli K Hondro, S.Kom"

            Case "1114"

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

            Case "1115"

                namadosen.Text = "Yasir hasan, S.kom"

        End Select

    End Sub

    Private Sub kd_matkul_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kd_matkul.SelectedIndexChanged

        Select Case (kd_matkul.Text)

            Case "301"

                matkul.Text = "Teknik digital"

            Case "302"

                matkul.Text = "Interaksi manusia dan komputer"

            Case "303"

                matkul.Text = "Sistem Basis Data"

            Case "304"

                matkul.Text = "Pemrograman Visual"

            Case "305"

                matkul.Text = "Stuktur Data"

        End Select

    End Sub

    Private Sub btnproses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnproses.Click

        na.Text = 0.1 * kehadiran.Text + 0.15 * tugas.Text + 0.4 * uts.Text + 0.6 * uas.Text

        If na.Text >= 80 Then

            huruf.Text = "A"

            ket.Text = "Lulus"

        ElseIf na.Text >= 70 Then

            huruf.Text = "B"

            ket.Text = "Lulus"

        ElseIf na.Text >= 60 Then

            huruf.Text = "C+"

            ket.Text = "Lulus"

        ElseIf na.Text >= 50 Then

            huruf.Text = "C"

            ket.Text = "Perbaikan"

        ElseIf na.Text >= 40 Then

            huruf.Text = "D"

            ket.Text = "Mengulang"

        Else

            huruf.Text = "E"

            ket.Text = "Tidak Lengkap"

        End If

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

        kd_dos.Text = ""

        namadosen.Text = ""

        kd_matkul.Text = ""

        matkul.Text = ""

        kehadiran.Text = ""

        tugas.Text = ""

        uts.Text = ""

        uas.Text = ""

        na.Text = ""

        huruf.Text = ""

        ket.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

Tampilan hasil proses