Вверх ↑
Этот топик читают: Гость
Ответов: 16884
Рейтинг: 1239
#76: 2010-05-08 00:32:54 ЛС | профиль | цитата
nesco писал(а):
Это почему же ?
Потому, что там (когда-то видел на Одесской телестудии) иностранные слова написаны нормально, без ударений, а рядом произношение русскими буквами с ударениями. Как там в Питере не знаю
------------ Дoбавленo в 00.32:
nesco писал(а):
Вот над чем, над чем, так над этим, я ломать голову не собираюсь, на всех головы не хватит
Хозяин барин, но проблемка интересная.
карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
Разработчик
Ответов: 26153
Рейтинг: 2127
#77: 2010-05-08 01:35:33 ЛС | профиль | цитата
Tad писал(а):
Потому, что там (когда-то видел на Одесской телестудии) иностранные слова написаны нормально, без ударений, а рядом произношение русскими буквами с ударениями

Вот схема с преобразователем верхнего-нижнего регистра только для кириллицы (21 компонент)


Add(MainForm,2953706,259,322)
{
}
Add(StrCase,3040051,609,238)
{
link(onModify,8570262:doWork2,[])
link(Str,7142170:Var3,[(615,220)])
}
Add(StrCase,7786281,588,280)
{
Type=1
link(onModify,1926263:doWork2,[])
link(Str,7142170:Var2,[])
}
Add(Memo,7766550,259,154)
{
Left=10
Top=5
Width=265
Height=250
Font=[MS Sans Serif,10,0,0,1]
Strings=#20:Привет от HiAsmZz-a!|
Point(onKeyDown)
Point(SelText)
Point(doSetSelect)
link(onKeyDown,10403116:doCheckMask,[])
}
Add(HubEx,8570262,658,238)
{
link(onEvent,402667:doStrCat,[])
}
Add(Str_Enum,9992685,280,238)
{
Delimiter=""
link(onEnum,10707034:doConvert,[])
link(String,7766550:SelText,[])
}
Add(MathParse,10321937,378,238)
{
DataCount=1
MathStr="(%1 >= 65) * (%1 <= 90) + (%1 >= 97) * (%1 <= 122)"
link(onResult,11377910:doEvent,[])
}
Add(Convertor,10707034,329,238)
{
Mode=3
link(onResult,10321937:doCalc,[])
}
Add(StrCat,402667,714,238)
{
Point(doClear)
link(Str1,14681209:Var1,[(720,229)(702,229)(702,282)])
}
Add(GetDataEx,7142170,588,215)
{
Angle=3
link(Data,10395803:Var3,[])
}
Add(DoData,13652727,483,322)
{
link(onEventData,1926263:doWork3,[(662,328)])
link(Data,10395803:Var2,[])
}
Add(GetDataEx,10395803,483,215)
{
Angle=3
link(Data,9992685:Part,[(368,220)(368,280)(293,280)])
}
Add(HubEx,1926263,658,280)
{
Angle=3
link(onEvent,8570262:doWork3,[])
}
Add(DoData,14419447,714,322)
{
link(onEventData,7766550:doSetSelect,[(779,328)(779,113)(228,113)(228,202)])
link(Data,14681209:Var2,[])
}
Add(GetDataEx,14681209,714,277)
{
link(Data,402667:Result,[])
}
Add(KeyMask,2531088,385,133)
{
Ctrl=1
Key=40
link(onTrue,10405018:doWork1,[(433,146)(433,167)])
}
Add(KeyMask,10403116,329,161)
{
Ctrl=1
Key=38
link(onFalse,2531088:doCheckMask,[(373,167)(373,139)])
link(onTrue,10405018:doWork2,[])
}
Add(IndexToChanel,16688638,511,238)
{
Point(Index)
link(onEvent1,3040051:doModify,[])
link(onEvent2,7786281:doModify,[(565,251)(565,286)])
link(Index,1494482:Value,[])
}
Add(Hub,6142680,560,161)
{
OutCount=3
link(onEvent1,402667:doClear,[(688,167)(688,251)])
link(onEvent2,9992685:doEnum,[(585,174)(585,123)(238,123)(238,244)])
link(onEvent3,14419447:doData,[(678,181)(678,328)])
}
Add(Memory,1494482,511,161)
{
link(onData,6142680:doEvent1,[])
}
Add(ChanelToIndex,10405018,455,161)
{
link(onIndex,1494482:doValue,[])
}
Add(IndexToChanel,11377910,427,238)
{
link(onEvent1,16688638:doEvent,[])
link(onEvent2,13652727:doData,[(471,251)(471,328)])
}

Итого: - 31 компонент
------------ Дoбавленo в 01.35:
Окончательный вариант, еще -1 компонент


