------------ Дoбавленo в 01.22:
BeginEnd писал(а):
Не всякий без примера поймет, что:То что ты прочитал, называется вертикальным программированием, у нас мало кто его применяет, видимо, плохо себе представляют как это работает. Кстати, это распространяется не только на MathParse. Без проблем можно устроить смешанное программирование, но чтение такой схемы будет очень непривычно
Add(MainForm,11339219,147,280)
{
}
Add(Button,2151046,203,280)
{
Left=135
Top=25
Caption="Calc"
link(onClick,1834605:doData,[])
}
Add(Edit,7683434,392,273)
{
Left=200
Top=25
Text=""
}
Add(MathParse,10424193,343,273)
{
MathStr=""
Point(doMathStr)
Point(reCalc)
link(onResult,7683434:doText,[])
link(X1,14576552:reCalc,[])
}
Add(Hub,14902312,301,280)
{
link(onEvent1,10424193:doMathStr,[])
link(onEvent2,10424193:doCalc,[(329,293)(329,279)])
}
Add(DoData,1834605,252,280)
{
Data=String()
link(onEventData,14902312:doEvent1,[])
link(Data,8214691:Text,[])
}
Add(Edit,8214691,252,231)
{
Left=10
Top=25
Width=110
Text="(2+2)*3-10/2 + %1"
}
Add(MathParse,14576552,336,224)
{
MathStr="((%1 + %2) / 180) * pi"
Point(reCalc)
link(X1,11418324:Value,[(342,205)(314,205)])
link(X2,7172421:reCalc,[(349,205)(370,205)])
}
Add(Memory,11418324,308,154)
{
Default=Integer(120)
}
Add(MathParse,7172421,357,154)
{
Point(reCalc)
link(X1,13664554:Value,[(363,142)(342,142)])
link(X2,10507366:Value,[(370,142)(391,142)])
}
Add(Memory,13664554,336,98)
{
Default=Integer(10)
}
Add(Memory,10507366,385,98)
{
Default=Integer(20)
}
Поиск
Друзья
Администрация