Вверх ↑
Этот топик читают: Гость
Ответов: 36
Рейтинг: 0
#1: 2024-07-05 19:43:35 ЛС | профиль | цитата
Здравствуйте. Ни у кого не было такой проблемы? В вин10 все работает нормально. в вин11 та же программа видит доступные ком порты, но при нажатии кнопки открыть ком порт, открытия не происходит. Пробовал программу скомпилированную и в вин10 и в вин11
карма: 0

0
Ответов: 36
Рейтинг: 0
#2: 2024-07-07 18:54:09 ЛС | профиль | цитата
Попробовал переходник с другой микросхемой, получилось открыть. Но вечная проблема с дроблением отправленной из устройства строки ком портом.
карма: 0

0
Ответов: 8897
Рейтинг: 823
#3: 2024-07-07 19:24:08 ЛС | профиль | цитата
andrewproffi, главами "Война и мир" Льва Николаевича делитесь Или команды такие длинные
Да и схему выложить не мешало бы.
карма: 19

0
Ответов: 69
Рейтинг: 1
#4: 2024-07-08 10:36:31 ЛС | профиль | цитата
Попробовал переходник с другой микросхемой, получилось открыть. Но вечная проблема с дроблением отправленной из устройства строки ком портом.

При приеме данных используйте "накопитель". И здесь уже потребуется определить начало-конец посылки после получения получения очередного "пакета" данных. Для распознания начала-конца посылки, как вариант, можно использовать компонет BlockFind. Если что-то посерьезнее, то это уже протокол обмена с командами и контрольными суммами (CRC).
Так же следует учитывать в каком типе данных собираетесь передавать данный (BIN, ANSI и т.д.)

Редактировалось 1 раз(а), последний 2024-07-08 10:38:07
карма: 0

0
Ответов: 36
Рейтинг: 0
#5: 2024-07-08 14:29:37 ЛС | профиль | цитата
в какой вкладке он находится? не могу найти.
Для парсинга использую BlockFind.
карма: 0

0
Ответов: 36
Рейтинг: 0
#6: 2024-07-08 19:50:32 ЛС | профиль | цитата
Леонид писал(а):
andrewproffi, главами "Война и мир" Льва Николаевича делитесь Или команды такие длинные
Да и схему выложить не мешало бы.

да гребанный форум, писал сообщение в итоге он вышел из аакаунта и удалил его.
пакет из 10 команд: 20 байт +пауза 5мс + 20 байт +пауза...
приходится дробить строку и делать паузы иначе хайасм ее обрежет сам и разобьет
программа терминал все принимает без проблем
>
Make(delphi)
ver(4.05 build 186)
Add(VisualShape,9619313,1453,669)
{
Left=520
Top=670
Width=490
Height=35
Color=-16777204
Color2=-16777204
}
Add(VisualShape,8992484,1502,718)
{
Left=520
Top=630
Width=490
Height=35
Color=65280
Color2=65280
}
Add(VisualShape,6621327,1488,634)
{
Left=520
Top=590
Width=490
Height=35
Color=255
Color2=255
}
Add(VisualShape,9461506,1484,679)
{
Left=520
Top=550
Width=490
Height=35
Color=0
Color2=0
}
Add(VisualShape,5432128,1435,182)
{
Left=15
Top=170
Width=120
Height=145
Ctl3D=0
}
Add(Image,3179763,1442,35)
{
Left=425
Top=5
Width=868
Height=533
Color=0
Visible=1
Point(doVisible)
}
Add(Hub,1978584,553,112)
{
OutCount=4
link(onEvent3,3673227:doEvent1,[(630,132)(630,167)])
link(onEvent4,16668560:doAdd,[(579,139)(579,265)(443,265)(443,391)])
}
Add(Label,3946155,427,63)
{
Left=45
Top=25
Width=0
Height=17
Color=-16777194
Caption="COM порт"
Alignment=2
}
Add(StyleXP,11046345,266,91)
{
}
Add(MainForm,14372191,91,238)
{
Left=200
Top=150
Width=1527
Height=737
Color=-16777194
Font=[Arial,8,0,0,1]
Ctl3D=0
Caption="test AKB"
BorderStyle=1
Point(doBringToFront)
Point(onSetFocus)
Point(onDblClick)
link(onActivate,15162287:doEvent1,[])
}
Add(Button,1842072,224,196)
{
Left=15
Top=110
Width=120
Height=30
Hint="Закрыть порт"
Caption="Закрыть порт"
Data=Real(0)
link(onClick,2365950:doClose,[(310,202)(310,223)])
}
Add(Button,13336586,224,238)
{
Left=15
Top=75
Width=120
Height=30
Hint="Открыть порт"
Caption="Открыть порт"
Data=Real(0)
link(onClick,2365950:doOpen,[(265,244)(265,216)])
}
Add(ComboBox,8670476,357,126)
{
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,364,210)
{
BaudRate=18
link(onSyncRead,1978584:doEvent1,[(471,230)(471,118)])
link(Port,8670476:String,[])
}
Add(Button,1574390,147,133)
{
Left=15
Top=5
Width=120
Height=35
Hint="Открыть порта"
Caption="Поиск порт"
Data=Real(0)
link(onClick,8070816:doEvent1,[])
}
Add(EnumCOM,2173630,238,140)
{
OutType=0
link(onEnumPorts,8670476:doAdd,[(300,146)(300,132)])
}
Add(Hub,8070816,203,133)
{
InCount=2
OutCount=3
link(onEvent1,8670476:doClear,[])
link(onEvent2,2173630:doEnumPorts,[])
}
Add(Hub,15162287,147,238)
{
link(onEvent1,8070816:doEvent2,[(182,244)(182,146)])
}
Add(Button,7184611,1141,35)
{
Left=20
Top=180
Width=108
Height=40
Caption="Скриншот"
link(onClick,16364808:doCapture,[])
}
Add(Hub,2186279,1302,35)
{
link(onEvent1,3179763:doLoad,[])
link(onEvent2,3535410:doData,[(1326,48)(1326,55)])
}
Add(InlineCode,16364808,1253,35)
{
WorkPoints=#9:doCapture|
EventPoints=#5:onScr|
Code=#25:// autor andrestudio 2021|15:unit HiAsmUnit;|0:|9:interface|0:|29:uses kol,windows,Share,Debug;|0:|5:const|12: PSIZE = 2;|0:|4:type|28: THiAsmClass = class(TDebug)|10: private|27: f1,f2,f3,f4: PControl;|16: t1: PTimer;|9: public|22: onScr: THI_Event;|51: procedure doCapture(var dt: TData; idx: word);|73: procedure onMouseDown(Sender: PControl; var Mouse: TMouseEventData);|71: procedure onMouseUp(Sender: PControl; var Mouse: TMouseEventData);|31: procedure Timer(Obj:PObj);|22: procedure GetBMP;|5: end;|0:|14:implementation|0:|29:procedure THiAsmClass.GetBMP;|3:var|10: dc: HDC;|19: Bmp: Kol.PBitmap;|19: w,h,x,y: integer;|14: pos: TPoint;|5:begin|18: dc := GetDC(0);|21: GetCursorPos(pos);|59: w := Max(f2.Left,f4.Left) - Min(f2.Left,f4.Left) -PSIZE;|55: h := Max(f1.Top,f3.Top) - Min(f1.Top,f3.Top) -PSIZE;|35: x := Min(f2.Left,f4.Left)+PSIZE;|33: y := Min(f1.Top,f3.Top)+PSIZE;|3: |25: Bmp := NewBitmap(w,h);|69: BitBlt(Bmp.Canvas.Handle,0,0,Bmp.Width,Bmp.Height,DC,x,y,SRCCOPY);|26: _hi_OnEvent(onScr,bmp);|23: bmp.CopyToClipboard;|12: bmp.Free;|54: // пришлось отказатся от пересоздания из за FPC |40: //f1.Free; f2.Free; f3.Free; f4.Free;|13: //t1.Free;|4:end;|0:|34:procedure THiAsmClass.onMouseDown;|5:begin|38: if Mouse.Button <> mbLeft then Exit;|14: t1.Tag := 2;|20: f3.Show; f4.Show; |4:end;|0:|32:procedure THiAsmClass.onMouseUp;|5:begin|38: if Mouse.Button <> mbLeft then Exit;|33: if f2.Left = f4.Left then Exit;|31: if f1.Top = f3.Top then Exit;|22: t1.Enabled := False;|37: f1.Hide; f2.Hide; f3.Hide; f4.Hide;|9: GetBMP;|4:end;|0:|38:procedure THiAsmClass.Timer(Obj:PObj);|3:var|14: pos: TPoint;|5:begin|20: GetCursorPos(pos);|21: if Obj.Tag = 1 then|7: begin|20: f1.Top := Pos.y;|21: f2.Left := Pos.x;|6: end;|21: if Obj.Tag = 2 then|7: begin|20: f3.Top := Pos.y;|21: f4.Left := Pos.x;|8: end; |4:end;|0:|32:procedure THiAsmClass.doCapture;|6:begin |34: if not Assigned(f1) then begin |28: f1 := NewForm(Applet,'');|22: f1.GetWindowHandle;|25: f1.Style := 101187584;|23: f1.ExStyle := 65536;|27: f1.Width := ScreenWidth;|22: f1.Height := PSIZE;|19: f1.Color := 255;|16: f1.Left := 0;|13: //f1.Show;|38: f1.onMouseDown := onMouseDown; end;|0:|34: if not Assigned(f2) then begin |28: f2 := NewForm(Applet,'');|22: f2.GetWindowHandle;|25: f2.Style := 101187584;|23: f2.ExStyle := 65536;|29: f2.Height := ScreenHeight;|21: f2.Width := PSIZE;|19: f2.Color := 255;|15: f2.Top := 0;|13: //f2.Show;|38: f2.onMouseDown := onMouseDown; end;|3: |35: if not Assigned(f3) then begin |28: f3 := NewForm(Applet,'');|22: f3.GetWindowHandle;|25: f3.Style := 101187584;|23: f3.ExStyle := 65536;|27: f3.Width := ScreenWidth;|22: f3.Height := PSIZE;|19: f3.Color := 255;|16: f3.Left := 0;|11: f3.Hide;|34: f3.onMouseUp := onMouseUp; end;|0:|34: if not Assigned(f4) then begin |28: f4 := NewForm(Applet,'');|22: f4.GetWindowHandle;|25: f4.Style := 101187584;|23: f4.ExStyle := 65536;|29: f4.Height := ScreenHeight;|21: f4.Width := PSIZE;|19: f4.Color := 255;|15: f4.Top := 0;|11: f4.Hide;|42: f4.onMouseUp := onMouseUp; end; |3: |34: if not Assigned(t1) then begin |22: t1 := NewTimer(25);|28: t1.OnTimer := Timer; end;|15: t1.Tag := 1;|23: t1.Enabled := True; |11: f1.Show;|16: f2.Show; |4:end;|0:|4:end.|
link(onScr,2186279:doEvent1,[])
}
Add(SDialog,12843375,1183,119)
{
Filter=".jpeg"
FileName=""
Point(doFileName)
link(onExecute,6649720:doEvent1,[])
}
Add(Button,2096136,1141,119)
{
Left=20
Top=225
Width=110
Height=40
Caption="Сохранить картинку"
Point(doVisible)
link(onClick,12843375:doExecute,[])
}
Add(StrCat,864988,1253,126)
{
Str2=".jpeg"
link(onStrCat,3599384:doEvent1,[])
link(Str1,15696856:GetData,[])
}
Add(EventFromData,15696856,1253,77)
{
}
Add(Hub,6649720,1225,119)
{
link(onEvent1,15696856:doData,[(1246,125)(1246,83)])
link(onEvent2,864988:doStrCat,[])
}
Add(PictureStream,8303435,1435,119)
{
link(Bitmap,3179763:ImageBitmap,[])
}
Add(DoData,3535410,1337,49)
{
Data=Integer(1)
link(onEventData,15356796:doEvent1,[])
}
Add(Hub,3599384,1302,126)
{
link(onEvent1,8303435:doSave,[])
link(onEvent2,2824840:doData,[])
}
Add(DoData,2824840,1337,133)
{
Data=Integer(0)
link(onEventData,15356796:doEvent2,[(1385,139)(1385,62)])
}
Add(Hub,15356796,1407,49)
{
InCount=3
OutCount=1
link(onEvent1,3179763:doVisible,[])
}
Add(Button,5182486,1141,175)
{
Left=20
Top=270
Width=110
Height=35
Caption="Отмена"
Data=Integer(0)
Point(doVisible)
link(onClick,15356796:doEvent3,[(1395,181)(1395,69)])
}
Add(Edit,11229754,1358,259)
{
Left=390
Width=960
Height=30
Font=[GOST type B,14,1,0,204]
Visible=1
Text=""
Alignment=2
ClearAfterEnter=1
Point(doVisible)
}
Add(CheckBox,3004579,1309,259)
{
Left=20
Top=360
Width=110
Color=-16777194
Caption="Добавить подпись"
link(onCheck,11229754:doVisible,[(1349,265)(1349,279)])
}
Add(BlockFind,9088038,749,161)
{
IncludeBlock=1
StartBlock="N1="
EndBlock="n"
link(onSearch,5789015:doText,[])
}
Add(Edit,5789015,798,161)
{
Left=910
Top=550
Width=90
Height=35
Font=[MS Sans Serif,14,1,0,1]
Enabled=1
Name="n1"
Text=""
Alignment=2
DataType=4
ReadOnly=0
}
Add(BlockFind,15662643,749,217)
{
IncludeBlock=1
StartBlock="N2="
EndBlock="n"
Point(doStop)
link(onSearch,12165363:doText,[])
}
Add(Edit,12165363,798,217)
{
Left=910
Top=590
Width=90
Height=35
Font=[MS Sans Serif,14,1,0,1]
Enabled=1
Name="n2"
Text=""
Alignment=2
DataType=4
ReadOnly=0
}
Add(BlockFind,2182903,749,273)
{
IncludeBlock=1
StartBlock="N3="
EndBlock="n"
Point(doStop)
link(onSearch,10962526:doText,[])
}
Add(Edit,10962526,798,273)
{
Left=910
Top=630
Width=90
Height=35
Font=[MS Sans Serif,14,1,0,1]
Enabled=1
Name="n3"
Text=""
Alignment=2
DataType=4
ReadOnly=0
}
Add(BlockFind,5390850,749,329)
{
IncludeBlock=1
StartBlock="N4="
EndBlock="n"
Point(doStop)
link(onSearch,16219502:doText,[])
}
Add(Edit,16219502,798,329)
{
Left=910
Top=670
Width=90
Height=35
Font=[MS Sans Serif,14,1,0,1]
Enabled=1
Name="n4"
Text=""
Alignment=2
DataType=4
ReadOnly=0
}
Add(Hub,3673227,693,161)
{
OutCount=8
link(onEvent1,9088038:doSearch,[])
link(onEvent2,15662643:doSearch,[(728,174)(728,223)])
link(onEvent3,2182903:doSearch,[(728,181)(728,279)])
link(onEvent4,5390850:doSearch,[(728,188)(728,335)])
link(onEvent5,10450601:doSearch,[(728,195)(728,384)])
link(onEvent6,9198612:doSearch,[(728,202)(728,440)])
link(onEvent7,3078973:doSearch,[(728,209)(728,496)])
link(onEvent8,12154479:doSearch,[(728,216)(728,552)])
}
Add(Label,819423,252,581)
{
Left=540
Top=530
Width=68
Height=17
Color=-16777194
Caption="Напряжение"
}
Add(Label,33608,249,578)
{
Left=660
Top=530
Width=23
Height=17
Color=-16777194
Caption="Ток"
}
Add(Label,11948939,242,571)
{
Left=740
Top=530
Width=48
Height=17
Color=-16777194
Caption="Емкость"
}
Add(Label,13044191,235,564)
{
Left=841
Top=531
Width=37
Height=17
Color=-16777194
Caption="Время"
}
Add(Label,14869141,228,557)
{
Left=915
Top=530
Width=77
Height=17
Color=-16777194
Caption="Кол-во циклов"
}
Add(Label,10869640,247,652)
{
Left=505
Top=555
Width=12
Height=25
Color=-16777194
Font=[GOST type B,14,1,0,204]
Caption="1"
}
Add(Label,5438268,246,650)
{
Left=505
Top=595
Width=14
Height=25
Color=-16777194
Font=[GOST type B,14,1,0,204]
Caption="2"
}
Add(Label,3258498,239,643)
{
Left=505
Top=635
Width=14
Height=25
Color=-16777194
Font=[GOST type B,14,1,0,204]
Caption="3"
}
Add(Label,16389299,232,636)
{
Left=505
Top=675
Width=15
Height=25
Color=-16777194
Font=[GOST type B,14,1,0,204]
Caption="4"
}
Add(BlockFind,10450601,749,378)
{
IncludeBlock=1
StartBlock="R1="
EndBlock="m"
link(onSearch,8061186:doText,[])
}
Add(Edit,8061186,798,378)
{
Left=1005
Top=550
Width=90
Height=35
Font=[MS Sans Serif,14,1,0,1]
Enabled=1
Name="R1"
Text=""
Alignment=2
DataType=4
ReadOnly=0
}
Add(BlockFind,9198612,749,434)
{
IncludeBlock=1
StartBlock="R2="
EndBlock="m"
Point(doStop)
link(onSearch,11581458:doText,[])
}
Add(Edit,11581458,798,434)
{
Left=1005
Top=590
Width=90
Height=35
Font=[MS Sans Serif,14,1,0,1]
Enabled=1
Name="R2"
Text=""
Alignment=2
DataType=4
ReadOnly=0
}
Add(BlockFind,3078973,749,490)
{
IncludeBlock=1
StartBlock="R3="
EndBlock="m"
Point(doStop)
link(onSearch,10972951:doText,[])
}
Add(Edit,10972951,798,490)
{
Left=1005
Top=630
Width=90
Height=35
Font=[MS Sans Serif,14,1,0,1]
Enabled=1
Name="R3"
Text=""
Alignment=2
DataType=4
ReadOnly=0
}
Add(BlockFind,12154479,749,546)
{
IncludeBlock=1
StartBlock="R4="
EndBlock="m"
Point(doStop)
link(onSearch,6602635:doText,[])
}
Add(Edit,6602635,798,546)
{
Left=1005
Top=670
Width=90
Height=35
Font=[MS Sans Serif,14,1,0,1]
Enabled=1
Name="R4"
Text=""
Alignment=2
DataType=4
ReadOnly=0
}
Add(Label,3568395,222,551)
{
Left=1010
Top=530
Width=82
Height=17
Color=-16777194
Caption="Сопротивление"
}
Add(SDialog,11161239,301,413)
{
Filter=".txt"
FileName=""
Point(doFileName)
link(onExecute,11114417:doEvent1,[])
}
Add(Button,12598604,259,413)
{
Left=15
Top=400
Width=120
Height=40
Caption="Сохранить текст"
Point(doVisible)
link(onClick,11161239:doExecute,[])
}
Add(StrCat,11940027,371,420)
{
Str2=".txt"
link(onStrCat,16668560:doSave,[])
link(Str1,6746969:GetData,[])
}
Add(EventFromData,6746969,371,371)
{
}
Add(Hub,11114417,343,413)
{
link(onEvent1,6746969:doData,[(364,419)(364,377)])
link(onEvent2,11940027:doStrCat,[])
}
Add(Memo,16668560,455,385)
{
Left=5
Top=515
Width=495
Height=190
ScrollBars=2
Point(doSave)
}
Add(Edit,13831158,133,553)
{
Left=1305
Top=590
Width=120
Height=30
Font=[MS Sans Serif,10,1,0,1]
Name="n1"
Text=""
Alignment=2
DataType=4
link(onEnter,2147313:doEvent6,[(181,566)(181,412)])
}
Add(Button,1428091,140,336)
{
Left=1305
Top=550
Width=120
Height=30
Hint="Открыть порт"
Caption="Режим тестирования"
Data=Integer(252)
link(onClick,2147313:doEvent1,[(184,342)(184,377)])
}
Add(Button,14506433,140,378)
{
Left=1165
Top=655
Width=120
Height=30
Hint="Открыть порт"
Caption="пропустить паузу"
Data=Integer(131)
link(onClick,2147313:doEvent2,[])
}
Add(Button,10368005,140,420)
{
Left=1165
Top=620
Width=120
Height=30
Hint="Открыть порт"
Caption="режим разряда"
Data=Integer(132)
link(onClick,2147313:doEvent3,[(184,426)(184,391)])
}
Add(Button,15944908,140,462)
{
Left=1165
Top=585
Width=120
Height=30
Hint="режим заряда"
Caption="режим заряда"
Data=Integer(133)
link(onClick,2147313:doEvent4,[(184,468)(184,398)])
}
Add(Hub,2147313,196,371)
{
InCount=6
OutCount=1
link(onEvent1,2365950:doWrite,[(287,377)(287,230)])
}
Add(Button,13074427,137,508)
{
Left=1165
Top=550
Width=120
Height=30
Hint="Открыть порт"
Caption="тест полной емкости"
Data=Integer(123)
link(onClick,2147313:doEvent5,[(183,514)(183,405)])
}

Редактировалось 1 раз(а), последний 2024-07-08 19:53:06
карма: 0

0
Ответов: 492
Рейтинг: 163
#7: 2024-07-08 21:58:20 ЛС | профиль | цитата
andrewproffi, ПРИВЕТСТВУЕМ Вас )
Стилистика схемы очень похожа на RADIOSOFT
Зачем у Вас перечисление портов при активации формы
tESTakb.jpg
Судя по Вашему скрину протокол вы пишите сами, значит его можно видоизменять)
Как вариант в начале пакета слать "старт" в конце пакета "стоп"
использовать конструкцию наподобие такой

Add(StrMask,13266337,490,112)
{
CaseSensitive=0
Mask="*START*"
link(onTrue,5972285:doClear,[(558,125)(558,223)])
AddHint(76,18,59,13,Mask)
}
Add(Hub,3009133,434,154)
{
OutCount=3
link(onEvent1,15952440:doCompare,[])
link(onEvent2,5972285:doStrCat,[(460,167)(460,216)])
link(onEvent3,13266337:doCompare,[(469,174)(469,118)])
}
Add(StrMask,15952440,490,154)
{
CaseSensitive=0
Mask="*STOP*"
link(onTrue,5144881:doData,[(544,167)(544,293)])
AddHint(80,15,52,13,Mask)
}
Add(StrCat,5972285,595,210)
{
Point(doClear)
link(Str1,841062:Var3,[(601,198)(573,198)])
}
Add(DoData,5144881,567,287)
{
link(onEventData,9606020:In,[])
link(Data,841062:Var2,[])
}
Add(GetDataEx,841062,567,245)
{
Angle=1
link(Data,5972285:Result,[(601,250)])
}
Add(LineBreak,6719879,385,154)
{
Caption="in"
link(Out,3009133:doEvent1,[])
Primary=[13317968,-35,0]
}
Add(LineBreak,13604023,651,287)
{
Caption="out"
Primary=[9606020,-42,0]
}


