Таймер. Включить - Отключить

@VinniPuh · Регистрация: 27.03.2013

Author24 — интернет-сервис помощи студентам

Всем Доброго дня и хороших послепраздников!!!
Подскажите люди добрые, как Включить / Отключить Таймер, нажимая на нужную кнопку? (см. пример и картинку)
В идеале конечно хотелось бы, что бы таймер
- оставался в нужном состоянии всё время, пока открыта БД
или пока ты не изменил сам осознано,
а не в зависимости от записи, на которой в данный момент нахожусь.
Но это наверное невыполнимо, соответственно и не нужно сильно мозг морщить.

mobile · 09.03.2019, 08:44

Выключить таймер:

Visual Basic

1	me.timerinterval=0

Включить таймер:

Visual Basic

1	me.timerinterval=1000 'Количество миллисекунд цикла таймера. Целое положительное значение, не нуль.

@Панург · 09.03.2019, 08:44

Сообщение от VinniPuh

как Включить / Отключить Таймер, нажимая на нужную кнопку?

Visual Basic

Private Sub Button_Click()
    if me.TimerInterval then
        me.TimerInterval=0
    Else
        me.TimerInterval=1000
    End if
End Sub

@VinniPuh · 09.03.2019, 11:25 **[ТС]**

Панург, Ага, кажись то что нужно.

Спасибо.
Правда Группу кнопок на Кнопку похоже придется заменить, но тут уж наверное я и сам смогу

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

Добавлено через 2 часа 30 минут
Тостер - Пух протестировал и докладывает.
Если на кнопке прописать процедуру, как предложил - Панург, то только отключает, но не включает.
Так и пришлось оставить группу кнопок и прописать такие процедуры:

На текущей записи

Visual Basic

Private Sub Form_Current()
  DoCmd.RunCommand acCmdRefresh
    Me.[Код_Даты].Requery
  If (Me.[ГрСтатусТаймера] = 1) Then
     Me.TimerInterval = 1000
  End If
  If (Me.[ГрСтатусТаймера] = 2) Then
     Me.TimerInterval = 0
  End If
End Sub

и на рамочке группы кнопок после обновления:

Visual Basic

Private Sub ГрСтатусТаймера_AfterUpdate()
  If (Me.[ГрСтатусТаймера] = 1) Then
     Me.TimerInterval = 1000
  End If
  If (Me.[ГрСтатусТаймера] = 2) Then
     Me.TimerInterval = 0
  End If
End Sub

@Панург · 09.03.2019, 18:11

Сообщение от VinniPuh

Тостер - Пух протестировал и докладывает.
Если на кнопке прописать процедуру, как предложил - Панург, то только отключает, но не включает.

руки у тебя конечно золотые и не имеет значения откуда они растут

@VinniPuh · 09.03.2019, 18:28 **[ТС]**

Панург, Хорошо бы еще пример посмотреть от твоей "бриллиантовой руки".

А то у меня старенький форматик - mdb и примерчик не открылся.

mobile · 09.03.2019, 21:14

Сообщение от VinniPuh

Хорошо бы еще пример посмотреть от твоей "бриллиантовой руки".
А то у меня старенький форматик - mdb и примерчик не открылся.

Я хоть и не Панург, но преобразовать могу. Держи

@VinniPuh · 09.03.2019, 21:19 **[ТС]**

mobile, спасибо, но я уже спать лег и комп отключил.
Завтра посмотрю.

Добавлено через 1 минуту
Буду спать, не солоно хлебавши.

@Eugene-LS · 11.03.2019, 08:39

Сообщение от VinniPuh

Буду спать, не солоно хлебавши.

Ну если "Будильник" - тогда с каким интервалом ?
Интервал в минуту должен подойти, TimerInterval = 60000 (in milliseconds).
Дальше проверяем:
Время установки будильника >= Текущее время при локальной переменной БудильникВключен = True
После сработки и спроса у пользователя ставим TimerInterval = 0 + БудильникВключен = Off
... такие вот мысли.

