Roma писал(а): А можешь сделать щетчик от 0 до -60
Гы. Насчет "щетчика" не знаю (это что, что-то такое, которое щетками чистит ?). А вот счетчик, пожалуйста, как просил от 0 до -60
------------ Д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)]) }
|