Latihan_03_46110002

Public Class Latihan_03_46110002
    Private Sub SPOLTEK46110002_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SPOLTEK46110002.TextChanged
        SPOLTEK46110002.Text = Val(MSD46110002.Text) + Val(SD46110002.Text) + Val(SLTP46110002.Text) + Val(SLTA46110002.Text) + Val(POLTEK46110002.Text)
    End Sub

    Private Sub LSB46110002_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LSB46110002.TextChanged
        LSB46110002.Text = Val(SD46110002.Text) + Val(SLTP46110002.Text) + Val(SLTA46110002.Text) + Val(POLTEK46110002.Text)
    End Sub

    Private Sub PERSEN46110002_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PERSEN46110002.TextChanged
        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.Enter
        MSD46110002.Text = ""
        SD46110002.Text = ""
        SLTP46110002.Text = ""
        SLTA46110002.Text = ""
        POLTEK46110002.Text = ""
        SPOLTEK46110002.Text = ""
        LSB46110002.Text = ""
        PERSEN46110002.Text = ""
    End Sub
End Class