PROGRAM PENCARIAN NILAI

Desainlah 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("12110312")

        NPM.Items.Add("12110154")

        NPM.Items.Add("12110272")

        Kodedosen.Items.Add("MS001")

        Kodedosen.Items.Add("KJ002")

        Kodedosen.Items.Add("DS003")

        Kodematakuliah.Items.Add("MS")

        Kodematakuliah.Items.Add("KJ")

        Kodematakuliah.Items.Add("DS")

        Dim x As Integer

        For x = 100 To 10 Step -5

            Nilaikehadiran.Items.Add(x)

            Nilaiuts.Items.Add(x)

            Nilaitugas.Items.Add(x)

            UAS.Items.Add(x)

        Next

    End Sub

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

        Select Case NPM.Text

            Case "12110312" : Nama.Text = "Sulaiman Zuhdi"

                Jurusan.Text = "Tekhnik Informatika"

                Jenjang.Text = "S1"

            Case "12110154" : Nama.Text = "Ifana Lubis"

                Jurusan.Text = "Manajemen Informatika"

                Jenjang.Text = "D3"

            Case "12110272" : Nama.Text = "Josbri Margalun Gultom"

                Jurusan.Text = "Sistem Informasi"

                Jenjang.Text = "S1"

        End Select

    End Sub

    Private Sub Kodedosen_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Kodedosen.SelectedIndexChanged

        Select Case Kodedosen.Text

            Case "MS001" : Namadosen.Text = "Mesran.S,Kom. M,Kom"

            Case "KJ002" : Namadosen.Text = "Kennedy Tampubolon.S,si"

            Case "DS003" : Namadosen.Text = "Philipus TRG.S,Kom"

        End Select

    End Sub

    Private Sub Kodematakuliah_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Kodematakuliah.SelectedIndexChanged

        Select Case Kodematakuliah.Text

            Case "MS" : Namamatakuliah.Text = "Pemograman Visual"

            Case "KJ" : Namamatakuliah.Text = "Kalkulus"

            Case "DS" : Namamatakuliah.Text = "Arsitektur organisasi"

        End Select

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Nilaiakhir.Text = 0.1 * Nilaikehadiran.Text + 0.15 * Nilaitugas.Text + 0.35 * Nilaiuts.Text + 0.4 * UAS.Text

        If Nilaiakhir.Text >= 80 Then

            Nilaihuruf.Text = "A"

        ElseIf Nilaiakhir.Text >= 70 Then

            Nilaihuruf.Text = "B"

        ElseIf Nilaiakhir.Text >= 60 Then

            Nilaihuruf.Text = "C"

        ElseIf Nilaiakhir.Text >= 50 Then

            Nilaihuruf.Text = "D"

        Else

            Nilaihuruf.Text = "E"

        End If

        If Nilaiakhir.Text >= 55 Then

            Keterangan.Text = "Lulus"

        Else

            Keterangan.Text = "Gagal"

        End If

    End Sub

End Class

Hasil Program:

   

Kalau mau dipanjangin, dipanjangin aza ya…..

Itu terserah Anda Bro……