PROGRAM PENCARIAN NILAI

PROGRAM PENCARIAN NILAI

Desainlah Form berikut ini…!!!

Public Class Putri

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

        npm.Items.Add("12110272")

        npm.Items.Add("12110154")

        npm.Items.Add("12110027")

        npm.Items.Add("12110146")

        kd.Items.Add("001")

        kd.Items.Add("002")

        kd.Items.Add("003")

        kmk.Items.Add("111")

        kmk.Items.Add("222")

        kmk.Items.Add("333")

      

  Dim i As Integer

        For i = 50 To 100

            nk.Items.Add(i)

        Next i

        Dim j As Integer

        For j = 50 To 100

            nt.Items.Add(j)

        Next j

        Dim k As Integer

        For k = 50 To 100

            uts.Items.Add(k)

        Next k

        Dim l As Integer

        For l = 50 To 100

            uas.Items.Add(l)

        Next l

    End Sub

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

        Select Case npm.Text

            Case "12110272" : nm.Text = "JOsbri Mangalun Gultom"

            Case "12110154" : nm.Text = "Ifan Maulana Lubis"

            Case "12110027" : nm.Text = "Evi rosea"

            Case "12110146" : nm.Text = "Putri Indah Nasution"

        End Select

        Select Case npm.Text

            Case "12110272" : jj.Text = "Teknik Informatika"

            Case "12110154" : jj.Text = "Sistem Informasi"

            Case "12110027" : jj.Text = "Manajemen Informatika"

            Case "12110146" : jj.Text = "Teknik Informatika"

        End Select

        Select Case npm.Text

            Case "12110272" : jr.Text = "S1"

            Case "12110154" : jr.Text = "D3"

            Case "12110027" : jr.Text = "D1"

            Case "12110146" : jr.Text = "S1"

        End Select

    End Sub

    Private Sub kd_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kd.SelectedIndexChanged

        Select Case kd.Text

            Case "001" : nd.Text = "Mesran,S.Kom,M.Kom"

            Case "002" : nd.Text = "M.Syahrizal,S.KOm,M.Kom"

            Case "003" : nd.Text = "Rivalry,S.Kom,M.Kom"

        End Select

    End Sub

    Private Sub kmk_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kmk.SelectedIndexChanged

        Select Case kmk.Text

            Case "111" : mk.Text = "Pemrograman Visual"

            Case "222" : mk.Text = "PTI"

            Case "333" : mk.Text = "Sistem Basis Data"

        End Select

    End Sub

    Private Sub BtnKeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnKeluar.Click

        End

    End Sub

    Private Sub BtnProses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnProses.Click

        na.Text = 0.1 * nk.Text + 0.15 * nt.Text + 0.35 * uts.Text + 0.4 * uas.Text

        If na.Text >= 55 Then

            keterangan.Text = "LULUS"

        Else

            keterangan.Text = "GAGAL"

        End If

        If na.Text >= 80 Then

            nh.Text = "A"

        ElseIf na.Text >= 70 Then

            nh.Text = "B"

        ElseIf na.Text >= 60 Then

            nh.Text = "C"

        ElseIf na.Text >= 50 Then

            nh.Text = "D"

        Else

            nh.Text = "E"

        End If

    End Sub

  

 Private Sub BtnHapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnHapus.Click

        npm.Text = ""

        nm.Text = ""

        jj.Text = ""

        jr.Text = ""

        kd.Text = ""

        nd.Text = ""

        kmk.Text = ""

        mk.Text = ""

        nk.Text = ""

        nt.Text = ""

        uts.Text = ""

        uas.Text = ""

        na.Text = ""

        nh.Text = ""

        keterangan.Text = ""

    End Sub

End Class

Berikut hasil pogramnya:

 

Thank You very much...