Как сделать таймер обратного отсчета в excel?

30 07 2015      Дмитрий Воробьев       17 комментариев

Приветствую вас, дорогие друзья, на моем блоге! В этой статье хочу вам рассказать о такой полезной штуке, как таймер обратного отсчета времени. Его можно легко сгенерировать в онлайне, чтобы установить на своем сайте или продающей странице. Также в статье вы найдете подробный видеоурок.

• На самом деле таких бесплатных сервисов по созданию счетчиков несколько и в следующих статьях я обязательно расскажу о некоторых из них, но сегодня речь пойдет о онлайн-генераторе MegaTimer.
• Почему именно этот сервис так привлек мое внимание?
• Ну, во-первых, у него достаточно гибкие настройки, которые подойдут для большинства сайтов.
• Во-вторых, цветовая палитра также очень разнообразна, да и сами счетчики подчас выглядят очень эффектно и необычно.
• В-третьих, сервис настолько прост, что сгенерировать таймер обратного отсчета времени может абсолютно любой человек, даже не имеющий навыков работы с кодом.

Итак, давайте приступим. Для начала зайдем на MegaTimer.

1. Вот ссылочка: MegaTimer.ru
2. На главной странице вы можете выбрать основные настройки для будущего счетчика, а именно: цвет фона и формат времени, отметив галочками соответствующие пункты: дни, часы, минуты и секунды.
3. Прямо по центру страницы будет отображаться ваш таймер в том виде, как он будет выглядеть и на вашем сайте, все изменения будут отображаться мгновенно при регулировке настроек.
4. 

Чуть ниже отображаются вкладки-шаги настройки таймера. Можно выбрать его тип, далее дизайн, дополнительные параметры и получить код в завершении. Чтобы переключаться между вкладками можно либо нажимать левой кнопкой мыши на нужную вкладку, либо нажать кнопку «Следующий шаг» внизу страницы.

На первом шаге выбираем тип таймера из нескольких вариантов:

1. до определенной даты, здесь же выставляем конец отсчета

1. на промежуток времени, выбрав начало отсчета либо с момента первого посещения клиентом вашего сайта или прямо сейчас, чтобы отсчет пошел именно с момента открытия странички

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

• 
• Кроме того, для таймеров до определенной даты и циклического типа можно выбрать вариант местного времени для пользователя, либо привязать счетчик к какому-либо часовому поясу.
• 
• 
• Во вкладке «Дизайн» вы можете выбрать счетчик наиболее подходящий по внешнему виду для вашего сайта, для этого можете воспользоваться фильтрами, либо просто выбрать понравившийся таймер, нажав на него левой кнопкой мыши.
• 

На вкладке «Настройки» можете отрегулировать цвета цифр и фона, толщину линий, тип шрифтов, размеры. Стоит обратить внимание, что для каждого варианта дизайна набор настроек может отличаться.

После установки всех параметров переходим в заключительную вкладку «Получить код». Теперь вам достаточно выделить строчку с сгенерированным кодом и скопировать ее, нажав правую кнопку мыши и выбрав команду «копировать».

1. 
2. Теперь вы можете вставить полученный код к себе на сайт, страницу захвата или продающий лендинг.
3. После небольших манипуляций у меня получился вот такой таймер обратного отсчета времени:
4. Все свой действия по созданию этого счетчика я пошагово показал вот в этом видеоуроке:

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

Как всегда, в комментариях к статье жду ваших отзывов, понравилась ли статья и видео. До встречи в следующих статьях на страничках Блога Вебмастера!

Спасибо, что поделились статьей в социальных сетях!

Источник: http://blog-webmastera.ru/ustanavlivaem-tajmer-obratnogo-otscheta-vremeni/

sitesaid.ru

В Visual Basic существует элемент управления, который обрабатывает данные системных часов. Этот объект называется таймером.

Его можно использовать для выполнения определенных действий через заданный интервал времени. Для размещения в форме таймера используется кнопка Timer (Таймер) на панели элементов управления формы.

Объект данного типа обладает следующими свойствами:

Свойство	Назначение
Interval (Интервал)	Интервал активизации объекта в миллисекундах. Может принимать значение от 0 до 64767 (от 0 до 64,8 секунды)
Enabled .(Доступно)	Устанавливает режим работы таймера. Если значение свойства равно True (Истина), то таймер начинает отсчитывать время сразу же после запуска формы. В противном случае вы должны запустить таймер по какому-либо внешнему событию (например, при нажатии на кнопку). Установка для свойства значения False приостанавливает операции таймера

Событие Timer (Таймер) объекта-таймера наступает через каждый установленный в свойстве interval промежуток времени. В процедуре обработки данного события необходимо определить действия, выполняемые с заданной частотой.

