Latihan_03_46110037

                                             Gambar: Latihan 03 46110037

 1.Langkah-Langkah Penyelsaian

Public Class LATIHAN_03_46110037

    Private Sub SELESAISEKOLAH46110037_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SELESAISEKOLAH46110037.Enter
        SELESAISEKOLAH46110037.Text = Val(UMUR46110037.Text) + Val(SD46110037.Text) + Val(SMP46110037.Text) + Val(SMA46110037.Text) + Val(KULIAH46110037.Text)
    End Sub

    Private Sub BELAJAR46110037_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BELAJAR46110037.Enter
        BELAJAR46110037.Text = Val(SD46110037.Text) + Val(SMP46110037.Text) + Val(SMA46110037.Text) + Val(KULIAH46110037.Text)
    End Sub

    Private Sub PERSENTASE46110037_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PERSENTASE46110037.Enter

        PERSENTASE46110037.Text = Val(BELAJAR46110037.Text) / Val(SELESAISEKOLAH46110037.Text) * 100
    End Sub

    Private Sub KOSONG46110037_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KOSONG46110037.Click
        UMUR46110037.Text = ""
        SD46110037.Text = ""
        SMP46110037.Text = ""
        SMA46110037.Text = ""
        KULIAH46110037.Text = ""
        SELESAISEKOLAH46110037.Text = ""
        BELAJAR46110037.Text = ""
        PERSENTASE46110037.Text = ""

    End Sub

End Class


2. KOMENTAR:
* scriptnya hampir sama dengan script pada Latihan_01_46110037 hanya yang membedakan adalah bagian belakang pada masing-masing script yaitu ENTER supaya ketika ditekan Tab atau diklik textbox gelap maka akan muncul hasilnya.