PROGRAM PENCARIAN NILAI

Desain lah Form berikut 

 

Berikut Listing Programnya

Public Class Form1

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

        kd.Items.Add("001")

        kd.Items.Add("002")

        kd.Items.Add("003")

        kd.Items.Add("004")

        kmk.Items.Add("111")

        kmk.Items.Add("222")

        kmk.Items.Add("333")

        kmk.Items.Add("444")

        npm.Items.Add("12110983")

        npm.Items.Add("12110329")

        npm.Items.Add("12110003")

        npm.Items.Add("12110027")

        Dim x As Integer

        For x = 100 To 10 Step -5

            nh.Items.Add(x)

            nt.Items.Add(x)

            uts.Items.Add(x)

            uas.Items.Add(x)

        Next

    End Sub

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

        Select Case (npm.Text)

            Case "12110983"

                nama.Text = "Ebed Silaban"

                jr.Text = "Teknik informatika"

                jj.Text = "S1"

            Case "12110329"

                nama.Text = "Yanti Sari Utami"

                jr.Text = "Teknik Informatika"

                jj.Text = "S1"

            Case "12110003"

                nama.Text = "Iqwal Ramadhan"

                jr.Text = "Tekhnisi Komputer "

                jj.Text = "D1"

            Case "12110027"

                nama.Text = "Suef Aripin"

                jr.Text = "Manajemen Informatika"

                jj.Text = "D3"

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

            Case "222"

                mk.Text = "Sistem Operasi"

            Case "333"

                mk.Text = "Arsitektur Komputer"

            Case "444"

                mk.Text = "Sistem Basis Data"

        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 = "Yasir Hasan S.Kom"

            Case "003"

                nd.Text = "Philipus Tarigan.S.Kom"

            Case "004"

                nd.Text = "Rivalri.M.Kom"

        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 * nh.Text + 0.15 * nt.Text + 0.35 * uts.Text + 0.4 * uas.Text

        If na.Text >= 50 Then

            ket.Text = "LULUS"

        Else

            ket.Text = "GAGAL"

        End If

        If na.Text >= 80 Then

            nhr.Text = "A"

        ElseIf na.Text >= 70 Then

            nhr.Text = "B"

        ElseIf na.Text >= 60 Then

            nhr.Text = "C"

        ElseIf na.Text >= 50 Then

            nhr.Text = "D"

        Else

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

        nama.Text = ""

        mk.Text = ""

        kmk.Text = ""

        kd.Text = ""

        nd.Text = ""

        nt.Text = ""

        nh.Text = ""

        uts.Text = ""

        uas.Text = ""

        na.Text = ""

        nh.Text = ""

        ket.Text = ""

        jr.Text = ""

        jj.Text = ""

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

 

Berikut Hasil Programnya