чисто теоретически.
Попытаюсь сделать заглушку к COM. Дома не нашел ответного разъёма.
------------ Дoбавленo в 11.17:
Наверное всё-же нужно так
Add(Thread,8595889,518,301)
{
Delay=10
link(onExec,4901:doRead,[])
}
Add(MainForm,68149,287,147)
{
Left=21
Top=105
Width=352
Height=219
Font=[Arial,8,0,0,1]
Caption="MS-Test"
Position=1
Point(onClose)
link(onCreate,3447988:doWork1,[(382,167)])
link(onClose,3635472:doEvent1,[])
}
Add(FormatStr,12648551,287,273)
{
DataCount=1
Mask="%1
"
link(onFString,3447988:doWork2,[])
link(Str1,93647:Text,[])
}
Add(Button,68561,231,273)
{
Left=10
Top=120
Font=[Arial,8,0,0,1]
Caption="Send"
link(onClick,12648551:doString,[])
}
Add(Edit,93647,287,217)
{
Left=75
Top=120
Width=75
Height=21
Text="atz0"
}
Add(Label,39106,735,273)
{
Left=120
Top=145
Width=30
Transparent=0
Caption="0"
}
Add(Hub,96560,420,273)
{
OutCount=5
link(onEvent1,4901:doOpen,[])
link(onEvent2,37557:doAdd,[(517,286)(517,111)])
link(onEvent3,8595889:doStart,[(476,293)(476,307)])
link(onEvent4,4901:doWrite,[])
}
Add(COM,4901,623,273)
{
BaudRate=0
link(onWrite,39106:doText,[])
link(onRead,13705172:doValue,[(671,286)(671,342)])
link(BaudRate,16338985:EditText,[])
}
Add(Label,42085,189,91)
{
Left=150
Top=145
Caption="bytes"
}
Add(Label,78288,196,98)
{
Left=165
Top=5
Width=53
Height=17
Caption="A? A‘A?A? A‚AµA?A?A?a€sA? A‚AµA? A’a€?A? A‚A°A?A?A?a‚¬A?A? A‚A°"
}
Add(Label,25757,203,105)
{
Left=75
Top=5
Caption="Speed"
}
Add(Memo,37557,539,105)
{
Left=155
Top=20
Width=75
Height=95
ScrollBars=2
}
Add(Label,11132,210,112)
{
Left=75
Top=145
Transparent=0
Caption="Sended:"
}
Add(ComboBox,16338985,616,105)
{
Left=75
Top=20
Width=75
Height=21
Strings=#4:9600|5:14400|5:19200|6:115200|
Text=""
ReadOnly=0
Point(EditText)
}
Add(Memo,4382088,868,336)
{
Left=240
Top=20
Width=80
Height=95
ScrollBars=2
link(Str,13705172:Value,[(874,324)(913,324)(913,401)(685,401)])
}
Add(Label,3324191,217,119)
{
Left=255
Top=5
Width=38
Height=17
Caption="A? A‘A?A?A?A?a€sA? A‘a€?A?A?A?a‚¬E?A? A‘E?"
}
Add(LineBreak,5530901,546,280)
{
link(Out,4901:doClose,[])
Primary=[10158978,-112,-112]
}
Add(HubEx,3447988,378,273)
{
link(onEvent,96560:doEvent1,[])
}
Add(Hub,3635472,336,168)
{
link(onEvent1,10158978:In,[])
link(onEvent2,8595889:doStop,[(368,181)(368,314)])
}
Add(Position,16090124,728,336)
{
Target=""
link(onSearch,16469595:doCompare,[])
}
Add(If_else,16469595,777,336)
{
Type=5
Op2=Integer(0)
link(onTrue,2959504:doEvent1,[])
}
Add(Hub,2959504,819,336)
{
link(onEvent1,4382088:doAdd,[])
link(onEvent2,4901:doRXClear,[(847,349)(847,388)(611,388)(611,293)])
}
Add(Memory,13705172,679,336)
{
link(onData,16090124:doSearch,[])
}