[ssn]

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

[KronSerg]

Код с реализованой паузой есть в этой теме http://forum.dwg.ru/showthread.php?t=43625

[asd]

Через API. Проверено в офисе2007

Код:

[Выделить все]

Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
----------------------------------------------------------------------
Private Sub Кнопка1_Click()
    Sleep 10000
    MsgBox ("123")
End Sub

[ssn]

вот почему то последний вариант в автокаде не работает. по крайней мере у меня.
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long) - вот это принимать не хочет

[asd]

Может кто-то подскажет. Об автокаде знаю только то, что он существует.

Эта строчка должна быть в самом верху модуля. У меня (в Аксессе) это выглядит так:

Код:

[Выделить все]

Option Compare Database
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
---------------------------------
Private Sub Кнопка0_Click()
....

[KronSerg]

А что OnTime, тоже в акаде не работает?

[ssn]

пока OnTime не попробовал.
теоритически должно. только моего знания ВБА не хватает для понимания как тот код работает.

[KronSerg]

Посмотри код, запуская макрос whate, увидишь сообщение сколько ждал секунд, проверял в Excel. Думаю разберёшься.

Код:

[Выделить все]

Public Const cRunIntervalSeconds = 8 'Время в секундах
Public Const cRunWhat = "qwerty"
Public RunWhen As Double
Sub whate()
 RunWhen = Now + TimeSerial(0, 0, cRunIntervalSeconds)
    Application.OnTime EarliestTime:=RunWhen, Procedure:=cRunWhat, _
        Schedule:=True
End Sub
Sub qwerty()
On Error Resume Next
s = "Ты ждал " + Format(cRunIntervalSeconds) + " секунд)"
a = MsgBox(s, vbOKOnly)
Application.OnTime EarliestTime:=RunWhen, Procedure:=cRunWhat, _
        Schedule:=False
End Sub

[ssn]

допустим у меня есть код, в который надо вставить паузу.
1. Разместить эту конструкцию не в моём коде и из моего кода запустить whate, потом запустится qwerty. а как мне вернуться обратно в мой код....
2. нельзя ли сделать, что бы в "Application.OnTime EarliestTime:=RunWhen, Procedure:=cRunWhat,Schedule:=True" по достижению нужного времени выполнялась не процедура, а допустим была ссылка на метку в коде, ну или просто движение далее по коду....

[KronSerg]

Насколько я понял, OnTime - единственное нормальное решение для реализации паузы, но по окончании паузы происходит именно запуск нового макроса, если хочешь продолжить выполнение текущего попробуй такую конструкцию:

Код:

[Выделить все]

Private Declare Function WaitMessage Lib "user32.dll" () As Long
Sub whate()
Const cRunIntervalSeconds = 8
Start = Timer
  Do While Timer < Start + cRunIntervalSeconds
  WaitMessage
   DoEvents
  Loop
s = "Ты ждал " + Format(cRunIntervalSeconds) + " секунд)"
a = MsgBox(s, vbOKOnly)
End Sub

Но этот метод использовать в крайних случаях, т.к. он ограничивает возможности пользователя.

[hwd]

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

[gomer]

Ну и зачем все это? Чтоб юзер чай с кофэм пил почаще?

[KronSerg]

Сообщение от gomer Ну и зачем все это? Чтоб юзер чай с кофэм пил почаще?

Скорее наоборот, для всякого рода напоминалок.

[Олег (jr.)]

Сообщение от KronSerg Насколько я понял, OnTime - единственное нормальное решение для реализации паузы, но по окончании паузы происходит именно запуск нового макроса, если хочешь продолжить выполнение текущего попробуй такую конструкцию: Код: [Выделить все] Private Declare Function WaitMessage Lib "user32.dll" () As Long Sub whate() Const cRunIntervalSeconds = 8 Start = Timer Do While Timer < Start + cRunIntervalSeconds WaitMessage DoEvents Loop s = "Ты ждал " + Format(cRunIntervalSeconds) + " секунд)" a = MsgBox(s, vbOKOnly) End Sub Но этот метод использовать в крайних случаях, т.к. он ограничивает возможности пользователя.

Работает как часы (А2009)

[ssn]

да не... нужно это вот для чего - програмно печатаю, и видимо скорость отсылки заданий рубит принтер, он не отвечает, и соответственно программа встаёт по ошибке.
хочу внедрить паузу, хотя бы 1 секунду в отсылках заданий

[KronSerg]

Ну раз пауза нужна всего в секунду, тогда твой вариант #10

[gomer]

Есть событие EndPlot... Может его можно использовать?

[ssn]

спасибо. код из поста 14 очень даже заработал.
ситуация и вправду выпрямилась.
это просто принтер кенен 660F. после каждой печати он посылает сообщение о том, что пора менять печатающуюю голову, что мол качество печати самому ему не нравится.
может конечно можно это отключить где нить в настройках, но я не нашел. сервис говори - нормальное дело, раз в год голову менять. практически по таймеру. но блин, 15 тыров голова, набор чернил ещё 15. и чернильница куда оно сплёвывает лишнее.. тоже денег стоит...

[gomer]

Сообщение от ssn денег стоит...

Кто вам дохтор... надо было думать, что берете!

[ssn]

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