Public NotInheritable Class Latihan_03_46110003

    Private Sub selesai46110003_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles selesai46110003.Enter
        selesai46110003.Text = Val(masuksd46110003.Text) + Val(lbsd46110003.Text) + Val(lbsltp46110003.Text) + Val(lbslta46110003.Text) + Val(lbpol46110003.Text)
    End Sub

    Private Sub lsb46110003_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lsb46110003.Enter
        lsb46110003.Text = Val(lbsd46110003.Text) + Val(lbsltp46110003.Text) + Val(lbslta46110003.Text) + Val(lbpol46110003.Text)
    End Sub

    Private Sub persentase46110003_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles persentase46110003.Enter
        persentase46110003.Text = Val(lsb46110003.Text) / Val(selesai46110003.Text) * 100
    End Sub

    Private Sub kosong46110003_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kosong46110003.Click
        masuksd46110003.Text = ""
        lbsd46110003.Text = ""
        lbslta46110003.Text = ""
        lbsltp46110003.Text = ""
        lbpol46110003.Text = ""
        selesai46110003.Text = ""
        lsb46110003.Text = ""
        persentase46110003.Text = ""
    End Sub
End Class


KOMENTAR UNTUK SCRIPT UNIK
  Private Sub selesai46110003_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles selesai46110003.Enter
==> fungsi ENTER untuk mejumlahkan secara otomatis script pada textbox, sehingga tidak memerlukan tombol "hitung" (seperti pada Latihan_01_46110003)