Вверх ↑
Этот топик читают: Гость
Ответов: 8886
Рейтинг: 823
#16: 2014-10-31 12:49:06 ЛС | профиль | цитата
Vadimluk1, вот разбивка строки на слоги str2syllables.sha
Tad, так алгоритм-то меняется, может и без нагрузки схватит кто-нибудь, кроме того интересно стало, вдруг получится путное
Вот попутно разбивка получилась, переведите IC в компонент (только помнится процедура StrReplace(Str,SubStr,DestStr); в компонентах не работает )
карма: 19

0
файлы: 1str2syllables.sha [3KB] [335]
Ответов: 16884
Рейтинг: 1239
#17: 2014-10-31 13:43:20 ЛС | профиль | цитата
1. Слово застрелиться
Правильно за-стре-лить-ся
Ваша программка заст-ре-лить-ся
2. Так мне больше нравится

   for i:=1 to j do
case s[i] of
'й','ь','ъ': ss:=ss+'x';
'а','е','ё','и','о','у','ы','э',
'ю','я','a','e','i','o','u','y' : ss:=ss+'y';
'б','в','г','д','ж','з','к','л',
'м','н','п','р','с','т','ф','х',
'ц','ч','ш','щ','b','c','d','f',
'g','j','k','l','m','n','p','q',
'r','s','t','v','w','x','z' : ss:=ss+'z';
else ss:=ss+s[i];
end;
Леонид_6.png
Что-то разбивка не внушает доверия.
карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
файлы: 1Леонид_6.png [25.7KB] [688]
Ответов: 8886
Рейтинг: 823
#18: 2014-10-31 17:38:50 ЛС | профиль | цитата
Tad, 1. Ну я же не привлекал граматику русского языка (сам не силён, ЕГЭ написал на два с минусом но арифметику на пять с ма-а-аленьким минусом ) Добавил в разбивку ещё три цикла, а то слова с Ь, вроде платье не разбивала.
2. Мне тоже
Vadimluk1, приложена программка для сбора слогов из текста и собранные слоги в количестве 2100 шт из любовного романа размером 250 Кб syllables.rar
карма: 19

1
файлы: 1syllables.rar [6.7KB] [270]
Голосовали:Vadimluk1
Ответов: 16884
Рейтинг: 1239
#19: 2014-10-31 19:14:56 ЛС | профиль | цитата
Леонид, когда-то (во времена царя Гороха) делал "грамотный" перенос слов в документах.
По памяти (из правил)
1. буква "й" подчиняется поведению гласных. (в слоге две гласных подряд не делятся). Сейчас, по новым правилам, вроде и корни делятся и одну букву переносить можно. Прогресс. Блин !...
2. А вот буква "ы" ведёт себя как "ъ" и "ь" знаки.
Перенос слов - это конечно не говорилка.

карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
Ответов: 632
Рейтинг: 4
#20: 2015-08-03 19:08:48 ЛС | профиль | цитата
Как сделать чтоб читала если пишешь привет.... а не пр и ве т.....
пример....
Скачать: http://www.fayloobmennik.net/5360610
карма: 0

0
Ответов: 632
Рейтинг: 4
#21: 2015-12-10 22:34:12 ЛС | профиль | цитата
Кто знает как сделать разделения и продолжительность?(Двумя словами не сказать нужно схему смотреть...)
http://forum.hiasm.net/forum_serv.php?q=56&id=4109
Долго думал, но не чего в голову не приходит, надежда на вас!

карма: 0

0
Ответов: 16884
Рейтинг: 1239
#22: 2015-12-12 10:33:58 ЛС | профиль | цитата
Vadimluk1, научись пользоваться "тэгами"
Пример:
http://forum.hiasm.net/forum_serv.php?q=56&id=4109
Про "рисовать схемы" - это не твоё.
vl_3.gif
"Красные" компоненты можно удалить. Они там никому ни на не нужны.
карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
файлы: 1vl_3.gif [15.4KB] [593]
Ответов: 632
Рейтинг: 4
#23: 2015-12-12 19:38:35 ЛС | профиль | цитата
Tad, спасибо,буду стараться. Вы не знаете как сделать чтобы по маске или еще как то что бы можно будит писать не как записана в компоненте"WaveArrar". А слитно те все знаки использовать?Кто знает пожалуйста помогите.
карма: 0

