Задерка по времени

[13GHOST]

Вот возник вроде на первый взгляд легкий вопрос, но при реализации натолкнулся на проблему. Можно ли на VB6 организовать задержку между строками кода на определенное время? Вот такой структуры:

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

код
код
задержка
код
код

Пробывал вставить структуру: for - doevents - next, но тогда программа как бы зависает и другие процессы приостанавливаются
т е надо как бы получается завести таймер, который будет работать в паралельном режиме и по его срабатыванию перейти на след строку кода.

[Debugger]

При DoEvents программа зависать не должна. Покажи код.

[arthur2]

Я бы сделал как-то так:

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

function myFun (optional flag as boolean=true)
  if flag then
    'код, код, код перед задержкой
     mytimer.interval=300
     mytimer.enabled=true
else
   'код, код, код после задержки
end if
end fuction

sub mytimer_timer ()
  mytimer.enabled=false
  myFun false
end sub


[dr.MIG]

А чем Sleep не устраивает?
И для чего вообще нужна пауза, может это можно решить другим путем?

[13GHOST]

При DoEvents программа зависать не должна. Покажи код.

она как бы не зависает, но какие то паралельные процессы (например другие окна там и т.д.) замирают

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

Sub TimeOut(Duration)
Dim StartTime As Long
StartTime = Timer
Do While Timer - StartTime < Duration
    DoEvents
Loop
End Sub

пример с таймером не совсем гибок. А если мне после задержки нужны переменные локольно объявленные до задержки? Придется их куда то сохранять, а если количество переменных до задержки равно N то гемора еще больше.

при Sleep'e вообще все напрочь зависает

[Хакер]

Ничего не зависает. Надо вообще-то понимать суть вещей.

[awl100Alex]

13GHOST
Циклы подобного плана вызывают 100% загрузку процессора даже вместе с DoEvents. Да и к тому же DoEvents с большой частотой вызовов в цикле небезопасен: что может произойти если он не успеет вернуть управление VB?

Тебе скорее всего нужно использовать API - Timer - он вообще проц. не грузит и может выполнять свою работу без зависаний.

[arthur2]

Чтобы избежать того "зависания", которое ты имеешь ввиду, нужно выйти из процедуры - другого варианта просто нет. Так что только таймер.

пример с таймером не совсем гибок. А если мне после задержки нужны переменные локольно объявленные до задержки?

Объяви статические переменные

[awl100Alex]

Вот посмотри пример здесь...
http://bbs.vbstreets.ru/viewtopic.php?p=6709202#p6709202

[alibek]

Да и к тому же DoEvents с большой частотой вызовов в цикле небезопасен: что может произойти если он не успеет вернуть управление VB?

Глупость. Такого не бывает.

[awl100Alex]

Глупость. Такого не бывает.

К сожалению бывает. По своему горькому опыту говорю. Тоже когда-то делал цикл for - DoEvents - Next и у меня после этого, рухнула система.
А потом уже читал такие вот советы...
http://vbrussian.com/Article.asp?ID=43 - Совет № 52.
И вот это...
http://vbzero.narod.ru/chapter1/page_22.htm
Цитирую...
"В связи с тем, что повторный вызов функции DoEvents в момент, когда функция еще не передала управление из операционной системы назад в Visual Basic может вызвать непредвиденные последствия, нежелательно вызывать процедуру DoEvents из других процедур программы."

[ANDLL]

Еще раз для тупых.
doevents не предназначена для передачи чегото оперционной системе. Любая статья, начинающаяся с подобного тезиса - просто плод больного воображения авторов, заменяющих реальные знания своей пылкой юношеской фантазией

[awl100Alex]

Еще раз для тупых.

Похоже свой голос дал безграмотный флудист.

[13GHOST]

мда. Апи таймер это конечно хорошо но все осложняет. При нем надо объявлять статические переменные. А если например будет так: я перед задержкой в функции запишу все данные в стат. переменные и во время задержки эта функция вызовется еще раз с другими параметрми, получается она изменит содержание стат перменных + и то что после задержки вызовется 1 раз, хотя надо 2. Получается тут надо делать массивы таймеров + массивы перменных для каждого таймера, целый движок писать:) а если еще и зардержек в функции не 1 а много, то.....

[Debugger]

Вывод: GetTickCount + Do While ... Loop + Doevents

[alibek]

К сожалению бывает. По своему горькому опыту говорю.

Не бывает. Ты понимаешь, что делает DoEvents? Видимо, нет.

[13GHOST]

если бы работала многопоточность, то можно было бы всю процедуру поместить в отдельный поток и задержка с помощью doevents, тогда да. А так doevents не катит. Придется как то реализовывать псевдомногопоточность

[arvitaly]

Можно ли на VB6 организовать задержку между строками кода на определенное время?

А где так можно?

[arthur2]

многопоточность: viewtopic.php?f=15&t=39686&start=0&st=0&sk=t&sd=a
Только она здесь не поможет.

"массив" АПИ-таймеров (условно массив оберток над апи-таймером)
viewtopic.php?f=28&t=36606

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

Чтобы программа не замораживалась, всё равно придётся выходить из процедуры. Заведи кроме прочих статический счётчик, который при флаге увеличивай, а без флага уменьшай. Тогда каждый экземпляр твоей процедуры перед паузой сможет по этому индексу узнавать именно свою пару после паузы. А вместо переменных заведи массивы переменных - чтобы каждая пара "перед-после" пользовалась своей собственной переменной.
(Кстати, если пользоваться моим кирпичом - там к каждому таймеру как раз можно привязать свою переменную)

Может быть, ещё эта идея пригодится:
viewtopic.php?p=6699778#p6699778

[13GHOST]

ну понятно, спасибо. вопрос снят