Вверх ↑
Разработчик
Ответов: 26163
Рейтинг: 2127
#1: 2010-03-29 23:27:58 ЛС | профиль | цитата
Roma писал(а):
А можешь сделать щетчик от 0 до -60

Гы. Насчет "щетчика" не знаю (это что, что-то такое, которое щетками чистит ?). А вот счетчик, пожалуйста, как просил от 0 до -60



Add(MainForm,12188145,210,252)
{
Width=288
Height=166
}
Add(Keyboard,14030189,259,210)
{
Key=39
link(onReadKey,14306843:doCalc,[])
}
Add(Label,2320462,406,210)
{
Left=145
Top=55
Width=10
Height=17
Caption="0"
}
Add(Timer,13807707,210,210)
{
Interval=25
link(onTimer,14030189:doReadKey,[])
}
Add(ChangeMon,144242,357,210)
{
link(onData,2320462:doText,[])
}
Add(MathParse,14306843,308,210)
{
DataCount=1
MathStr="((%0 + sign(-%0)) * (%1 = 0)) + ((%0 - sign(60 + %0)) * (%1 = 1))"
Point(doClear)
link(onResult,144242:doData,[])
}

------------ Дoбавленo в 23.35:
А вот то же самое, но с отключаемым таймером и нормально работающий



Add(MainForm,12188145,42,189)
{
Width=288
Height=166
Point(onKeyDown)
Point(onKeyUp)
link(onKeyDown,12021817:doWork2,[])
link(onKeyUp,6522355:doEvent1,[(87,223)(87,279)])
}
Add(Keyboard,14030189,259,210)
{
Key=39
link(onReadKey,14306843:doCalc,[])
}
Add(Label,2320462,406,210)
{
Left=145
Top=55
Width=10
Height=17
Caption="0"
}
Add(Timer,13807707,189,259)
{
Interval=25
Enable=1
AutoStop=60
Point(doAutoStop)
link(onTimer,12021817:doWork3,[(242,265)])
}
Add(ChangeMon,144242,357,210)
{
link(onData,2320462:doText,[])
}
Add(MathParse,14306843,308,210)
{
DataCount=1
MathStr="((%0 + sign(-%0)) * (%1 = 0)) + ((%0 - sign(60 + %0)) * (%1 = 1))"
ResultType=0
Point(doClear)
link(onResult,144242:doData,[])
}
Add(HubEx,12021817,238,210)
{
link(onEvent,14030189:doReadKey,[])
}
Add(Hub,6522355,98,273)
{
link(onEvent1,1885949:doOperation,[])
link(onEvent2,13807707:doTimer,[(124,286)(124,265)])
}
Add(Math,1885949,133,273)
{
OpType=33
ResultType=0
link(onResult,13807707:doAutoStop,[])
link(Op1,14306843:Result,[(139,257)(314,257)])
}

карма: 22

1
Голосовали:Roma