Вверх ↑
Ответов: 759
Рейтинг: 165
#1: 2024-08-05 07:46:51 ЛС | профиль | цитата
andrewproffi писал(а):
Но вечная проблема с дроблением отправленной из устройства строки ком портом.

Попробуй такой вариант получения данных из ком порта. Только укажи свой порт.


Add(MainForm,4875368,203,133)
{
Point(onClose)
link(onCreate,4794102:doString,[])
link(onClose,10162556:doConsoleTerminate,[])
}
Add(FormatStr,4794102,259,147)
{
Mask="$port= new-Object System.IO.Ports.SerialPort %1,%2,None,8,one\r\n$port.Open()\r\n do {\r\n $port.ReadLine()\r\n }\r\n while ($port.IsOpen)"
link(onFString,10162556:doConsoleExec,[])
link(Str1,6648896:Text,[])
link(Str2,8234187:Text,[(272,103)(328,103)])
}
Add(WinExec,10162556,322,133)
{
FileName="powershell"
Mode=0
Action="runas"
Point(doConsoleExec)
Point(onConsoleResult)
Point(onConsoleError)
Point(doConsoleTerminate)
link(onConsoleResult,2938005:doWork2,[])
link(onConsoleError,2938005:doWork3,[(368,160)])
}
Add(Memo,13060698,441,147)
{
Left=550
Top=160
Align=5
Font=[Consolas,12,0,0,204]
ScrollBars=3
}
Add(HubEx,2938005,364,147)
{
link(onEvent,4815849:doCharset,[])
}
Add(Charset,4815849,385,147)
{
link(onCharset,13060698:doAdd,[])
}
Add(VisualStrings,6648896,259,77)
{
Lines=#4:COM3|
Width=46
}
Add(VisualStrings,8234187,322,77)
{
Lines=#4:9600|
Width=53
Font=[MS Sans Serif,12,0,0,1]
}

карма: 15

0