Add(MainForm,2953706,70,175)
{
}
Add(StrCase,3040051,469,252)
{
link(onModify,6762689:doWork2,[])
}
Add(StrCase,7786281,469,301)
{
Type=1
link(onModify,6762689:doWork3,[(536,307)])
}
Add(Memo,7766550,161,161)
{
Left=10
Top=5
Width=265
Height=250
Font=[MS Sans Serif,10,0,0,1]
Strings=#20:Привет от HiAsmZz-a!|
Point(onKeyDown)
Point(SelText)
Point(doSetSelect)
link(onKeyDown,10403116:doCheckMask,[])
}
Add(HubEx,8570262,532,245)
{
link(onEvent,402667:doStrCat,[])
}
Add(Str_Enum,9992685,182,245)
{
Delimiter=""
link(onEnum,10707034:doConvert,[])
link(String,7766550:SelText,[])
}
Add(MathParse,10321937,371,245)
{
MathStr="(%1 >= 128) * (%1 <= 255) * %2"
link(onResult,11377910:doEvent,[])
link(X2,1494482:Value,[])
}
Add(Convertor,10707034,231,245)
{
Mode=3
link(onResult,10321937:doCalc,[])
}
Add(StrCat,402667,574,245)
{
Point(doClear)
link(Str1,14681209:Var1,[(580,236)(562,236)(562,289)])
}
Add(DoData,14419447,574,301)
{
link(onEventData,7766550:doSetSelect,[(621,307)(621,120)(126,120)(126,209)])
link(Data,14681209:Var2,[])
}
Add(GetDataEx,14681209,574,284)
{
link(Data,402667:Result,[])
}
Add(KeyMask,2531088,273,140)
{
Ctrl=1
Key=40
link(onTrue,10405018:doWork2,[(317,153)(317,174)])
}
Add(KeyMask,10403116,217,168)
{
Ctrl=1
Key=38
link(onFalse,2531088:doCheckMask,[(261,174)(261,146)])
link(onTrue,10405018:doWork3,[])
}
Add(Hub,6142680,434,161)
{
OutCount=3
link(onEvent1,402667:doClear,[(554,167)(554,258)])
link(onEvent2,9992685:doEnum,[(470,174)(470,130)(143,130)(143,251)])
link(onEvent3,14419447:doData,[(546,181)(546,307)])
}
Add(Memory,1494482,378,161)
{
link(onData,6142680:doEvent1,[])
}
Add(ChanelToIndex,10405018,329,161)
{
Count=3
link(onIndex,1494482:doValue,[])
}
Add(IndexToChanel,11377910,413,245)
{
Count=3
Point(Data)
link(onEvent1,8570262:doWork2,[])
link(onEvent2,3040051:doModify,[])
link(onEvent3,7786281:doModify,[(457,265)(457,307)])
link(Data,9992685:Part,[(419,233)(307,233)(307,289)(195,289)])
}
Add(HubEx,6762689,532,252)
{
Angle=3
link(onEvent,8570262:doWork3,[])
}


Итого: - 32 компонента
карма: 22

0
Ответов: 16884
Рейтинг: 1239
#78: 2010-05-08 01:40:31 ЛС | профиль | цитата
Первые большие буквы трогать нельзя ( хотя как быть со словом "Около" - первая ударная )
карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
Разработчик
Ответов: 26153
Рейтинг: 2127
#79: 2010-05-08 01:42:40 ЛС | профиль | цитата
Tad писал(а):
Первые большие буквы трогать нельзя

Там для этого другой модуль есть, который именно первые буквы не трогает. Я правил только то, что есть, второй модуль я не трогал. У него Ctrl-Up и Ctrl-Down работают именно так, как я сделал, значит, их так устраивает

карма: 22

0
Ответов: 16884
Рейтинг: 1239
#80: 2010-05-08 01:44:51 ЛС | профиль | цитата
[flood]Всё. Пошли спать. [/flood]
карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
Разработчик
Ответов: 26153
Рейтинг: 2127
#81: 2010-05-08 01:45:45 ЛС | профиль | цитата
Напоследок

Tad, я никоим образом не преследую цель ему чего-то навязать, у него для этого своя голова есть и головы его руководителей, впридачу. Я показываю только примеры, как можно существенно укоротить безболезненно то, что уже есть, без нарушения его функционала
карма: 22

0
Ответов: 8926
Рейтинг: 823
#82: 2010-05-08 15:02:48 ЛС | профиль | цитата
vovcheck, [flood]в соседней ветке Genius выложил "Говорилку" с недурным произношением, а коллеги MAV и sla8a, если уговорите, смогут нарисовать и прилизанного диктора и дикторшу с пышными формами - экономия на зарплате и никаких ошибок, кроме редакторских [/flood]
карма: 19

