Вверх ↑
Ответов: 8888
Рейтинг: 823
#1: 2019-10-10 10:26:52 ЛС | профиль | цитата
max_kz писал(а):
с задержкой секунда
Совсем не обязательно считывать порт 64 раза/сек излишне нагружая свой компьютер, достаточно пары раз в секунду. При чтении порта считанные данные удаляются из буфера и можно не обнулять его. Порт выдаёт что получил без разбора, поэтому данные надо накапливать и парсить отдельно.


Add(Timer,11901500,497,126)
{
Interval=500
Enable=1
link(onTimer,16112240:doData,[])
}
Add(DoData,16112240,546,126)
{
Data=Integer(256)
link(onEventData,10903250:doRead,[])
}
Add(Hub,15962356,434,98)
{
OutCount=3
link(onEvent1,10903250:doOpen,[])
link(onEvent2,11901500:doTimer,[(472,111)(472,132)])
}
Add(Button,6627573,385,98)
{
Left=10
Top=37
Caption="Start"
link(onClick,15962356:doEvent1,[])
}
Add(Button,1445190,385,168)
{
Left=10
Top=55
Caption="Stop"
link(onClick,13915471:doEvent1,[])
}
Add(Hub,13915471,434,168)
{
InCount=2
OutCount=3
link(onEvent1,10903250:doClose,[(592,174)(592,111)])
link(onEvent2,11901500:doStop,[(471,181)(471,139)])
}
Add(MainForm,3499755,301,161)
{
Width=1091
Height=595
Point(onClose)
link(onClose,13915471:doEvent2,[(425,188)(425,181)])
}
Add(Edit,10797025,581,49)
{
Left=15
Top=10
Text="9"
DataType=2
}
Add(COM,10903250,602,98)
{
Port=8
link(onRead,11923192:doCompare,[])
link(Port,10797025:Text,[(608,89)(587,89)])
link(BaudRate,12135757:Text,[(615,89)(629,89)])
}
Add(Edit,12135757,623,49)
{
Left=80
Top=10
Text="9600"
DataType=2
}
Add(If_else,11923192,651,105)
{
Type=5
Op2=String()
link(onTrue,15076580:doStrCat,[])
}
Add(Memo,11943547,897,119)
{
Left=130
Top=10
Width=940
Height=540
ScrollBars=3
}
Add(Memory,15423029,749,56)
{
Default=String()
}
Add(StrCat,15076580,749,105)
{
Point(doClear)
link(onStrCat,11082833:doEvent1,[])
link(Str1,15423029:Value,[])
}
Add(MultiElement,15946797,826,112)
{
link(onEvent1,9065061:doEvent1,[(865,118)(865,48)(697,48)(697,69)])
link(onEvent2,11943547:doAdd,[])
}
BEGIN_SDK
Add(EditMulti,3968562,21,21)
{
EventCount=2
WorkCount=1
Width=405
Height=242
}
Add(InfoTip,16531289,70,70)
{
Info=#33:Здесь разбираем полученную строку|
Width=246
}
END_SDK
Add(Hub,11082833,791,105)
{
link(onEvent1,15423029:doValue,[(816,111)(816,97)(739,97)(739,62)])
link(onEvent2,15946797:doWork1,[])
}
Add(Hub,9065061,707,63)
{
link(onEvent1,15423029:doClear,[])
link(onEvent2,15076580:doClear,[(732,76)(732,118)])
}

карма: 19

0