Форум поддержки пользователей. LibreOffice, Apache OpenOffice, OpenOffice.org

Форум поддержки пользователей. LibreOffice, Apache OpenOffice, OpenOffice.org

15 Декабрь 2018, 14:35 *
Добро пожаловать, Гость. Пожалуйста, войдите или зарегистрируйтесь.
Вам не пришло письмо с кодом активации?

Войти
Новости: Здесь можно поблагодарить участников форума Улыбка
 
   Начало   Помощь Поиск Войти Регистрация    задать вопрос  
Страниц: « 1 2 3 »   Вниз
  Печать  
Автор Тема: Повторение звукового сигнала каждые 20 минут  (Прочитано 1615 раз)
0 Пользователей и 1 Гость смотрят эту тему.
Rafik
Форумчанин
***
Offline Offline

Сообщений: 73


« Ответ #15: 22 Ноябрь 2018, 13:10 »

Не будем зацикливаться на Beep, можно же запустить плеер с любой музыкой, например тяжелый рок, если не устраивает тихая спокойная музыка.
На моей хрюше достаточно подставить вместо бипа такую конструкцию: shell("C:\Program Files\Windows Media Player\wmplayer.exe c:\Музыка.mp3", 6)
На своей системе посмотри какая команда запускает музыку и подставь её вместо моего C:\Program Files\Windows Media Player\wmplayer  Музыку для будильника положи на корень диска с: или d:, чтобы проще было заменять надоевшую мелодию на новую.
Записан
OOKapitan
Форумчанин
***
Offline Offline

Сообщений: 401


« Ответ #16: 22 Ноябрь 2018, 13:33 »

А как остановить этот макрос?
Записан
Bigor
Опытный пользователь
***
Offline Offline

Пол: Мужской
Сообщений: 368


« Ответ #17: 22 Ноябрь 2018, 13:52 »

А как остановить этот макрос?
какой?
Записан
OOKapitan
Форумчанин
***
Offline Offline

Сообщений: 401


« Ответ #18: 22 Ноябрь 2018, 14:47 »

А как остановить этот макрос?
какой?
Шокирован Как это какой? Этот со звуком, из этой темы. Код:
Код:
sub Beep_1

For i=0 To 100       
wait 1230000     'каждую секунду*60 секунд*20,5 минут
beep             'производит системный звук (на Маке слышен щелчок)
Next

end sub
Как его выключить? А то пока 100 раз не отзвонит - не выключить его.
Записан
Bigor
Опытный пользователь
***
Offline Offline

Пол: Мужской
Сообщений: 368


« Ответ #19: 22 Ноябрь 2018, 14:51 »

Улыбка ты же сам так хотел:
Цитата:
запускаю макрос и с 10:25 каждые 20 минут включается звуковой сигнал так, чтобы я мог его сразу отключить?
так как сигнал только один бип, то отключать не надо, следующий только через 20 минут будет Улыбка

только 100 в цикле зря задал, в часу 3 интервала по 20 мин, т.е. он у тебя будет пикать 33 часа

а если в поиске набрать "таймер", то находим готовый вариант от rami с пуском стопом сбросом, остается туда только beep прикрутить
« Последнее редактирование: 22 Ноябрь 2018, 14:59 от Bigor » Записан
OOKapitan
Форумчанин
***
Offline Offline

Сообщений: 401


« Ответ #20: 22 Ноябрь 2018, 14:59 »

Улыбка ты же сам так хотел:
Цитата:
запускаю макрос и с 10:25 каждые 20 минут включается звуковой сигнал так, чтобы я мог его сразу отключить?
отключать не надо, следующий только через 20 минут будет Улыбка
Мне надо перезапустить его, чтобы сдвинуть отсчёт 20 минут. Т.е. Сейчас отсчёт идёт: 10:00; 10:20 и т.д. Мне понадобилось передвинуть его на такой: 10:05; 10:25 и т.д. Как мне это сделать? Я думал просто включить код и запустить его заново в 10:25. Но не могу выключить. Как быть?
Записан
rami
Гуру
*******
Offline Offline

Пол: Мужской
Сообщений: 2 615


MacBook Pro, LibreOffice и Apache OpenOffice


« Ответ #21: 22 Ноябрь 2018, 15:00 »

Как его выключить? А то пока 100 раз не отзвонит - не выключить его.
В редакторе макросов на панели инструментов есть кнопка "Остановить макрос"
Записан

Bigor
Опытный пользователь
***
Offline Offline

Пол: Мужской
Сообщений: 368


« Ответ #22: 22 Ноябрь 2018, 15:00 »

самое простое перезагрузи офис
Записан
OOKapitan
Форумчанин
***
Offline Offline

Сообщений: 401


« Ответ #23: 22 Ноябрь 2018, 15:08 »

Как его выключить? А то пока 100 раз не отзвонит - не выключить его.
В редакторе макросов на панели инструментов есть кнопка "Остановить макрос"
Есть, но нажатие на неё у меня ровным счётом ни на что не влияет. Она так и остаётся активной, а если попробовать закрыть редактор, то даже после нажатия на кнопку остановки он продолжает писать: "Нельзя закрыть окно редактора во время выполнения процедуры" (может не совсем дословно). Как быть?
Записан
Rafik
Форумчанин
***
Offline Offline

Сообщений: 73


« Ответ #24: 22 Ноябрь 2018, 15:20 »

Попробуй открыть работающий макрос на редактирование и, именно, в этом окне нажми на остановку макроса.
Записан
mikekaganski
Мастер
*****
Offline Offline

Пол: Мужской
Расположение: Хабаровск -> Москва
Сообщений: 1 162


« Ответ #25: 22 Ноябрь 2018, 15:30 »

Брейкпоинт на бипе?
Записан

С уважением,
Михаил Каганский
OOKapitan
Форумчанин
***
Offline Offline

Сообщений: 401


« Ответ #26: 22 Ноябрь 2018, 15:50 »

Брейкпоинт на бипе?
Не понял вопрос.
Записан
OOKapitan
Форумчанин
***
Offline Offline

Сообщений: 401


« Ответ #27: 22 Ноябрь 2018, 15:51 »

Попробуй открыть работающий макрос на редактирование и, именно, в этом окне нажми на остановку макроса.
Он всё-равно открывает все макросы и все модули. В Моих макросах макрос. Макрос в итоге отключается, но где-то спустя минут 10 после нажатия на кнопку остановки. А мне нужно, чтобы сразу. Как быть?
Записан
Bigor
Опытный пользователь
***
Offline Offline

Пол: Мужской
Сообщений: 368


« Ответ #28: 22 Ноябрь 2018, 15:59 »

Время остановки зависит в какой момент кнопка нажата, если в момент когда wait считает свои 20 минут, то скорее всего пока не посчитает - макрос не остановится ( ну если офис не перегружать Улыбка )
« Последнее редактирование: 22 Ноябрь 2018, 16:01 от Bigor » Записан
mikekaganski
Мастер
*****
Offline Offline

Пол: Мужской
Расположение: Хабаровск -> Москва
Сообщений: 1 162


« Ответ #29: 22 Ноябрь 2018, 16:02 »

Можно сделать цикл ожидания - wait 120 раз по 10 c
Записан

С уважением,
Михаил Каганский
Страниц: « 1 2 3 »   Вверх
  Печать  
 
Перейти в:  

Powered by MySQL Powered by PHP Powered by SMF 1.1.21 | SMF © 2006-2009, Simple Machines Valid XHTML 1.0! Valid CSS!