Вверх ↑
Ответов: 5227
Рейтинг: 587
#1: 2008-09-07 14:50:42 ЛС | профиль | цитата
Андрей., ну почему сложную всё элементарно


#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)])
}


карма: 4
Мой форум - http://hiasm.bbtalk.me/ схемы, компоненты...
0