У программистов сидячий образ работы (жизни) ![](/img/smilies/icon_smile.gif) что неблаготворно сказывается на излишнем весе или наоборот, когда некогда перекусить. Вот для них, а также всех кто ведет малоподвижный образ жизни пригодится эта программка. Add(MainForm,3049855,177,140) { Height=242 Color=16777215 } Add(MathParse,8833684,342,210) { MathStr="%1 / (%2/100)^2" link(onResult,10110913:doOperation,[]) link(X1,3671854:Text,[]) link(X2,692688:Text,[]) } Add(Label,8364576,176,95) { Left=10 Top=30 Width=48 Height=17 Color=16777215 Caption="Рост, см" } Add(Edit,692688,349,94) { Left=60 Top=30 Text="0" } Add(Label,1466466,177,96) { Left=120 Top=30 Width=40 Height=17 Color=16777215 Caption="Вес, кг" } Add(Edit,3671854,342,131) { Left=160 Top=30 Text="0" } Add(Button,8794144,175,203) { Left=10 Top=60 Width=270 Color=16777215 Caption="Вычислить индекс Кетли" link(onClick,2845824:doEvent1,[]) } Add(Edit,2546110,454,210) { Left=310 Top=30 Width=40 Text="0" DataType=4 link(onChange,596583:doMax,[(498,216)(498,274)(387,274)(387,332)]) } Add(Hub,2845824,217,203) { OutCount=6 link(onEvent1,596583:doReset,[(323,209)(323,325)]) link(onEvent2,8833684:doCalc,[]) link(onEvent3,14983378:doTimer,[(267,223)(267,311)]) link(onEvent4,4965215:doCompare,[(265,230)(265,521)]) } Add(Math,10110913,406,210) { OpType=35 Op2=1 link(onResult,2546110:doText,[]) } Add(LedLadder,13843074,454,305) { Left=5 Top=145 Width=365 Height=50 Count=40 MinMid=20 MidMax=25 Max=50 FonColor=16777215 SegColorMin=16711935 NoSegColorMin=15780518 SegColorMid=65280 NoSegColorMid=15780518 NoSegColorMax=15780518 } Add(Timer,14983378,286,305) { Interval=100 Enable=1 link(onTimer,816821:doEvent1,[]) } Add(Counter,596583,399,305) { Point(doMax) link(onNext,13843074:doPosition,[]) } Add(If_else,1741941,399,375) { Type=4 link(onTrue,10701231:doWork1,[]) link(Op1,596583:Count,[]) link(Op2,11022542:Var2,[]) } Add(Hub,816821,343,305) { link(onEvent1,596583:doNext,[]) link(onEvent2,1741941:doCompare,[(387,318)(387,381)]) } Add(ChanelToIndex,10701231,462,375) { link(onIndex,3816904:doEvent1,[]) } Add(Hub,3816904,511,375) { link(onEvent1,2301714:doText,[(597,381)(597,739)(273,739)(273,692)]) link(onEvent2,14983378:doStop,[(556,388)(556,423)(275,423)(275,318)]) } Add(Memory,2765469,504,571) { Default=String(У Вас 4 степень ожирения) } Add(Label,9560065,178,95) { Left=260 Top=30 Width=42 Height=17 Color=16777215 Caption="Индекс" } Add(If_else,9028699,329,515) { Type=4 Op2=String(25) link(onTrue,9843696:doCompare,[]) link(onFalse,8485132:doWork2,[(373,528)(373,591)(219,591)(219,654)]) link(Op1,14947095:Var2,[]) } Add(If_else,9843696,378,515) { Type=4 Op2=String(30) link(onTrue,5149438:doCompare,[]) link(onFalse,8485132:doWork3,[(421,528)(421,594)(219,594)(219,661)]) link(Op1,15138982:Var2,[]) } Add(If_else,5149438,434,515) { Type=4 Op2=String(32) link(onTrue,8668498:doCompare,[]) link(onFalse,8485132:doWork4,[(477,528)(477,598)(219,598)(219,668)]) link(Op1,7668150:Var2,[]) } Add(Label,2301714,286,686) { Left=10 Top=90 Width=341 Height=37 Color=16777215 Font=[MS Sans Serif,14,3,8388608,1] Caption="" AutoSize=1 link(Text,15366179:Var,[]) } Add(GetDataEx,11022542,399,347) { link(Data,10110913:Result,[]) } Add(Memory,13219771,286,571) { Default=String(Вы истощены) } Add(Memory,1397169,329,571) { Default=String(У Вас прекрасная фигура) } Add(GetIndexData,15366179,286,641) { Count=6 link(Data1,13219771:Value,[]) link(Data2,1397169:Value,[(299,622)(335,622)]) link(Data3,14712722:Value,[(306,622)(377,622)]) link(Data4,186560:Value,[(313,622)(419,622)]) link(Data5,4565692:Value,[(320,622)(461,622)]) link(Data6,2765469:Value,[(327,622)(510,622)]) } Add(Memory,14712722,371,571) { Default=String(У Вас 1 степень ожирения) } Add(Memory,186560,413,571) { Default=String(У Вас 2 степень ожирения) } Add(Memory,4565692,455,571) { Default=String(У Вас 3 степень ожирения) } Add(ChanelToIndex,8485132,231,641) { Count=7 link(onIndex,15366179:doIndex,[]) } Add(If_else,4965215,280,515) { Type=4 Op2=String(20) link(onTrue,9028699:doCompare,[]) link(onFalse,8485132:doWork1,[(324,528)(324,588)(219,588)(219,647)]) link(Op1,15515717:Var2,[]) } Add(If_else,8668498,490,515) { Type=4 Op2=String(37) link(onTrue,15704802:doCompare,[]) link(onFalse,8485132:doWork5,[(533,528)(533,602)(219,602)(219,675)]) link(Op1,15657306:Var2,[]) } Add(If_else,15704802,545,515) { Type=4 Op2=String(50) link(onFalse,8485132:doWork6,[(589,528)(589,605)(219,605)(219,682)]) link(Op1,15657306:Var3,[(551,482)]) } Add(GetDataEx,15515717,273,431) { link(Data,11022542:Var1,[(286,356)]) } Add(GetDataEx,14947095,322,438) { link(Data,15515717:Var3,[(335,440)]) } Add(GetDataEx,15138982,371,452) { link(Data,14947095:Var3,[(384,447)]) } Add(GetDataEx,7668150,427,459) { link(Data,15138982:Var3,[(440,461)]) } Add(GetDataEx,15657306,483,473) { link(Data,7668150:Var3,[(496,468)]) }
|