Contoh Program Pencarian Nilai Dengan Pembuatan VB 2008

Desain Form seperti Di bawah 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("12110291")
        npm.Items.Add("12110292")
        npm.Items.Add("12110293")
        npm.Items.Add("12110294")
        npm.Items.Add("12110295")


        k_dosen.Items.Add("MS001")
        k_dosen.Items.Add("TL002")
        k_dosen.Items.Add("SS003")
        k_mk.Items.Add("PV")
        k_mk.Items.Add("SBD")
        k_mk.Items.Add("MD")

        Dim x As Integer
        For x = 100 To 30 Step -5
            n_hadir.Items.Add(x)
            n_tugas.Items.Add(x)
            n_uts.Items.Add(x)
            n_uas.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 "12110291"
                nama.Text = "Zulkifli Hasibuan"
                jenjang.Text = "S1"
                jurusan.Text = "Teknik Informatika"
            Case "12110292"
                nama.Text = "rizwan"
                jenjang.Text = "S1"
                jurusan.Text = "Sistem Informasi"
            Case "12110293"
                nama.Text = "muhammad faisal"
                jenjang.Text = "S1"
                jurusan.Text = "Teknik Informatika"
            Case "12110294"
                nama.Text = "Asnita"
                jenjang.Text = "D3"
                jurusan.Text = "Manajemen Informatika"
            Case "12110295"
                nama.Text = "Dhiva Septhia"
                jenjang.Text = "S1"
                jurusan.Text = "Sistem Informasi"
        End Select

    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"
                dosen.Text = "Mesran S.kom, M.kom"
            Case "TL002"
                dosen.Text = "Tonni Limbong S.kom, M.kom"
            Case "SS003"
                dosen.Text = "Sinar Sinurat ST, 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 Case k_mk.Text
            Case "PV"
                mk.Text = "Pemograman Visual"
            Case "SBD"
                mk.Text = "Sistem Basis Data"
            Case "MD"
                mk.Text = "Matematika Diskrit"
        End Select

    End Sub

  
    Private Sub proses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles proses.Click
        n_akhir.Text = 0.15 * n_hadir.Text + 0.35 * n_uts.Text + 0.1 * n_tugas.Text + 0.45 * n_uas.Text
        If n_akhir.Text >= 80 Then
            n_huruf.Text = "A"

        ElseIf n_akhir.Text >= 70 Then
            n_huruf.Text = "B"

        ElseIf n_akhir.Text >= 65 Then
            n_huruf.Text = "C"

        ElseIf n_akhir.Text >= 55 Then
            n_huruf.Text = "D"
        Else
            n_huruf.Text = "E"
        End If
        If n_akhir.Text >= 60 Then
            ket.Text = "LULUS"
        Else
            ket.Text = "GAGAL"
        End If

    End Sub

    Private Sub hapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles hapus.Click
        npm.Text = ""
        nama.Text = ""
        jenjang.Text = ""
        jurusan.Text = ""
        k_dosen.Text = ""
        dosen.Text = ""
        k_mk.Text = ""
        mk.Text = ""
        n_hadir.Text = ""
        n_tugas.Text = ""
        n_uts.Text = ""
        n_uas.Text = ""
        n_akhir.Text = ""
        n_huruf.Text = ""
        ket.Text = ""

    End Sub

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

Hasil Program seperti dibawah ini :




Selamat Mencoba?????