Вверх ↑
Ответов: 1536
Рейтинг: 176
#1: 2011-04-19 18:10:19 ЛС | профиль | цитата
Roma, интересно, конечно потренировать свою память, но там у тебя сплошные телодвижения. Пусть меня простят, ну вот хотя бы так.
Add(MainForm,2953706,91,126)
{
Width=508
Height=125
Color=0
Caption="Проверте числовую память"
BorderStyle=3
Position=1
link(onCreate,8923511:doWork2,[])
}
Add(Edit,2120342,280,287)
{
Left=12
Top=40
Width=480
Font=[MS Sans Serif,10,1,0,1]
WinStyle=2
Text=""
Point(doSetFocus)
link(onChange,4240889:doData,[])
link(onEnter,5662837:doCompare,[(328,300)(328,363)])
}
Add(Label,14205081,473,224)
{
Left=13
Top=15
Width=478
Height=20
Color=16777215
Font=[MS Sans Serif,10,1,0,1]
Ctl3D=0
WinStyle=2
Caption="Число"
AutoSize=1
}
Add(For,6058869,245,140)
{
link(onEvent,7144778:doEvent1,[])
link(onStop,15490174:doEvent1,[(289,153)(289,230)])
link(End,3017659:Var2,[])
}
Add(Random,8628813,343,140)
{
Max=9
link(onRandom,8096028:doStrCat,[])
}
Add(StrCat,8096028,406,140)
{
Point(doClear)
link(Str1,11376926:Var1,[(412,128)(400,128)(400,180)])
}
Add(GetDataEx,11376926,399,175)
{
Angle=1
link(Data,8096028:Result,[(412,180)])
}
Add(If_else,2945226,399,357)
{
link(onTrue,10073974:doEvent1,[(443,363)(443,314)])
link(onFalse,10897302:doCompare,[])
link(Op1,2504941:Value,[])
}
Add(Hub,15490174,357,224)
{
link(onEvent1,2504941:doValue,[])
link(onEvent2,8096028:doClear,[(389,237)(389,153)])
}
Add(Hub,7144778,301,140)
{
link(onEvent1,8628813:doRandomize,[(329,146)(329,153)])
link(onEvent2,8628813:doRandom,[(329,153)(329,146)])
}
Add(Counter,10116843,658,315)
{
Max=60
link(onNext,13132185:doWork2,[])
}
Add(HubEx,8923511,133,140)
{
link(onEvent,4494098:doEvent1,[])
}
Add(Label,12460360,756,434)
{
Left=12
Top=65
Width=488
Color=0
Font=[MS Sans Serif,10,1,16711935,1]
AutoSize=1
Point(doBringToFront)
}
Add(Hub,10073974,455,308)
{
link(onEvent1,9593276:doBringToFront,[])
link(onEvent2,10116843:doNext,[])
}
Add(HubEx,13132185,700,315)
{
link(onEvent,9113276:In,[])
}
Add(If_else,10897302,476,364)
{
Type=5
Op2=Integer(0)
link(onTrue,7581116:doEvent1,[(530,370)(530,328)])
link(onFalse,6190298:doEvent1,[])
link(Op1,12507480:Var1,[(482,348)])
}
Add(Memory,2504941,399,224)
{
Point(Data)
link(onData,11041923:doWork2,[])
link(Data,11376926:Var2,[])
}
Add(DoData,4240889,343,287)
{
link(onEventData,11041923:doWork3,[(452,293)])
}
Add(HubEx,11041923,448,224)
{
link(onEvent,14205081:doText,[])
}
Add(HubEx,15613563,707,434)
{
link(onEvent,7855001:doEvent1,[])
}
Add(If_else,5662837,343,357)
{
Type=5
link(onTrue,2945226:doCompare,[])
}
Add(DoData,2270161,658,399)
{
Data=String(Как же Вы живёте с такой памятью?)
link(onEventData,15613563:doWork1,[(711,405)])
}
Add(Label,9593276,490,301)
{
Left=12
Top=65
Width=486
Color=0
Font=[MS Sans Serif,10,1,65280,1]
Caption="Верно!"
AutoSize=1
Point(doBringToFront)
}
Add(Hub,7855001,728,434)
{
link(onEvent1,12460360:doText,[])
link(onEvent2,12460360:doBringToFront,[])
}
Add(Label,5074466,756,392)
{
Left=12
Top=65
Width=483
Color=0
Font=[MS Sans Serif,10,1,16777215,1]
Caption="Для сравнения жмём Enter."
AutoSize=1
Point(doBringToFront)
}
Add(DoData,546800,658,434)
{
Data=String(Не верно. Минус разрядность.)
link(onEventData,15613563:doWork2,[])
}
Add(GetDataEx,12507480,601,343)
{
Angle=2
link(Data,10116843:Count,[(607,359)(664,359)])
}
Add(Hub,4494098,154,140)
{
link(onEvent1,6058869:doFor,[])
link(onEvent2,5961137:doString,[])
}
Add(GetDataEx,3017659,252,113)
{
Angle=1
link(Data,12507480:Var2,[(607,118)])
}
Add(FormatStr,5961137,182,147)
{
DataCount=1
Mask="Разрядность Вашей памяти - * %1 *"
link(onFString,2953706:doCaption,[(233,153)(233,103)(79,103)(79,132)])
link(Str1,3017659:Var1,[(188,118)])
}
Add(LineBreak,10023643,91,168)
{
link(Out,8923511:doWork3,[(137,174)])
Primary=[9113276,630,147]
}
Add(Hub,6190298,616,371)
{
OutCount=3
link(onEvent1,10116843:doReset,[(644,377)(644,335)])
link(onEvent2,13132185:doWork3,[(704,384)])
link(onEvent3,2270161:doData,[(644,391)(644,405)])
}
Add(Hub,7581116,553,322)
{
link(onEvent1,10116843:doPrev,[])
link(onEvent2,546800:doData,[(579,335)(579,440)])
}


карма: 1
Не так страшна ошибка, как опасность её не заметить.

0
файлы: 1code_23424.txt [4.2KB] [203]