welcome to my blog :)

 1. Langkah-langkah penyelesaian :

Public Class Latihan_01_46110022
    Private Sub kosong46110022_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles kosong46110022.Click
        masuk46110022.Text = ""
        SD46110022.Text = ""
        SLTP46110022.Text = ""
        SLTA46110022.Text = ""
        poltek46110022.Text = ""
        TB146110022.Text = ""
        TB246110022.Text = ""
        TB346110022.Text = ""
    End Sub

    Private Sub hitung46110022_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles hitung46110022.Click
        TB146110022.Text = Val(masuk46110022.Text) + Val(SD46110022.Text) + Val(SLTP46110022.Text) + Val(SLTA46110022.Text) + Val(poltek46110022.Text)
        TB246110022.Text = Val(SD46110022.Text) + Val(SLTP46110022.Text) + Val(SLTA46110022.Text) + Val(poltek46110022.Text)
        TB346110022.Text = Val(TB246110022.Text) / Val(TB146110022.Text) * 100
    End Sub
End Class

Komentar :

TB146110022.Text = Val(masuk46110022.Text) + Val(SD46110022.Text) + Val(SLTP46110022.Text) + Val(SLTA46110022.Text) + Val(poltek46110022.Text)

Scribt ini digunakan untuk menjumlahkan semua nilai yang di input ke dalam textbox. Sedangkan "val" pada scribt ini digunakan untuk membaca data sebagai angka bukan sebagai karakter (string). Contoh 7 + 9 = 16 BUKAN 7 + 9 = 79.

 masuk46110022.Text = ""

Scribt ini digunakan untuk mengosongkan kembali isi textbox yang sudah ada.