Perhitungan Nilai VB 2008

Public Class Form1

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

        NPM.Items.Add("12110087")

        NPM.Items.Add("12110641")

        NPM.Items.Add("12110408")

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

                NAMA.Text = "Susilawati"

                JURUSAN.Text = "Teknik Informatika"

            Case "12110641"

                NAMA.Text = "Ruswin Mawar Tanjung"

                JURUSAN.Text = "Teknik Informatika"

            Case "12110408"

                NAMA.Text = "Saprizal"

                JURUSAN.Text = "Sistem Informasi"

        End Select

        Dim x As String

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

        If NPM.Text = "12110087" Then

            JENJANG.Text = "D3"

        ElseIf NPM.Text = "12110641" Then

            JENJANG.Text = "S1"

        ElseIf NPM.Text = "12110408" Then

            JENJANG.Text = "S1"

        End If

    End Sub

    Private Sub KODEDOSEN_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KODEDOSEN.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 As System.Object, ByVal e As System.EventArgs) Handles KODEMATAKULIAH.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 As System.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 As System.EventArgs) Handles BTNKELUAR.Click

        End

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

        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

Selamat mencoba Belajar Bahasa Program...