Остановка цикла в любой момент - VB

Узнай цену своей работы

Формулировка задачи:

Помогите пожалуйста. Есть программа маятника, как сделать так, чтобы в любой момент можно было остановить маятник, когда он качается? Вот код
вот форма

Решение задачи: «Остановка цикла в любой момент»

textual
Листинг программы
Dim b_Stop as boolean 'объявить в самом верху модуля формы
 
Private Sub Stop_Click() 'это код новой кнопки с именем Stop
    b_Stop=true
End Sub

Оцени полезность:

13   голосов , оценка 3.923 из 5