Вверх ↑
Ответов: 85
Рейтинг: 0
#1: 2019-01-17 12:32:53 ЛС | профиль | цитата
Леонид, добавил, кое-что в ваш пример.

Add(MainForm,9953887,175,119)
{
link(onCreate,14563358:doWork2,[(226,139)(226,216)])
}
Add(ChildForm,14563358,315,203)
{
}
BEGIN_SDK
Add(EditMulti,8260676,21,21)
{
EventCount=1
WorkCount=2
DataCount=1
Width=580
Height=417
link(doWork1,3301434:doVisible,[(53,27)(53,69)])
link(doWork2,11802796:doEvent1,[(45,34)(45,265)])
}
Add(MainForm,3301434,63,35)
{
Left=35
Top=105
Width=300
Height=98
Visible=1
Point(doVisible)
}
Add(If_else,2513173,364,308)
{
Type=5
Op2=String()
link(onTrue,8260676:onEvent1,[(498,314)(498,27)])
}
Add(ComboBox,7690426,322,217)
{
Left=105
Top=5
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
Point(doSelect)
Point(EditText)
Point(onSelect)
link(onClick,9823035:doStrCat,[])
}
Add(ComboBox,8658105,196,210)
{
Left=5
Top=5
Width=80
Height=21
Color=15780518
Font=[MS Sans Serif,8,1,0,1]
WinStyle=4
Text=""
DataType=1
Point(doSelect)
Point(onSelect)
Point(EditText)
link(onClick,7657820:doStrCat,[])
}
Add(COM,6263210,322,301)
{
BaudRate=15
link(onRead,2513173:doCompare,[])
link(Port,8658105:String,[(328,277)(209,277)])
link(BaudRate,7690426:String,[])
}
Add(Timer,4404277,147,350)
{
Interval=32
link(onTimer,13091773:doData,[])
}
Add(DoData,13091773,224,350)
{
Data=Integer(30)
link(onEventData,6263210:doRead,[(309,356)(309,335)])
link(Data,8260676:Data1,[(230,166)(27,166)])
}
Add(Label,15694920,280,217)
{
Left=5
Top=39
Width=84
Height=19
Caption=""
}
Add(Label,15276317,406,224)
{
Left=105
Top=40
Width=79
Height=19
Caption=""
}
Add(StrCat,7657820,238,217)
{
Str1="сом-порт № "
link(onStrCat,15694920:doText,[])
}
Add(StrCat,9823035,364,224)
{
Str1="Скорость "
link(onStrCat,15276317:doText,[])
}
Add(Button,11628234,266,280)
{
Left=210
Top=5
Width=70
Caption="Вкл СОМ"
link(onClick,6263210:doOpen,[(312,286)(312,307)])
}
Add(Button,11385751,266,315)
{
Left=210
Top=35
Width=70
Caption="Откл СОМ"
link(onClick,6263210:doClose,[(312,321)(312,314)])
}
Add(EnumCOM,1016600,140,210)
{
OutType=0
link(onEnumPorts,8658105:doAdd,[])
}
Add(Hub,11802796,70,259)
{
link(onEvent1,4404277:doTimer,[(116,265)(116,356)])
link(onEvent2,1016600:doEnumPorts,[(112,272)(112,216)])
}
END_SDK
Add(Menu,126380,168,168)
{
Menu=#9:Программа|1:(|4:Exit|1:)|8:СОМ-ПОРТ|1:(|5:Выбор|1:)|
Point(onSelectNum)
link(onSelectNum,2390828:doEvent1,[])
}
Add(Case,14006044,259,196)
{
Value=Integer(3)
DataOnTrue=Integer(1)
link(onTrue,14563358:doWork1,[])
}
Add(Case,13949996,259,133)
{
Value=Integer(1)
DataOnTrue=Integer(1)
link(onTrue,9953887:doClose,[(303,146)(303,81)(147,81)(147,146)])
}
Add(Hub,2390828,210,175)
{
link(onEvent1,13949996:doCase,[(242,181)(242,139)])
link(onEvent2,14006044:doCase,[(242,188)(242,202)])
}

карма: 0

0