ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / задержка времени
10 сообщений из 10, страница 1 из 1
задержка времени
    #34948810
beginner_fox
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
beginner_fox
Участник
Добрый день!

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

Вопрос: есть ли функция задержки (типа pause) в fox-е позволяющая реализовать задуманное?

Я придумал пока 2 варианта:
1. цикл с большим кол. иттераций (но тут время зависит от производ.компа)
2. messagebox c (timeout)-но тут получается противный системный писк от PC(как его програмно выключить?) при каждом вызове messagbox-a


С уважением, beginner_fox.
...
Рейтинг: 0 / 0
19.11.2007, 13:42
| Ответить | Цитировать | Написать  
задержка времени
    #34948832
PaulWist
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
PaulWist
Участник
Код: plaintext
1.
2.
3.
4.
?seconds()
INKEY( 2 )
?seconds()
WAIT NOWAIT TIMEOUT  2 
?seconds()
...
Рейтинг: 0 / 0
19.11.2007, 13:49
| Ответить | Цитировать | Написать  
задержка времени
    #34948873
Фотография ВладимирМ
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ВладимирМ
Участник
Можно и API-функцию использовать

Код: plaintext
1.
DECLARE Sleep IN Win32API INTEGER  
=Sleep( 5000 )

Однако в отличие от функций FoxPro функция SLEEP() будет держать паузу вне зависимости от действий пользователя указанное количество миллисекунд.
...
Рейтинг: 0 / 0
19.11.2007, 13:58
| Ответить | Цитировать | Написать  
задержка времени
    #34948908
Фотография ВладимирМ
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ВладимирМ
Участник
Оказалось, что начиная с VFP9 есть еще такая штуковина

Код: plaintext
KEYBOARD "{PAUSE 5}"

Работает аналогично Sleep() только время указывается в секундах
...
Рейтинг: 0 / 0
19.11.2007, 14:07
| Ответить | Цитировать | Написать  
задержка времени
    #34948940
beginner_fox
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
beginner_fox
Участник
Всем спасибо!!!

Я вот ещё такую штуковину придумал:
(т.к. inkey и wait timeout -держат не ровно- всегда получается разное колл.секунд)

Код: plaintext
1.
2.
3.
4.
vr_timepause= 1 . 5 
var_1=SECONDS()
DO WHILE (SECONDS()-var_1)<vr_timepause
enddo
?(SECONDS()-var_1)
...
Рейтинг: 0 / 0
19.11.2007, 14:15
| Ответить | Цитировать | Написать  
задержка времени
    #34948984
Фотография ВладимирМ
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ВладимирМ
Участник
beginner_fox
(т.к. inkey и wait timeout -держат не ровно- всегда получается разное колл.секунд)
Так ведь Help надо было прочитать.

Эти функции держат паузу до тех пор, пока не произойдет одно из следующих событий:

-) Пользователь нажал любую клавишу на клавиатуре или дернул указатель мыши. Для Inkey() мышиные события отлавливаются только при задании определенных параметров
-) Если пользователь не нажимал клавиши и не дергал указатель мыши, то по истечении указанного времени.

beginner_fox
Я вот ещё такую штуковину придумал:

Код: plaintext
1.
2.
3.
4.
vr_timepause= 1 . 5 
var_1=SECONDS()
DO WHILE (SECONDS()-var_1)<vr_timepause
enddo
?(SECONDS()-var_1)

Цикл WHILE грузит процессор. В приложении ты, конечно, получишь задержку. Но, заодно, подвесишь и все остальные процессы, открытые у пользователя.
...
Рейтинг: 0 / 0
19.11.2007, 14:28
| Ответить | Цитировать | Написать  
задержка времени
    #34949003
beginner_fox
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
beginner_fox
Участник
ВладимирМ
Цикл WHILE грузит процессор. В приложении ты, конечно, получишь задержку. Но, заодно, подвесишь и все остальные процессы, открытые у пользователя.

Да, Владимир, спасибо!

А если использовать приведённую Вами выше функцию API- то она просто замораживает моё приложение на N-ое количество секунд не подвешивая остальные приложения, я правильно понимаю?

C уважением, beginner_fox.
...
Рейтинг: 0 / 0
19.11.2007, 14:34
| Ответить | Цитировать | Написать  
задержка времени
    #34949070
Фотография ВладимирМ
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ВладимирМ
Участник
Так открой диспетчер задач (Ctrl+Shift+Esc) и посмотри загрузку процессора на разных командах. Если свернуть это окно то оно сворачивается в трей, где визуально видно степень загрузки процессора даже не переключаясь в это окно
...
Рейтинг: 0 / 0
19.11.2007, 14:53
| Ответить | Цитировать | Написать  
задержка времени
    #34949111
beginner_fox
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
beginner_fox
Участник
ВладимирМТак открой диспетчер задач (Ctrl+Shift+Esc) и посмотри загрузку процессора на разных командах. Если свернуть это окно то оно сворачивается в трей, где визуально видно степень загрузки процессора даже не переключаясь в это окно

Всё так, диспетчер задач подтвердил. :-)
...
Рейтинг: 0 / 0
19.11.2007, 15:00
| Ответить | Цитировать | Написать  
задержка времени
    #34949647
fox_vik
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
fox_vik
Участник
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
PARAMETERS tnSec

LOCAL lnSecond

IF NOT TYPE("tnSec")=="N"
  RETURN 
ENDIF

lnSecond=SECONDS()
DO WHILE (SECONDS()-lnSecond)<tnSec
  DOEVENTS
ENDDO
...
Рейтинг: 0 / 0
19.11.2007, 17:06
| Ответить | Цитировать | Написать  
10 сообщений из 10, страница 1 из 1
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / задержка времени
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=41&msg=34949003&tid=1588517]:
 0ms
get settings:
 6ms
get forum list:
 15ms
check forum access:
 2ms
check topic access:
 2ms
track hit:
 51ms
get topic data:
 7ms
get forum data:
 2ms
get page messages:
 42ms
get tp. blocked users:
 1ms
others: 192ms
total:  320ms
созд. / загр.: 320ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]