Вверх ↑
Ответов: 125
Рейтинг: 0
#1: 2008-08-21 00:50:32 ЛС | профиль | цитата
А вот с автоматическим регулированием межцифрового интервала в зависимости от цифры (от кол-ва импульсов цифры).
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=170
Height=28
Font=[MS Sans Serif,14,0,0,1]
Text=""
}
Add(Timer,2204509,154,217)
{
Interval=800
Enable=1
Point(doInterval)
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=210
Top=20
Width=145
Height=28
Font=[MS Sans Serif,12,0,0,1]
Caption="Набрать номер"
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,16143752:doEvent1,[])
link(onTrue,15702134:doEvent1,[(331,286)(324,286)])
}
Add(Hub,16143752,392,273)
{
link(onEvent1,5643561:doText,[(435,279)(435,237)])
link(onEvent2,929015:doOperation,[])
}
Add(Math,929015,434,280)
{
OpType=2
Op2=170
ResultType=0
link(onResult,2204509:doInterval,[(474,286)(474,336)(136,336)(136,237)])
}
Add(Edit,5643561,448,231)
{
Left=20
Top=50
Width=95
Text=""
}

#sha

карма: 1

0