Редактировалось 5 раз(а), последний 2021-05-22 06:05:43

Cмотри: если 1 на точку doEnebled то покажет а если 0 то спрячет. вот такие пироги;-)
Такчто если хочешь что бы при отключение отрубалось то подовай 0.

[code:1]Add(RadioButton,14022677,217,35) {
Left=45
Top=40
Font=[Arial,8,0,0]
}
Add(Edit,11950137,266,70)
{
Left=175
Top=45
Font=[Arial,8,0,0]
Point(doEnabled)
}
Add(Timer,13617401,168,84)
{
Interval=0
link(onTimer,15095095:doData,[])
}
Add(DoData,15095095,217,84)
{
link(onEventData,11950137:doEnabled,[])
link(Data,14022677:Selected,[])
}[/code:1]

А я думаю что лутше помочь примерчиком
Извините за размер
[code:1]Add(RadioButton,14022677,1,147) {
Left=55
Top=40
Font=[Arial,8,0,0]
Selected=0
link(onSelect,669103:doData,[])
}
Add(RadioButton,9309713,1,231)
{
Left=50
Top=100
Font=[Arial,8,0,0]
link(onSelect,4639779:doData,[])
}
Add(RadioButton,11143973,1,308)
{
Left=50
Top=160
Font=[Arial,8,0,0]
link(onSelect,7844815:doData,[])
}
Add(Edit,11950137,421,161)
{
Left=175
Top=45
Font=[Arial,8,0,0]
Point(doEnabled)
}
Add(Edit,6190116,421,238)
{
Left=175
Top=95
Font=[Arial,8,0,0]
Enabled=1
Point(doEnabled)
}
Add(Edit,8918092,421,315)
{
Left=175
Top=155
Font=[Arial,8,0,0]
Enabled=1
Point(doEnabled)
}
Add(Hub,1139721,148,224)
{
InCount=3
OutCount=3
link(onEvent1,15927759:doCase,[(202,230)(202,160)])
link(onEvent2,2465565:doCase,[])
link(onEvent3,14155879:doCase,[(199,244)(199,307)])
}
Add(Case,15927759,218,154)
{
Value=Integer(1)
link(onNextCase,11998574:doData,[(265,160)(265,139)])
link(onTrue,15385130:doData,[(265,167)(265,181)])
}
Add(DoData,669103,64,147)
{
Data=Integer(1)
link(onEventData,1139721:doEvent1,[(122,153)(122,230)])
}
Add(DoData,4639779,64,231)
{
Data=Integer(2)
link(onEventData,1139721:doEvent2,[(122,237)(122,237)])
}
Add(DoData,7844815,64,308)
{
Data=Integer(3)
link(onEventData,1139721:doEvent3,[(122,314)(122,244)])
}
Add(Case,2465565,218,231)
{
Value=Integer(2)
link(onNextCase,1737121:doData,[(265,237)(265,216)])
link(onTrue,13601081:doData,[(265,244)(265,258)])
}
Add(Case,14155879,218,301)
{
Value=Integer(3)
link(onNextCase,8935588:doData,[(265,307)(265,293)])
link(onTrue,14575398:doData,[(265,314)(265,335)])
}
Add(DoData,13601081,281,252)
{
Data=Integer(1)
link(onEventData,16069674:doWork2,[])
}
Add(DoData,1737121,281,210)
{
Data=Integer(0)
link(onEventData,16069674:doWork1,[(369,216)])
}
Add(DoData,15385130,281,175)
{
Data=Integer(1)
link(onEventData,2065572:doWork2,[])
}
Add(DoData,11998574,281,133)
{
Data=Integer(0)
link(onEventData,2065572:doWork1,[(369,139)])
}
Add(DoData,8935588,281,287)
{
Data=Integer(0)
link(onEventData,8540790:doWork1,[(369,293)])
}
Add(DoData,14575398,281,329)
{
Data=Integer(1)
link(onEventData,8540790:doWork2,[])
}
Add(HubEx,16069674,365,245)
{
link(onEvent,6190116:doEnabled,[])
}
Add(HubEx,8540790,365,322)
{
link(onEvent,8918092:doEnabled,[])
}
Add(HubEx,2065572,365,168)
{
link(onEvent,11950137:doEnabled,[])
}
[/code:1]

Еще проще:

[code:1]Add(RadioButton,14022677,77,117) {
Left=55
Top=40
Font=[Arial,8,0,0]
Selected=0
link(onSelect,669103:doData,[])
}
Add(RadioButton,9309713,77,203)
{
Left=50
Top=100
Font=[Arial,8,0,0]
link(onSelect,4639779:doData,[])
}
Add(RadioButton,11143973,77,278)
{
Left=50
Top=160
Font=[Arial,8,0,0]
link(onSelect,7844815:doData,[])
}
Add(Edit,11950137,336,124)
{
Left=175
Top=45
Font=[Arial,8,0,0]
Point(doEnabled)
}
Add(Edit,6190116,350,201)
{
Left=175
Top=95
Font=[Arial,8,0,0]
Enabled=1
Point(doEnabled)
}
Add(Edit,8918092,336,278)
{
Left=175
Top=155
Font=[Arial,8,0,0]
Enabled=1
Point(doEnabled)
}
Add(IntToBits,13140141,231,203)
{
Count=3
Data_0=Integer(0)
Data_1=Integer(1)
link(onBit1,11950137:doEnabled,[(299,209)(299,144)])
link(onBit2,6190116:doEnabled,[(299,216)(299,221)])
link(onBit3,8918092:doEnabled,[(299,223)(299,298)])
}
Add(DoData,669103,140,117)
{
Data=Integer(1)
link(onEventData,13619509:doWork1,[(214,123)])
}
Add(DoData,4639779,140,203)
{
Data=Integer(2)
link(onEventData,13619509:doWork2,[])
}
Add(DoData,7844815,140,278)
{
Data=Integer(4)
link(onEventData,13619509:doWork3,[(214,284)])
}
Add(HubEx,13619509,210,196)
{
link(onEvent,13140141:doBits,[(225,209)(225,209)])
}
[/code:1]