0
Разработчик
Ответов: 26153
Рейтинг: 2127
#83: 2010-05-08 15:37:22 ЛС | профиль | цитата
[flood]Леонид, по веникам ему говорилка, его приложение раситано на глухонемых (бегущая строка внизу именно для этих целей). В чем и нонсенс его приложения. И вообще, дай людям почувстовать творческий процесс. Пусть они свое творят, а тут будут творить свое. Че-то никто, кроме Tad-a, nesco и Леонида, не кинулись на помощь[/flood]
карма: 22

0
Ответов: 8926
Рейтинг: 823
#84: 2010-05-08 15:40:30 ЛС | профиль | цитата
vovcheck, прошу прощения, упустил
карма: 19

0
Ответов: 16884
Рейтинг: 1239
#85: 2010-05-08 15:42:59 ЛС | профиль | цитата
[flood]nesco, Леонид наверное имел ввиду вид сзади на "дикторшу с пышными формами" [/flood]
карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
Разработчик
Ответов: 26153
Рейтинг: 2127
#86: 2010-05-08 15:45:06 ЛС | профиль | цитата
[flood]Tad, тут надо с исходным функционалом до конца разобраться, а навороты с тянами потом будут[/flood]
карма: 22

0
Ответов: 49
Рейтинг: 11
#87: 2010-05-08 18:03:10 ЛС | профиль | цитата
Еще раз всем - Спасибо, я не успел отреагировать на сообщения 6й страницы, простите, вечером успею. У телевидения выходных не бывает А сейчас только успею предложить то, что успел на работе - http://hiasm.com/forum_serv.php?q=56&id=1378 . Надеюсь, комментарии и F1 помогут понять суть чётче.
Sorry, убегаю на работу.
карма: 1

0
Ответов: 16884
Рейтинг: 1239
#88: 2010-05-08 22:26:45 ЛС | профиль | цитата
Вот так, nesco.
За что спасибо, так и не понял...

карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
Разработчик
Ответов: 26153
Рейтинг: 2127
#89: 2010-05-08 22:43:12 ЛС | профиль | цитата
Вот этот участок вообще не тронут

code_18153.txt

Я же его упростил, видимо, не дочитал еще
------------ Дoбавленo в 22.43:
А вот этот модуль я еще не оптимизировал, займусь позднее



