Вверх ↑
Этот топик читают: Гость
Гость
Ответов: 17029
Рейтинг: 0
#1: 2011-07-27 23:47:15 правка | ЛС | профиль | цитата


Редактировалось 2 раз(а), последний 2025-01-09 21:11:43
карма: 0

0
Разработчик
Ответов: 26209
Рейтинг: 2137
#2: 2011-07-28 00:25:37 ЛС | профиль | цитата
г. GOST писал(а):
Как задать номер COM-порта, например, 15?

Через верхнюю точку Port



Add(COM,5508221,189,231)
{
link(Port,14505635:Value,[])
}
Add(Memory,14505635,189,175)
{
Default=Integer(16)
}

карма: 22

0
Гость
Ответов: 17029
Рейтинг: 0
#3: 2011-07-28 09:21:48 правка | ЛС | профиль | цитата


Редактировалось 2 раз(а), последний 2025-01-09 21:11:44
карма: 0

0
Ответов: 16884
Рейтинг: 1239
#4: 2011-07-28 10:03:32 ЛС | профиль | цитата
г. GOST писал(а):
А надо ли
А зачем ? Не надо.
------------ Дoбавленo в 09.35:
А так для гибкости
Add(MainForm,2953706,49,105)
{
Width=354
Height=83
link(onCreate,6016113:doFor,[])
}
Add(ComboBox,14388308,203,119)
{
Left=75
Top=15
Height=21
ReadOnly=0
Point(EditText)
link(onClick,5078976:doWork3,[(247,132)(247,181)])
}
Add(For,6016113,140,119)
{
Start=1
End=100
link(onEvent,14388308:doAdd,[])
link(onStop,5078976:doWork1,[(194,132)])
}
Add(Label,4100280,140,189)
{
Left=15
Top=20
Width=56
Height=17
Caption="Порт COM"
AutoSize=1
Alignment=1
}
Add(Label,1886364,273,189)
{
Left=150
Top=20
Width=4
Height=4
Caption=""
}
Add(FormatStr,9559207,217,189)
{
DataCount=1
Mask="Выбран порт COM%1"
link(onFString,1886364:doText,[])
link(Str1,14388308:EditText,[])
}
Add(HubEx,5078976,190,175)
{
Angle=1
link(onEvent,9559207:doString,[(194,195)])
}


------------ Дoбавленo в 10.03:
Или так:
Add(MainForm,2953706,49,105)
{
Width=460
Height=90
link(onCreate,6016113:doFor,[])
}
Add(ComboBox,14388308,203,119)
{
Left=75
Top=15
Height=21
ReadOnly=0
Point(EditText)
link(onClick,7709625:doWork3,[(249,132)])
}
Add(For,6016113,140,119)
{
Start=1
End=100
link(onEvent,14388308:doAdd,[])
link(onStop,12614065:doWork2,[])
}
Add(Label,4100280,49,154)
{
Left=15
Top=20
Width=56
Height=17
Caption="Порт COM"
AutoSize=1
Alignment=1
}
Add(Label,1886364,56,161)
{
Left=245
Top=20
Width=52
Height=17
Caption="Скорость"
}
Add(FormatStr,9559207,217,203)
{
Mask="Выбран порт COM%1 Скорость: %2"
link(onFString,2953706:doCaption,[(260,209)(260,245)(37,245)(37,111)])
link(Str1,14303961:Var2,[])
link(Str2,370551:Var1,[(230,180)])
}
Add(HubEx,12614065,182,126)
{
link(onEvent,9559207:doString,[(194,132)(194,209)])
}
Add(COM,15671209,322,210)
{
link(Port,14303961:Var3,[(328,187)])
link(BaudRate,370551:Var2,[])
}
Add(GetDataEx,14303961,217,182)
{
link(Data,14388308:EditText,[])
}
Add(ComboBox,5946731,315,119)
{
Left=300
Top=15
Width=85
Height=21
Strings=#3:110|4:300 |4:600 |4:1200|4:2400|4:4800|4:9600|5:14400|5:19200|5:38400|5:56000|5:57600|6:115200|6:128000|6:256000|0:|
ReadOnly=0
Point(EditText)
link(onClick,7709625:doWork2,[(359,132)(359,111)])
}
Add(GetDataEx,370551,329,175)
{
link(Data,5946731:EditText,[])
}
Add(HubEx,7709625,245,105)
{
Angle=2
link(onEvent,12614065:doWork1,[(186,111)])
}


карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
4
Сообщение
...
Прикрепленные файлы
(файлы не залиты)