Contoh Program Visual Basic 2010 : Latihan 5

'Latihan 5 (Mencari Nilai Akhir dan Keterangan)

              'Tampilan Form

'Coding

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 Latihan_5_FormClosed(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosedEventArgs) Handles Me.FormClosed

        Utama.Enabled = True

        Utama.Show()

        Me.Hide()

    End Sub

    Private Sub Latihan_5_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing

        Utama.Enabled = True

        Utama.Show()

        Me.Hide()

    End Sub

End Class