PROGRAM PENCARIAN NILAI

PROGRAM PENCARIAN NILAI

Desainlah Form berikut ini…!!!

Berikut Listing Programnya:

Public Class Form1

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

        npm.Items.Add("12110326")

        npm.Items.Add("12110154")

        npm.Items.Add("12110312")

        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 = 100 To 10 Step -5

            nk.Items.Add(i)

            nt.Items.Add(i)

            uts.Items.Add(i)

            uas.Items.Add(i)

        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 "12110326" : nm.Text = "Muhammad Saputra"

                jr.Text = "Teknik Informatika"

                jj.Text = "S1"

            Case "12110154" : nm.Text = "Ifan maulana lbs"

                jr.Text = "Teknik Informatika"

                jj.Text = "S1"

            Case "12110312" : nm.Text = "Sulaiman Zuhdi"

                jr.Text = "Teknik Informatika"

                jj.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 = "Sinar Sinurat,S.Kom,M.Kom"

            Case "002" : nd.Text = "Mesran,M.Kom"

            Case "003" : nd.Text = "Kennedi Tampubolon,Ssi"

        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" : nmk.Text = "Matimatika Diskrit"

            Case "222" : nmk.Text = " Pemograman Visual"

            Case "333" : nmk.Text = "Kalkulus"

        End Select

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

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

        If na.Text >= 55 Then

            kt.Text = "lulus"

        Else

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

End Class

Hasil Program: