Вверх ↑
Ответов: 495
Рейтинг: 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