Для запуска таймера можно использовать метод Reset (Установить).

Этот метод не связан с каким-либо событием, поэтому вы должны выполнить его при наступлении каких-либо других событий, например при нажатии на кнопку запуска таймера.

Использование таймера

Использование объекта-таймера рассмотрим на примере формы, в которой через заданный интервал времени на экран будет выводиться системное время компьютера. Для создания данной формы выполните следующие действия: 1. Откройте окно для создания нового проекта. 2. Поместите в форму метку для отображения текущего системного времени.

Создайте пояснительную надпись к метке. 3. Для создания объекта-таймера нажмите кнопку Timer (Таймер) на панели элементов управления и расположите его в форме. Размещенный в форме элемент управления Timer изображается в виде значка, показанного на рисунке ниже.

При запуске формы на выполнение он становится невидимым пользователю приложения.

4. Определите интервал времени, через который необходимо производить обновление времени в форме. Для этого воспользуйтесь свойством interval, значение которого задается в миллисекундах. Для обновления времени каждую секунду введите значение 1000. 5.

Откройте окно редактора кода и создайте простую процедуру, присваивающую свойству caption метки текущее время: Private Sub Timer1_Timer() Label1.Caption = Time End Sub 6. Сохраните созданную форму и запустите ее на выполнение. Вид формы с часами.

• 
• 
• 
• 
• 
• 
• 
• 

Источник: https://sitesaid.ru/VB/vb%20time.html

Таймер в PowerPoint

Иногда суть вашей презентации такова, что появляется необходимость в слайды вставить таймер обратного отсчета. Применения могут быть разные. Например, вы готовите викторину в формате Microsoft PowerPoint.

Или у вас проходит презентация плана проекта или какого-то технического решения, а на определённом этапе презентации у вас есть выделенный блок на вопросы / ответы, лимитированный по времени. В таком случае не лишним было бы визуализировать для аудитории оставшееся время этой секции.

В данной статье рассмотрим несколько способов реализации таймера обратного отсчета. Выделю 2 основных способа:

• Таймер обратного отсчёта, выполненный стандартными средствами анимации, имеющимися в PowerPoint
• Готовый таймер обратного отсчёта – надстройка для офисных приложений Microsoft

в начало

Таймер обратного отсчёта, выполненный стандартными средствами анимации, имеющимися в PowerPoint

Допустим вы подготовили викторину, решили выполнить ее в поверпоинт, стоит вопрос, как же лимитировать время на обдумывание для участников, и визуализировать таймер. Самый простой способ – это воспользоваться средствами настройки анимации. Инструкция и поясняющие картинки приводятся для версии PowerPoint 2013.

Сначала определимся с концепцией. Допустим выделенное время на обдумывание – минута.

• На слайде разместим кнопку, по нажатию на которую будет запущена вся последующая анимация
• После нажатия на кнопку, сама кнопка пропадает
• Одновременно появляется временная шкала
• Вместе с появлением временной шкалы начинает работать прогресс бар
• После завершения 55-секунд, временная шкала пропадает, прогресс бар пропадает
• Появляется таймер обратного отсчета типа 5 -> 4 -> 3 -> 2 -> 1 -> 0, каждую смену цифры будем сопровождать сопровождать короткими «бипами», при окончании работы таймера (появление 0) воспроизведем длинный гудок.

Результат вы можете посмотеть тут:

Обратите внимание на еще одну реализацию таймера

в начало

Создание и форматирование элементов концепции

Кнопка запуска анимации

Создаем простое текстовое поле, форматируем как нам нравится, пишем что-то внутри, например Старт.

Временная шкала

Создаем 6 текстовых полей с записями 0, 10, 20, 30, 40, 50, 60. Примем, что ряд времени длительностью в минуту будет располагаться на отрезке длиной 24 сантиметра.Расположим все текстовые поля из. п.1. так, чтобы они занимали всю длину отрезка в 24 см.

Проще всего расположить текстовые поля 0 – в начале отрезка, 60 в его конце. Все остальные — примерно раскидать в промежутке (можно особо не беспокоиться о расстоянии).

Далее нужно выделить весь ряд, на вкладке ФОРМАТ, найти функцию Выровнять, и сделать выравнивание по верхнему краю и распределить по горизонтали.

Ограничитель шкалы и прогресс бар

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

Внутри прямоугольника создадим другой прямоугольник, с не закрашенными границами, но с заливкой, это прямоугольник будет как раз символизировать прогресс бар, в дальнейшем мы ему сделаем анимацию, которая за 55 секунд увеличит его ширину от 0 до максимума. Нужно определить целевую ширину, т.к. мы приняли «ширину минуты» 24 см, ширина «55 секунд» будет равна 24/60*55=22 см. Выставим такую ширину для прогресс бара.

