Вверх ↑
Ответов: 85
Рейтинг: 0
#1: 2019-01-18 05:01:20 ЛС | профиль | цитата
Рассчитывал, конечно не на то. Но тоже в принципе нормально получается.
Я немного модернизировал вариант от Tad. Сильно мне понравилась его цветная кнопка .

Add(MainForm,9953887,616,259)
{
Width=1031
Height=607
Position=1
Point(onClose)
Point(Close)
link(onCreate,988124:doWork1,[(655,279)(655,254)(525,254)(525,293)])
link(onClose,988124:doWork3,[(657,286)(657,345)(525,345)(525,307)])
link(Close,988124:Var1,[(622,248)(682,248)(682,331)(538,331)])
}
Add(Menu,126380,329,266)
{
Menu=#9:Программа|1:(|4:Exit|1:)|8:СОМ-ПОРТ|1:(|5:Выбор|1:)|6:Дальше|
Point(onSelectNum)
link(onSelectNum,13748720:doOperation,[])
}
Add(Math,13748720,378,273)
{
OpType=9
Op1=1
ResultType=0
link(onResult,4018740:doBits,[])
}
Add(IntToBits,4018740,427,273)
{
Data_0=Integer(0)
Data_1=Integer(1)
link(onBit2,16185788:doCompare,[])
link(onBit4,988124:doWork2,[])
link(onBit5,1952328:doWork1,[])
}
Add(ChildGroupBox,988124,532,287)
{
}
BEGIN_SDK
Add(EditMulti,2638144,21,-7)
{
EventCount=1
WorkCount=3
VarCount=1
Width=412
Height=228
VOffset=7
link(doWork1,3043274:doEnumPorts,[])
link(doWork2,2260444:doVisible,[])
link(doWork3,3048907:doWork1,[(74,20)])
link(Var1,11914673:Left,[(27,211)(62,211)])
}
Add(GroupBox,2260444,84,7)
{
Width=372
Height=116
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,[(404,76)(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,175)
{
DataOn=String(255,СТОП)
DataOff=String(0,ПУСК)
Point(State)
Point(onOff)
Point(onOn)
link(onSwitch,11914673:doSplit,[(187,181)(187,152)(36,152)(36,174)])
link(onOff,3048907:doWork2,[(191,188)(191,132)(65,132)(65,76)])
link(onOn,8931599:doOpen,[(240,195)(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,[(138,174)(138,181)])
}
Add(StrPart,11914673,56,168)
{
Char=","
Point(Left)
link(onSplit,12852987:doCaption,[])
link(onPart,12852987:doColor,[])
}
END_SDK
Add(If_else,16185788,574,280)
{
Op2=Integer(1)
link(onTrue,9953887:doClose,[])
}
Add(ChildGroupBox,1952328,476,301)
{
}
BEGIN_SDK
Add(EditMulti,11069351,21,21)
{
WorkCount=1
link(doWork1,12528873:doVisible,[(39,27)(39,111)])
}
Add(GroupBox,12528873,56,105)
{
Width=1023
Height=580
Align=5
Visible=1
Point(doVisible)
}
END_SDK

карма: 0

0
Редактировалось 3 раз(а), последний 2019-01-18 05:03:30