Как бороться с аутизмом циклов?

[Marc]

Мне нужно сделать выход из цикла по нажатию какой-либо клавиши.
Вставляю в тело цикла проверку нажатия на кнопку "Enter", но никакой реакции. Программа отказывается реагировать на внешнее воздействие. Только по завершению цикла идёт обработка произведённых нажатий, когда мне это уже не надо.
Почему циклы не видят управления и как с этим бороться?

Код имеет вид примерно следующий:

For x = 1 to 100
...
If KeyCode = "13" Then ...
...
Next x

Условие после Then выполняется только после завершения цикла, в данном примере когда х станет равным 100, а не сразу после нажатия.

[EducatedFool]

Только по завершению цикла идёт обработка произведённых нажатий, когда мне это уже не надо

В Вашем случае ОС просто не успевает обработать событие нажатия клавиши, так как цикл забирает почти все ресурсы процессора.

К тому же, за время выполнения цикла (при таком количестве итераций оно составит доли миллисекунды) Вы просто не успеете нажать клавишу...

Кроме того, переменная KeyCode обычно имеет тип Integer, поэтому правильнее написать KeyCode = 13 вместо KeyCode = "13"


Можно сделать так:

For x = 1 To 100
        DoEvents
        If KeyCode = 13 Then MsgBox "Нажата клавиша Enter"
Next x

В этом случае оператор DoEvents временно передаёт управление операционной системе, и, благодаря этому, нажатия клавиш будут успевать обрабатываться.


Правильнее было бы организовать обработку нажатия клавиши так:

    While KeyCode <> 13: DoEvents: Wend
    MsgBox "Нажата клавиша Enter"

В этом случае программа ничего не делает до нажатия клавиши Enter (при этом не нагружая систему)


Хотелось бы посмотреть весь код... не пойму, как внутри цикла в переменную записывается код нажатой клавиши.

[Marc]

Сообщение от EducatedFool

В Вашем случае ОС просто не успевает обработать событие нажатия клавиши, так как цикл забирает почти все ресурсы процессора.

Это вряд ли.

Сообщение от EducatedFool

К тому же, за время выполнения цикла (при таком количестве итераций оно составит доли миллисекунды) Вы просто не успеете нажать клавишу...

Цикл замкнут на себя, поэтому времени масса.

Сообщение от EducatedFool

Кроме того, переменная KeyCode обычно имеет тип Integer, поэтому правильнее написать KeyCode = 13 вместо KeyCode = "13"

Верно, без кавычек.

Сообщение от EducatedFool

Можно сделать так:

For x = 1 To 100
        DoEvents
        If KeyCode = 13 Then MsgBox "Нажата клавиша Enter"
Next x

В этом случае оператор DoEvents временно передаёт управление операционной системе, и, благодаря этому, нажатия клавиш будут успевать обрабатываться.

Я ввёл DoEvents, но идёт только перемещение по ячейкам, всё что после then по прежнему не выполняется.

Сообщение от EducatedFool

Хотелось бы посмотреть весь код... не пойму, как внутри цикла в переменную записывается код нажатой клавиши.

По сути весь цикл приведён.
Я делал ещё так:
Do Until KeyCode = 13
...
Loop

Т.е. выполнять цикл пока не будет нажат Enter, но бестолку.

[EducatedFool]

Я ввёл DoEvents, но идёт только перемещение по ячейкам, всё что после then по прежнему не выполняется.

Никак не могу понять, для чего предназначен Ваш цикл... и по каким ячейкам идёт перемещение???

Каким образом код нажатой клавиши записывается в переменную KeyCode?
Обычно обработчик какого-либо события записывает значение кода нажатой клавиши в эту переменную, но вызвать в цикле обработчик вряд ли получится

По сути весь цикл приведён.

А вот это ещё более странно...

Опишите, чего Вы пытаетесь добиться, а также приведите ВЕСЬ код, присутствующий в документе. Так будет намного понятнее...

[Marc]

Сообщение от EducatedFool

Никак не могу понять, для чего предназначен Ваш цикл... и по каким ячейкам идёт перемещение???

Суть задачи в получении совершенно случайного числа. Поэтому нужен искусственный выход из цикла. Как-то ведь это можно сделать? Наверно, тут нужен не KeyCode, а что-то иное.
Перемещение идёт вниз по ячейкам Excel при нажатии на Enter. Я делаю код в Excel.