Из-за проблемы с пространством стека - могу ли я повторить суб, не перезаписывая его?

Question

Я работаю над интересным проектом в Excel, создающим игру. Он отлично работает, за исключением того, что примерно через минуту времени выполнения это ошибки, потому что это из пространства стека. Я понял, что это потому, что технически я использую рекурсии в функции stepEvent, которая выглядит следующим образом:

Private Sub stepEvent() 
    ' All the game code 
    start = Timer 
    Do While Timer < start + 0.15 
     DoEvents 
    Loop 
    stepEvent 
End Sub 

Ни в одном из случаев stepEvent никогда не решить до тех пор, как игрок не теряет, или он бежит из стека и ошибки. Мой вопрос в том, есть ли способ разрешить рекурсивные субмарины, но как-то сохранить контроль, или если есть альтернативный метод, чтобы повторить этот юг, не используя рекурсию.

Answer 1

Попробуйте зацикливание

Sub asDoWhileLoop() 

    Do While True 
     Call stepEvent 
    Loop 

End Sub 

Sub stepEvent() 

    'Do game stuff and wait at end 

End Sub 

Но помните, чтобы очистить в конце вашего stepEvent(), то есть установить свои объекты в НИЧТО, близких, независимо от набора записей вы играете с. Вы можете отказаться от использования END вместо EXIT SUB. Но все зависит от вас, чтобы оно прекратилось.