Вверх ↑
Ответов: 1397
Рейтинг: 50
#1: 2008-10-25 20:22:20 ЛС | профиль | цитата
У программистов сидячий образ работы (жизни) что неблаготворно сказывается на излишнем весе или наоборот, когда некогда перекусить. Вот для них, а также всех кто ведет малоподвижный образ жизни пригодится эта программка.
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)])
}

карма: 0
Время верстки: %cr_time% Текущее время: %time%
1
файлы: 1code_10392.txt [4.6KB] [265]
Голосовали:Астрамак