Tugas Pencarian Nilai

Menggunakan VB 2008

Desain form seperti dibawah ini :

listing program

Public Class Form1

   

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

        npm.Items.Add("12110255")

        npm.Items.Add("12110256")

        npm.Items.Add("12110257")

        k_dosen.Items.Add("MS001")

        k_dosen.Items.Add("PL002")

        k_dosen.Items.Add("TN003")

        k_mk.Items.Add("PV001")

        k_mk.Items.Add("AO002")

        k_mk.Items.Add("SBD003")

        Dim x As Integer

        For x = 100 To 1 Step -1

            nh.Items.Add(x)

            nt.Items.Add(x)

            nu.Items.Add(x)

            nua.Items.Add(x)

        Next x

    End Sub

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

        Select Case npm.Text

            Case "12110255"

                nama.Text = "Doni Gunawan"

                jr.Text = "Sistem Informatika"

            Case "12110256"

                nama.Text = "Somat"

                jr.Text = "Teknik Inpormatika"

            Case "12110257"

                nama.Text = "Adi"

                jr.Text = "Akutansi"

        End Select

        Dim s As String

        s = Microsoft.VisualBasic.Right(npm.Text, 2)

        If npm.Text = "12110255" Then

            jj.Text = "SI"

        ElseIf npm.Text = "12110256" Then

            jj.Text = "DIII"

        ElseIf npm.Text = "12110257" Then

            jj.Text = "DI"

        End If

    End Sub

    Private Sub k_dosen_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles k_dosen.SelectedIndexChanged

        Select Case k_dosen.Text

            Case "MS001"

                n_dosen.Text = "Mesran M.Kom"

            Case "PL002"

                n_dosen.Text = "Pilipus M.Kom"

            Case "TN003"

                n_dosen.Text = "Toni Limbong M.Kom"

        End Select

    End Sub

    Private Sub k_mk_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles k_mk.SelectedIndexChanged

         Select k_mk.Text

            Case "PV001"

                mk.Text = "Pemograman Visual"

            Case "AO002"

                mk.Text = "Arsitektur dan Organisasi"

            Case "SBD003"

                mk.Text = "Sistem Basis Data"

        End Select

    End Sub

    Private Sub proses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles proses.Click

        na.Text = 0.1 * nh.Text + 0.15 * nt.Text + 0.35 * nu.Text + 0.45 * nua.Text

        If na.Text >= 50 Then

            ket.Text = "Lulus"

        Else

            ket.Text = "gagal"

        End If

        If na.Text >= "80" Then

            n_hu.Text = "A"

        ElseIf na.Text >= "70" Then

            n_hu.Text = "B"

        ElseIf na.Text >= "60" Then

            n_hu.Text = "C"

        ElseIf na.Text >= "50" Then

            n_hu.Text = "D"

        Else

            n_hu.Text = "E"

        End If

    End Sub

    Private Sub keluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles keluar.Click

        npm.Text = ""

        nama.Text = ""

        jj.Text = ""

        jr.Text = ""

        k_dosen.Text = ""

        n_dosen.Text = ""

        k_mk.Text = ""

        mk.Text = ""

        nh.Text = ""

        nt.Text = ""

        nu.Text = ""

        nua.Text = ""

        na.Text = ""

        n_hu.Text = ""

        ket.Text = ""

    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

        End

    End Sub

End Class

Hasil program



Selamat mencoba.......