Андрей., ну почему сложную всё элементарно
#sha Add(MainForm,3255012,91,315) { Left=20 Top=105 link(onCreate,2043169:doData,[]) } Add(FileStream,4109626,392,203) { FileName="C:\temp.csv" Mode=2 link(FileName,11368428:Var2,[]) } Add(DataToFile,11439230,392,259) { Type=6 Point(doPosition) link(Stream,4109626:Stream,[]) } Add(DoData,9693998,336,273) { link(onEventData,11439230:doPosition,[]) link(Data,4109626:Size,[(342,245)(405,245)]) } Add(Hub,34013,245,266) { InCount=2 OutCount=4 link(onEvent1,4109626:doOpen,[(288,272)(288,209)]) link(onEvent2,9693998:doData,[]) link(onEvent3,11439230:doPut,[(295,286)(295,265)]) link(onEvent4,4109626:doClose,[(304,293)(304,216)]) } Add(Memory,7938457,392,133) { Default=String(C:\temp.csv) } Add(FormatStr,13702581,147,266) { DataCount=3 Mask="%1;%2;%3 " link(onFString,34013:doEvent1,[]) link(Str1,9642950:Value,[]) link(Str2,3596810:FormatTime,[]) link(Str3,11119412:Value,[]) } Add(Timer,6842543,91,266) { link(onTimer,13702581:doString,[]) } Add(Time,3596810,154,161) { } Add(Memory,9642950,147,217) { Default=String(Информация) } Add(Memory,11119412,161,112) { Default=String(Параметр датчика) } Add(Button,367149,455,210) { Left=10 Top=15 Width=75 Caption="Открыть" link(onClick,1771055:doShellExec,[]) } Add(WinExec,1771055,511,203) { link(FileName,11368428:Var3,[(517,184)]) } Add(GetDataEx,11368428,385,175) { link(Data,7938457:Value,[]) } Add(DoData,2043169,147,329) { Data=String(Информация;Текущее время;Параметр датчика ) link(onEventData,34013:doEvent2,[(212,335)(212,279)]) }
|