Membuat Form Nilai Mahasiswa

Postingan kali ini saya buat untuk memenuhi tugas kuliah Pemograman Visual saya.

Gambar 1.1 Bentuk Form

Public Class Form1

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

        NPM.Items.Add("12110404")

        NPM.Items.Add("12110402")

        NPM.Items.Add("12110377")

        NPM.Items.Add("12110378")

        NPM.Items.Add("12110433")

        kddosen.Items.Add("318")

        kddosen.Items.Add("401")

        kddosen.Items.Add("206")

        kddosen.Items.Add("408")

        kddosen.Items.Add("204")

        kdmakul.Items.Add("KB001")

        kdmakul.Items.Add("KB002")

        kdmakul.Items.Add("KB003")

        kdmakul.Items.Add("KB004")

        kdmakul.Items.Add("KB005")

        Dim K As Integer

        For K = 100 To 1 Step -3

            Hadir.Items.Add(K)

        Next (K)

        K = 100

        Do While K >= 1

            Tugas.Items.Add(K)

            K = K - 3

        Loop

        For K = 100 To 1 Step -4

            UTS.Items.Add(K)

        Next (K)

        For K = 100 To 1 Step -3

            UAS.Items.Add(K)

        Next (K)

    End Sub

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

        Select Case NPM.Text

            Case "12110377"

                Nama.Text = "Meitri Widya Pradipta"

                Jenjang.Text = "S1"

                Jurusan.Text = "Tekhnologi Informatika"

            Case "12110402"

                Nama.Text = "Cahyo Sobirin"

                Jenjang.Text = "S1"

                Jurusan.Text = "Sistem Informasi"

            Case "12110433"

                Nama.Text = "Fitri Handayani"

                Jenjang.Text = "S1"

                Jurusan.Text = "Tekhnologi Informatika"

            Case "12110378"

                Nama.Text = "Doni Armando"

                Jenjang.Text = "S1"

                Jurusan.Text = "Manajemen Informatika"

            Case "12110404"

                Nama.Text = "Kristina Nancy Lumban Gaol"

                Jenjang.Text = "S1"

                Jurusan.Text = "Manajemen Informatika"

        End Select

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

        kddosen.Text = ("")

        namdos.Text = ("")

        kdmakul.Text = ("")

        Makul.Text = ("")

        Hadir.Text = ("")

        Tugas.Text = ("")

        UTS.Text = ("")

        UAS.Text = ("")

        Akhir.Text = ("")

        Huruf.Text = ("")

        Ket.Text = ("")

    End Sub

    Private Sub btnkeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnkeluar.Click

        Me.Close()

    End Sub

    Private Sub kddosen_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kddosen.SelectedIndexChanged

        Select Case kddosen.Text

            Case "318"

                namdos.Text = "Yasir Hasan, S.Kom"

            Case "401"

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

            Case "206"

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

            Case "408"

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

            Case "204"

                namdos.Text = "Kristian Siregar,S.Kom"

        End Select

    End Sub

    Private Sub kdmakul_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kdmakul.SelectedIndexChanged

        Select Case kdmakul.Text

            Case "KB001"

                Makul.Text = "Pemograman HTML"

            Case "KB002"

                Makul.Text = "Matematika Diskrit"

            Case "KB003"

                Makul.Text = "Pemrogaman Visual Basic"

            Case "KB0004"

                Makul.Text = "Matriks dan Linear"

            Case "KB005"

                Makul.Text = "Struktur Data"

        End Select

    End Sub

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

        Akhir.Text = 0.45 * UAS.Text + 0.3 * UTS.Text + 0.15 * Tugas.Text + 0.1 * Hadir.Text()

        If Akhir.Text >= 50 Then

            Ket.Text = "Lulus"

        Else

            Ket.Text = "Gagal"

        End If

        If Akhir.Text >= 80 Then

            Huruf.Text = "A"

        ElseIf Akhir.Text >= 70 Then

            Huruf.Text = "B"

        ElseIf Akhir.Text >= 60 Then

            Huruf.Text = "C"

        ElseIf Akhir.Text >= 50 Then

            Huruf.Text = "D"

        Else

            Huruf.Text = "E"

        End If

    End Sub

End Class

Dan ini hasilnya :

gambar 1.2 Bentuk hasil