Редактировалось 1 раз(а), последний 2024-07-08 22:33:12
карма: 4

0
Ответов: 4627
Рейтинг: 747
#8: 2024-07-08 22:17:46 ЛС | профиль | цитата
strannik_nebes писал(а):
При приеме данных используйте "накопитель". И здесь уже потребуется определить начало-конец посылки после получения получения очередного "пакета" данных

Может помочь DataAccumulator
карма: 26

0
Ответов: 69
Рейтинг: 1
#9: 2024-07-09 08:13:21 ЛС | профиль | цитата
andrewproffi писал(а):
andrewproffi
Как вариант
Add(VisualShape,9619313,1691,921)
{
Left=520
Top=670
Width=490
Height=35
Color=-16777204
Color2=-16777204
}
Add(VisualShape,8992484,1740,970)
{
Left=520
Top=630
Width=490
Height=35
Color=65280
Color2=65280
}
Add(VisualShape,6621327,1726,886)
{
Left=520
Top=590
Width=490
Height=35
Color=255
Color2=255
}
Add(VisualShape,9461506,1722,931)
{
Left=520
Top=550
Width=490
Height=35
Color=0
Color2=0
}
Add(VisualShape,5432128,1673,434)
{
Left=15
Top=170
Width=120
Height=145
Ctl3D=0
}
Add(Image,3179763,1680,287)
{
Left=425
Top=5
Width=868
Height=533
Color=0
Visible=1
Point(doVisible)
}
Add(Hub,1978584,791,364)
{
OutCount=4
link(onEvent1,9088038:doSearch,[(896,370)(896,419)])
link(onEvent3,8638450:doStrCat,[(868,384)(868,335)])
link(onEvent4,16668560:doAdd,[(817,391)(817,517)(681,517)(681,643)])
}
Add(Label,3946155,665,315)
{
Left=45
Top=25
Width=0
Height=17
Color=-16777194
Caption="COM порт"
Alignment=2
}
Add(StyleXP,11046345,504,343)
{
}
Add(MainForm,14372191,329,490)
{
Left=200
Top=150
Width=1527
Height=737
Color=-16777194
Font=[Arial,8,0,0,1]
Ctl3D=0
Caption="test AKB"
BorderStyle=1
Point(doBringToFront)
Point(onSetFocus)
Point(onDblClick)
link(onCreate,15162287:doEvent1,[(373,510)(373,496)])
}
Add(Button,1842072,462,448)
{
Left=15
Top=110
Width=120
Height=30
Hint="Закрыть порт"
Caption="Закрыть порт"
Data=Real(0)
link(onClick,2365950:doClose,[(548,454)(548,475)])
}
Add(Button,13336586,462,490)
{
Left=15
Top=75
Width=120
Height=30
Hint="Открыть порт"
Caption="Открыть порт"
Data=Real(0)
link(onClick,2365950:doOpen,[(503,496)(503,468)])
}
Add(ComboBox,8670476,595,378)
{
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,602,462)
{
BaudRate=18
link(onSyncRead,1978584:doEvent1,[(709,482)(709,370)])
link(Port,8670476:String,[])
}
Add(Button,1574390,385,385)
{
Left=15
Top=5
Width=120
Height=35
Hint="Открыть порта"
Caption="Поиск порт"
Data=Real(0)
link(onClick,8070816:doEvent1,[])
}
Add(EnumCOM,2173630,476,392)
{
OutType=0
link(onEnumPorts,8670476:doAdd,[(538,398)(538,384)])
}
Add(Hub,8070816,441,385)
{
InCount=2
OutCount=3
link(onEvent1,8670476:doClear,[])
link(onEvent2,2173630:doEnumPorts,[])
}
Add(Hub,15162287,385,490)
{
link(onEvent1,8070816:doEvent2,[(420,496)(420,398)])
}
Add(Button,7184611,1379,287)
{
Left=20
Top=180
Width=108
Height=40
Caption="Скриншот"
link(onClick,16364808:doCapture,[])
}
Add(Hub,2186279,1540,287)
{
link(onEvent1,3179763:doLoad,[])
link(onEvent2,3535410:doData,[(1564,300)(1564,307)])
}
Add(InlineCode,16364808,1491,287)
{
WorkPoints=#9:doCapture|
EventPoints=#5:onScr|
Code=#25:// autor andrestudio 2021|15:unit HiAsmUnit;|0:|9:interface|0:|29:uses kol,windows,Share,Debug;|0:|5:const|12: PSIZE = 2;|0:|4:type|28: THiAsmClass = class(TDebug)|10: private|27: f1,f2,f3,f4: PControl;|16: t1: PTimer;|9: public|22: onScr: THI_Event;|51: procedure doCapture(var dt: TData; idx: word);|73: procedure onMouseDown(Sender: PControl; var Mouse: TMouseEventData);|71: procedure onMouseUp(Sender: PControl; var Mouse: TMouseEventData);|31: procedure Timer(Obj:PObj);|22: procedure GetBMP;|5: end;|0:|14:implementation|0:|29:procedure THiAsmClass.GetBMP;|3:var|10: dc: HDC;|19: Bmp: Kol.PBitmap;|19: w,h,x,y: integer;|14: pos: TPoint;|5:begin|18: dc := GetDC(0);|21: GetCursorPos(pos);|59: w := Max(f2.Left,f4.Left) - Min(f2.Left,f4.Left) -PSIZE;|55: h := Max(f1.Top,f3.Top) - Min(f1.Top,f3.Top) -PSIZE;|35: x := Min(f2.Left,f4.Left)+PSIZE;|33: y := Min(f1.Top,f3.Top)+PSIZE;|3: |25: Bmp := NewBitmap(w,h);|69: BitBlt(Bmp.Canvas.Handle,0,0,Bmp.Width,Bmp.Height,DC,x,y,SRCCOPY);|26: _hi_OnEvent(onScr,bmp);|23: bmp.CopyToClipboard;|12: bmp.Free;|54: // пришлось отказатся от пересоздания из за FPC |40: //f1.Free; f2.Free; f3.Free; f4.Free;|13: //t1.Free;|4:end;|0:|34:procedure THiAsmClass.onMouseDown;|5:begin|38: if Mouse.Button <> mbLeft then Exit;|14: t1.Tag := 2;|20: f3.Show; f4.Show; |4:end;|0:|32:procedure THiAsmClass.onMouseUp;|5:begin|38: if Mouse.Button <> mbLeft then Exit;|33: if f2.Left = f4.Left then Exit;|31: if f1.Top = f3.Top then Exit;|22: t1.Enabled := False;|37: f1.Hide; f2.Hide; f3.Hide; f4.Hide;|9: GetBMP;|4:end;|0:|38:procedure THiAsmClass.Timer(Obj:PObj);|3:var|14: pos: TPoint;|5:begin|20: GetCursorPos(pos);|21: if Obj.Tag = 1 then|7: begin|20: f1.Top := Pos.y;|21: f2.Left := Pos.x;|6: end;|21: if Obj.Tag = 2 then|7: begin|20: f3.Top := Pos.y;|21: f4.Left := Pos.x;|8: end; |4:end;|0:|32:procedure THiAsmClass.doCapture;|6:begin |34: if not Assigned(f1) then begin |28: f1 := NewForm(Applet,'');|22: f1.GetWindowHandle;|25: f1.Style := 101187584;|23: f1.ExStyle := 65536;|27: f1.Width := ScreenWidth;|22: f1.Height := PSIZE;|19: f1.Color := 255;|16: f1.Left := 0;|13: //f1.Show;|38: f1.onMouseDown := onMouseDown; end;|0:|34: if not Assigned(f2) then begin |28: f2 := NewForm(Applet,'');|22: f2.GetWindowHandle;|25: f2.Style := 101187584;|23: f2.ExStyle := 65536;|29: f2.Height := ScreenHeight;|21: f2.Width := PSIZE;|19: f2.Color := 255;|15: f2.Top := 0;|13: //f2.Show;|38: f2.onMouseDown := onMouseDown; end;|3: |35: if not Assigned(f3) then begin |28: f3 := NewForm(Applet,'');|22: f3.GetWindowHandle;|25: f3.Style := 101187584;|23: f3.ExStyle := 65536;|27: f3.Width := ScreenWidth;|22: f3.Height := PSIZE;|19: f3.Color := 255;|16: f3.Left := 0;|11: f3.Hide;|34: f3.onMouseUp := onMouseUp; end;|0:|34: if not Assigned(f4) then begin |28: f4 := NewForm(Applet,'');|22: f4.GetWindowHandle;|25: f4.Style := 101187584;|23: f4.ExStyle := 65536;|29: f4.Height := ScreenHeight;|21: f4.Width := PSIZE;|19: f4.Color := 255;|15: f4.Top := 0;|11: f4.Hide;|42: f4.onMouseUp := onMouseUp; end; |3: |34: if not Assigned(t1) then begin |22: t1 := NewTimer(25);|28: t1.OnTimer := Timer; end;|15: t1.Tag := 1;|23: t1.Enabled := True; |11: f1.Show;|16: f2.Show; |4:end;|0:|4:end.|
link(onScr,2186279:doEvent1,[])
}
Add(SDialog,12843375,1421,371)
{
Filter=".jpeg"
FileName=""
Point(doFileName)
link(onExecute,6649720:doEvent1,[])
}
Add(Button,2096136,1379,371)
{
Left=20
Top=225
Width=110
Height=40
Caption="Сохранить картинку"
Point(doVisible)
link(onClick,12843375:doExecute,[])
}
Add(StrCat,864988,1491,378)
{
Str2=".jpeg"
link(onStrCat,3599384:doEvent1,[])
link(Str1,15696856:GetData,[])
}
Add(EventFromData,15696856,1491,329)
{
}
Add(Hub,6649720,1463,371)
{
link(onEvent1,15696856:doData,[(1484,377)(1484,335)])
link(onEvent2,864988:doStrCat,[])
}
Add(PictureStream,8303435,1673,371)
{
link(Bitmap,3179763:ImageBitmap,[])
}
Add(DoData,3535410,1575,301)
{
Data=Integer(1)
link(onEventData,15356796:doEvent1,[])
}
Add(Hub,3599384,1540,378)
{
link(onEvent1,8303435:doSave,[])
link(onEvent2,2824840:doData,[])
}
Add(DoData,2824840,1575,385)
{
Data=Integer(0)
link(onEventData,15356796:doEvent2,[(1623,391)(1623,314)])
}
Add(Hub,15356796,1645,301)
{
InCount=3
OutCount=1
link(onEvent1,3179763:doVisible,[])
}
Add(Button,5182486,1379,427)
{
Left=20
Top=270
Width=110
Height=35
Caption="Отмена"
Data=Integer(0)
Point(doVisible)
link(onClick,15356796:doEvent3,[(1633,433)(1633,321)])
}
Add(Edit,11229754,1596,511)
{
Left=390
Width=960
Height=30
Font=[GOST type B,14,1,0,204]
Visible=1
Text=""
Alignment=2
ClearAfterEnter=1
Point(doVisible)
}
Add(CheckBox,3004579,1547,511)
{
Left=20
Top=360
Width=110
Color=-16777194
Caption="Добавить подпись"
link(onCheck,11229754:doVisible,[(1587,517)(1587,531)])
}
Add(BlockFind,9088038,987,413)
{
IncludeBlock=1
StartBlock="N1="
EndBlock="n"
Point(onNotFind)
link(onSearch,5789015:doText,[])
link(Text,16020354:Var3,[(993,387)])
link(onNotFind,15662643:doSearch,[(1031,433)(1031,454)(975,454)(975,475)])
}
Add(Edit,5789015,1036,413)
{
Left=910
Top=550
Width=90
Height=35
Font=[MS Sans Serif,14,1,0,1]
Enabled=1
Name="n1"
Text=""
Alignment=2
DataType=4
ReadOnly=0
link(onChange,15862282:doWork2,[])
}
Add(BlockFind,15662643,987,469)
{
IncludeBlock=1
StartBlock="N2="
EndBlock="n"
Point(doStop)
Point(onNotFind)
link(onSearch,12165363:doText,[])
link(Text,8058839:Var3,[(993,430)])
link(onNotFind,2182903:doSearch,[(1031,489)(1031,510)(975,510)(975,531)])
}
Add(Edit,12165363,1036,469)
{
Left=910
Top=590
Width=90
Height=35
Font=[MS Sans Serif,14,1,0,1]
Enabled=1
Name="n2"
Text=""
Alignment=2
DataType=4
ReadOnly=0
link(onChange,16243796:doWork2,[])
}
Add(BlockFind,2182903,987,525)
{
IncludeBlock=1
StartBlock="N3="
EndBlock="n"
Point(doStop)
Point(onNotFind)
link(onSearch,10962526:doText,[])
link(Text,6663987:Var3,[(993,479)])
link(onNotFind,5390850:doSearch,[(1031,545)(1031,566)(975,566)(975,587)])
}
Add(Edit,10962526,1036,525)
{
Left=910
Top=630
Width=90
Height=35
Font=[MS Sans Serif,14,1,0,1]
Enabled=1
Name="n3"
Text=""
Alignment=2
DataType=4
ReadOnly=0
link(onChange,14432459:doWork2,[])
}
Add(BlockFind,5390850,987,581)
{
IncludeBlock=1
StartBlock="N4="
EndBlock="n"
Point(doStop)
Point(onNotFind)
link(onSearch,16219502:doText,[])
link(Text,7257219:Var3,[(993,532)])
link(onNotFind,10450601:doSearch,[(1031,601)(1031,619)(975,619)(975,636)])
}
Add(Edit,16219502,1036,581)
{
Left=910
Top=670
Width=90
Height=35
Font=[MS Sans Serif,14,1,0,1]
Enabled=1
Name="n4"
Text=""
Alignment=2
DataType=4
ReadOnly=0
link(onChange,14441520:doWork2,[])
}
Add(Label,819423,490,833)
{
Left=540
Top=530
Width=68
Height=17
Color=-16777194
Caption="Напряжение"
}
Add(Label,33608,487,830)
{
Left=660
Top=530
Width=23
Height=17
Color=-16777194
Caption="Ток"
}
Add(Label,11948939,480,823)
{
Left=740
Top=530
Width=48
Height=17
Color=-16777194
Caption="Емкость"
}
Add(Label,13044191,473,816)
{
Left=841
Top=531
Width=37
Height=17
Color=-16777194
Caption="Время"
}
Add(Label,14869141,466,809)
{
Left=915
Top=530
Width=77
Height=17
Color=-16777194
Caption="Кол-во циклов"
}
Add(Label,10869640,485,904)
{
Left=505
Top=555
Width=12
Height=25
Color=-16777194
Font=[GOST type B,14,1,0,204]
Caption="1"
}
Add(Label,5438268,484,902)
{
Left=505
Top=595
Width=14
Height=25
Color=-16777194
Font=[GOST type B,14,1,0,204]
Caption="2"
}
Add(Label,3258498,477,895)
{
Left=505
Top=635
Width=14
Height=25
Color=-16777194
Font=[GOST type B,14,1,0,204]
Caption="3"
}
Add(Label,16389299,470,888)
{
Left=505
Top=675
Width=15
Height=25
Color=-16777194
Font=[GOST type B,14,1,0,204]
Caption="4"
}
Add(BlockFind,10450601,987,630)
{
IncludeBlock=1
StartBlock="R1="
EndBlock="m"
Point(onNotFind)
link(onSearch,8061186:doText,[])
link(Text,2189735:Var3,[(993,583)])
link(onNotFind,9198612:doSearch,[(1031,650)(1031,671)(975,671)(975,692)])
}
Add(Edit,8061186,1036,630)
{
Left=1005
Top=550
Width=90
Height=35
Font=[MS Sans Serif,14,1,0,1]
Enabled=1
Name="R1"
Text=""
Alignment=2
DataType=4
ReadOnly=0
link(onChange,984718:doWork2,[])
}
Add(BlockFind,9198612,987,686)
{
IncludeBlock=1
StartBlock="R2="
EndBlock="m"
Point(doStop)
Point(onNotFind)
link(onSearch,11581458:doText,[])
link(Text,13512767:Var3,[(993,643)])
link(onNotFind,3078973:doSearch,[(1031,706)(1031,727)(975,727)(975,748)])
}
Add(Edit,11581458,1036,686)
{
Left=1005
Top=590
Width=90
Height=35
Font=[MS Sans Serif,14,1,0,1]
Enabled=1
Name="R2"
Text=""
Alignment=2
DataType=4
ReadOnly=0
link(onChange,12437849:doWork2,[])
}
Add(BlockFind,3078973,987,742)
{
IncludeBlock=1
StartBlock="R3="
EndBlock="m"
Point(doStop)
Point(onNotFind)
link(onSearch,10972951:doText,[])
link(Text,4233646:Var3,[(993,691)])
link(onNotFind,12154479:doSearch,[(1031,762)(1031,783)(975,783)(975,804)])
}
Add(Edit,10972951,1036,742)
{
Left=1005
Top=630
Width=90
Height=35
Font=[MS Sans Serif,14,1,0,1]
Enabled=1
Name="R3"
Text=""
Alignment=2
DataType=4
ReadOnly=0
link(onChange,7639570:doWork2,[])
}
Add(BlockFind,12154479,987,798)
{
IncludeBlock=1
StartBlock="R4="
EndBlock="m"
Point(doStop)
Point(onNotFind)
link(onSearch,6602635:doText,[])
link(Text,4233646:Var2,[(993,746)(958,746)])
}
Add(Edit,6602635,1036,798)
{
Left=1005
Top=670
Width=90
Height=35
Font=[MS Sans Serif,14,1,0,1]
Enabled=1
Name="R4"
Text=""
Alignment=2
DataType=4
ReadOnly=0
link(onChange,7639570:doWork3,[(1080,804)])
}
Add(Label,3568395,460,803)
{
Left=1010
Top=530
Width=82
Height=17
Color=-16777194
Caption="Сопротивление"
}
Add(SDialog,11161239,539,665)
{
Filter=".txt"
FileName=""
Point(doFileName)
link(onExecute,11114417:doEvent1,[])
}
Add(Button,12598604,497,665)
{
Left=15
Top=400
Width=120
Height=40
Caption="Сохранить текст"
Point(doVisible)
link(onClick,11161239:doExecute,[])
}
Add(StrCat,11940027,609,672)
{
Str2=".txt"
link(onStrCat,16668560:doSave,[])
link(Str1,6746969:GetData,[])
}
Add(EventFromData,6746969,609,623)
{
}
Add(Hub,11114417,581,665)
{
link(onEvent1,6746969:doData,[(602,671)(602,629)])
link(onEvent2,11940027:doStrCat,[])
}
Add(Memo,16668560,693,637)
{
Left=5
Top=515
Width=495
Height=190
ScrollBars=2
Point(doSave)
}
Add(Edit,13831158,371,805)
{
Left=1305
Top=590
Width=120
Height=30
Font=[MS Sans Serif,10,1,0,1]
Name="n1"
Text=""
Alignment=2
DataType=4
link(onEnter,2147313:doEvent6,[(419,818)(419,664)])
}
Add(Button,1428091,378,588)
{
Left=1305
Top=550
Width=120
Height=30
Hint="Открыть порт"
Caption="Режим тестирования"
Data=Integer(252)
link(onClick,2147313:doEvent1,[(422,594)(422,629)])
}
Add(Button,14506433,378,630)
{
Left=1165
Top=655
Width=120
Height=30
Hint="Открыть порт"
Caption="пропустить паузу"
Data=Integer(131)
link(onClick,2147313:doEvent2,[])
}
Add(Button,10368005,378,672)
{
Left=1165
Top=620
Width=120
Height=30
Hint="Открыть порт"
Caption="режим разряда"
Data=Integer(132)
link(onClick,2147313:doEvent3,[(422,678)(422,643)])
}
Add(Button,15944908,378,714)
{
Left=1165
Top=585
Width=120
Height=30
Hint="режим заряда"
Caption="режим заряда"
Data=Integer(133)
link(onClick,2147313:doEvent4,[(422,720)(422,650)])
}
Add(Hub,2147313,434,623)
{
InCount=6
OutCount=1
link(onEvent1,2365950:doWrite,[(525,629)(525,482)])
}
Add(Button,13074427,375,760)
{
Left=1165
Top=550
Width=120
Height=30
Hint="Открыть порт"
Caption="тест полной емкости"
Data=Integer(123)
link(onClick,2147313:doEvent5,[(421,766)(421,657)])
}
Add(Memory,7573913,931,329)
{
}
Add(StrCat,8638450,875,329)
{
link(onStrCat,7573913:doValue,[])
link(Str1,7262214:Var1,[(881,317)(907,317)(907,376)])
}
Add(GetDataEx,7262214,931,371)
{
link(Data,7573913:Value,[])
}
Add(HubEx,15862282,1076,413)
{
Angle=3
link(onEvent,7573913:doClear,[(1080,381)(919,381)(919,342)])
}
Add(HubEx,16243796,1076,469)
{
Angle=3
link(onEvent,15862282:doWork3,[])
}
Add(HubEx,14432459,1076,525)
{
Angle=3
link(onEvent,16243796:doWork3,[])
}
Add(HubEx,14441520,1076,581)
{
Angle=3
link(onEvent,14432459:doWork3,[])
}
Add(HubEx,984718,1076,630)
{
Angle=3
link(onEvent,14441520:doWork3,[])
}
Add(HubEx,12437849,1076,686)
{
Angle=3
link(onEvent,984718:doWork3,[])
}
Add(HubEx,7639570,1076,742)
{
Angle=3
link(onEvent,12437849:doWork3,[])
}
Add(GetDataEx,16020354,952,382)
{
Angle=3
link(Data,7262214:Var2,[(937,387)])
}
Add(GetDataEx,8058839,952,425)
{
link(Data,16020354:Var2,[])
}
Add(GetDataEx,6663987,952,474)
{
link(Data,8058839:Var2,[])
}
Add(GetDataEx,7257219,952,527)
{
link(Data,6663987:Var2,[])
}
Add(GetDataEx,2189735,952,578)
{
link(Data,7257219:Var2,[])
}
Add(GetDataEx,13512767,952,638)
{
link(Data,2189735:Var2,[])
}
Add(GetDataEx,4233646,952,686)
{
link(Data,13512767:Var2,[])
}

