Contoh Project Visual Basic 2010 Menentukan Kelulusan

  Menentukan Kelulusan.

 Nilai Akhir didapat dari (UTS *40%)+(UAS*60%).Kelulusan ditentukan dari Nilai UTS,UAS,kehadiran dan Kelakuan,siswa yang diangap lulus jika kehadiran lebih dari 75% dari 18 petemuan dan kelakuan lebih atau sama dengan 2.

• Form untuk menentukan kelulusan

 

•   Atur Propertis form sesuai dengan data berikut ;

• Coding untuk menentukan kelulusan

Public Class Latihan_5

    Dim UTS, UAS, NA As Double

    Dim Kehadiran, Kelakuan As Long

    Dim kUjian, kHadir, kKelakuan, kNA As Boolean

    Dim KET As String

    Sub kelulusan()

        UTS = Val(Me.textUTS.Text)

        UAS = Val(Me.TextUAS.Text)

        Kehadiran = Val(Me.TextKehadiran.Text)

        Kelakuan = Val(Me.TextKelakuan.Text)

        NA = (UTS * 0.4) + (UAS * 0.6)

        If UTS > 0 And UAS > 0 Then

            kUjian = True

        Else

            kUjian = False

        End If

        If Kehadiran > (0.75 * 18) Then

            kHadir = True

        Else

            kHadir = False

        End If

        If Kelakuan >= 2 Then

            kKelakuan = True

        Else

            kKelakuan = False

        End If

        If NA > 50 Then

            kNA = True

        Else

            kNA = False

        End If

        If kUjian = True And kHadir = True And kKelakuan = True And kNA = True Then

            KET = "LULUS"

        Else

            KET = "GAGAL"

        End If

        Me.TextNA.Text = NA.ToString

        Me.TextKET.Text = KET.ToString

    End Sub

    Private Sub textUTS_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles textUTS.LostFocus

        Call kelulusan()

    End Sub

    Private Sub TextUAS_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles TextUAS.LostFocus

        Call kelulusan()

    End Sub

    Private Sub TextKehadiran_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles TextKehadiran.LostFocus

        Call kelulusan()

    End Sub

    Private Sub TextKelakuan_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles TextKelakuan.LostFocus

        Call kelulusan()

    End Sub

    Private Sub textUTS_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles textUTS.TextChanged

        Call kelulusan()

    End Sub

    Private Sub TextUAS_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles TextUAS.TextChanged

        Call kelulusan()

    End Sub

    Private Sub TextKehadiran_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles TextKehadiran.TextChanged

        Call kelulusan()

    End Sub

    Private Sub TextKelakuan_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles TextKelakuan.TextChanged

        Call kelulusan()

    End Sub

End Class