• Далее надо собрать текстовый ряд и два прямоугольника в комплект, у меня получилось следующее:
• 
• 0 и 60 не очень нужны, мы их использовали, чтобы равномерно распределить по шкале другие цифры

Таймер обратного отсчета

Нам понадобится круг, и 6 одинаково отформатированных цифр. После настройки анимации, все цифры надо будет собрать на одно позиции в центре круга. Для удобства настройки анимации, это можно будет сделать после.

в начало

Настройка анимации

Начинаем с прогресс бара. Меню АНИМАЦИЯ, кнопка Добавить анимацию, тип анимации – Появление.

После добавления надо выставить параметры:

• Параметры эффектов: ‘Слева направо’
• Триггер: “По щелчку”, выбрать текстовое поле (кнопку)
• Длительность: 55 секунд

1. В итоге прямоугольник начнет постепенно появляться из левой своей стороны после нажатия на кнопку «Старт» в течении 55 секунд.
2. 
3. Для остальных элементов прогресс бара – каймы и тестовых меток количества секунд добавим анимацию (выбрав эти элементы и нажав кнопку Добавить анимацию) “Возникновение” с параметрами:

• Начало: с предыдущим
• Длительность: авто
• Задержка: 0

Для кнопки добавим анимацию с эффектом «Выцветание»:

• Запускать: вместе с предыдущим
• Длительность: 2 секунды

Далее уберем весь прогресс бар, вместе со всеми прямоугольниками и текстовыми метками после того как пройдет 55 секунд (таймер прогресс бара). Для этого выбираем все объекты, жмем кнопку Добавить анимацию:

• Тип: Исчезновение
• Начало: с предыдущим
• Задержка: 0

Переходим к настройке анимации для счетчика обратного отсчета. Настройки для круга:

• Тип: вход – часовая стрелка
• Начало: с предыдущим
• Задержка: 0
• Продолжительность: 1 c
• Повторение: 6

Для чисел будут две настроенные анимации сначала с типом «появление», потом сразу за ним с типом «исчезновение» для того же числа.

Число Появление Исчезновение

5	Начало: с предыдущим Длительность: 0.25 сек Задержка: 0 сек Звук: короткий сигнал	Начало: с предыдущим Длительность: 0.01 сек Задержка: 1 сек
4	Начало: с предыдущим Длительность: 0.25 сек Задержка: 1 сек Звук: короткий сигнал	Начало: с предыдущим Длительность: 0.01 сек Задержка: 2 сек
3	Начало: с предыдущим Длительность: 0.25 сек Задержка: 2 сек Звук: короткий сигнал	Начало: с предыдущим Длительность: 0.01 сек Задержка: 3 сек
2	Начало: с предыдущим Длительность: 0.25 сек Задержка: 3 сек Звук: короткий сигнал	Начало: с предыдущим Длительность: 0.01 сек Задержка: 4 сек
1	Начало: с предыдущим Длительность: 0.25 сек Задержка: 4 сек Звук: короткий сигнал	Начало: с предыдущим Длительность: 0.01 сек Задержка: 5 сек
	Начало: с предыдущим Длительность: 0.25 сек Задержка: 5 сек Звук: длинный гудок

В итоге у вас должна получиться примерно такая структура:

Размещаем таймер обратного отсчета в нужном месте. Запускаем слайд в режиме демонстрации (shift + F5) и проверяем как все работает.

Файл скачать можно тут

Еще один готовый таймер обратного отсчета для презентаций доступен до данной ссылке.

в начало

Готовые таймеры, приложения их магазина «Приложения для Office»

На момент написания статьи в официальном магазине, где можно скачать или приобрести различные надстройки к программам Mictrosoft Office, есть несколько реализаций обратного таймера.

Чтобы попасть в магазин из программы PowerPoint, нужно пройти в на вкладку ВСТАВКА панели быстрого доступа. Ссылки в магазин и каталог уже скачанных надстроек – в одноименной секции.

Для того, чтобы установить расширение, нужно получить учетную запись Майкрософт.

Slice Timer

Из всех имеющихся приложений, Slice Timer является бесплатным. Вероятнее всего, софт бесплатен, т.к.

производитель после выпуска сразу потерял к нему интерес, в настоящее время имеется только один релиз продукта, выпущенный в 2014 году. Приложение требует Office 2013 с sp1 или выше.

Есть баг – счетчик запускается только в режиме редактирования слайда, в режиме показа презентации почему-то триггер старта не работает. Тем не менее краткий обзор:

