Latihan Form Nilai Mahasiswa

Public Class Form1

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

        NPM.Items.Add("12110088")

        NPM.Items.Add("12110082")

        NPM.Items.Add("12110407")

        KODEDOSEN.Items.Add("MS001")

        KODEDOSEN.Items.Add("PL002")

        KODEDOSEN.Items.Add("TN003")

        KODEMATAKULIAH.Items.Add("PV001")

        KODEMATAKULIAH.Items.Add("AD002")

        KODEMATAKULIAH.Items.Add("SBD003")

        Dim x As Integer

        For x = 100 To 1 Step -1

            NILAIHADIR.Items.Add(x)

            NILAITUGAS.Items.Add(x)

            NILAIUAS.Items.Add(x)

            NILAIUTS.Items.Add(x)

        Next x

    End Sub

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

        Select Case NPM.Text

            Case "12110088"

                NAMA.Text = "AHMAD JULIANDI"

                JURUSAN.Text = "TEKNIK INFORMATIKA"

            Case "12110082"

                NAMA.Text = "BENTO"

                JURUSAN.Text = "TEKNIK INFORMATIKA"

            Case "12110407"

                NAMA.Text = "JONO"

                JURUSAN.Text = "TEKNIK INFORMATIKA"

        End Select

        Dim x As String

        x = Microsoft.VisualBasic.Right(NPM.Text, 2)

        If NPM.Text = "12110088" Then

            JENJANG.Text = "S1"

        ElseIf NPM.Text = "12110082" Then

            JENJANG.Text = "S1"

        ElseIf NPM.Text = "12110407" Then

            JENJANG.Text = "S1"

        End If

    End Sub

    Private Sub KODEDOSEN_SelectedIndexChanged(ByVal sender AsSystem.Object, ByVal e As System.EventArgs) HandlesKODEDOSEN.SelectedIndexChanged

        Select Case KODEDOSEN.Text

            Case "MS001"

                NAMADOSEN.Text = "Mesran M.Kom"

            Case "PL002"

                NAMADOSEN.Text = "Yasir Hasan S.Kom"

            Case "TN003"

                NAMADOSEN.Text = "Pristiwanto S,Kom"

        End Select

    End Sub

    Private Sub KODEMATAKULIAH_SelectedIndexChanged(ByVal sender AsSystem.Object, ByVal e As System.EventArgs) HandlesKODEMATAKULIAH.SelectedIndexChanged

        Select Case KODEMATAKULIAH.Text

            Case "PV001"

                MATAKULIAH.Text = "Program Visual"

            Case "AD002"

                MATAKULIAH.Text = "Sistem Basis Data"

            Case "SBD003"

                MATAKULIAH.Text = "Sistem Operasi"

        End Select

    End Sub

    Private Sub BTNPROSES_Click(ByVal sender As System.Object, ByVal e AsSystem.EventArgs) Handles BTNPROSES.Click

        NILAIAKHIR.Text = 0.1 * NILAIHADIR.Text + 0.15 * NILAITUGAS.Text + 0.35 * NILAIUTS.Text + 0.45 * NILAIUAS.Text

        If NILAIAKHIR.Text >= "50" Then

            KETERANGAN.Text = "LULUS"

        Else

            KETERANGAN.Text = "GAGAL"

        End If

        If NILAIAKHIR.Text >= "80" Then

            NILAIHURUF.Text = "A"

        ElseIf NILAIAKHIR.Text >= "70" Then

            NILAIHURUF.Text = "B"

        ElseIf NILAIAKHIR.Text >= "60" Then

            NILAIHURUF.Text = "C"

        ElseIf NILAIAKHIR.Text >= "50" Then

            NILAIHURUF.Text = "D"

        Else

            NILAIHURUF.Text = "E"

        End If

    End Sub

    Private Sub BTNKELUAR_Click(ByVal sender As System.Object, ByVal e AsSystem.EventArgs) Handles BTNKELUAR.Click

        End

    End Sub

    Private Sub BTNHAPUS_Click(ByVal sender As System.Object, ByVal e AsSystem.EventArgs) Handles BTNHAPUS.Click

        NPM.Text = ""

        NAMA.Text = ""

        JENJANG.Text = ""

        JURUSAN.Text = ""

        NAMADOSEN.Text = ""

        MATAKULIAH.Text = ""

        KODEDOSEN.Text = ""

        KODEMATAKULIAH.Text = ""

        NILAIAKHIR.Text = ""

        NILAIHADIR.Text = ""

        NILAIHURUF.Text = ""

        NILAITUGAS.Text = ""

        NILAIUAS.Text = ""

        NILAIUTS.Text = ""

        KETERANGAN.Text = ""

    End Sub

End Class

Yuk! Belajar Pemrograman Visual Basic dot Net Di Mesran.Net