0
Ответов: 632
Рейтинг: 4
#24: 2018-05-19 19:45:07 ЛС | профиль | цитата
Прошло немного времени, и я дошёл до этой схемы! Схему строил все сначала, пригодился список слог, но есть не большая мелочь, которая не даёт схеме работать. Кому не лень, посмотрите!
http://forum.hiasm.com/getfile/38376

Редактировалось 3 раз(а), последний 2018-05-19 19:50:05
карма: 0

0
Ответов: 8886
Рейтинг: 823
#25: 2018-05-19 21:03:21 ЛС | профиль | цитата
Vadimluk1, обещанного три года дожидались
Схема, как и прежде, даже на моих двух мониторах не уместилась, для понятливости чуть сжал до экрана http://forum.hiasm.com/getfile/38377
Но без звуковых файлов не звучит
карма: 19

0
файлы: 1читалка1.rar [16.5KB] [497]
Ответов: 2059
Рейтинг: 131
#26: 2018-05-19 22:29:25 ЛС | профиль | цитата
Ты добрый мужик!
с уважением - flint2!
Понятно, что не по теме.

Редактировалось 1 раз(а), последний 2018-05-19 22:32:11
карма: 6

0
Ответов: 632
Рейтинг: 4
#27: 2018-05-20 20:39:49 ЛС | профиль | цитата
Леонид писал(а):
Vadimluk1, обещанного три года дожидались
Схема, как и прежде, даже на моих двух мониторах не уместилась, для понятливости чуть сжал до экрана http://forum.hiasm.com/getfile/38377
Но без звуковых файлов не звучит

Все великолепно! Спасибо большое!

--- Добавлено в 2018-05-20 20:58:45

Немного записал для движка слогов, но появилась проблема в заменах. Программа проверяет замены по списку с вверху вниз, нужно чтобы искала замены по самому правильному, то есть в списке, а=0 и аб=1, программа, а на 0 заменяет и уже, если было аб, то уже программа на 1 не заменит. Можно это как-то исправить? Это проблема в заменах, очень часто вспоминается!
http://forum.hiasm.com/getfile/38378

Редактировалось 2 раз(а), последний 2018-05-20 20:59:12
карма: 0

0
Ответов: 537
Рейтинг: 14
#28: 2018-05-28 21:34:40 ЛС | профиль | цитата
Так зачем это кому нужно, просто поиграться? Вот если бы наоборот с голоса в текст сделать свою прогу, то это другое дело

--- Добавлено в 2018-05-28 22:25:53

Я толком и не понял что сказал Vadimluk1
Add(MainForm,5806304,168,175)
{
Width=172
}
Add(Button,13604353,168,224)
{
Top=40
Caption="найти"
link(onClick,15388898:doString,[])
}
Add(Edit,9851483,245,154)
{
Left=5
Top=5
Text="а"
}
Add(Edit,2606784,511,231)
{
Left=75
Top=5
Text=""
}
Add(Message,3213663,462,273)
{
Message="Нет такого слога"
}
Add(Memo,6001386,385,154)
{
Left=10
Top=75
Width=115
Height=185
Strings=#1:а|2:аб|3:абр|4:абра|5:абрак|6:абрака|7:абракад|0:|
ScrollBars=2
}
Add(FormatStr,15388898,245,224)
{
DataCount=1
Mask=".*%1.*"
link(onFString,10195223:doEvent1,[])
link(Str1,9851483:Text,[])
}
Add(RE_Check,9217605,385,231)
{
Point(Expression)
link(onMatch,1068982:doReplace,[])
link(onDismatch,3213663:doMessage,[(439,244)(439,279)])
link(Str,6001386:Text,[])
link(Expression,7632550:GetData,[(398,212)(433,212)])
}
Add(Hub,10195223,343,224)
{
link(onEvent1,7632550:doData,[(375,230)(375,146)])
link(onEvent2,9217605:doCheck,[])
}
Add(EventFromData,7632550,427,140)
{
}
Add(Replace,1068982,462,231)
{
SubStr=".*"
link(onReplace,2606784:doText,[])
}

Я бы прогу делал по другому, имя файла соответствует слогу, при загрузке программа сохраняет все адреса файлов в StrList, а дальше простой поиск. И файлы разместил бы в папках по алфавиту, тогда и не было путаницы, нужно до записать новый слог, все видно и понятно куда файл кидать
А еще лучше взять большой словарь и озвучивать каждое слово

Редактировалось 3 раз(а), последний 2018-05-28 22:44:15
карма: 4

0
28
Сообщение
...
Прикрепленные файлы
(файлы не залиты)