Public Class Latihan_01_46110003

    Private Sub hitung46110003_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles hitung46110003.Click
        selesai46110003.Text = Val(masuksd46110003.Text) + Val(lbsd46110003.Text) + Val(lbsltp46110003.Text) + Val(lbslta46110003.Text) + Val(lbpol46110003.Text)
        lsb46110003.Text = Val(lbsd46110003.Text) + Val(lbsltp46110003.Text) + Val(lbslta46110003.Text) + Val(lbpol46110003.Text)
        persentase46110003.Text = Val(lsb46110003.Text) / Val(selesai46110003.Text) * 100
    End Sub

    Private Sub kosong46110003_Click_1(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

  selesai46110003.Text = Val(masuksd46110003.Text) + Val(lbsd46110003.Text) + Val(lbsltp46110003.Text) + Val(lbslta46110003.Text) + Val(lbpol46110003.Text)
==> Val  berfungsi untuk mengubah string menjadi number sehingga angka yang diinput pada textbox terjumlah.
==> + berfungsi untuk menjumlahkan angka yang diinput pada textbox

   masuksd46110003.Text = ""
==> "" berfungsi untuk mengosongkan texboxt setelah menginput