Вверх ↑
Ответов: 493
Рейтинг: 163
#1: 2024-07-09 21:20:10 ЛС | профиль | цитата
andrewproffi, Эхо тест для проверки.
Эхо тест

Add(StyleXP,11046345,119,196)
{
}
Add(MainForm,14372191,119,133)
{
Left=200
Top=150
Width=930
Height=344
Color=-16777194
Font=[Arial,8,0,0,1]
Ctl3D=0
Caption="COM PORT эхо тест"
BorderStyle=1
Point(doBringToFront)
Point(onSetFocus)
Point(onDblClick)
link(onCreate,8070816:doEvent2,[(189,153)(189,97)])
}
Add(Button,1842072,231,203)
{
Left=15
Top=110
Width=120
Height=30
Hint="Закрыть порт"
Caption="Закрыть порт"
Data=Real(0)
link(onClick,2365950:doClose,[(291,209)(291,174)])
}
Add(Button,13336586,231,161)
{
Left=15
Top=75
Width=120
Height=30
Hint="Открыть порт"
Caption="Открыть порт"
Data=Real(0)
link(onClick,2365950:doOpen,[])
}
Add(ComboBox,8670476,364,77)
{
Left=15
Top=47
Width=120
Height=21
Strings=#1:1|1:2|1:3|1:4|1:5|1:6|1:7|1:8|1:9|2:10|0:|0:|
AddType=1
Text="Выберите порт"
ReadOnly=0
}
Add(COMEX,2365950,371,161)
{
BaudRate=18
link(onSyncRead,16160086:doEvent1,[])
link(Port,8670476:String,[])
}
Add(Button,1574390,119,84)
{
Left=15
Top=5
Width=120
Height=35
Hint="Открыть порта"
Caption="Поиск порт"
Data=Real(0)
link(onClick,8070816:doEvent1,[])
}
Add(EnumCOM,2173630,245,91)
{
OutType=0
link(onEnumPorts,8670476:doAdd,[(307,97)(307,83)])
}
Add(Hub,8070816,210,84)
{
InCount=2
link(onEvent1,8670476:doClear,[])
link(onEvent2,2173630:doEnumPorts,[])
}
Add(Edit,16203784,231,252)
{
Left=155
Top=10
Width=750
Height=25
Text="$\r\n1234567890-1234567890-1234567890-1234567890-1234567890-1234567890-1234567890-1234567890-1234567890-1234567890\r\n;"
}
Add(Button,4807042,91,308)
{
Left=460
Top=45
Width=120
Caption="Отправить в порт"
link(onClick,89250:doEvent1,[])
}
Add(DoData,10120869,231,315)
{
link(onEventData,2365950:doWrite,[(342,321)(342,181)])
link(Data,16203784:Text,[])
}
Add(Memo,3392915,483,84)
{
Left=160
Top=80
Width=370
Height=105
ScrollBars=2
}
Add(Hub,16160086,427,175)
{
OutCount=4
link(onEvent1,3392915:doAdd,[(465,181)(465,90)])
link(onEvent2,7023906:doEvent1,[])
link(onEvent4,5377687:doEvent1,[(450,202)(450,405)])
}
Add(Edit,1011895,812,252)
{
Left=160
Top=200
Width=750
}
Add(StrMask,16386624,560,126)
{
CaseSensitive=0
Mask="$*"
link(onTrue,10867654:doClear,[(628,139)(628,202)])
AddHint(-1,40,25,13,Mask)
}
Add(Hub,7023906,504,182)
{
OutCount=3
link(onEvent1,16386624:doCompare,[(539,188)(539,132)])
link(onEvent2,10867654:doStrCat,[])
link(onEvent3,11819919:doCompare,[(539,202)(539,251)])
}
Add(StrMask,11819919,567,245)
{
CaseSensitive=0
Mask="*;"
link(onTrue,14241085:doData,[])
AddHint(-1,43,22,13,Mask)
}
Add(StrCat,10867654,665,189)
{
Point(doClear)
link(Str1,1760899:Var3,[(671,177)(643,177)])
}
Add(DoData,14241085,637,252)
{
link(onEventData,9551511:doEvent1,[])
link(Data,1760899:Var2,[])
}
Add(GetDataEx,1760899,637,224)
{
Angle=1
link(Data,10867654:Result,[(671,229)])
}
Add(Edit,15675481,854,315)
{
Left=160
Top=235
Width=750
}
Add(Hub,9551511,707,252)
{
link(onEvent1,1011895:doText,[])
link(onEvent2,10972279:doSearch,[(731,265)(731,321)])
}
Add(BlockFind,10972279,756,315)
{
IncludeBlock=1
StartBlock="$"
EndBlock=";"
link(onSearch,15675481:doText,[])
}
Add(Hub,89250,154,308)
{
link(onEvent1,9160591:doEvent1,[(189,314)(189,377)])
link(onEvent2,10120869:doData,[])
}
Add(LineBreak,4176414,427,91)
{
Caption="c"
link(Out,3392915:doClear,[])
Primary=[4496545,-126,280]
}
Add(DataAccumulator,9720182,574,406)
{
BufferSize=1024
Mode=1
Delimiter=";"
MaxLength=0
link(onData,4404576:doText,[])
link(Data,15624878:Value,[])
}
Add(Edit,4404576,756,406)
{
Left=160
Top=275
Width=750
}
Add(Memory,15624878,574,357)
{
}
Add(Hub,5377687,518,399)
{
link(onEvent1,15624878:doValue,[(553,405)(553,363)])
link(onEvent2,9720182:doStore,[])
}
Add(Hub,9160591,231,371)
{
OutCount=4
link(onEvent1,4496545:In,[])
link(onEvent2,5660177:In,[])
link(onEvent3,7995105:In,[])
link(onEvent4,14519343:In,[])
}
Add(LineBreak,8254559,763,259)
{
Caption="c"
link(Out,1011895:doText2,[])
Primary=[5660177,-504,119]
}
Add(LineBreak,15480704,805,322)
{
Caption="c"
link(Out,15675481:doText2,[])
Primary=[7995105,-504,63]
}
Add(LineBreak,14620279,707,413)
{
Caption="c"
link(Out,4404576:doText2,[])
Primary=[14519343,-448,-21]
}
Add(InfoTip,7404090,497,350)
{
Info=#28:DataAccumulator от Netspirit|
VAlign=2
Width=183
Height=123
Margin=10
}


Если не сложно можете выложить HEX для ардуинки с циклической отправкой данных вашего протокола (желательно с описанием чего должно быть). Проверим.
карма: 4

1
Голосовали:andrewproffi
Редактировалось 1 раз(а), последний 2024-07-09 22:59:38