После подгрузки на слайде виден экран конфигурации, где можно выставить длительность времени обратного отсчета и тыкнуть в чекбокс Auto start (у меня дальнейшее поведение счетчика после выбора чекбокса и без него ничем не отличается, поэтому зачем чекбокс нужен сказать не могу).

Другая доступная пользовательская настройка – это геометрия счетчика, остальное хардкод. Ниже приведены несколько скриншотов работы счетчика в разных фазах, как видно ближе к концу действия «пирог» с пройденным временем перекрашивается из зеленого в желтый и затем в красный.

PP Timer

За использование просят денег (в сентябре 2018 – 540 рублей). Вроде по описанию что-то может, есть аналоговый и цифровой циферблат. Предлагают две недели на ознакомление. Но, чтобы воспользоваться этими двумя неделями, нужно внести данные карточки, решил не делать. Посмотрите обзор и решите для себя обзор PP Timer . На официальном сайте ругают за баги и не подобающий саппорт

в начало

Источник: https://nice-slides.ru/powerpoint/lessons/animation/kak-sdelat-taymer-v-prezentacii

Тест-драйв: 4 сервиса для создания таймера обратного отсчета

Одна из проверенных стратегий, которая стимулирует к целевому действию и повышает продажи — таймер обратного отсчета. Мы подобрали 4 сервиса для создания такого счетчика, протестировали функционал и готовы поделиться плюсами и минусами каждого.

Зачем в рассылке таймер обратного отсчета

Создает чувство срочности

Таймер, секунды которого стремительно тикают в обратном направлении, создает чувство срочности и ощущение дефицита времени.

Призывает к немедленному действию

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

Привлекает внимание

Цифры на счетчике меняются в непрерывном режиме — динамическое действие на фоне статичного контента письма цепляет глаз.

Чтобы не осталось сомнений: Selligent и Lynda провели исследование. Выяснилось, что рассылка с таймером приносит 10-процентное увеличение конверсий и 33-процентний рост переходов по сравнению с обычным письмом.

Начинаем тестировать.

Мы создадим таймер, который будет считать оставшееся время до Нового года. Так что задаем одну и ту же дату окончания события  — 31 декабря.

MotionMail

Сервис предназначен исключительно для создания таймеров. Регистрация занимает считанные секунды — кроме имени, фамилии и адреса электронной почты больше ничего не требуется.

В сервисе доступно 4 тарифа:

• Free — полностью бесплатный;
• Bootstrap подходит для маленьких компаний и стоит $10 в месяц;
• Startup с платой $60 в месяц для начинающих предпринимателей,
• Enterprise за $200 в месяц — вариант для крупного бизнеса.

В бесплатном тарифе предусмотрено 20 000 кредитов в месяц. Один кредит — один просмотр созданного счетчика. Как только пользователь открывает письмо с таймером — минус кредит. Если один и тот же пользователь открывает письмо, скажем, 5 раз, — минус 5 кредитов со счета. Как оказалось, превью письма с таймером в сервисе рассылок, тоже считается просмотром.

Если у вас остались неиспользованные кредиты за месяц, в тарифе Free и Bootstrap они сгорят, а в тарифах Startup и Enterprise перейдут на следующий месяц. Если кредиты закончились, предусмотрена дополнительная плата за просмотры свыше установленного максимума. Но эта функция доступна только на платных тарифах. Цена за один просмотр варьируется от $0.0001 до $0.000085.

В бесплатной версии под таймером отображается водяной знак компании, но фон и надписи можно подобрать так, что копирайт станет еле заметным. В платном тарифе водяной знак отключается.

Пользователь бесплатного тарифа может установить только один язык таймера для всего списка рассылки. В платных тарифах язык меняется автоматически в зависимости от языка браузера получателя — вы выбираете язык по умолчанию, а остальное делает система.

Интерфейс удобный и понятный, но доступен только на английском языке. Есть 4 разных дизайна. Для таймера можно задать фон, изменить цвет и размер шрифта. Код можно редактировать. Доступен предварительный просмотр таймера, который вы создали.

Чтобы сгенерировать таймер в этом сервисе, глубоких технических знаний не требуется. Достаточно прописать параметры и вставить полученный код в шаблон письма. Респонсивности можно добиться с помощью атрибута со стилевыми свойствами: style=»width:100%; height:auto;».

Понравившийся вариант счетчика отображается в плохом качестве: отчетливо видны все пиксели вне зависимости от размера. Особенно это заметно, когда вставляешь код в шаблон письма. Попытка узнать, связано ли это с бесплатным тарифом, или неправильными настройками, не принесла результатов. В FAQ ответа на этот вопрос нет, а блог компания не ведет.

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

