ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Программная задержка!
16 сообщений из 41, страница 2 из 2
  2  все
Программная задержка!
    #32297518
Фотография Владимир Саныч
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Владимир СанычПривилегированный пользователь
Модератор форума
А почему большой таймер запускается потом? TimerInterval где-то меняется в программе?

Впрочем, можно и по-другому:

1. В глобальной части модуля формы описываем переменную

Dim t As Single

2. На OnOpen пишем

t = Timer

3. В конце (или начале) большой процедуры таймера добавляем:

If Timer < t Then t = t - 24 * 3600
If Timer > t + 4 Then DoCmd.Close ...
...
Рейтинг: 0 / 0
18.10.2003, 18:13
| Ответить | Цитировать | Написать  
Программная задержка!
    #32297519
Фотография Нуф-нуф
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Нуф-нуф
Участник
Gyslik. А можешь на пальцах объяснить, что надо сделать?
Ну первое понятно - через 4 секунды после открытия формы закрыть ее.
А Что за "второй" таймер? Что он делает? Вот честно, всё-привсё перечитал
дважды и нифинга не понял... Наверно старость незаметно это... забыл... блин...

Кстати... Gyslik, это, конечно, не моё дело, но если ты не против дружеского совета, то почитай какую-нибудь литературу по поводу "Структурного программирования". У тебя на 40 строк кода 10 операторов "GoTo"! Это не есть хорошо... Честно... Данный оператор очень здорово усложняет чтение кода и расходует машинное время на какие-то ненужные переходы... на сколько я знаю... Профи умудряются обходиться без GoTo вообще! Я пока нет... Обязательно пользую его в... On Error :)
Но это так... Совет...
...
Рейтинг: 0 / 0
18.10.2003, 18:16
| Ответить | Цитировать | Написать  
Программная задержка!
    #32297538
вадя
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
вадя
Участник
посмотрел код программы....
долго старался понять...
плюнул...
думаю для нормальной работы программы нада делать не задержку, а
изменения кода, чтоб был один гоуто( in error)

советую Gyslik сделать работу над ошибками и предоставить код без гоуту!
...
Рейтинг: 0 / 0
18.10.2003, 19:23
| Ответить | Цитировать | Написать  
Программная задержка!
    #32297556
Фотография Gyslik.
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Gyslik.
Участник
Спасибо за советы, буду пытаться морально расти!
Второй таймер "гоняет" бегущую строку в форме.
Кстати не подскажите, как мне можно оптимизировать второй таймер, т.к. при его выполнении CPU зашкаливает, или может подскажите, как после закрытия формы скинуть цикл второго таймера, т.к. у меня есть подозрение, что после закрытия формы второй таймер продолжает "крутиться" (или я не прав - не знаю).
"Какую-нибудь литературу по поводу Структурного программирования" - с удовольствием почитаю, может быть что-нибудь порекомендуете.
:-)
...
Рейтинг: 0 / 0
18.10.2003, 20:15
| Ответить | Цитировать | Написать  
Программная задержка!
    #32297563
вадя
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
вадя
Участник
пройдись по сайтам
...
Рейтинг: 0 / 0
18.10.2003, 20:47
| Ответить | Цитировать | Написать  
Программная задержка!
    #32297569
Фотография Нуф-нуф
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Нуф-нуф
Участник
Ага... Ясно... В этом случае лично я сделал бы так:

1. В момент открытия формы получил бы (например функцией Time) и сохранил в переменной модуля значение текущего времени;
2. По таймеру, который используем для "гона" бегущей строки проверять не больше ли текущее время на 4 секунды того времени, которое мы сохранили при открытии формы. Если больше, то DoCmd.Close, если не больше, то просто выход из обработчика таймера до следующего срабатывания "таймера".
3. Собственно всё...


На счет зашкаливающего процессора... Дело не в самом таймере, а в коде, который выполняется по таймеру. Именно этот код (который, например у тебя "перерисовывает" в новой позиции текст) и загружает процессор. Если система в целом не становится неповоротливой, то забей - ничего страшного...
На счет "продолжает крутиться"... Не... При закрытии формы таймер "умирает".
На счет литературы... Это... Не помню уже что, где и как читал... Ничё посоветовать кроме... www.google.com.ru посоветовать не могу. Сорри

Удачев :)
...
Рейтинг: 0 / 0
18.10.2003, 21:03
| Ответить | Цитировать | Написать  
Программная задержка!
    #32297573
