Форум Программирование Внешние компоненты и работа с оборудованием (ВК)

Альтернативная реализация функции Сигнал(Beep)

Конфигурации 1cv8 Платформа 1С v8.3

0. Avalanche 195 30.05.12 16:18 Сейчас в теме

Реализация функции Beep, она же Сигнал. Позволяет задавать частоту и длительность сигнала.

Перейти к публикации

Комментарии

В избранное Подписаться на ответы

Свернуть все

1. Abadonna 3884 30.05.12 20:13 Сейчас в теме

WinAPI BOOL Beep(DWORD dwFreq,DWORD dwDuration) предназначена для вывода звука через системный динамик.
В современных компьютерах он наличествует далеко не всегда (хоть внешний, хоть встроенный на материнской плате).
А в терминальном режиме кто будет слушать писк динамика на сервере? Уборщица в серверной?

2. Dnki 4 11.06.12 22:45 Сейчас в теме

А! динамик.. Я надеялся найти для звуковых файлов. Та, что я пользуюсь, сбоит в терминале.

3. Avalanche 195 18.06.12 09:48 Сейчас в теме

(2) Dnki, если вы хотите проигрывать звуковые файлы, то можно подключить ActiveX mediaplayer. Или вам нужно что бы это делала именно ВК?)

4. Dnki 4 19.06.12 23:37 Сейчас в теме

(3) Да, как говорится, попалась под руку ВК (Miracle) - использовал. Благо знаю как.
А Activ пока не употреблял. Это пример надо поискать.

5. Serg3141 10 21.05.15 15:12 Сейчас в теме

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

6. RinGo 91 08.12.16 08:38 Сейчас в теме

Добрый день, Сергей! Прочитал Ваш комент к beeper.dll - "еле нашел подходящую мне компоненту. Нужно сигнал выводить именно на спикер. Спасибо за разработку..." ==> просьба: не могли бы Вы скинуть ее мне в личку? Ну не у меня этих монетов(sm), а очень нуно юзеров звуком предупреждать!... Заранее благодарен!

(5)

9. ivisor_fil 10 08.04.17 16:25 Сейчас в теме

(6)
Искал себе как сделать звуковую индикацию ошибочного ввода в 1с через спикер (потому как может не быть колонок, или выключен звук, или использоваться схема без звука)

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

Процедура глБиип(КолЗвуков=0)
    Если КолЗвуков=0 Тогда Возврат; КонецЕсли;
    
    Shell = Новый COMОбъект("WScript.Shell");
    Команда = "%comspec% /c @echo ";
    Для Ном = 1 по КолЗвуков Цикл
        Команда = Команда + Символ(7);
    КонецЦикла;
    Shell.Run(Команда,0,0);
КонецПроцедуры

Показать

7. agent00mouse 214 20.12.16 21:54 Сейчас в теме

В терминале на работает. Грусть.

8. ivisor_fil 10 08.04.17 16:17 Сейчас в теме

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

Вот посылка звукового сигнала на спикер:

Процедура глБиип(КолЗвуков=0)
	Если КолЗвуков=0 Тогда Возврат; КонецЕсли;
	
	Shell = Новый COMОбъект("WScript.Shell");
	Команда = "%comspec% /c @echo ";
	Для Ном = 1 по КолЗвуков Цикл
		Команда = Команда + Символ(7);
	КонецЦикла;
	Shell.Run(Команда,0,0);
КонецПроцедуры

Показать

10. agent00mouse 214 09.04.17 10:51 Сейчас в теме

Хочется звук иметь асинхронно. сказал компьютеру: - пищи. и дальше своими делами занимаешься, особенно актуально при работе со сканером ШК.

и немного лирики.:

По загадочным причинам, в сфере вычислительной техники слово «асинхронный» означает «синхронный». Например, «асинхронный запрос» — это когда синхронно (т. е. одновременно) с ним может выполняться другой. А вот если синхронность в выполнении отсутствует, и запросы выполняются последовательно друг за другом, то их с какого-то бодуна называют «синхронными».

стырено из интернета.

11. SONICUS 21.05.18 16:37 Сейчас в теме

Не работает ваша библиотека. Зря потраченые мани.Пробовали на семерке и десятки. А если она работает только на ХР, то и без этой библиотеки там нормально работает.

Оставьте свое сообщение

E-mail:

Вопросы с вознаграждением

Лицензии на сервер Centos 7 (6) 0.37 $m Admin v8 8.3.14 Linux	6	26.02.2021 TVA_11
Помогите добавить в запрос поле с выборкой со счета 90.03 (7) 0.87 $m Dev	7	26.02.2021 Shecurok
Почему 27 счёт не попадает в поле счёт учёта ? (27) 0.27 $m Dev БГУ	27	26.02.2021 Terabaytus
Необходимо в вузе разработать информационную систему для отчетности преподавателей по выполнению научных показателей (32) 2 $m Управление персоналом Обучение, бизнес-тренинг, курсы Автоматизация Аналитика УУ	32	26.02.2021 delta
Помогите, пожалуйста, разобраться с выводом среднего в отчёте СКД (6) 0.43 $m Dev УТ11 v8 ИТ-компания 1С Программист	6	26.02.2021 user1500067
УТ 10.3 изменяет количетсво товара в чеке ККМ при продаже БезПередачиТовара (9) 0.4 $m Dev	9	26.02.2021 andrey7617
Ошибка СУБД при входе в базу 1С (37) 0.55 $m Admin СУБД PostgreSQL	37	25.02.2021 dimonas
Работа с файлами на мобильном клиенте (8) 0.3 $m MobileDev v8::Mobile	8	24.02.2021 irlandets1980
Грейды программистов 1с (25) 10 $m Общие вопросы управления	25	24.02.2021 maguga
MDF SQL ищу битый файл для теста DataNumen SQL Recovery (10) 1 $m Utils	10	22.02.2021 XAKEP
Как получить значение имея НавигационнуюСсылку к полю (2) 0.25 $m Dev	2	21.02.2021 AlexxSys
Мобильный клиент. Android. Обрезает строку ввода от сканера (3) 0.35 $m MobileDev	3	21.02.2021 gamletspb
Не приходит письмо от apple после ввода карты для оплаты. (10) 5 $m MobileDev	10	20.02.2021 maksa2005
Прикрепленная подпись и БСП. Возможно ли? (10) 1 $m БСП 8.3.14	10	20.02.2021 mat skywalker
заглушка на запуск (управляемое приложение) (7) 1 $m Dev	7	19.02.2021 morrex
Сложный расчет ЗП в бухгалтерии (Нужен совет по реализации) (12) 2 $m Зарплата БП3.0 v8	12	19.02.2021 Dilovar9
Добавление "регистра сведений" на форму справочника (7) 0.53 $m Dev v8	7	19.02.2021 user824140
Перетаскивание в списке справочника (3) 0.15 $m Dev	3	18.02.2021 user1292093
загрузка базы из dt (60) 2 $m Admin	60	18.02.2021 doctorov_s
Списание задолженности в валюте управленческого учета (5) 1 $m Финансы УТ11	5	18.02.2021 gmtv