Как воспроизвести 2-3 разных звука

☑

0 uno-group

31.05.16

✎

17:39

Как воспроизвести 2-3 разных звука. Сигнал() почти подходит
еще бы его тональность менять.

1 uno-group

31.05.16

✎

17:40

7,7

2 Звездец

31.05.16

✎

17:41

Внешний плеер

3 uno-group

31.05.16

✎

17:43

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

4 YFedor

31.05.16

✎

17:43

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

5 uno-group

31.05.16

✎

17:47

реально частенько ставят с интервалом в секунду сам Сигнал()
почти столько же звучит. играть 3 если больше тупо не дождутся 2 услышали поставили следующую.

6 YFedor

31.05.16

✎

17:49

Для ы = 1 по 100 Цикл
Сигнал()
КонецЦикла;

послушай

7 uno-group

31.05.16

✎

17:53

Послушал что 100 что 1000 что 10 звук один. что в звуковой схеме править?

8 uno-group

31.05.16

✎

17:56

сигнал воспроизводит из звуковой схемы звук "Звездочка". как его менять из 1с?

9 Злопчинский

31.05.16

✎

17:57

Формекс.
я им пользуюсь - проигрывает вав-файлы. у меня с ТСД говорит при успешном прохождении операции глосом: "Размещено". Если проверка успешно прошла - положительный звук. У ларечника - сортировочное место расфасовки бооольшой поставки по точкам - там голосом говорить в какой ящик кинуть (один, два, пять, семь, один) - пипл на экран даже не смотрит.

так и у тебя можно "норма", или АТАС!! МНОГО!!!

10 Злопчинский

31.05.16

✎

17:58

или всякие просто сигналы - можешь на ИС посмотреть "Простой Пропускной Пункт"

11 Пикчер

31.05.16

✎

17:59

(9) шухер омон тоже?

12 uno-group

31.05.16

✎

18:02

Где в Формекс смотреть что то с ходу не вижу в синтаксическом помошнике

13 uno-group

31.05.16

✎

18:09

(10) С ИС не дружу можешь кусок кода выложить или мыльнуть.
Ник@yandex.ru

14 Злопчинский

01.06.16

✎

20:45

(12) объект "Сервис"

15 Tatitutu

01.06.16

✎

21:15

https://yadi.sk/d/vJmgqzd3sBhSD
Размер: 326 КБ

Описание
Лучший подарок для бухгалтера - счёты 8.2 (со звуком)
http://catalog.mista.ru/public/85155/

16 Злопчинский

01.06.16

✎

21:29

(15) ты в магазьку впилил все что надо для егаиса?

17 arsik

гуру

01.06.16

✎

22:01

Зачем формекс. Можно штатными средствами винды воспроизводить вафки. У меня так сделано. Пример завтра скину.

18 Злопчинский

02.06.16

✎

00:30

(17) можно. но скинь завтра

19 arsik

гуру

02.06.16

✎

08:08

Вот вариант для 8ки.
Для семерки то же самое практически только нужно вместо
Новый COMObject("SAPI.SpFileStream");
Новый COMObject("SAPI.SpVoice");

СоздатьОбъект("SAPI.SpFileStream");
СоздатьОбъект("SAPI.SpVoice");

Процедура Позвонить(ВидЗвука) Экспорт

    ФайлЗвука = локСтрЗвуки[ВидЗвука];
    если ЗначениеЗаполнено(ФайлЗвука) Тогда
        Попытка
            локЗвук.Open(ФайлЗвука);
            локДрайверЗвука.SpeakStream(локЗвук);
            локЗвук.Close();
            Возврат;
        Исключение
            ИнициироватьКомпоненты();
        КонецПопытки;

        //Слетает указатель (видимо при реконектах РДП). Для решения переинициализируем интерфейс звука

        Попытка
            локЗвук.Open(ФайлЗвука);
            локДрайверЗвука.SpeakStream(локЗвук);
            локЗвук.Close();
        Исключение
            //ЗаписьЖурналаРегистрации("РабочееМесто:Звук",УровеньЖурналаРегистрации.Ошибка,,,ОписаниеОшибки());
        КонецПопытки;
    КонецЕсли;
КонецПроцедуры

Процедура ИнициироватьКомпоненты()
    Попытка    локЗвук.Close() исключение    КонецПопытки;
    локЗвук = Неопределено;
    локЗвук = Новый COMObject("SAPI.SpFileStream");

    локДрайверЗвука = Неопределено;
    локДрайверЗвука = Новый COMObject("SAPI.SpVoice");
КонецПроцедуры

Процедура ПодключитьЗвуки() Экспорт

    ИнициироватьКомпоненты();

    локКаталогЗвуков = КаталогВременныхФайлов()+"Song1C";
    файлКаталогЗвуков = Новый Файл(локКаталогЗвуков);
    Если не файлКаталогЗвуков.Существует() Тогда
        СоздатьКаталог(локКаталогЗвуков);
    КонецЕсли;


    локСтрЗвуки = Новый Структура("НеНайденТовар,НеНайденШтрихКод,НуженРучнойВвод,Внимание",
        локКаталогЗвуков+"\НеНайденТовар.wav",
        локКаталогЗвуков+"\НеНайденШтрихКод.wav",
        локКаталогЗвуков+"\НуженРучнойВвод.wav",
        локКаталогЗвуков+"\Внимание.wav");

    врФайл = Новый Файл(локСтрЗвуки.НеНайденТовар);
    Если не врФайл.Существует() Тогда
        ДвоичныеДанные=ПолучитьМакет("НеНайденТовар");
        ДвоичныеДанные.Записать(локСтрЗвуки.НеНайденТовар);
    КонецЕсли;
    врФайл = Новый Файл(локСтрЗвуки.НеНайденШтрихКод);
    Если не врФайл.Существует() Тогда
        ДвоичныеДанные=ПолучитьМакет("НеНайденШтрихКод");
        ДвоичныеДанные.Записать(локСтрЗвуки.НеНайденШтрихКод);
    КонецЕсли;
    врФайл = Новый Файл(локСтрЗвуки.НуженРучнойВвод);
    Если не врФайл.Существует() Тогда
        ДвоичныеДанные=ПолучитьМакет("НуженРучнойВвод");
        ДвоичныеДанные.Записать(локСтрЗвуки.НуженРучнойВвод);
    КонецЕсли;
    врФайл = Новый Файл(локСтрЗвуки.Внимание);
    Если не врФайл.Существует() Тогда
        ДвоичныеДанные=ПолучитьМакет("Внимание");
        ДвоичныеДанные.Записать(локСтрЗвуки.Внимание);
    КонецЕсли;

КонецПроцедуры