Вообще задача решаема была в 2-3 минуты
Add(MainForm,7287395,119,182)
{
link(onActivate,12287855:doWork,[(184,188)(184,230)])
}
Add(Math,15704663,217,182)
{
OpType=1
AngleMode=1
link(onResult,8540420:doWork2,[])
link(Op1,14214765:Var2,[])
link(Op2,2047416:Var2,[])
}
Add(Edit,12808265,357,182)
{
Left=90
Top=90
Width=175
Text=""
}
Add(Memory,160075,182,84)
{
Default=Real(40159.96)
}
Add(Memory,3466732,224,84)
{
Default=Real(40158)
}
Add(VBJScript,12287855,273,224)
{
WorkPoints=#6:doWork|
EventPoints=#5:onRes|
DataPoints=#3:Op1|3:Op2|
Script=#18:Sub doWork(dt,idx)|41: sys.onRes CCur(sys.Op1) - CCur(sys.Op2)|7:End Sub|
link(Op1,14214765:Var3,[(279,152)])
link(Op2,2047416:Var3,[(286,166)])
link(onRes,8540420:doWork3,[(333,230)])
}
Add(GetDataEx,14214765,217,147)
{
link(Data,160075:Value,[(223,124)(188,124)])
}
Add(GetDataEx,2047416,224,161)
{
link(Data,3466732:Value,[])
}
Add(HubEx,8540420,329,182)
{
link(onEvent,12808265:doText,[])
}