latihan_01_46110004

 Langkah-langkah penyelesaian :

Public Class latihan_01_46110004

      Private Sub htg46110004_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles htg46110004.Click
        selesai46110004.Text = Val(umur46110004.Text) + Val(sd46110004.Text) + Val(sltp46110004.Text) + Val(slta46110004.Text) + Val(poltek46110004.Text)
        lama46110004.Text = Val(sd46110004.Text) + Val(sltp46110004.Text) + Val(slta46110004.Text) + Val(poltek46110004.Text)
        persentase46110004.Text = Val(lama46110004.Text) / Val(selesai46110004.Text) * 100
    End Sub

    Private Sub kosong46110004_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles kosong46110004.Click
        umur46110004.Text = ""
        sd46110004.Text = ""
        sltp46110004.Text = ""
        slta46110004.Text = ""
        poltek46110004.Text = ""
        selesai46110004.Text = ""
        lama46110004.Text = ""
        persentase46110004.Text = ""
    End Sub

    Private Sub umur46110004_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles umur46110004.TextChanged

    End Sub
End Class

Komentar :
1. selesai46110004.Text = Val(umur46110004.Text) + Val(sd46110004.Text) + Val(sltp46110004.Text) + Val(slta46110004.Text) + Val(poltek46110004.Text)  ===> tanda tambah (+) pada script di atas berfungsi untuk menjumlahkan nilai yang di input pada textbox yang satu dengan nilai yang di input pada textbox lainnya. sedangkan, "val" yang terdapat sebelum nama textbox berfungsi untuk mengubah nilai yang ada pada textbox tersebut dari string menjadi number sehingga 2 + 3 = 5 bukan 2 + 3 = 23

2.  Private Sub kosong46110004_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles kosong46110004.Click
umur46110004.Text = "" ===> berfungsi untuk mengosongkan kembali textbox yang bernama umur46110004 setelah menekan tombol (button) yang bernama kosong46110004