Вверх ↑
Ответов: 8923
Рейтинг: 823
#1: 2017-01-18 19:20:41 ЛС | профиль | цитата
vas31, надо чуть задержать выполнение таймером или Thread с автостопом:
схема


Add(MainForm,2953706,644,196)
{
}
Add(Button,10609792,252,189)
{
Left=5
Top=25
Width=70
Caption="Откр. файл"
link(onClick,7855913:doExecute,[])
}
Add(ODialog,7855913,301,189)
{
link(onExecute,12614718:doEvent1,[])
}
Add(FileStream,8706425,455,231)
{
Point(doPosition)
link(onLoad,14284061:doConvert,[])
link(FileName,8358801:Value,[])
}
Add(Hub,12614718,350,189)
{
OutCount=3
link(onEvent1,8358801:doValue,[])
link(onEvent2,11398203:doOn,[(440,202)(440,160)])
link(onEvent3,1156715:doTimer,[(375,209)(375,237)])
}
Add(Convertor,14284061,504,231)
{
Mode=11
link(onResult,13898442:doWrite,[(543,237)(543,216)])
}
Add(Edit,15163121,518,133)
{
Left=90
Top=25
Text="1"
DataType=2
}
Add(Edit,15461485,560,133)
{
Left=155
Top=25
Text="9600"
DataType=2
}
Add(COM,13898442,553,189)
{
link(onWrite,11769587:doEvent1,[])
link(Port,15163121:Text,[(559,180)(524,180)])
link(BaudRate,15461485:Text,[])
}
Add(Memory,8358801,455,189)
{
link(onData,13898442:doOpen,[])
}
Add(Hub,9963237,427,231)
{
link(onEvent1,8706425:doOpen,[])
link(onEvent2,8706425:doClose,[])
}
Add(LED,11398203,455,140)
{
Left=235
Top=30
}
Add(Timer,1156715,385,231)
{
Interval=10
Enable=1
AutoStop=1
link(onTimer,9963237:doEvent1,[])
}
Add(Hub,11769587,609,189)
{
link(onEvent1,11398203:doOff,[(634,195)(634,125)(445,125)(445,153)])
link(onEvent2,2953706:doCaption,[])
}

карма: 19

0