------------ Дoбавленo в 18.51:
Litovecc писал(а):
Как исправить?Смотри выложенный мной пример
------------ Дoбавленo в 18.52:
Add(MainForm,5371583,245,0)
{
Width=271
Height=250
}
Add(Edit,6194535,112,70)
{
Left=20
Top=80
Width=45
Text="90"
}
Add(Edit,13405503,168,70)
{
Left=105
Top=80
Width=45
Text="1.82"
}
Add(Edit,8353239,287,147)
{
Left=195
Top=80
Width=35
Text="20"
}
Add(MathParse,9787331,161,217)
{
DataCount=3
MathStr="50 + ( ( %2 - 1.50 ) * 100 ) * 0.75 + ( %3 - 20 ) / 4"
link(onResult,7160870:doText,[])
link(X1,11290087:Var3,[(167,159)])
link(X2,11736827:Var2,[])
link(X3,8353239:Text,[(181,198)(293,198)])
}
Add(Edit,7160870,245,217)
{
Left=15
Top=175
Width=45
Text="0"
}
Add(Edit,4620264,238,364)
{
Left=90
Top=175
Text="0"
}
Add(Button,11407319,0,217)
{
Left=15
Top=110
Width=70
Height=30
Caption="Узнать"
link(onClick,7524938:doEvent1,[])
}
Add(Label,2459272,14,98)
{
Left=10
Top=50
Width=65
Height=27
Caption="Введите ваш вес"
AutoSize=1
Alignment=2
}
Add(Label,10810512,14,147)
{
Left=95
Top=50
Width=65
Height=27
Caption="Введите ваш рост"
AutoSize=1
Alignment=2
}
Add(Label,4264649,14,49)
{
Left=180
Top=50
Width=68
Height=27
Caption="Введите ваш возраст"
AutoSize=1
Alignment=2
}
Add(Hub,7524938,63,217)
{
OutCount=3
link(onEvent1,9787331:doCalc,[])
link(onEvent2,1632706:doCalc,[(115,230)(115,370)])
link(onEvent3,12070504:doCompare,[(105,237)(105,426)])
}
Add(MathParse,1632706,126,364)
{
DataCount=3
MathStr="%1/(%2*%2)"
link(onResult,4620264:doText,[])
link(X1,11290087:Var2,[(132,254)(118,254)])
link(X2,11736827:Var1,[(139,152)])
}
Add(GetDataEx,11736827,168,147)
{
link(Data,13405503:Text,[])
}
Add(GetDataEx,11290087,112,154)
{
link(Data,6194535:Text,[])
}
Add(Label,1455740,287,105)
{
Left=10
Top=145
Width=58
Height=27
Caption="Идеальный вес"
AutoSize=1
Alignment=2
}
Add(Label,105747,238,322)
{
Left=90
Top=150
Width=52
Height=17
Caption="Ваш ИМТ"
AutoSize=1
Alignment=2
}
Add(If_else,12070504,322,420)
{
Type=1
Op2=Real(16)
link(onTrue,8612921:doMessage,[])
link(Op1,1632706:Result,[(328,408)(132,408)])
}
Add(Message,8612921,378,420)
{
Message="У вас выраженный дефицит тела"
Caption="Ваш диагноз"
}