Модераторы: Akina

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Excel, текущее время и сигнал 
:(
    Опции темы
Trinitron
Дата 6.9.2006, 08:39 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 20
Регистрация: 31.8.2005

Репутация: нет
Всего: нет



Подскажите, как на листе Excel в определенные моменты времени (например, 9:00, 9:05, 9:12 и т.д.) организовать вывод звукового сигнала? Буду очень признателен за помощь.
PM MAIL   Вверх
~FoX~
Дата 6.9.2006, 09:14 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


НЕ рыжий!!!
****


Профиль
Группа: Участник Клуба
Сообщений: 2819
Регистрация: 8.10.2003
Где: Зеленоград

Репутация: 10
Всего: 68



Кроме таймера ничего в голову не приходит....
Вешйешь таймер, скажем на сикунду, и по таймеру сравниваешь текущее время с тем которое тебе надо, и если оно совпадает или больше выдаешь beep....
Тока ИМХО овчинка выделки не стоит....


--------------------
user posted image
…множественность никогда не следует полагать без необходимости…
PM MAIL WWW ICQ Jabber   Вверх
Romikgy
Дата 6.9.2006, 09:15 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Любитель-программер
****


Профиль
Группа: Участник Клуба
Сообщений: 7326
Регистрация: 11.5.2005
Где: Porto Franco Odes sa

Репутация: нет
Всего: 146



макрос напиши и будет те бикать 


--------------------
Владение русской орфографией это как владение кунг-фу — истинные мастера не применяют его без надобности. 
smile

PM   Вверх
ИгнатьевАлексей
Дата 6.9.2006, 09:22 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 369
Регистрация: 18.11.2005

Репутация: нет
Всего: 3



Смотри функции
Time() - текущее время
Beep - звуковой сигнал


--------------------
Vingrad - FOREVER !!! 

"Как вы яхту назовете - так она и поплывет!" 
 Капитан Врунгель 
PM MAIL   Вверх
Trinitron
Дата 6.9.2006, 09:29 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 20
Регистрация: 31.8.2005

Репутация: нет
Всего: нет



Спасибо откликнувшимся.
Только мне непонятно, как сделать, что бы эта проверка постоянно выполнялась? Ведь время-то движется. Макрос то можно сделать, а как сделать, что бы он постоянно работал и проверял условие по времени и выдавал сигнал?
PM MAIL   Вверх
mihanik
Дата 6.9.2006, 09:39 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


-=Белый Медведь=-
****


Профиль
Группа: Комодератор
Сообщений: 4054
Регистрация: 24.4.2006
Где: г. Тверь

Репутация: 11
Всего: 109



Ну-с, так вот что.
Таймер повесить...
На форме VB6 таймер повесить просто.
А вот в ехеле...

На ум пришло такое.

Создаём в книге модуль с макросом с именем auto_open.
И заставляем этот макрос работать до тех пор, пока 1 <> 2...  smile 

Код

' Эта переменная нам нужна для того, чтобы знать отсчитываем мы время, или нет...
Public blnTimerIsStarted As Boolean

Sub auto_open()

Dim lngTime As Long
Dim lngAlarmTime As Long
    
   lngAlarmTime =  <какое-то время, когда пикнуть надо.>

   Do  ' начинаем бесконечный цикл

    If blnTimerIsStarted Then ' проверяем, а стоит ли проверять время, т.е. "таймер" запущен или нет...

        lngTime = Time() ' Узнаём сколько сейчас времени
        
        If lngTime > lngAlarmTime Then ' Если подошло время пикать, то 
            Beep                                       ' Пикаем
            blnTimerIsStarted = False      ' Останавливаем таймер
        End If
  
    End If
  
   DoEvents ' В системе происходят и другие события, которые и обработаем...

   Loop Until 1 = 2

End Sub



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

Код

Private Sub CommandButton1_Click()
    blnTimerIsStarted = True               ' Запустили "таймер"
End Sub

Private Sub CommandButton2_Click()
    blnTimerIsStarted = False               ' Остановили "таймер"
End Sub


Код не проверял.
Даю только идею...



--------------------
Программистами не рождаются, - это родовая травма...
user posted imageuser posted image
PM MAIL WWW ICQ   Вверх
Trinitron
Дата 6.9.2006, 09:49 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 20
Регистрация: 31.8.2005

Репутация: нет
Всего: нет



Огромное спасибо, попробую
PM MAIL   Вверх
mihanik
Дата 6.9.2006, 10:01 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


-=Белый Медведь=-
****


Профиль
Группа: Комодератор
Сообщений: 4054
Регистрация: 24.4.2006
Где: г. Тверь

Репутация: 11
Всего: 109



Trinitron!

Надеюсь, ты понимаешь, что макрос auto_open начнёт работать сразу же, как только будет открыта книга ехеля?
(Это означает, что возможны некоторые тормоза...)
Кроме того т.к. этот макрос работает до тех пор, пока 1<>2, то он работает вечно!  smile
Т.е. до тех пор, пока книга не закроется, или пока ты не прервёшь его по какому-нибудь другому условию...

А теперь подумай: нужно ли тебе это?




--------------------
Программистами не рождаются, - это родовая травма...
user posted imageuser posted image
PM MAIL WWW ICQ   Вверх
Trinitron
Дата 6.9.2006, 10:47 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 20
Регистрация: 31.8.2005

Репутация: нет
Всего: нет



Цитата(mihanik @  6.9.2006,  10:01 Найти цитируемый пост)
А теперь подумай: нужно ли тебе это?

Спасибо, это лично мне не нужно, попросили реализовать такое именно на листе Excel
PM MAIL   Вверх
mihanik
Дата 6.9.2006, 10:52 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


-=Белый Медведь=-
****


Профиль
Группа: Комодератор
Сообщений: 4054
Регистрация: 24.4.2006
Где: г. Тверь

Репутация: 11
Всего: 109



Цитата(Trinitron @  6.9.2006,  10:47 Найти цитируемый пост)
 попросили реализовать такое именно на листе Excel 


Извращенцы!!!  smile  smile  smile 


--------------------
Программистами не рождаются, - это родовая травма...
user posted imageuser posted image
PM MAIL WWW ICQ   Вверх
Trinitron
Дата 6.9.2006, 11:04 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 20
Регистрация: 31.8.2005

Репутация: нет
Всего: нет



Точно
PM MAIL   Вверх
Akina
Дата 6.9.2006, 11:41 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Советчик
****


Профиль
Группа: Модератор
Сообщений: 20581
Регистрация: 8.4.2004
Где: Зеленоград

Репутация: 34
Всего: 454



Можно сделать форму с hidden=true, а на нее таймер. 


--------------------
 О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума.

PM MAIL WWW ICQ Jabber   Вверх
mihanik
Дата 6.9.2006, 11:53 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


-=Белый Медведь=-
****


Профиль
Группа: Комодератор
Сообщений: 4054
Регистрация: 24.4.2006
Где: г. Тверь

Репутация: 11
Всего: 109



Akina, я сначала тоже так хотел, но покопался и не нашёл таймера в ехеле...
Мож плохо искал...
Если наёдёшь, подскажи! 


--------------------
Программистами не рождаются, - это родовая травма...
user posted imageuser posted image
PM MAIL WWW ICQ   Вверх
Trinitron
Дата 6.9.2006, 12:12 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 20
Регистрация: 31.8.2005

Репутация: нет
Всего: нет



Там его я тоже не нашел.
Реализовал, как предложил mihanik, только сделал массив времени на листе, когда надо выводить сигнал, всё работает, спасибо огромное mihanik, выручил.
PM MAIL   Вверх
Дмит
Дата 7.9.2006, 00:02 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 117
Регистрация: 21.4.2006
Где: г.Волгоград

Репутация: 1
Всего: 9



Ну ребята вы и извращенцы.

При старте: Application.OnTime TimeValue("09:00:00"), "my_Procedure"

и в 9:00 выполнится процедура "my_Procedure", в которой конечно же Beep.
PM MAIL WWW   Вверх
Ответ в темуСоздание новой темы Создание опроса
Правила форума "VB6"
Akina

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по VB обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • Используйте теги [code=vb][/code] для подсветки кода. Используйтe чекбокс "транслит" (возле кнопок кодов) если у Вас нет русских шрифтов.


Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Akina.

 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | VB6 | Следующая тема »


 




[ Время генерации скрипта: 0.0766 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.