Вверх ↑
Ответов: 85
Рейтинг: 0
#1: 2019-01-21 07:00:17 ЛС | профиль | цитата
Ого тут целый симпозиум Продолжил немного тут изыскания.. Что мне не нравиться в этом проекте. Конечно это пункт меню "Дальше". Просто я посмотрел несколько сторонних программ там , где есть выбор сом-порта.. Ну нет там "Дальше"...... Просто после выбора свойств сом-порта. нажимается кнопка ОК и окно скрывается
Попытался тут нарисовать...


Add(MainForm,9953887,560,175)
{
Width=1031
Height=607
Position=1
Point(onClose)
Point(Close)
link(onCreate,988124:doWork1,[(607,195)(607,170)(443,170)(443,209)])
link(onClose,988124:doWork3,[(601,202)(601,241)(448,241)(448,223)])
}
Add(Menu,126380,287,182)
{
Menu=#9:Программа|1:(|4:Exit|1:)|8:СОМ-ПОРТ|1:(|5:Выбор|1:)|0:|
Point(onSelectNum)
link(onSelectNum,13748720:doOperation,[])
}
Add(Math,13748720,336,189)
{
OpType=9
Op1=1
ResultType=0
link(onResult,4018740:doBits,[])
}
Add(IntToBits,4018740,385,189)
{
Data_0=Integer(0)
Data_1=Integer(1)
link(onBit2,16185788:doCompare,[])
link(onBit4,988124:doWork2,[])
}
Add(ChildGroupBox,988124,455,203)
{
}
BEGIN_SDK
Add(EditMulti,2638144,21,-7)
{
EventCount=2
WorkCount=3
Width=412
Height=361
VOffset=7
link(doWork1,3043274:doEnumPorts,[])
link(doWork2,1712925:doWork2,[])
link(doWork3,3048907:doWork1,[(74,20)])
}
Add(GroupBox,2260444,84,7)
{
Width=604
Height=351
Align=5
Font=[MS Sans Serif,8,1,0,1]
Visible=1
Caption="Выбор и включение COM-порта."
Point(doVisible)
}
Add(If_else,3683441,343,70)
{
Type=5
Op2=String()
link(onTrue,2638144:onEvent1,[(424,76)(424,6)])
}
Add(ComboBox,16154141,301,7)
{
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,0)
{
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,63)
{
BaudRate=15
link(onRead,3683441:doCompare,[])
link(Port,2979466:String,[(307,52)])
link(BaudRate,16154141:String,[])
}
Add(Timer,15323035,168,91)
{
Interval=32
link(onTimer,1856028:doData,[])
}
Add(DoData,1856028,245,91)
{
Data=Integer(30)
link(onEventData,8931599:doRead,[])
}
Add(Label,1595256,259,7)
{
Left=35
Top=54
Width=84
Height=19
Caption=""
}
Add(Label,15670888,385,14)
{
Left=135
Top=55
Width=79
Height=19
Caption=""
}
Add(StrCat,10022346,217,7)
{
Str1="сом-порт № "
link(onStrCat,1595256:doText,[])
}
Add(StrCat,15624758,343,14)
{
Str1="Скорость "
link(onStrCat,15670888:doText,[])
}
Add(EnumCOM,3043274,133,0)
{
OutType=0
link(onEnumPorts,2979466:doAdd,[])
}
Add(HubEx,3048907,70,70)
{
link(onEvent,8931599:doClose,[])
}
Add(Switch,7986566,147,168)
{
DataOn=String(255,ОТМЕНА)
DataOff=String(0,ОК)
Point(State)
Point(onOff)
Point(onOn)
link(onSwitch,6983891:doEvent1,[(191,174)(191,244)])
link(onOff,3048907:doWork2,[(191,181)(191,132)(65,132)(65,76)])
link(onOn,8931599:doOpen,[(240,188)(240,69)])
}
Add(BitBtn,12852987,98,168)
{
Left=235
Top=21
Width=125
Color=0
Font=[MS Sans Serif,8,1,16777215,1]
Caption="ОК"
Point(doColor)
link(onClick,7986566:doSwitch,[])
}
Add(StrPart,11914673,56,168)
{
Char=","
Point(Left)
link(onSplit,12852987:doCaption,[])
link(onPart,12852987:doColor,[])
}
Add(Label,172423,56,231)
{
Left=260
Top=55
Width=100
link(Text,11914673:Left,[])
}
Add(Hub,6983891,203,238)
{
OutCount=3
link(onEvent1,11914673:doSplit,[(229,244)(229,209)(44,209)(44,174)])
link(onEvent2,172423:doText,[(229,251)(229,244)(44,244)(44,237)])
link(onEvent3,10136193:doCompare,[(229,258)(229,286)(51,286)(51,314)])
}
Add(If_else,10136193,63,308)
{
Op1=Integer(255)
link(onTrue,4463853:doWork1,[])
link(onFalse,4463853:doWork2,[])
link(Op2,172423:Caption,[(76,286)(62,286)])
}
Add(ChanelToIndex,4463853,119,308)
{
link(onIndex,12005235:doEvent1,[(184,314)(184,335)])
}
Add(HubEx,1712925,49,7)
{
link(onEvent,2260444:doVisible,[])
}
Add(Hub,12005235,217,329)
{
link(onEvent1,1712925:doWork3,[(243,335)(243,175)(53,175)])
link(onEvent2,2638144:onEvent2,[(332,342)(332,13)])
}
END_SDK
Add(If_else,16185788,518,196)
{
Op2=Integer(1)
link(onTrue,9953887:doClose,[])
}

карма: 0

0