Выполнение процедуры по времени / FoxPro, Visual FoxPro

ReSQL.ru

Мобильная версия Контакт Правила FAQ Помощь

Гость

Войти | Регистрация | Профиль | Очистить

Новые сообщения | Избранное

Форумы | Пользователи | Статистика | Мод. лог | Поиск

Цитировать

Написать

Автор*:

Ввести пароль для входа

Тема*:

Сообщение

Данное сообщение тематическое

Сообщение содержит картинки или видео 18+

Автор:

ВНИМАНИЕ! На данном подфоруме действуют строгие правила. Удостоверьтесь, что ваше сообщение соответствует им!

Форум или тема закрыты для гостей. Необходима авторизация!

Загрузить последнюю сохраненную версию

Вложение:

Вставить как галерею

Максимальный размер вложений: 4,0 МБ, аудио/видео: 8,0 МБ. Картинки большего размера ужимаются, если возможно.

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

Отправляя сообщение, я выражаю свое согласие с правилами форума и принимаю пользовательское соглашение.

Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр

Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Выполнение процедуры по времени

6 сообщений из 6, страница 1 из 1

Выполнение процедуры по времени

#36676926

q1w1e1

Участник

Откуда: Кы-рск

Сообщения: 1 051

Рейтинг: 0 / 0

Есть программа, обычная(линейка верхнего меню и куча разных форм), надо например в 17 часов выполнить определённую процедуру(My_proc), в какой точке программы находится пользователь неизвестно. Может кто сталкивался с этим, и вообще возможно ли это?

...

Рейтинг:

0 / 0

09.06.2010, 08:10

| Ответить | Цитировать | Написать

Выполнение процедуры по времени

#36676943

asdor

Участник

Откуда: Москва

Сообщения: 514

Рейтинг: 0 / 0

q1w1e1,
В приложении вешаешь таймер. Не привязаный к формам.
И там с нужной точностью проверяешь текущее время.
В нужный момент, запускаешь необходимую процедуру.
Точность конечно не высокая.

...

Рейтинг:

0 / 0

09.06.2010, 08:49

| Ответить | Цитировать | Написать

Выполнение процедуры по времени

#36676966

q1w1e1

Участник

Откуда: Кы-рск

Сообщения: 1 051

Рейтинг: 0 / 0

Как это сделать конкретно, где в приложении это надо повесить?, например есть
main.prg
DO programs\BEGIN
PUBLс .......
STORE "" TO ........
DO programs\definemenu
READ EVENTS
SET SYSMENU TO DEFAULT
RETURN

BEGIN.prg

SET ESCAPE OFF
SET DEBUG OFF
SET ECHO OFF
.....
ON KEY LABEL F1

definemenu.prg

SET SYSMENU OFF
* переопределяем системное меню VFP
DEFINE MENU _MSYSMENU BAR IN SCREEN
* определяем горизонтальную строчку меню
DEFINE PAD..........
SET SYSMENU AUTOMATIC
RETURN

...

Рейтинг:

0 / 0

09.06.2010, 09:04

| Ответить | Цитировать | Написать

Выполнение процедуры по времени

#36676998

прошелмимо

Участник

Откуда: Из Курска понаехал

Сообщения: 10 249

Рейтинг: 0 / 0

q1w1e1Есть программа, обычная(линейка верхнего меню и куча разных форм), надо например в 17 часов выполнить определённую процедуру(My_proc), в какой точке программы находится пользователь неизвестно. Может кто сталкивался с этим, и вообще возможно ли это?

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

...

Рейтинг:

0 / 0

09.06.2010, 09:16

| Ответить | Цитировать | Написать

Выполнение процедуры по времени

#36677065

q1w1e1

Участник

Откуда: Кы-рск

Сообщения: 1 051

Рейтинг: 0 / 0

Спасибо, про диспетчер совсем забыл :-)

...

Рейтинг:

0 / 0

09.06.2010, 09:44

| Ответить | Цитировать | Написать

Выполнение процедуры по времени

#36681988

SindoMeon

Участник

Откуда: Из библиотеки

Сообщения: 659

Рейтинг: 0 / 0

Вариант с таймером (мой):
внутри main.prg вешается следующее

Код: plaintext

_screen.AddObject('Timer_1', 'tmr_NY_timer')

в том же main`е делается класс таймера

Код: plaintext

1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.

DEFINE CLASS tmr_NY_timer as Timer
	Interval =  1000 
	Enabled = .T.
	
	PROCEDURE Timer
	 ld_CurrentDate = DATE()
	 lt_CurrentTime = DATETIME()
	 ld_NewYear = DATE(YEAR(ld_CurrentDate) +  1 ,  1 ,  1 )
	 
	 ls_NewYear = SPACE( 20 ) + 'До Нового ' ;
	 				+ ALLTRIM(STR(YEAR(ld_CurrentDate) +  1 )) + ' года: ' ;
	 				+ ALLTRIM(STR(ld_NewYear - ld_CurrentDate -  1 )) + ' дн ' ;
	 				+ ALLTRIM(STR( 23  - HOUR(lt_CurrentTime))) + ' час ' ;
	 				+ ALLTRIM(STR( 59  - MINUTE(lt_CurrentTime))) + ' мин ' ;
	 				+ ALLTRIM(STR( 59  - SEC(lt_CurrentTime))) + ' сек '
	 				
	 this.Parent.Caption = gs_Caption + ls_NewYear
ENDDEFINE

компилируем, запускаем, и наслаждаемся таймером отсчёта времени до Нового Года )

...

Рейтинг:

0 / 0

11.06.2010, 09:21

| Ответить | Цитировать | Написать

6 сообщений из 6, страница 1 из 1

Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Выполнение процедуры по времени

Читали тему (0):

Читали форум (0):

Пользователи онлайн (0):

start [/forum/topic.php?fid=41&tid=1585201]:	0ms
get settings:	9ms
get forum list:	13ms
check forum access:	5ms
check topic access:	5ms
track hit:	45ms
get topic data:	12ms
get forum data:	2ms
get page messages:	42ms
get tp. blocked users:	2ms
others:	12ms

total:	147ms