Редактировалось 2 раз(а), последний 2024-07-09 08:22:28
карма: 0

0
Ответов: 36
Рейтинг: 0
#10: 2024-07-09 13:41:03 ЛС | профиль | цитата
tig-rrr писал(а):
andrewproffi, ПРИВЕТСТВУЕМ Вас )
Стилистика схемы очень похожа на RADIOSOFT

Аз есмь
изменить строки проблем нет, лишь бы программа их корректно приняла.
Спасибо всем, буду пробовать
карма: 0

0
Ответов: 492
Рейтинг: 163
#11: 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 для ардуинки с циклической отправкой данных вашего протокола (желательно с описанием чего должно быть). Проверим.

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

1
Голосовали:andrewproffi
Ответов: 36
Рейтинг: 0
#12: 2024-07-10 14:28:31 ЛС | профиль | цитата
tig-rrr писал(а):
Проверим.

Благодарю за предложение. Я суть понял, на этой неделе попробую и отпишусь.
карма: 0

0
Ответов: 36
Рейтинг: 0
#13: 2024-07-14 10:08:57 ЛС | профиль | цитата
Всем спасибо! Пример Тигра подошел, надеюсь что проблема приема данных с микроконтроллера теперь решена. Придут новые преобразователи USB-UART возможно напишу сюда результат проверки их работы. На фото 1 - приходящие данные с компонента ком порта, 2 - данные на выходе схемы приведенной на рисунке 3
> > >

Редактировалось 2 раз(а), последний 2024-07-14 10:10:36
карма: 0

0
13
Сообщение
...
Прикрепленные файлы
(файлы не залиты)