Sendtric

Сервис специализируется на таймерах обратного отсчета. Плюс в том, что он абсолютно бесплатный. Единственный доступный язык интерфейса — английский, но это не сказывается на простоте в использовании. Все настройки интуитивные и понятные.

Регистрироваться не нужно. Достаточно ввести email, выбрать часовой пояс, затем дату и время события, до которого таймер будет отсчитывать время. Счетчик устанавливается не более чем на 30 дней.

Он работает 60-90 секунд, а затем возвращается к началу цикла — времени, которое отображалось при открытии письма.

Вариантов дизайна нет, но есть возможность выбрать цвет фона, текста и самого таймера. Нажимаем кнопку «Generate» и получаем код.

Редактировать код на сайте нельзя, поэтому копируем его в буфер обмена и вставляем в нужный блок шаблона письма. Не забываем про атрибут style с соответствующими значениями width и height, чтобы размер таймера менялся автоматически. Что примечательно — водяной знак под счетчиком отсутствует.

Бета-версия Pro находится в разработке. На сайте сервиса указано, что она останется полностью бесплатной. Неограниченное количество просмотров и созданных таймеров сохранится. В Pro версии будет расширенный редактор с возможностью подогнать размер, изменить фон или загрузить свой собственный. Появится превью и архив созданных таймеров, которые можно будет изменять.

Niftyimages

Сервис предназначен для создания персонализированных изображений, таймеров обратного отсчета и ленты социальных сетей в реальном времени для email кампаний. Есть FAQ для каждой категории услуг, компания ведет блог.

В сервисе доступны следующие тарифы:

• Starter для начинающих. За $20 в месяц вы получаете 50 000 просмотров. Подписка на год стоит $192.
• Pro для продвинутых пользователей. 250 000 просмотров за $80 в месяц или $768 за подписку на год.
• Enterprise для больших компаний. 1 миллион просмотров за $250 в месяц, но подписка на год не предусмотрена.

Есть бесплатная пробная версия, в которой доступно 10 тысяч просмотров — ее мы и будем тестировать.

Первое, что стоит отметить, сервис отнимает просмотры по факту — если получатель увидел таймер, а не просто открыл email. Интерфейс англоязычный, русского адаптированного перевода нет. В пробной версии доступно 6 разных дизайнов.

Настройки удобные. В панели слева сначала выбираем базовые параметры: устанавливаем дату события и время, задаем часовой пояс. После этого настраиваем шрифты. Вариантов много. Указываем нужный размер, цвет шрифта и фона. Цвет надписей и цифр тоже меняется. В конце выбираем язык таймера и при необходимости загружаем собственный фон.

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

Мы обратили внимание, что дни, минуты и секунды указаны в родительном падеже, а часы — в именительном. Поэтому, чтобы избежать разнобоя в склонении, надписи под цифрам лучше убрать.

Теги, значения и атрибуты кода на сайте редактировать нельзя. Поэтому копируем его, вписываем нужные значения и вставляем конечный вариант кода в шаблон письма.

proTimer

Русскоязычный сервис. Чтобы попробовать демо версию, нужно указать имя и электронную почту.

Через несколько секунд на почту приходит ссылка на публичный аккаунт в сервисе proTimer, где вы можете самостоятельно протестировать функционал платформы и разобраться, как добавить таймер в рассылку.

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

Сервис предоставляет два тарифных плана:

• Эконом: за 48 рублей пользователь получает 1 таймер в месяц. Сколько таймеров используете — столько раз по 48 рублей и заплатите. В тарифе доступно 15 вариантов дизайна.
• Безлимитный: за 199 рублей в месяц. Единственное отличие от эконом-тарифа — неограниченное  количество таймеров. За указанную сумму вы можете использовать хоть 2 таймера, хоть 20.

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

Во вкладке «Как считать» указываем дату завершения акции и выбираем время.

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

Предварительный просмотр результата отображается в каждой вкладке. В блоке «Как отображать» достаточно много настроек. Превью не помещается в окне и таймер пропадает из поля зрения. Чтобы увидеть, как меняется счетчик, приходится каждый раз прокруткой спускаться вниз страницы. Это не очень удобно.

Источник: https://sendpulse.com/ru/blog/countdown-timers

Как в VBA сделать секундомер и вывести информацию о текущем времени — Трюки и приемы в Microsoft Excel

Перейдем теперь к следующей, уже более сложной разработке. Итак, на рабочем листе необходимо создать интерфейс, показанный на рис. 1.37.