Экономлю еще 2 элемента (N-1 вообще-то)
[code:1]Add(RadioButton,14022677,95,17) {
Left=55
Top=40
Font=[Arial,8,0,0]
Selected=0
link(onSelect,13619509:doWork1,[(162,23)])
}
Add(RadioButton,9309713,102,61)
{
Left=50
Top=100
Font=[Arial,8,0,0]
link(onSelect,13619509:doWork2,[])
}
Add(RadioButton,11143973,109,101)
{
Left=50
Top=160
Font=[Arial,8,0,0]
link(onSelect,13619509:doWork3,[(162,107)])
}
Add(Edit,11950137,242,54)
{
Left=175
Top=45
Font=[Arial,8,0,0]
Point(doEnabled)
}
Add(Edit,6190116,242,103)
{
Left=175
Top=95
Font=[Arial,8,0,0]
Enabled=1
Point(doEnabled)
}
Add(Edit,8918092,242,152)
{
Left=175
Top=155
Font=[Arial,8,0,0]
Enabled=1
Point(doEnabled)
}
Add(IntToBits,13140141,179,152)
{
Count=3
Data_0=Integer(0)
Data_1=Integer(1)
link(onBit1,11950137:doEnabled,[(226,158)(226,74)])
link(onBit2,6190116:doEnabled,[(233,165)(233,123)])
link(onBit3,8918092:doEnabled,[])
}
Add(HubEx,13619509,158,54)
{
link(onEvent,7208530:doNumber,[(173,67)(173,140)(85,140)(85,158)])
}
Add(BitsToInt,7208530,95,152)
{
Count=3
link(onNumber,13140141:doBits,[])
link(Bit1,14022677:Selected,[])
link(Bit2,9309713:Selected,[])
link(Bit3,11143973:Selected,[])
}[/code:1]
Кто больше :?:
:D :D :D

убираю 3 линии связи(потока)!

[code:1] Add(RadioButton,14022677,81,199)
{
Left=55
Top=40
Font=[Arial,8,0,0]
Selected=0
link(onSelect,10780098:doWork1,[(144,205)(144,237)])
}
Add(RadioButton,9309713,88,243)
{
Left=50
Top=100
Font=[Arial,8,0,0]
link(onSelect,10780098:doWork2,[(147,249)(147,244)])
}
Add(RadioButton,11143973,95,283)
{
Left=50
Top=160
Font=[Arial,8,0,0]
link(onSelect,10780098:doWork3,[(151,289)(151,251)])
}
Add(Edit,11950137,361,133)
{
Left=175
Top=45
Font=[Arial,8,0,0]
Point(doEnabled)
}
Add(Edit,6190116,361,182)
{
Left=175
Top=95
Font=[Arial,8,0,0]
Enabled=1
Point(doEnabled)
}
Add(Edit,8918092,361,231)
{
Left=175
Top=155
Font=[Arial,8,0,0]
Enabled=1
Point(doEnabled)
}
Add(IntToBits,13140141,298,231)
{
Count=3
Data_0=Integer(0)
Data_1=Integer(1)
link(onBit1,11950137:doEnabled,[(345,237)(345,153)])
link(onBit2,6190116:doEnabled,[(352,244)(352,202)])
link(onBit3,8918092:doEnabled,[])
}
Add(ChanelToIndex,10780098,175,231)
{
Count=3
link(onIndex,3418903:doOperation,[])
}
Add(Math,3418903,238,231)
{
OpType=9
Op1=1
ResultType=0
link(onResult,13140141:doBits,[])
}
[/code:1]

Ну как? :D

А вот так
[code:1]Add(RadioButton,14022677,137,66) {
Left=55
Top=40
Font=[Arial,8,0,0]
Selected=0
link(onSelect,10780098:doWork2,[(200,72)(200,104)])
}
Add(RadioButton,9309713,137,105)
{
Left=50
Top=100
Font=[Arial,8,0,0]
link(onSelect,10780098:doWork3,[(200,111)(200,111)])
}
Add(RadioButton,11143973,137,143)
{
Left=50
Top=160
Font=[Arial,8,0,0]
link(onSelect,10780098:doWork5,[(200,149)(200,125)])
}
Add(Edit,11950137,417,35)
{
Left=175
Top=45
Font=[Arial,8,0,0]
Point(doEnabled)
}
Add(Edit,6190116,417,84)
{
Left=175
Top=95
Font=[Arial,8,0,0]
Enabled=1
Point(doEnabled)
}
Add(Edit,8918092,417,133)
{
Left=175
Top=155
Font=[Arial,8,0,0]
Enabled=1
Point(doEnabled)
}
Add(IntToBits,673411,336,91)
{
Count=3
Data_0=Integer(0)
Data_1=Integer(1)
link(onBit1,11950137:doEnabled,[(387,97)(387,55)])
link(onBit2,6190116:doEnabled,[(392,104)(392,104)])
link(onBit3,8918092:doEnabled,[(392,111)(392,153)])
}
Add(ChanelToIndex,10780098,231,91)
{
Count=5
link(onIndex,673411:doBits,[])
}
[/code:1]
:D :D :D

Я сдаюсь!

AVC, критику придумал
при количестве Радио-Батонов больше 7 - возникнут проблемы

Редактировалось 5 раз(а), последний 2021-05-22 06:05:43

Galkov
да .. индекса чуть-чуть нехватает

Galkov, а в наших примерах при количестве бутонов больше 32