Вверх ↑
Ответов: 8930
Рейтинг: 823
#1: 2017-09-01 00:12:11 ЛС | профиль | цитата
inter1, зачем циклы, задержки Есть арифметика, к текущему положению прибавляете "+скорость" движется в одну сторону, прибавляете "-скорость" в другую
Для управлением положением есть компонент в разделе "Окно"
+


Add(MainForm,9521654,413,119)
{
Width=307
BorderStyle=1
Position=1
Point(doLeft)
Point(doTop)
Point(Handle)
Point(Width)
Point(Height)
Point(Left)
Point(Top)
link(onCreate,11214993:doPopup,[(465,139)(465,220)(403,220)(403,244)])
}
Add(Button,7424800,287,266)
{
Left=120
Top=100
link(onClick,10779193:doTimer,[])
}
Add(WinTools,11214993,413,231)
{
link(Handle,9521654:Handle,[])
}
Add(Screen,11674907,490,126)
{
}
Add(MathParse,5985703,553,245)
{
DataCount=3
link(onResult,13783485:doEvent1,[])
link(X1,16042186:Var3,[(559,208)])
link(X2,4803982:Var2,[])
}
Add(Memory,3837709,560,126)
{
Default=Real(5)
}
Add(Memory,2596616,735,154)
{
Default=Real(10)
}
Add(Timer,10779193,343,266)
{
Interval=30
Enable=1
AutoStop=600
link(onTimer,7440806:doCalc,[(466,272)(466,244)])
}
Add(MathParse,7440806,476,238)
{
DataCount=4
MathStr="sign(0.5-(((%2+%4)<=0)+((%2+%4)>=(%3-%1))))*%4"
Default=1
link(onResult,7839520:doEvent1,[])
link(X1,9521654:Width,[(482,215)(426,215)])
link(X2,16042186:Var2,[])
link(X3,11674907:Width,[])
link(X4,4803982:Var1,[(503,194)])
}
Add(GetDataEx,16042186,483,203)
{
Angle=3
link(Data,9521654:Left,[(440,208)])
}
Add(Hub,7839520,518,238)
{
link(onEvent1,3837709:doValue,[(543,244)(543,132)])
link(onEvent2,5985703:doCalc,[])
}
Add(GetDataEx,4803982,560,189)
{
link(Data,3837709:Value,[])
}
Add(MathParse,2025258,728,259)
{
link(onResult,9521654:doTop,[(767,265)(767,300)(396,300)(396,160)])
link(X1,3296212:Var3,[(734,222)])
link(X2,1748373:Var2,[])
}
Add(MathParse,6425911,651,252)
{
DataCount=4
MathStr="sign(0.5-(((%2+%4)<=0)+((%2+%4)>=(%3-%1))))*%4"
Default=1
link(onResult,14653835:doEvent1,[])
link(X1,9521654:Height,[(657,201)(433,201)])
link(X2,3296212:Var2,[])
link(X3,11674907:Height,[(671,180)(503,180)])
link(X4,1748373:Var1,[(678,201)])
}
Add(Hub,14653835,693,252)
{
link(onEvent1,2596616:doValue,[(718,258)(718,160)])
link(onEvent2,2025258:doCalc,[])
}
Add(GetDataEx,1748373,735,196)
{
link(Data,2596616:Value,[])
}
Add(Hub,13783485,595,245)
{
link(onEvent1,9521654:doLeft,[(633,251)(633,111)(403,111)(403,153)])
link(onEvent2,6425911:doCalc,[])
}
Add(GetDataEx,3296212,658,217)
{
link(Data,9521654:Top,[(664,187)(447,187)])
}
Add(PosWindow,4915633,420,336)
{
}

карма: 19

0