v7: Будет ли это пустым циклом? (пауза...)

1C 7.7

24.11.11

✎

11:13

Функция sleep(ЧислоСекунд)
сек=ЧислоСекунд;
Пока ЧислоСекунд <> 0 Цикл
ВвестиСтроку("Пауза: " + ЧислоСекунд + " сек.", "Пауза при отправке сообщений...", 100, 0, 1);
ЧислоСекунд = ЧислоСекунд-1;
КонецЦикла;
Возврат сек;
КонецФункции

//*******************************************
Процедура Сформировать()
ЧислоСекунд = sleep(ЧислоСекунд);
КонецПроцедуры

1 Нуф-Нуф

24.11.11

✎

11:16

ужаснах

2 Chum

24.11.11

✎

11:17

Предупреждение("Пауза, блеать!", ЧислоСекунд)

3 andrewks

24.11.11

✎

11:18

сурово, сурово...

4 jq

24.11.11

✎

11:19

(1) что не так?
(2) а разница в чем?
непонятно, короче...

5 KishMish

24.11.11

✎

11:21

(4)
в (0) человек может нажать случайно ок и в приницпе пауза продожица
в (2) один раз "ок" нажимаешь и пауза закончилась

но чел все таки может нажимать постоянно ок
ябы в цикле сравнивал бы время с запомненным. и вызвал бы Преджупреждение("Паузы",1) пока НужноеТекущееВремя не наступит

6 jq

24.11.11

✎

11:24

(5) понятно, спасибо
это в принципе не важно, т.к. запускаться будет автоматом ночью

7 smaharbA

24.11.11

✎

11:26

(2) и свернуть адинес

8 rs_trade

24.11.11

✎

11:27

молодец. теперь пиши скрипт SendKeys для автоматического ввода циферок и нажатия кнопочки.

9 jq

24.11.11

✎

11:29

(0) будет грузить весь процессор или нет? цикл-то вроде как не пустой получается...

10 Chum

24.11.11

✎

11:30

(7) и что будет? как-то не сворачивал...

11 jq

24.11.11

✎

11:30

(10) счетчик остановится

12 trad

24.11.11

✎

11:35

(9)проц грузить не будет

13 smaharbA

24.11.11

✎

11:36

(9) нормальный код

14 trad

24.11.11

✎

11:39

так чотче:

Функция sleep(ЧислоСекунд)
Конец = _GetPerformanceCounter()+ЧислоСекунд*1000;
Пока _GetPerformanceCounter() < Конец Цикл
Предупреждние("Пауза...",1);
КонецЦикла;
Возврат ЧислоСекунд;//это непонятно зачем
КонецФункции

15 Лефмихалыч

24.11.11

✎

11:40

v8: как сделать задержку?

16 smaharbA

24.11.11

✎

11:41

(14) пердуперждение замени на ввестистроку

17 Lepochkin

24.11.11

✎

11:44

ИмяПутьСкрипта = КаталогПользователя()+"sleep.js";
Скрипт = СоздатьОбъект("Текст");
Скрипт.ДобавитьСтроку("WScript.Sleep("+Строка(1000*Сек)+");");
Скрипт.Записать(ИмяПутьСкрипта);
cmdLine="wscript.exe "+ИмяПутьСкрипта;
WshShell = СоздатьОбъект("WScript.Shell");
Попытка
WshShell.Run(cmdLine, 0, 1);
Исключение
КонецПопытки;

18 trad

24.11.11

✎

13:05

(16) а да, чтоб не булькало

19 smaharbA

24.11.11

✎

13:11

(18) нет, чтоб счетчик не остановился

20 trad

24.11.11

✎

13:14

не знал

21 Jaffar

24.11.11

✎

13:15

(0) ты бы написал, что тебе нужно ОБЯЗАТЕЛЬНО выждать паузу (независимо от нажатия на ОК).
теперь смело можешь пихать эту функцию в обработку проведения! :-)

22 smaharbA

24.11.11

✎

13:17

(20) если сделать Предупреждение(123,10) и нажать "Свернуть все окна" - оно будет висеть до скончания компьютера.

23 smaharbA

24.11.11

✎

13:17

+ а если ВвестиСтроку() - то счетчик не замерзнет

24 trad

24.11.11