PROGRAM PENCARIAN NILAI

PROGRAM PENCARIAN NILAI

Designlah Program Berikut :

Berikut ini 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("12110222")

        NPM.Items.Add("12110227")

        NPM.Items.Add("12110993")

        KD.Items.Add("01")

        KD.Items.Add("02")

        KD.Items.Add("03")

        KM.Items.Add("001")

        KM.Items.Add("002")

        KM.Items.Add("003")

        Dim i As Integer

        For i = 50 To 100

            NK.Items.Add(i)

        Next i

        Dim j As Integer

        For j = 50 To 100

            NT.Items.Add(j)

        Next j

        Dim k As Integer

        For k = 50 To 100

            UTS.Items.Add(k)

        Next k

        Dim l As Integer

        For l = 50 To 100

            UAS.Items.Add(l)

        Next l

    End Sub

    Private Sub NPM_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NPM.SelectedIndexChanged

        Select Case NPM.Text

            Case "12110222"

                Nama.Text = "Putri Rahmadani"

            Case "12110227"

                Nama.Text = "Evi Roseva"

            Case "12110993"

                Nama.Text = "Lelita Marnaida Hts"

        End Select

        Select Case NPM.Text

            Case "12110222"

                Jenjang.Text = "S1"

            Case "12110227"

                Jenjang.Text = "D3"

            Case "12110993"

                Jenjang.Text = "D1"

        End Select

        Select Case NPM.Text

            Case "12110222"

                Jurusan.Text = "Teknik Informatika"

            Case "12110227"

                Jurusan.Text = "Sistem Informasi"

            Case "12110993"

                Jurusan.Text = "Akuntansi"

        End Select

    End Sub

    Private Sub KM_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KM.SelectedIndexChanged

        Select Case KM.Text

            Case "001"

                Matakuliah.Text = "Pemrograman Visual"

            Case "002"

                Matakuliah.Text = "Logika dan Algoritma"

            Case "003"

                Matakuliah.Text = "HTML"

        End Select

    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

            ket.Text = "LULUS"

        Else

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

        Select Case KD.Text

            Case "01"

                ND.Text = "Mesran,S.Kom,M.Kom"

            Case "02"

                ND.Text = "Tonni Limbong,S.Kom,M.Kom"

            Case "03"

                ND.Text = "Kristian Siregar,S.Kom"

        End Select

   End Sub

    Private Sub BtnHapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnHapus.Click

        NPM.Text = ""

        Nama.Text = ""

        Jenjang.Text = ""

        Jurusan.Text = ""

        KD.Text = ""

        ND.Text = ""

        KM.Text = ""

        Matakuliah.Text = ""

        NK.Text = ""

        NT.Text = ""

        UTS.Text = ""

        UAS.Text = ""

        NA.Text = ""

        NH.Text = ""

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

Dan Berikut ini adalah Hasil Programnya: