Заставить работать цикл с интервалом...

[Armageddon[SN]]

Как заставить работать цикл с интервалом? ( то есть
for A = x to y
[тело]......
.........
.........
чтобы цикл для А=x и для А=x+1 выполнялся через время z?)

[Unstat]

Если тебе надо что бы тело цикла выполнилось потом еще раз через интервал времени z то почему бы тебе не использовать таймер.

[Rainbow]

Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

[Amed]

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

Private Declare Function GetTickCount Lib "kernel32" Alias "GetTickCount" () As Long
Private Const DELAY As Long = 50 'задержка в миллисекундах

Private Sub MyCycle()
Dim x As Integer, i As Integer, j As Integer
For x = 1 To 100

i = GetTickCount

Do
If i - j > DELAY Then Exit Do
DoEvents
Loop

j = GetTickCount

Next x
End Sub

Не проверял, но работать должно...

[Ramzes]

Чест6но говоря я не читал всего, так-что не бейте!!!

А ты попробуй цыкл в цыкле, например так!

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

for a=1 to 1000
   for z=1 to 'сколько тебе надо
   next z
'тело твоего цыкла
next a



[sanches]

А ты попробуй цыкл в цыкле, например так!

это извращение ... (хотя сам когда-то еще на QBasic такое вытворял. даже замерял,сколькоо итераций должно быть в пустом цикле для "паузы" в одну секунду)

[Amed]

Потому-то это и извращение: если у юзера стоит 386DX , то миллион итераций пустого цикла будут выполняться, скажем, секунду. А у владельца Pentium IV-3600 - одну тысячную долю секунды... Лучше юзать Sleep...

[Lobo]

Кроме того, Sleep не загружает процессор.

[SSecurity]

Потому-то это и извращение: если у юзера стоит 386DX , то миллион итераций пустого цикла будут выполняться, скажем, секунду. А у владельца Pentium IV-3600 - одну тысячную долю секунды... Лучше юзать Sleep...

Ну как тебе сказать, помнится в QB я извратился по полной во всех задержках я ставил фиктивное значение например:

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

FOR T=1 TO X*SETUP: NEXT T
'где Х - это число на которое я ориентировался когда писал программу (при SETUP=1)


В самом начале проги следовала константа в которой было время, за которое у меня на компе проходит определенный цикл, например до от 1 до 20000. Далее следовал такой же цикл и измерение времени, после чего комп принимал решение какое значение присвоить переменной SETUP.

Короче препод мой был в шоке, когда в БАСИКЕ, появилось окошко, типа настройка оборудывания ... потом вывод, например такой
"Данное ПО рассчитано на более мощный компутер. Мы рекомендуем приобрести поновее комп."[b].
Затем новое окно, и
[b]"Программа готовит ПО к работе с вашим ПК..."

и потом прога, ето я оформил модулем и потом узал во всех прогах ...
или делал без показательных настроек, просто быстренько обсчитывал и применял ....

Так что было бы желание а решить проблему скоростей можно.. в том виде

[Amed]

Оригинальный способ... Но, повторюсь, он довольно кривой и, имхо, методологически правильнее юзайть Sleep

[SSecurity]

Да SLEEP это конечно хорошо, но если конечно у него не интервал например 2е суток ....
Тут я думаю ему лучше писать инфу о том когда запустить прогу в файл ... а потом проверять программой работающей в фоновом режиме...


Вообщем бескрайнее поле для извращений