Вверх ↑
Ответов: 125
Рейтинг: 0
#1: 2008-08-21 00:36:58 ЛС | профиль | цитата
Заработался- не то слово. Башка не варит.
Я немного не то имел ввиду. Посмотрите, так правильно будет или можно прощее?

Add(Copy,13791281,175,273)
{
Count=1
link(onCopy,1088592:doText,[(229,279)(229,286)])
link(Str,12280066:Text,[])
link(Position,8095082:Count,[(188,260)(125,260)])
}
Add(Edit,12280066,175,203)
{
Left=10
Top=20
Width=145
Text=""
DataType=2
}
Add(Edit,1088592,252,280)
{
Left=10
Top=50
Width=140
Text=""
DataType=2
}
Add(Timer,2204509,63,266)
{
Interval=800
Enable=1
link(onTimer,8095082:doNext,[(107,272)(107,223)])
}
Add(Counter,8095082,119,217)
{
link(onNext,13791281:doCopy,[(163,223)(163,279)])
}
Add(Button,47762,7,266)
{
Left=20
Top=100
link(onClick,2204509:doTimer,[])
}
#sha

------------ Дoбавленo:

Немного усовершенствовал: теперь он сам смотрит конец строки и останавливает перебор на последнем символе.
Add(Copy,13791281,245,273)
{
Count=1
link(onCopy,13012598:doCase,[])
link(Str,12280066:Text,[])
link(Position,8095082:Count,[(258,261)(209,261)])
}
Add(Edit,12280066,245,217)
{
Left=10
Top=20
Width=145
Text=""
}
Add(Edit,1088592,406,273)
{
Left=10
Top=50
Width=140
Text=""
DataType=2
}
Add(Timer,2204509,154,217)
{
Interval=800
Enable=1
link(onTimer,8095082:doNext,[(195,223)(188,223)])
}
Add(Counter,8095082,203,217)
{
Max=11
link(onNext,13791281:doCopy,[(246,223)(246,279)])
}
Add(Button,47762,98,217)
{
Left=20
Top=100
link(onClick,2204509:doTimer,[])
}
Add(Hub,15702134,329,280)
{
link(onEvent1,2204509:doStop,[(371,286)(371,318)(142,318)(142,230)])
link(onEvent2,8095082:doReset,[(377,293)(377,327)(191,327)(191,237)])
}
Add(Case,13012598,287,273)
{
Value=String()
DataOnTrue=Integer(1)
link(onNextCase,1088592:doText,[])
link(onTrue,15702134:doEvent1,[(331,286)(324,286)])
}

#sha

карма: 1

0