Aplikasi Menentukan Kelulusan Visual Basic 2010

• Form Design

•  Code

Public Class Latihan_5

    Dim UTS, UAS, NA As Double
    Dim kelakuan, kehadiran As Integer
    Dim kNA, kujian, khadir, kkelakuan As Boolean
    Dim keterangan As String

    Private Sub txtKL_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles txtKL.LostFocus
        UTS = Me.txtUTS.Text
        UAS = Me.txtUAS.Text
        kehadiran = Me.txtKH.Text
        kelakuan = Me.txtKL.Text

        NA = (UTS * 0.4) + (UAS * 0.6)
        Me.txtNA.Text = NA.ToString

        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
            keterangan = "lulus"
        Else
            keterangan = "gagal"
        End If
        Me.txtKET.Text = keterangan.ToString

    End Sub

•  Start Debugging