Add(MultiElementEx,15389493,371,112)
{
@Hint=#190:Переводит ВО ВСЁМ ИСХОДНОМ ТЕКСТЕ кириллические слова в нижний регистр со 2-й буквы (т.е. устраняет ударения из текста, форматированного для телесуфлёра) и возвращает обратно в исходное окно|
AddHint(-202,-96,200,78,@Hint)
}
BEGIN_SDK
Add(EditMultiEx,1610369,49,91)
{
WorkCount=#6:doLoad|0:|
EventCount=#12:ResultString|0:|
DataCount=#4:Data|
Width=321
Height=298
link(doLoad,13058490:doEvent1,[(59,97)(59,125)])
}
Add(ArrayRW,2815930,238,322)
{
Point(Count)
link(onRead,1209242:doConvert,[])
link(Array,1158742:Array,[(244,236)(230,236)])
link(Index,13797096:Position,[(251,289)(272,289)])
}
Add(CharArray,1158742,224,119)
{
Point(Count)
link(onLoad,361128:doValue,[(264,125)(264,174)])
link(onGetStr,11673841:doEvent1,[(283,132)(283,97)])
link(String,1610369:Data,[(230,105)(55,105)])
}
Add(MultiElementEx,1209242,287,322)
{
@Hint=#113:Переводит кириллические слова в нижний регистр со 2-й буквы (Устраняет ударения из текста, взятого с телесуфлёра)|
link(onConvert,2815930:doWrite,[(334,328)(334,366)(233,366)(233,335)])
}
BEGIN_SDK
Add(EditMultiEx,2714989,42,56)
{
WorkCount=#9:doConvert|
EventCount=#9:onConvert|0:|
Width=580
Height=165
link(doConvert,9972291:doConvert,[(56,62)(56,181)])
}
Add(Convertor,9972291,84,175)
{
Mode=3
Digits=4
link(onResult,10425741:doEvent1,[])
}
Add(Convertor,7553759,553,154)
{
Mode=4
Digits=4
link(onResult,2714989:onConvert,[(593,160)(593,62)])
}
Add(If_else,7474793,392,133)
{
Type=4
Op1=Integer(0)
Op2=Integer(192)
link(onTrue,9511760:doCompare,[])
link(onFalse,681682:doEvent3,[(430,146)(430,174)])
link(Op1,15257896:Var2,[])
}
Add(Hub,681682,525,154)
{
InCount=5
OutCount=1
link(onEvent1,7553759:doConvert,[])
}
Add(Math,10157637,476,133)
{
Op2=32
ResultType=0
link(onResult,681682:doEvent1,[(517,139)(517,160)])
link(Op1,16357300:Var3,[(482,124)])
}
Add(EventFromData,5870278,287,63)
{
}
Add(Hub,14435260,252,126)
{
link(onEvent1,5870278:doData,[(273,132)(273,69)])
link(onEvent2,15960550:doCompare,[])
}
Add(If_else,9511760,434,133)
{
Type=3
Op1=Integer(0)
Op2=Integer(223)
link(onTrue,10157637:doOperation,[])
link(onFalse,681682:doEvent2,[(472,146)(472,167)])
link(Op1,16357300:Var2,[])
}
Add(Switch,14172245,203,133)
{
DataOn=Integer(1)
DataOff=Integer(0)
Point(doOn)
Point(State)
}
Add(If_else,950763,154,140)
{
Type=4
Op2=Integer(192)
link(onTrue,14172245:doOn,[(194,146)(194,153)])
link(onFalse,14172245:doReset,[(194,153)(194,146)])
}
Add(Hub,10425741,126,175)
{
link(onEvent1,12221205:doEvent,[(164,181)(164,188)])
link(onEvent2,950763:doCompare,[(147,188)(147,146)])
}
Add(IndexToChanel,12221205,203,182)
{
Point(Index)
link(onEvent1,681682:doEvent5,[])
link(onEvent2,14435260:doEvent1,[(243,195)(243,132)])
link(Index,14172245:State,[])
}
Add(Shape,15843163,49,231)
{
Width=291
Height=25
Text="а-я == 224-255 А-Я == 192-223 Ё == 168 ё == 184"
PWidth=2
}
Add(InfoTip,8725950,42,7)
{
Info=#68:Переводит кириллические символы в нижний регистр со 2-й буквы слова |
Width=421
Height=25
}
Add(If_else,15960550,287,133)
{
Op1=Integer(0)
Op2=Integer(168)
link(onTrue,4014808:doOperation,[(327,139)(327,160)])
link(onFalse,7474793:doCompare,[(355,146)(355,139)])
link(Op1,7538732:Var2,[])
}
Add(Math,4014808,336,154)
{
Op2=16
ResultType=0
link(onResult,681682:doEvent4,[(384,160)(384,181)])
}
Add(GetDataEx,7538732,287,119)
{
link(Data,5870278:GetData,[])
}
Add(GetDataEx,15257896,392,119)
{
Angle=3
link(Data,7538732:Var3,[])
}
Add(GetDataEx,16357300,434,119)
{
Angle=3
link(Data,15257896:Var3,[])
}
END_SDK
Add(Memory,361128,273,168)
{
Point(Data)
link(onData,13797096:doFor,[(342,174)(342,211)(254,211)(254,230)])
link(Data,1158742:Count,[(279,163)(244,163)])
}
Add(Hub,13058490,70,119)
{
link(onEvent1,1158742:doLoad,[])
link(onEvent2,16355826:doSwitch,[(87,132)(87,174)])
}
Add(Hub,11673841,294,91)
{
link(onEvent1,1610369:ResultString,[])
link(onEvent2,16355826:doReset,[(319,104)(319,156)(93,156)(93,181)])
}
Add(Switch,16355826,105,168)
{
DataOff=Integer(0)
Point(onOff)
link(onOff,13797096:doStop,[(201,181)(201,237)])
}
Add(For,13797096,266,224)
{
link(onEvent,2815930:doRead,[(317,230)(317,279)(212,279)(212,328)])
link(onStop,1158742:doGetStr,[(310,237)(310,307)(219,307)(219,132)])
link(End,361128:Value,[])
}
Add(InfoTip,14515840,28,14)
{
Info=#190:Переводит ВО ВСЁМ ИСХОДНОМ ТЕКСТЕ кириллические слова в нижний регистр со 2-й буквы (т.е. устраняет ударения из текста, форматированного для телесуфлёра) и возвращает обратно в исходное окно|
Width=358
Height=60
}
END_SDK

карма: 22

0
файлы: 1code_18153.txt [6.3KB] [178]
Ответов: 16884
Рейтинг: 1239
#90: 2010-05-08 22:45:43 ЛС | профиль | цитата
Я сегодня пас - отмечаем Победу !

карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
Сообщение
...
Прикрепленные файлы
(файлы не залиты)