Альтернативная реализация функции Сигнал(Beep)
Комментарии
В избранное
Подписаться на ответы
Сортировка:
Древо развёрнутое
Свернуть все
WinAPI BOOL Beep(DWORD dwFreq,DWORD dwDuration) предназначена для вывода звука через системный динамик.
В современных компьютерах он наличествует далеко не всегда (хоть внешний, хоть встроенный на материнской плате).
А в терминальном режиме кто будет слушать писк динамика на сервере? Уборщица в серверной?
В современных компьютерах он наличествует далеко не всегда (хоть внешний, хоть встроенный на материнской плате).
А в терминальном режиме кто будет слушать писк динамика на сервере? Уборщица в серверной?
Добрый день, Сергей! Прочитал Ваш комент к beeper.dll - "еле нашел подходящую мне компоненту. Нужно сигнал выводить именно на спикер. Спасибо за разработку..." ==> просьба: не могли бы Вы скинуть ее мне в личку? Ну не у меня этих монетов(sm), а очень нуно юзеров звуком предупреждать!... Заранее благодарен!
(5)
(5)
(6)
Искал себе как сделать звуковую индикацию ошибочного ввода в 1с через спикер (потому как может не быть колонок, или выключен звук, или использоваться схема без звука)
Вот в итоге получиась такая небольшая процедурина:
Искал себе как сделать звуковую индикацию ошибочного ввода в 1с через спикер (потому как может не быть колонок, или выключен звук, или использоваться схема без звука)
Вот в итоге получиась такая небольшая процедурина:
Процедура глБиип(КолЗвуков=0)
Если КолЗвуков=0 Тогда Возврат; КонецЕсли;
Shell = Новый COMОбъект("WScript.Shell");
Команда = "%comspec% /c @echo ";
Для Ном = 1 по КолЗвуков Цикл
Команда = Команда + Символ(7);
КонецЦикла;
Shell.Run(Команда,0,0);
КонецПроцедуры
Показать
Искал себе как сделать звуковую индикацию ошибочного ввода в 1с через спикер (потому как может не быть колонок, или выключен звук, или использоваться схема без звука)
Вот посылка звукового сигнала на спикер:
Вот посылка звукового сигнала на спикер:
Процедура глБиип(КолЗвуков=0)
Если КолЗвуков=0 Тогда Возврат; КонецЕсли;
Shell = Новый COMОбъект("WScript.Shell");
Команда = "%comspec% /c @echo ";
Для Ном = 1 по КолЗвуков Цикл
Команда = Команда + Символ(7);
КонецЦикла;
Shell.Run(Команда,0,0);
КонецПроцедуры Показать
Хочется звук иметь асинхронно. сказал компьютеру: - пищи. и дальше своими делами занимаешься, особенно актуально при работе со сканером ШК.
и немного лирики.:
По загадочным причинам, в сфере вычислительной техники слово «асинхронный» означает «синхронный». Например, «асинхронный запрос» — это когда синхронно (т. е. одновременно) с ним может выполняться другой. А вот если синхронность в выполнении отсутствует, и запросы выполняются последовательно друг за другом, то их с какого-то бодуна называют «синхронными».
стырено из интернета.
и немного лирики.:
По загадочным причинам, в сфере вычислительной техники слово «асинхронный» означает «синхронный». Например, «асинхронный запрос» — это когда синхронно (т. е. одновременно) с ним может выполняться другой. А вот если синхронность в выполнении отсутствует, и запросы выполняются последовательно друг за другом, то их с какого-то бодуна называют «синхронными».
стырено из интернета.