Вверх ↑
Ответов: 8888
Рейтинг: 823
#1: 2017-09-09 16:18:56 ЛС | профиль | цитата
Avto33mag, пример:
Пример


Add(MainForm,2953706,98,161)
{
Height=185
Caption="Слова"
Point(onKeyDown)
link(onCreate,5860435:doEvent1,[(424,181)(424,118)])
link(onKeyDown,4919261:doCompare,[(137,188)(137,195)])
}
Add(Label,5709664,98,42)
{
Left=10
Top=5
Width=95
Caption="Количество слов"
}
Add(Edit,10801284,350,56)
{
Left=110
Top=5
Text="25"
DataType=2
Point(doSetFocus)
}
Add(Hub,10792250,147,91)
{
OutCount=5
link(onEvent1,10801284:doSetFocus,[(242,97)(242,76)])
link(onEvent2,4744727:doReset,[(250,104)(250,125)])
link(onEvent3,6999578:doWork2,[])
link(onEvent4,11742441:doTimer,[(243,118)(243,244)])
link(onEvent5,15460914:doWork2,[])
}
Add(If_else,4919261,147,189)
{
Op1=Integer(32)
link(onTrue,2106500:doCompare,[])
}
Add(Label,10242726,532,35)
{
Left=10
Top=35
Width=365
Height=60
Font=[MS Sans Serif,18,1,0,1]
AutoSize=1
Alignment=2
}
Add(Button,13906515,98,91)
{
Left=240
Top=5
Caption=">>"
Data=Integer(1)
link(onClick,10792250:doEvent1,[])
}
Add(Counter,4744727,273,105)
{
Max=99999
link(onNext,6430149:doEvent1,[])
}
Add(If_else,5716478,343,105)
{
Type=3
link(onTrue,14963767:doEvent1,[])
link(onFalse,9589167:doWork1,[(382,118)(382,230)(144,230)])
link(Op2,10801284:Text,[])
}
Add(TimeCounter,6325282,350,238)
{
link(onStop,1318497:doCompare,[(389,251)(389,244)])
}
Add(Random,9535915,532,105)
{
Point(doMax)
Point(Max)
link(onRandom,14377754:doGetString,[(571,111)(571,90)(466,90)(466,76)])
link(Max,7909327:Result,[(538,96)(524,96)(524,166)(489,166)])
}
Add(Math,7909327,483,126)
{
OpType=1
Op2=1
ResultType=0
link(onResult,9535915:doMax,[])
link(Op1,14377754:Count,[])
}
Add(Timer,11742441,287,238)
{
Interval=50
Enable=1
link(onTimer,6325282:doStop,[(333,244)(333,251)])
}
Add(If_else,1318497,399,238)
{
Type=2
Op2=Integer(5000)
link(onTrue,12091316:doWork1,[(438,244)(438,195)])
}
Add(Hub,6430149,315,105)
{
OutCount=3
link(onEvent1,5716478:doCompare,[])
link(onEvent2,6325282:doStart,[(340,118)(340,244)])
}
Add(HubEx,6999578,259,105)
{
link(onEvent,4744727:doNext,[])
}
Add(StrList,14377754,476,28)
{
FileName="Словарик86839.txt"
Point(doGetString)
Point(onGetString)
link(onGetString,10242726:doText,[])
}
Add(Hub,5860435,434,112)
{
OutCount=3
link(onEvent1,14377754:doLoad,[(459,118)(459,62)])
link(onEvent2,9535915:doRandomize,[(473,125)(473,118)])
link(onEvent3,7909327:doOperation,[])
}
Add(Button,4831469,98,245)
{
Left=315
Top=5
Caption="II"
Data=Integer(0)
link(onClick,9589167:doWork2,[])
}
Add(Hub,11595170,154,245)
{
link(onEvent1,11742441:doStop,[])
link(onEvent2,15460914:doWork3,[(186,258)])
}
Add(HubEx,9589167,140,245)
{
link(onEvent,11595170:doEvent1,[])
}
Add(If_else,2106500,196,189)
{
Op2=Integer(1)
link(onTrue,12091316:doWork2,[])
link(Op1,10333001:Value,[])
}
Add(Memory,10333001,196,119)
{
Default=Integer(0)
}
Add(HubEx,12091316,259,189)
{
Angle=3
link(onEvent,6999578:doWork3,[])
}
Add(HubEx,15460914,182,119)
{
link(onEvent,10333001:doValue,[])
}
Add(Hub,14963767,392,105)
{
link(onEvent1,9535915:doRandom,[])
link(onEvent2,10736555:doStrCat,[(417,118)(417,146)(452,146)(452,188)])
}
Add(Label,946191,532,182)
{
Left=175
Top=10
}
Add(StrCat,10736555,483,182)
{
Str2="-е слово"
link(onStrCat,946191:doText,[])
}

Словарик можно взять в http://forum.hiasm.com/getfile/38184 или сделать файл по потребности
карма: 19

0