Вверх ↑
Ответов: 490
Рейтинг: 162
#1: 2019-01-25 23:57:03 ЛС | профиль | цитата
RT9U, ёще один МОД
Вариант


Add(MainForm,9053971,350,105)
{
Width=384
Height=202
Caption="Пример"
Position=1
Point(onClose)
link(onCreate,12309937:doWork2,[])
link(onClose,12309937:doWork3,[])
}
Add(ChildPanel,12309937,483,112)
{
}
BEGIN_SDK
Add(EditMulti,10103785,21,21)
{
EventCount=1
WorkCount=3
Width=447
Height=389
VOffset=35
HOffset=35
link(doWork1,8848704:doWork2,[(43,62)(43,356)])
link(doWork2,5763239:doEvent1,[])
link(doWork3,4568531:In,[(55,76)(55,104)])
}
Add(Panel,11819185,364,336)
{
Left=80
Width=88
Height=80
Visible=1
Point(doVisible)
Point(doBringToFront)
Point(Handle)
}
Add(EnumCOM,1484817,112,56)
{
link(onEnumPorts,15481808:doModify,[])
}
Add(StrCase,15481808,168,56)
{
Type=1
link(onModify,2979466:doAdd,[])
}
Add(Delete,12910138,259,63)
{
Count=3
link(onDelete,14208881:doValue,[])
}
Add(Memory,14208881,308,63)
{
Default=Integer(1)
}
Add(ComboBox,16154141,217,126)
{
Left=5
Top=30
Width=80
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)
Point(doEnabled)
}
Add(ComboBox,2979466,217,56)
{
Left=5
Top=5
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)
Point(doEnabled)
link(onClick,12910138:doDelete,[])
}
Add(Switch,7986566,217,224)
{
DataOn=String(Close;255;0)
DataOff=String(Open;0;1)
Point(State)
Point(onOff)
Point(onOn)
link(onSwitch,11261772:doSplit,[(261,230)(261,218)(58,218)(58,230)])
link(onOff,15166735:doWork1,[(291,237)])
link(onOn,8931599:doOpen,[])
}
Add(BitBtn,12852987,140,224)
{
Left=5
Top=56
Color=0
Font=[MS Sans Serif,8,1,16777215,1]
Caption="Open"
Point(doColor)
link(onClick,6817628:doEvent1,[])
}
Add(Hub,5763239,70,63)
{
link(onEvent1,1484817:doEnumPorts,[(98,69)(98,62)])
link(onEvent2,14823795:doData,[(102,76)(102,160)])
}
Add(DoData,14823795,140,154)
{
Data=Integer(9)
link(onEventData,16154141:doSelect,[])
}
Add(If_else,3683441,364,245)
{
Type=5
Op2=String()
link(onTrue,10103785:onEvent1,[(422,251)(422,62)])
}
Add(COM,8931599,308,238)
{
BaudRate=15
link(onRead,3683441:doCompare,[])
link(Port,14208881:Value,[])
link(BaudRate,16154141:String,[(321,196)(230,196)])
}
Add(Timer,15323035,140,266)
{
Interval=32
link(onTimer,1856028:doData,[])
}
Add(DoData,1856028,217,266)
{
Data=Integer(30)
link(onEventData,8931599:doRead,[])
}
Add(MultiStrData,11261772,77,224)
{
Count=3
link(onPart1,12852987:doCaption,[])
link(onPart2,12852987:doColor,[])
link(onPart3,5361239:doConvert,[(120,244)(120,111)])
}
Add(ChanelToIndex,8848704,294,343)
{
link(onIndex,11819185:doVisible,[])
}
Add(LineBreak,6626909,252,252)
{
link(Out,15166735:doWork3,[(291,258)])
Primary=[4568531,-189,-154]
}
Add(HubEx,15166735,287,245)
{
link(onEvent,8931599:doClose,[])
}
Add(Hub,14269358,182,105)
{
link(onEvent1,2979466:doEnabled,[(206,111)(206,97)])
link(onEvent2,16154141:doEnabled,[(204,118)(204,167)])
}
Add(Convertor,5361239,140,105)
{
Mode=1
link(onResult,14269358:doEvent1,[])
}
Add(BitBtn,2393174,226,362)
{
Left=60
Top=56
Width=25
Color=0
Font=[MS Sans Serif,8,1,16777215,1]
Caption="X"
Point(doColor)
link(onClick,9923200:doWork3,[(271,368)])
}
Add(Thread,5871776,224,315)
{
Delay=555
FastStop=0
link(onExec,9923200:doWork1,[(271,321)])
}
Add(Hub,6817628,182,224)
{
link(onEvent1,7986566:doSwitch,[])
link(onEvent2,5871776:doStart,[(206,237)(206,321)])
}
Add(HubEx,9923200,267,343)
{
link(onEvent,8848704:doWork1,[])
}
END_SDK
Add(IndexToChanel,2345105,434,91)
{
Count=4
link(onEvent2,9053971:doClose,[(478,104)(478,76)(335,76)(335,132)])
link(onEvent4,12309937:doWork1,[])
}
Add(Menu,126380,392,84)
{
Menu=#9:Программа|1:(|4:Exit|1:)|8:СОМ-ПОРТ|1:(|5:Выбор|1:)|
Point(onSelectNum)
link(onSelectNum,2345105:doEvent,[])
}

карма: 4

0