Вверх ↑
Ответов: 91
Рейтинг: 6
#1: 2015-05-31 16:54:50 ЛС | профиль | цитата
Спасибо Леонид!!!
------------ Дoбавленo в 16.54:
Леонид, в вашем примере, ComboBox сразу выдает номер доступного порта в виде цифры.
Я так пробовал делать, но у меня почему то всегда выдает название Сом3 Сом5 и т.д.
В настройках ComboBox или ListBox вроде бы установки такиеже как у вас...
#pas
Add(MainForm,2953706,245,105)
{
Width=953
Height=544
}
Add(COM,918822,525,273)
{
link(onWrite,10235871:doMessage,[])
link(Port,2022022:Text,[(531,225)(503,225)])
link(BaudRate,2731037:Text,[(538,225)(608,225)])
}
Add(EnumCOM,4350098,406,133)
{
link(onEnumPorts,2022022:doAdd,[])
}
Add(Button,210468,315,105)
{
Left=225
Top=20
Width=60
Height=45
WinStyle=4
Caption="порт ?"
link(onClick,7833892:doEvent1,[])
}
Add(Hub,7833892,364,105)
{
OutCount=3
link(onEvent1,2022022:doClear,[(465,111)(465,146)])
link(onEvent2,4350098:doEnumPorts,[(392,118)(392,139)])
}
Add(ListBox,2731037,602,133)
{
Left=300
Top=70
Width=65
Height=85
Enabled=1
Strings=#3:600|4:1200|4:2400|4:4800|4:9600|
DataType=1
Point(doSelect)
Point(doEnabled)
link(onClick,918822:doOpen,[(646,146)(646,213)(489,213)(489,279)])
}
Add(Edit,15712307,406,294)
{
Left=360
Top=270
link(onChange,918822:doWrite,[])
}
Add(Message,10235871,588,273)
{
}
Add(Button,13738540,329,294)
{
Left=290
Top=270
link(onClick,15712307:doText,[])
}
Add(ListBox,2022022,497,133)
{
Left=225
Top=70
Width=60
Height=85
DataType=1
Point(doEnabled)
link(onClick,2731037:doEnabled,[(565,146)(565,188)])
}

карма: 0

0