7 вложенных FOR, как выйти из цикла(висимс)

[Wildwhiteash]

Предварительно из txtBox по глобальным переменным расталкиваются значения.
Запускается конструкция из семи вложенных циклов FOR
Собственно в цилклах формируются циферки и через I/O-драйвер отправляются в железку, и от нее ожидается ответ.
Когда ответ получен, переходим к следующему NEXT

Теперь о проблеме
пока идет перебор в циклах форма не реагирует на нажатие кнопки "стоп".
А очень уж хочется получить возможность не только запускать, но и останавливать процесс
Присоветуйте что нибудь.

В аттаче исходник.
(камментов в исходнике просьба не пугаться)

[Viper]

Дык, DoEvents и флаг на уровне формы.

[RayShade]

Дык, алгоритм переписать. Ибо, куда столько уровней вложенности то?

[Wildwhiteash]

Viper

Дык, DoEvents и флаг на уровне формы

Если можно приведите пожалуйста пример.

RayShade

Ибо, куда столько уровней вложенности то?

Предложите вариант перебора 5-ти 16-битных значений и 2-х 8-битных
У меня не возникло другого варианта кроме "матрёшки" из цилков For

[Viper]

гм... как то так, в упрощенном виде

Код: Выделить всё

Private b_Cancel As Boolean
....
Private Sub btnCancel_Click()
    b_Cancel = True
End Sub
....

For i = 0 To 1000000
DoEvents
....
If b_Cancel Then
    Exit For
End If
Next i

[Wildwhiteash]

Вобщем DoEvents с горем пополам решил вопрос.
Присоветовали еще один вариант но не пробовал
суть примерно такова
H=CreateEvent(nil,FALSE,FALSE,nil)
WaitForSingleObject(H,20)
Делаем событие которое никогда не произойдет
а потом его ждем
пока ждем форма перестает висеть и начинает реагировать

[udpn]

пореже с этой апишкой, обычно из-за криворукости программистов (или тупой документации?) появляются очень интересные эффекты. Особенно заметно на старых платформах (95, 98)

DoEvents вызывать надо бы не в каждом проходе цикла, а так раз на 10000 проходов. Дело в том, что это - очень медленный оператор. Вызовы в цикле могут замедлить прогу раз несколько раз.