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

        Me.Text = "Josbri Mangalun Gultom Yang S'lalu Tersakiti Oleh Program Visual Basic"

        npm.Items.Add("12110272")

        npm.Items.Add("12110154")

        npm.Items.Add("12110027")

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

                nm.Text = "JOsbri Mangalun Gultom"

                jj.Text = "Teknik Informatika"

                jr.Text = "S1"

            Case "12110154"

                nm.Text = "Ifan Maulana Lubis"

                jj.Text = "Sistem Informasi"

                jr.Text = "D3"

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

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

 

Thank You…..Semoga bermanfaat….

GoodLuck Guys….