Здесь обозначения Часы, Минуты и Секунды представляют элементы управления «Надпись» и являются просто поясняющими надписями рядом с соответствующими текстовыми окнами, в которые выводится информация о времени. Вывод этих сведений инициирует щелчок на кнопке Отобразить время.

Фактически таким образом мы реализуем на рабочем листе вариант электронных часов. Фрагмент Секундомер (это слово набрано просто в ячейке на листе) позволяет в тех же окнах реализовать функции секундомера. Работа секундомера запускается по нажатию кнопки Старт.

В этом случае текстовое окно для отображения текущего часа очищается, а информация в окнах, отводимых для минут и секунд, начинает обновляться.

Если пользователю требуется остановить отсчет времени, то он должен щелкнуть на кнопке Стоп, после чего обновление времени останавливается. В табл. 1.1 указаны имена и тины объектов, расположенных на рис. 1.37.

Таблица 1.1. Имена объектов на рис.1.37

Свойство Name
Тип объекта
Комментарий

Th	Текстовое окно	Для вывода текущего часа
Tm	Текстовое окно	Для вывода минут
Ts	Текстовое окно	Для вывода секунд
Vrema	Кнопка	Caption — Отобразить время
Start	Кнопка	Caption — Старт
StopSec	Кнопка	Caption — Стоп

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

Рис. 1.37. Реализация часов и секундомера

В редакторе Visual Basic существует общая область, где можно описывать переменные (рис. 1.38), которые должны быть известны внутри нескольких процедур. Строка программы в окне, представленном на рис. 1.38, означает следующее:

• Dim определить (это ключевое слово Visual Basic);
• Flag имя переменной;
• As Integer определение данной переменной как целого числа (значениями переменной могут быть только целые числа).

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

Рис. 1.38. Определение переменной в общей области

После такого вступительного комментария можно привести процедуру обработки щелчка на кнопке Отобразить время (листинг 1.18).

1 2 3 4 5 6 7 8 9 10

' Листинг 1.18. Процедура, выполняемая по щелчку на кнопке Отобразить время Private Sub Vrema_Click() Flag = 0 While Flag = 0 Th.Text = Format(Now(), «hh») Tm.Text = Format(Now(), «nn») Ts.Text = Format(Now(), «ss») DoEvents Wend End Sub

' Листинг 1.18. Процедура, выполняемая по щелчку на кнопке Отобразить время
Private Sub Vrema_Click()
Flag = 0
While Flag = 0 Th.Text = Format(Now(), «hh») Tm.Text = Format(Now(), «nn») Ts.Text = Format(Now(), «ss») DoEvents
Wend
End Sub

Теперь разберем строки этой процедуры. Во-первых, здесь используется оператор цикла, который начинается со строки While Flag = 0 и заканчивается строкой Wend.

После ключевого слова While располагается условие, и если оно выполняется, то выполняются все строки программы вплоть до Wend. Затем управление опять передается на строку While, и если условие вновь выполняется, то все повторяется.

Если же условие не выполняется, то управление передается на первую строку после Wend.

В свою очередь, другая внутренняя функция, Format, позволяет задать определенный формат для выводимой информации. Если нам необходимо выделить только текущий час, то в качестве второго аргумента функции Format мы должны задать «hh».

Соответственно в следующих двух строках из текущего времени выделяются минуты и секунды.

Далее по тексту располагается внутренняя процедура Visual Basic DoEvents, которая позволяет переключаться из выполняемого программного кода на обработку других событий. В данном случае нам необходимо по щелчку на кнопке Стоп установить значение переменной Flag в 1, что реализуется в процедуре, приведенной в листинге 1.19.

1 2 3 4

' Листинг 1.19. Процедура обработки щелчка на кнопке Стоп Private Sub StopSec_Click() Flag = 1 End Sub

' Листинг 1.19. Процедура обработки щелчка на кнопке Стоп
Private Sub StopSec_Click()
Flag = 1
End Sub

Таким образом, мы обеспечили вывод текущего времени и его остановку. Что касается остановки, то она скорее требуется для секундомера. И теперь наша задача заключается в реализации его функциональности. В листинге 1.20 приведена процедура, которая выполняется по щелчку на кнопке Старт, что позволяет включить секундомер.

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26

' Листинг 1.20. Обработка щелчка на кнопке Старт Private Sub Start_Click() Th.Text = «» Tm.Text = 0 Ts.Text = 0 Flag В = 0 ' Получение значения секунд Sec = Format(Now(), «ss») ' В переменной Shet организуем счетчик Shet = 0 While Flag = 0 Sec2 = Format(Now(), «ss») If Sec Sec2 Then ' При изменении секунд Shet = Shet + 1 Sec = Sec2 ' Получение минут ChetMins = Shet 60 ' Выделение секунд ChetSecs = Shet — ChetMins * 60 Tm.Text = ChetMins Ts.Text = ChetSecs End If DoEvents Wend End Sub

