Вверх ↑
Ответов: 8888
Рейтинг: 823
#1: 2019-01-17 10:25:59 ЛС | профиль | цитата
RT9U, "упрятать" можно и так:
Так


Add(MainForm,2953706,91,49)
{
}
Add(ChildForm,14563358,203,126)
{
}
BEGIN_SDK
Add(EditMulti,8260676,21,21)
{
EventCount=1
WorkCount=1
DataCount=1
Width=363
Height=235
link(doWork1,3301434:doVisible,[(53,27)(53,69)])
}
Add(MainForm,3301434,63,35)
{
Left=35
Top=105
Visible=1
Point(doVisible)
}
Add(If_else,2513173,280,161)
{
Type=5
Op2=String()
link(onTrue,8260676:onEvent1,[(361,167)(361,27)])
}
Add(ComboBox,7690426,238,70)
{
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,112,63)
{
Left=5
Top=5
Width=80
Height=21
Color=15780518
Font=[MS Sans Serif,8,1,0,1]
WinStyle=4
Strings=#1:1|1:2|1:3|1:4|1:5|1:6|1:7|1:8|1:9|2:10|2:11|2:12|2:13|2:14|2:15|2:16|2:17|2:18|2:19|2:20|
Text=""
DataType=1
Point(doSelect)
Point(onSelect)
Point(EditText)
link(onClick,7657820:doStrCat,[])
}
Add(COM,6263210,238,154)
{
BaudRate=15
link(onRead,2513173:doCompare,[])
link(Port,8658105:String,[(244,130)(125,130)])
link(BaudRate,7690426:String,[])
}
Add(Timer,4404277,91,203)
{
Interval=32
link(onTimer,13091773:doData,[])
}
Add(DoData,13091773,140,203)
{
Data=Integer(30)
link(onEventData,6263210:doRead,[(225,209)(225,188)])
link(Data,8260676:Data1,[(146,166)(27,166)])
}
Add(Label,15694920,196,70)
{
Left=5
Top=39
Width=84
Height=19
Caption=""
}
Add(Label,15276317,322,77)
{
Left=105
Top=40
Width=79
Height=19
Caption=""
}
Add(StrCat,7657820,154,70)
{
Str1="сом-порт № "
link(onStrCat,15694920:doText,[])
}
Add(StrCat,9823035,280,77)
{
Str1="Скорость "
link(onStrCat,15276317:doText,[])
}
Add(Button,11628234,182,133)
{
Left=210
Top=5
Width=70
Caption="Вкл СОМ"
link(onClick,6263210:doOpen,[(228,139)(228,160)])
}
Add(Button,11385751,182,168)
{
Left=210
Top=35
Width=70
Caption="Откл СОМ"
link(onClick,6263210:doClose,[(228,174)(228,167)])
}
END_SDK
Add(Menu,126380,98,112)
{
Menu=#9:Программа|1:(|4:Exit|1:)|8:СОМ-ПОРТ|1:(|5:Выбор|1:)|
Point(onSelectNum)
link(onSelectNum,14006044:doCase,[])
}
Add(Case,14006044,147,119)
{
Value=Integer(3)
DataOnTrue=Integer(1)
link(onTrue,14563358:doWork1,[])
}

Выкладывайте примеры не из файла, а копированием с рабочего поля HiAsm
карма: 19

0