Latihan_01_46110002

Public Class Latihan_01_46110002
    Private Sub hitung46110002_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles hitung46110002.Click
        SPOLTEK46110002.Text = Val(MSD46110002.Text) + Val(SD46110002.Text) + Val(SLTP46110002.Text) + Val(SLTA46110002.Text) + Val(POLTEK46110002.Text)
        LSB46110002.Text = Val(SD46110002.Text) + Val(SLTP46110002.Text) + Val(SLTA46110002.Text) + Val(POLTEK46110002.Text)
        PERSEN46110002.Text = (Val(LSB46110002.Text) / Val(SPOLTEK46110002.Text)) * 100
    End Sub
    Private Sub hapus46110002_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles hapus46110002.Click
        MSD46110002.Text = ""
        SD46110002.Text = ""
        SLTP46110002.Text = ""
        SLTA46110002.Text = ""
        POLTEK46110002.Text = ""
        SPOLTEK46110002.Text = ""
        LSB46110002.Text = ""
        PERSEN46110002.Text = ""
    End Sub
End Class