' Листинг 1.20. Обработка щелчка на кнопке Старт
Private Sub Start_Click()
Th.Text = «»
Tm.Text = 0
Ts.

Text = 0
Flag В = 0
' Получение значения секунд
Sec = Format(Now(), «ss»)
' В переменной Shet организуем счетчик
Shet = 0
While Flag = 0 Sec2 = Format(Now(), «ss») If Sec Sec2 Then ' При изменении секунд Shet = Shet + 1 Sec = Sec2 ' Получение минут ChetMins = Shet 60 ' Выделение секунд ChetSecs = Shet — ChetMins * 60 Tm.Text = ChetMins Ts.Text = ChetSecs End If DoEvents
Wend
End Sub

Здесь мы использовали операцию целочисленного деления () для получения числа прошедших минут. Программа для работы секундомера готова, и на рис. 1.39 показан результат ее работы.

Рис. 1.39. Пример работы секундомера

Познакомимся на практике в рамках данного примера со свойством, которое определяет доступ к элементам управления. Как мы уже знаем, у элементов управления имеется свойство Enabled. Когда для этого свойства установлено значение True, доступ к данному элементу разрешен, а в противном случае (при значении False) доступ запрещен.

Изменим предыдущую разработку следующим образом. В окне свойств для кнопок Старт и Отобразить время значение свойства Enabled установим True, а для кнопки Стоп в качестве значения этого свойства выберем False.

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

21 показана модифицированная процедура обработки щелчка па кнопке Стоп, которая затрагивает свойства двух кнопок, относящихся к секундомеру.

1 2 3 4 5 6 7

' Листинг 1.21. Модифицированная процедура, ' выполняемая по щелчку на кнопке Стоп Private Sub StopSec_Click() Flag = 1 StopSec.Enabled = False Start.Enabled = True End Sub

' Листинг 1.21. Модифицированная процедура, ' выполняемая по щелчку на кнопке Стоп
Private Sub StopSec_Click()
Flag = 1
StopSec.Enabled = False
Start.Enabled = True
End Sub

Также требуются небольшие изменения в процедуре обработки щелчка на кнопке Старт. Ее текст представлен в листинге 1.22.

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24

' Листинг 1.22. Измененная процедура, ' выполняемая по щелчку на кнопке Старт Private Sub Start_Click() Th.Text = «» Tm.Text = 0 Ts.Text = 0 Flag = 0 Sec = Format(Now(), «ss») Shet = 0 StopSec.Enabled = True Start.Enabled = False While Flag = 0 Sec2 = Format(Now(), «ss») If Sec Sec2 Then Shet = Shet + 1 Sec = Sec2 ChetMins = Shet 60 ChetSecs = Shet — ChetMins * 60 Tm.Text = ChetMins Ts.Text = ChetSecs End If DoEvents Wend End Sub

' Листинг 1.22. Измененная процедура, ' выполняемая по щелчку на кнопке Старт
Private Sub Start_Click()
Th.Text = «»
Tm.Text = 0
Ts.Text = 0
Flag = 0
Sec = Format(Now(), «ss»)
Shet = 0
StopSec.

Enabled = True
Start.Enabled = False
While Flag = 0 Sec2 = Format(Now(), «ss») If Sec Sec2 Then Shet = Shet + 1 Sec = Sec2 ChetMins = Shet 60 ChetSecs = Shet — ChetMins * 60 Tm.Text = ChetMins Ts.

Text = ChetSecs End If DoEvents
Wend
End Sub

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

Необходимые сведения по VBA будут приводиться здесь и в последующих статьях в процессе рассмотрения разработок, поэтому явной необходимости в использовании дополнительной справочной информации нет.

С другой стороны, было бы очень хорошо, если бы читатель познакомился с известными книгами по рассматриваемой теме.

Источник: http://excelexpert.ru/kak-v-vba-sdelat-sekundomer-i-vyvesti-informaciyu-o-tekushhem-vremeni

VBA Excel. Функция Timer (примеры)

Применение функции Timer в VBA Excel для приостановки выполнения приложений и тестирования кодов на время исполнения. Примеры использования.

1. Описание функции Timer
2. Примеры использования в VBA Excel

Описание функции Timer

Timer – это функция без аргументов, которая возвращает количество секунд, прошедших после полночи. Значение типа Single.

На сайте разработчика сказано, что в Windows функция Timer возвращает дробные части секунды. О порядке дробной части там информации нет.

