Latihan_03_46110043

Public Class Latihan_03_46110043

    Private Sub LULUS46110043_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LULUS46110043.Enter
        LULUS46110043.Text = Val(UMUR46110043.Text) + Val(LSD46110043.Text) + Val(LSLTP46110043.Text) + Val(LSLTA46110043.Text) + Val(LPOLTEK46110043.Text)
    End Sub

    Private Sub BELAJAR46110043_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BELAJAR46110043.Enter
        BELAJAR46110043.Text = Val(LSD46110043.Text) + Val(LSLTP46110043.Text) + Val(LSLTA46110043.Text) + Val(LPOLTEK46110043.Text)
    End Sub

    Private Sub PERSENTASE46110043_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PERSENTASE46110043.Enter
        PERSENTASE46110043.Text = Val(BELAJAR46110043.Text) / Val(LULUS46110043.Text) * 100
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        UMUR46110043.Text = ""
        LSD46110043.Text = ""
        LSLTP46110043.Text = ""
        LSLTA46110043.Text = ""
        LPOLTEK46110043.Text = ""
        LULUS46110043.Text = ""
        BELAJAR46110043.Text = ""
        PERSENTASE46110043.Text = ""

    End Sub
End Class

Komentar :

* Pada dasarnya Latihan 03 ini hampir sama dengan Latihan 01. Letak pebedaannya yaitu pada akhir  script untuk mencari penjumlahan pada nilai dalam textbox kita ganti dengan ENTER yang pada awalnya adalah TextExchage. Maka ketika kita menekan tab atau mengklik langsung pada textbox gelap maka hasilnya akan langsung muncul pada textbox gelap tersebut

 * Sama seperti Latihan 01 & 02 ketika kita mengklik tombol KOSONGKAN LAGI maka semua data yang di indput pada textbox akan hilang.