Фотография Gyslik.
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Gyslik.
Участник
2 Вадя: спасибо за ссылку, по сайтам прошелся.
2 Нуф-нуф: а Вы не могли бы в моем коде показать, что и как надо исправить. Не знаю, в чем дело, но когда я свою форму с таймером второй раз запускаю, то Access автоматически закрывается. (Первый раз запускаю - все нормально).
...
Рейтинг: 0 / 0
18.10.2003, 21:11
| Ответить | Цитировать | Написать  
Программная задержка!
    #32297576
Фотография Владимир Саныч
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Владимир СанычПривилегированный пользователь
Модератор форума
А мой совет от 18:13 подошел чи ни?
...
Рейтинг: 0 / 0
18.10.2003, 21:14
| Ответить | Цитировать | Написать  
Программная задержка!
    #32297580
вадя
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
вадя
Участник
я имел ввиду это
...
Рейтинг: 0 / 0
18.10.2003, 21:20
| Ответить | Цитировать | Написать  
Программная задержка!
    #32297585
Фотография Gyslik.
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Gyslik.
Участник
To ВС: Да спасибо, я примерно так и сделал.
To Вадя: я этот пример видел, но я сделал несколько по другому.
...
Рейтинг: 0 / 0
18.10.2003, 21:53
| Ответить | Цитировать | Написать  
Программная задержка!
    #32297588
Фотография Нуф-нуф
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Нуф-нуф
Участник
Что-нибудь вроде этого (заметь, построено по информации из данного топика! :)

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
Private dblOpenTime As Double

Private Sub Form_Open(Cancel As Integer)
  dblOpenTime = Now()
End Sub

Private Sub Form_Timer()
If Now() >= dblOpenTime + CDbl(CDate( "00 : 00 : 04 ")) Then DoCmd.Close
'Код, который "гонит" текст'
'Код, который "гонит" текст'
'Код, который "гонит" текст'
'Код, который "гонит" текст'
'Код, который "гонит" текст'
'тра-ля-ля-ля-ля-ля-ля
End Sub


Вставь это дело в форму, вместо "Код, который "гонит" текст" вставь свой код, убедись, что старые процедуры событий Open и Timer удалены ну и т.п.

На счет самовольного закрытия Акса не знаю... Где-то что-то сделал криво...
...
Рейтинг: 0 / 0
18.10.2003, 22:00
| Ответить | Цитировать | Написать  
Программная задержка!
    #32297593
Фотография Владимир Саныч
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Владимир СанычПривилегированный пользователь
Модератор форума
Нуф, а разве то, что ты предлагаешь, не монопенисуально тому, что уже сделано?
...
Рейтинг: 0 / 0
18.10.2003, 22:10
| Ответить | Цитировать | Написать  
Программная задержка!
    #32297595
Фотография Нуф-нуф
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Нуф-нуф
Участник
Саныч, если заработает, то нет, а если так и не заработает, то да :) //да сделать можно тремя десятками способов! Лишь бы за-ра-бо-та-ло
...
Рейтинг: 0 / 0
18.10.2003, 22:20
| Ответить | Цитировать | Написать  
Программная задержка!
    #32297599
Фотография Владимир Саныч
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Владимир СанычПривилегированный пользователь
Модератор форума
:^)
...
Рейтинг: 0 / 0
18.10.2003, 22:35
| Ответить | Цитировать | Написать  
Программная задержка!
    #32297617
Фотография Gyslik.
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Gyslik.
Участник
Всем большое спасибо!
Завтра еще подумаю, может чего хорошее и надумается!
...
Рейтинг: 0 / 0
19.10.2003, 01:08
| Ответить | Цитировать | Написать  
Программная задержка!
    #32297673
Фотография Нуф-нуф
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Нуф-нуф
Участник
Саныч, кажется ты был прав - абсолютно "монопенисуально" :)
...
Рейтинг: 0 / 0
19.10.2003, 11:18
| Ответить | Цитировать | Написать  
16 сообщений из 41, страница 2 из 2
  2  все
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Программная задержка!
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=45&msg=32297595&tid=1678791]:
 0ms
get settings:
 13ms
get forum list:
 15ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 66ms
get topic data:
 11ms
get forum data:
 3ms
get page messages:
 56ms
get tp. blocked users:
 2ms
others: 239ms
total:  411ms
созд. / загр.: 411ms
x
x
Закрыть


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