VBNet - Форум - VB6 Пример звукового сопровождения событий

Вопрос: VB6 Пример звукового сопровождения событий Добавлено: 16.08.08 19:13

Автор вопроса: Teach

Простой пример сопровождения событий на русском языке для WinXP и выше.
Подключите элемент управления DirectSS из библиотеки
Micosoft Direct Text to Speech
Поместите элемент DirectSS на форму.
sub Form_Load()
If Form1.DirectSS1.CountEngines <> 0 Then
For fg = 1 To Form1.DirectSS1.CountEngines
If Form1.DirectSS1.ModeName(fg) = "Adult Female #1 Russian (L&H)" Then
zv = 1
Form1.DirectSS1.Select fg 'Задаём голосовой движок
Form1.DirectSS1.Speed = 120 'Задаём новую скорость не более 150
Form1.DirectSS1.Speak "здравствуйте." 'Проговорим текст. Текст в кавычках любой, можно из текста элементоа управления
Exit For
End If
Next
End If
end sub
В нужных событиях ставим:
If zv = 1 Then Form1.DirectSS1.Speak "Запись удалена!"'или нужный текст.
Успехов Вам....
Ответить

Ответы Всего ответов: 9

Номер ответа: 1 Автор ответа: GDK Вопросов: 13 Ответов: 348	Профиль \| \| #1	Добавлено: 28.08.08 09:13
	А можно чуть подробнее про то как подключить Microsoft Direct Text to Speech? Я её даже не нашёл (искал через ПУСК=>Найти). А если не сложно то распишите всё от начала до конца. Ответить

Номер ответа: 2 Автор ответа: Администратор ICQ: 278109632 Вопросов: 42 Ответов: 3949	Web-сайт: domkratt.com Профиль \| \| #2	Добавлено: 28.08.08 14:41
	Чем слушать этот корявый глос с неправильной интоннацией, так лучше уж просто в статусбар текст писать... Или свом голосом записать что надо Ответить

Номер ответа: 3 Автор ответа: Artyom Разработчик Вопросов: 130 Ответов: 6602	Профиль \| \| #3	Добавлено: 28.08.08 20:42
	Ерундой не занимайся Ответить

Номер ответа: 4 Автор ответа: GDK Вопросов: 13 Ответов: 348	Профиль \| \| #4	Добавлено: 29.08.08 10:58
	Всё равно охота попробовать. Раньше ничего подобного не делал. Кстати, по моему автор чё то наврал про ХР. Элемент управления есть в Win2000. Но в VBA (Word 2003) не получается его положить на форму. Вываливается ошибка: "Субъект не имеет доверия для выполнения данного действия." Такое сообщение встречаю впервые. Как с этим бороться? Ответить

Номер ответа: 5 Автор ответа: Учитель Вопросов: 2 Ответов: 4	Web-сайт: vlsopin.narod.ru Профиль \| \| #5	Добавлено: 06.09.08 15:29
	В редакторе VB6 кликни правой кнопкой на панели элементов управления, Открывается меню с операцией "Компоненты". В окне выбери из списка элемент Microsoft Direct Text to Speech. Затем перетащи "губки" на форму. Это и есть DirectSS. Это все будет работать только при установке движка L&H TTS 3000 Russian.Если движка в тачке нет, скачай с "мусорки". Мне больше нравится коментарий собственным голосом. Никаких элементов управления и движков. Но нужно возиться записывать куски собственным голосом! Ответить

Номер ответа: 6 Автор ответа: Учитель Вопросов: 2 Ответов: 4	Web-сайт: vlsopin.narod.ru Профиль \| \| #6	Добавлено: 06.09.08 15:35
	Тупорылые из Microsoft "умудрились" (от слова "мудак" закрыть доступ из VBA к элементам VB6 и наоборот. Ответить

Номер ответа: 7 Автор ответа: Artyom Разработчик Вопросов: 130 Ответов: 6602	Профиль \| \| #7	Добавлено: 07.09.08 02:05
	Я под столом, не пиши больше Ответить

Номер ответа: 8 Автор ответа: GDK Вопросов: 13 Ответов: 348	Профиль \| \| #8	Добавлено: 08.09.08 14:06
	Вроде бы вас понял. Но! Дома получилось чтобы губы говорили (после установки голосового движка и чего то ещё) WinXP, а на др. компе всё равно не пашет. Вываливается "Субъект не имеет доверия...". Зато работает MSAgent, но как то глючно: Запускаю его из Word по событию открытия файла Normal.dot. Запускается всегда, но проговаривает текст не всегда - типа по случайному закону. Фуфел какой то. Да и произношение у него какое то левое (хуже чем речь того же агента с тем же голос. движком на домашнем компе). Во так! Ответить

Номер ответа: 9 Автор ответа: ученик Вопросов: 0 Ответов: 1	Профиль \| \| #9	Добавлено: 11.10.08 09:11
	Как привязать свойство LastWordPosition к переменной, свойство при работе меняется, а переменной не передаётся. Что нужно сделать что-бы указать с какой позиции в тексте начинать озвучивание. Почему, если в системе установлены английские движки, русские говорят по английски, а программа в работе показывает что выбран русский. Ответить

Страница: 1 |