Попробуем выяснить это сами, запустив в редакторе VBA Excel подпрограмму со строкой
MsgBox «Timer = » & Timer:

Исходя из результата, отображенного в информационном окне MsgBox, будем считать, что функция Timer возвращает сотые доли секунды. Во время экспериментов с процедурой Vremya из Примера 2 результат вычисления разницы между двумя значениями функции Timer достигал шести знаков после запятой, и один раз – семи.

Примеры использования в VBA Excel

Пример 1
Присвоение значения функции Timer переменной:

Dim x As Single
x = Timer

Пример 2
Код VBA Excel для приостановки приложений:

Dim Start As Single, Pause As Single
Start = Timer
Pause = 0.5
Do While Timer < Start + Pause DoEvents Loop

• Start – переменная, в которую записывается первоначальное значение таймера.
• Pause – время в секундах (до сотых значений), на которое следует приостановить программу.

Функция DoEvents во время выполнения цикла передает управление операционной системе для обработки других событий. По рекомендации разработчиков не следует использовать DoEvents в тех случаях, когда

• приостановленная процедура может быть запущена повторно из другой части вашего кода;
• другие приложения могут обратиться к приостановленной процедуре.

Код для приостановки приложений можно использовать как отдельную подпрограмму, вставляя ее имя с указанием интервала в нужные места других процедур:

Sub StopSub(Pause As Single)
Dim Start As Single
Start = Timer
Do While Timer < Start + Pause DoEvents Loop End Sub

Проверяем работоспособность подпрограммы StopSub:

Sub Vremya()
Dim x As Single
x = Timer
Call StopSub (3)
MsgBox Timer — x
End Sub

• Точный или почти точный результат будет только при использовании в качестве аргумента целых секунд, в том числе и в примере кода, предложенного разработчиком.
• Такой способ приостановки приложений можно использовать в VBA Excel при создании бегущей строки.
• Пример 3
  Функцию Timer можно использовать для замера времени выполнения процедуры. Мы ее уже использовали для определения времени выполнения подпрограммы StopSub:

Sub Vremya()
Dim x As Single
x = Timer
Call MySub
MsgBox Timer — x
End Sub

Замените MySub на имя вашей процедуры и запустите код в редакторе VBA Excel. Информационное окно MsgBox покажет время выполнения подпрограммы.

Источник: https://vremya-ne-zhdet.ru/vba-excel/funktsiya-timer/

Бесплатный таймер обратного отсчета для сайта онлайн

Мы разработали МеgaTimer, новый бесплатный таймер обратного отсчета онлайн с функциями зацикливания и отложенного запуска. Благодаря данным настройкам, счетчик может автоматически обнуляться каждый день.

Мегатаймер – это простой онлайн-сервис, не требующий знания программирования и сложной настройки. Мы максимально упростили интерфейс, используя бегунки и переключатели, чтобы вы смогли настраивать таймер для своего сайта очень гибко. Изменение размеров, шрифтов, типов и форматов – позволяет сделать полностью кастомизированный счетчик обратного отсчета для своего сайта бесплатно.

Счетчик обратного отсчета на сайт

Счетчик обратного отсчета позволяет повысить конверсию вашего сайта или landing page. Используя таймер обратного отсчета, можно гибко выстроить коммуникацию с вашими пользователями. Рассмотрим основные типы таймера обратного отсчета:

Счетчик до определенной даты:

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

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

Счетчик на промежуток времени:

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

Зацикленный таймер:

Один из самых популярных (и наиболее востребованных) типов счетчика обратного отсчета. Каждый день, таймер может перезапускаться с определенной периодичностью в нужное время. Можно настроить счетчик на локальное время пользователя, либо жестко задать часовой пояс.

Данный вид таймеров используется для перезапуска акций на самые популярные товары. Например «Успейте сегодня купить сайт по акции со скидкой 40%».

Вставка скрипта обратного отсчета

Вы сможете легко установить скрипт обратного отсчета Megatimer. Теперь нет необходимости искать Javascript и jquery таймер обратного отсчета, так как счетчик легко устанавливается через html вставку таймера. Html код счетчика генерируется на сервисе и его нужно просто вставить на сам сайт.

Обратная связь

Если у вас есть предложения по улучшению качества сервиса или по функционалу таймера – пишите на почту support@lpmotor.

ru Если вы уже используете наш таймер обратного отсчета на своем сайте – напишите нам о вашем сайте и расскажите, как вы используете функционал счетчика.

Лучшие истории будут попадать в раздел «Примеры использования», где вы сможете прорекламировать свою деятельность и свой сайт полностью бесплатно.

Web-благотворительность

Источник: https://megatimer.ru/