Вверх ↑
Ответов: 8887
Рейтинг: 823
#1: 2021-05-07 10:05:30 ЛС | профиль | цитата
flash1103 писал(а):
конвертером типа hextobin

как-то так


Add(MainForm,6993731,581,182)
{
Point(onClose)
link(onCreate,15461939:doOpen,[])
link(onClose,15461939:doClose,[])
}
Add(COMEX,15461939,644,196)
{
Port=3
Point(onDCD)
Point(onOpen)
Point(doDTR)
Point(doRTS)
Point(doRXClear)
Point(onError)
Point(onClose)
link(onSyncWrite,4505513:doMessage,[])
}
Add(Button,8326494,287,161)
{
Left=5
Top=5
Width=70
Caption="включить"
Data=String(A0;01;01;A2)
link(onClick,9260600:doWork1,[(328,167)])
}
Add(Button,11733066,284,212)
{
Left=5
Top=40
Width=70
Caption="выключить"
Data=String(A0;01;00;A1)
link(onClick,9260600:doWork3,[(328,218)])
}
Add(Hub,3113838,343,189)
{
link(onEvent1,2515329:doClear,[(511,195)(511,209)])
link(onEvent2,4083153:doEnum,[])
}
Add(Message,4505513,693,196)
{
}
Add(Convertor,1995138,420,196)
{
Mode=5
link(onResult,11028615:doConvert,[])
}
Add(Str_Enum,4083153,371,196)
{
link(onEnum,1995138:doConvert,[])
link(onEndEnum,11068436:doData,[(410,209)(410,251)])
}
Add(Convertor,11028615,469,196)
{
Mode=4
link(onResult,2515329:doStrCat,[])
}
Add(HubEx,9260600,324,189)
{
link(onEvent,3113838:doEvent1,[])
}
Add(StrCat,2515329,525,196)
{
Point(doClear)
link(Str1,9022376:Var1,[(531,187)(517,187)(517,236)])
}
Add(DoData,11068436,525,245)
{
link(onEventData,15461939:doWrite,[(632,251)(632,216)])
link(Data,9022376:Var2,[])
}
Add(GetDataEx,9022376,525,231)
{
link(Data,2515329:Result,[])
}

карма: 19

0