Вверх ↑
Разработчик
Ответов: 26068
Рейтинг: 2121
#1: 2019-01-17 23:00:25 ЛС | профиль | цитата
Леонид писал(а):
Вот и IndexToCanalAll

Опять нештатки в ход пошли. Хотя на штатных есть еще один вариант

Схема


Add(MainForm,9953887,574,196)
{
Position=1
Point(onClose)
link(onCreate,988124:doWork1,[(613,216)(613,191)(483,191)(483,230)])
link(onClose,988124:doWork3,[(615,223)(615,258)(483,258)(483,244)])
}
Add(Menu,126380,301,203)
{
Menu=#9:Программа|1:(|4:Exit|1:)|8:СОМ-ПОРТ|1:(|5:Выбор|1:)|6:Дальше|
Point(onSelectNum)
link(onSelectNum,14473482:doSet,[])
}
Add(ChildGroupBox,988124,490,224)
{
}
BEGIN_SDK
Add(EditMulti,2638144,21,21)
{
WorkCount=3
Width=412
Height=151
VOffset=7
link(doWork1,3043274:doEnumPorts,[])
link(doWork2,2260444:doVisible,[])
link(doWork3,3048907:doWork1,[(74,48)])
}
Add(GroupBox,2260444,84,35)
{
Left=35
Top=105
Width=329
Height=137
Align=5
Font=[MS Sans Serif,8,1,0,1]
Visible=1
Caption="Выбор и включение COM-порта."
Point(doVisible)
}
Add(If_else,3683441,343,98)
{
Type=5
Op2=String()
}
Add(ComboBox,16154141,301,35)
{
Left=135
Top=20
Width=75
Height=21
Color=15780518
Font=[MS Sans Serif,8,1,0,1]
WinStyle=4
Strings=#3:300|3:600|4:1200|4:2400|4:4800|4:9600|5:14400|5:19200|5:38400|5:57600|6:115200|
Text="19200"
DataType=1
ReadOnly=0
Point(doSelect)
Point(EditText)
Point(onSelect)
link(onClick,15624758:doStrCat,[])
}
Add(ComboBox,2979466,175,28)
{
Left=35
Top=20
Width=80
Height=21
Color=15780518
Font=[MS Sans Serif,8,1,0,1]
WinStyle=4
Text=""
DataType=1
ReadOnly=0
Point(doSelect)
Point(onSelect)
Point(EditText)
link(onClick,10022346:doStrCat,[])
}
Add(COM,8931599,301,91)
{
BaudRate=15
link(onRead,3683441:doCompare,[])
link(Port,2979466:String,[(307,80)(188,80)])
link(BaudRate,16154141:String,[])
}
Add(Timer,15323035,168,119)
{
Interval=32
link(onTimer,1856028:doData,[])
}
Add(DoData,1856028,245,119)
{
Data=Integer(30)
link(onEventData,8931599:doRead,[])
}
Add(Label,1595256,259,35)
{
Left=35
Top=54
Width=84
Height=19
Caption=""
}
Add(Label,15670888,385,42)
{
Left=135
Top=55
Width=79
Height=19
Caption=""
}
Add(StrCat,10022346,217,35)
{
Str1="сом-порт № "
link(onStrCat,1595256:doText,[])
}
Add(StrCat,15624758,343,42)
{
Str1="Скорость "
link(onStrCat,15670888:doText,[])
}
Add(Button,5248490,203,91)
{
Left=240
Top=20
Width=70
Caption="Вкл СОМ"
link(onClick,8931599:doOpen,[])
}
Add(Button,2618450,28,98)
{
Left=240
Top=50
Width=70
Caption="Откл СОМ"
link(onClick,3048907:doWork2,[])
}
Add(EnumCOM,3043274,133,28)
{
OutType=0
link(onEnumPorts,2979466:doAdd,[])
}
Add(HubEx,3048907,70,98)
{
link(onEvent,8931599:doClose,[])
}
END_SDK
Add(ChildGroupBox,1952328,434,238)
{
}
BEGIN_SDK
Add(EditMulti,11069351,21,21)
{
WorkCount=1
link(doWork1,12528873:doVisible,[(39,27)(39,111)])
}
Add(GroupBox,12528873,56,105)
{
Left=35
Top=105
Align=5
Visible=1
Point(doVisible)
}
END_SDK
Add(MultiSetParam,14473482,357,210)
{
Parameters=#9:0;0;0;0;0|9:0;1;0;0;0|9:0;0;0;0;0|9:0;0;0;1;0|9:0;0;0;0;1|
Count=5
link(onSet2,15223466:doEvent,[(403,223)(403,195)])
link(onSet4,988124:doWork2,[(396,237)(396,230)(473,230)(473,237)])
link(onSet5,1952328:doWork1,[])
}
Add(IndexToChanel,15223466,434,189)
{
link(onEvent2,9953887:doClose,[(529,202)(529,223)])
}

карма: 22

0