PROGRAM PENCARIAN NILAI

PROGRAM PENCARIAN NILAI

PROGRAM PENCARIAN NILAI

Desain lha 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("12110174")

        npm.Items.Add("12110148")

        npm.Items.Add("12110093")

        kd.Items.Add("Ms001")

        kd.Items.Add("TL002")

        kd.Items.Add("HS003")

        kmk.Items.Add("VB")

        kmk.Items.Add("SBD")

        kmk.Items.Add("MT")

        Dim i As Integer

        For i = 100 To 50 Step -5

            nk.Items.Add(i)

            nt.Items.Add(i)

            uts.Items.Add(i)

            uas.Items.Add(i)

        Next

    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 npm_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles npm.SelectedIndexChanged

        Select Case npm.Text

            Case "12110174"

                nm.Text = "Rizwansyah"

                jj.Text = "Teknik Informatika"

                jr.Text = "S1"

            Case "12110148"

                nm.Text = "fran doly"

                jj.Text = "Sistem Informasi"

                jr.Text = "D3"

            Case "12110093" : nm.Text = "frengki situmeang"

                jj.Text = "Manajemen Informatika"

                jr.Text = "D1"

        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 "Ms001" : nd.Text = "Mesran,S.Kom,M.Kom"

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

            Case "HS003" : 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 "VB" : mk.Text = "visual basic"

            Case "SBD" : mk.Text = "sistem basis data"

            Case "MT" : mk.Text = "matriks dan transformasi linear"

        End Select

    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

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

        End

    End Sub

End Class

hasil nya