Вверх ↑
Разработчик
Ответов: 26155
Рейтинг: 2127
#1: 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