Добавлено через 8 минут
VinniPuh... При загрузке формы опрашиваем будильник - если ОН есть свойства устанавливаем.
Когда "Будильник" уже сработал - отмечаем это в БД.

@VinniPuh · 11.03.2019, 08:42 **[ТС]**

Eugene-LS, спасибо, но у меня пока до будильника руки не дошли.
Это я просто с заделом на будущее, типа про запас сделал.
А то вдруг потом не захочется или того больше - Забуду, ибо память то уже девичья, в небесах и мечтах постоянно летаю.

@VinniPuh · 11.03.2019, 12:05 **[ТС]**

Не по теме:

Эх, побрюзжать что ли?

Панург, а как в вашем примере, в надписи, в которой отображается отчет секунд, сделать так, что бы не просто секунды отображались, а часы и минуты, ибо как то уж, не очень удобно будет потом на пальцах или там счетах пересчитывать?

@Eugene-LS · 11.03.2019, 12:35

Не по теме:

VinniPuh, https://www.youtube.com/watch?... EGz7VfNvMM

Добавлено через 13 минут

Не по теме:

VinniPuh, ДоБавочка;
https://www.youtube.com/watch?v=EIxsPBbZ_b8

Добавлено через 5 минут
VinniPuh, не стоит.

@VinniPuh 9108 / 6037 / 590 Регистрация: 27.03.2013 Сообщений: 19,813
	09.03.2019, 18:28 [ТС]	6
	Панург, Хорошо бы еще пример посмотреть от твоей "бриллиантовой руки". А то у меня старенький форматик - mdb и примерчик не открылся. 0

@VinniPuh 9108 / 6037 / 590 Регистрация: 27.03.2013 Сообщений: 19,813
	09.03.2019, 21:19 [ТС]	8
	mobile, спасибо, но я уже спать лег и комп отключил. Завтра посмотрю. Добавлено через 1 минуту Буду спать, не солоно хлебавши. 0

@Eugene-LS 10745 / 5585 / 1411 Регистрация: 05.10.2016 Сообщений: 15,796
	11.03.2019, 08:39	9
	Сообщение от VinniPuh Буду спать, не солоно хлебавши. Ну если "Будильник" - тогда с каким интервалом ? Интервал в минуту должен подойти, TimerInterval = 60000 (in milliseconds). Дальше проверяем: Время установки будильника >= Текущее время при локальной переменной БудильникВключен = True После сработки и спроса у пользователя ставим TimerInterval = 0 + БудильникВключен = Off ... такие вот мысли. Добавлено через 8 минут VinniPuh... При загрузке формы опрашиваем будильник - если ОН есть свойства устанавливаем. Когда "Будильник" уже сработал - отмечаем это в БД. 1

@VinniPuh 9108 / 6037 / 590 Регистрация: 27.03.2013 Сообщений: 19,813
	11.03.2019, 08:42 [ТС]	10
	Eugene-LS, спасибо, но у меня пока до будильника руки не дошли. Это я просто с заделом на будущее, типа про запас сделал. А то вдруг потом не захочется или того больше - Забуду, ибо память то уже девичья, в небесах и мечтах постоянно летаю. 0

@VinniPuh 9108 / 6037 / 590 Регистрация: 27.03.2013 Сообщений: 19,813
	11.03.2019, 12:05 [ТС]	11
	Не по теме: Эх, побрюзжать что ли? Панург, а как в вашем примере, в надписи, в которой отображается отчет секунд, сделать так, что бы не просто секунды отображались, а часы и минуты, ибо как то уж, не очень удобно будет потом на пальцах или там счетах пересчитывать? Миниатюры 0

@Eugene-LS 10745 / 5585 / 1411 Регистрация: 05.10.2016 Сообщений: 15,796
	11.03.2019, 12:35	12
	Не по теме: VinniPuh, https://www.youtube.com/watch?... EGz7VfNvMM Добавлено через 13 минут Не по теме: VinniPuh, ДоБавочка; https://www.youtube.com/watch?v=EIxsPBbZ_b8 Добавлено через 5 минут VinniPuh, не стоит. 0