Вверх ↑
Этот топик читают: Гость
Ответов: 85
Рейтинг: 0
#1: 2018-05-28 10:11:46 ЛС | профиль | цитата
Не получается одна вещь с сабжевым блоком. При запуске программы, необходимо, что бы загорелся светодиод. при запуске он не горит. Если переключить на вкладку Этап2 а потом на этап1 он загорается. Помогите или направьте в нужное русло

Make(delphi)
ver(4.05 build 186)
Add(MainForm,2953706,21,105)
{
Width=991
Height=431
link(onCreate,15207677:PageTab,[(69,125)(69,130)])
}
Add(TabControl,15207677,78,117)
{
Left=215
Top=11
Width=795
Height=290
Font=[MS Sans Serif,10,1,0,1]
Tabs=#5:этап1|5:этап2|
Bitmaps=[]
FocusTabs=0
Point(PageTab)
Point(onShow)
link(onChange,3240223:doOperation,[])
}
Add(Math,3240223,127,117)
{
OpType=9
Op1=1
ResultType=0
link(onResult,16519073:doBits,[])
}
Add(IntToBits,16519073,176,117)
{
Count=2
Data_0=Integer(0)
Data_1=Integer(1)
link(onBit1,4940010:doEvent,[(237,123)(237,125)])
}
Add(LED,10059262,315,119)
{
Left=65
Top=90
}
Add(IndexToChanel,4940010,252,119)
{
link(onEvent1,10059262:doOff,[(293,125)(293,132)])
link(onEvent2,10059262:doOn,[(293,132)(293,139)])
}

карма: 0

0
vip
#1.1контекстная реклама от партнеров
Разработчик
Ответов: 26061
Рейтинг: 2120
#2: 2018-05-28 10:41:52 ЛС | профиль | цитата
Точка же называется onChange, те событие возникает при смене страницы. А при запуске же она не меняется никак, те надо создать эффект смены страницы.

Схема

Add(MainForm,10662937,98,154)
{
Width=991
Height=431
link(onCreate,16008142:doEvent1,[])
}
Add(TabControl,15207677,259,154)
{
Left=215
Top=11
Width=795
Height=290
Font=[MS Sans Serif,10,1,0,1]
Tabs=#5:этап1|5:этап2|
Bitmaps=[]
FocusTabs=0
Point(PageTab)
Point(onShow)
link(onChange,3240223:doOperation,[])
}
Add(Math,3240223,315,154)
{
OpType=9
Op1=1
ResultType=0
link(onResult,16519073:doBits,[])
}
Add(IntToBits,16519073,364,154)
{
Count=2
Data_0=Integer(0)
Data_1=Integer(1)
link(onBit1,4940010:doEvent,[])
}
Add(LED,10059262,497,154)
{
Left=65
Top=90
}
Add(IndexToChanel,4940010,434,154)
{
link(onEvent1,10059262:doOff,[(475,160)(475,167)])
link(onEvent2,10059262:doOn,[(475,167)(475,174)])
}
Add(ChanelToIndex,983114,210,161)
{
link(onIndex,15207677:PageTab,[])
}
Add(Hub,16008142,161,168)
{
link(onEvent1,983114:doWork2,[])
link(onEvent2,983114:doWork1,[(186,181)(186,167)])
}


Редактировалось 1 раз(а), последний 2018-05-28 10:42:18
карма: 22

0
Ответов: 85
Рейтинг: 0
#3: 2018-05-28 10:54:28 ЛС | профиль | цитата
Большое спасибо за разъяснение. учту на будущее. и Правда заработало

--- Добавлено в 2018-05-28 11:39:59

Я продолжу, у меня опять затык . В продолжении вашего кодаnesco, На вход блока BlokFind с сом-порта прёт большое количество стринговых значений. Если попадается переменная AS1KM данный блок отфильтровывает "единицу". Но мне в процессе исполнения программы иногда она "мешается", а иногда нужна. Короче мне ее надо как-то отключать иногда. Попробовал использовать 2 блока EventFromData и Switch. Единица снимается или не снимается с onON. Нужен "пинок" в нужном направлении

Make(delphi)
ver(4.05 build 186)
Add(MainForm,10662937,413,112)
{
Width=991
Height=431
link(onCreate,16008142:doEvent1,[])
}
Add(TabControl,15207677,574,112)
{
Left=215
Top=11
Width=795
Height=290
Font=[MS Sans Serif,10,1,0,1]
Tabs=#5:этап1|5:этап2|
Bitmaps=[]
FocusTabs=0
Point(PageTab)
Point(onShow)
link(onChange,3240223:doOperation,[])
}
Add(Math,3240223,630,112)
{
OpType=9
Op1=1
ResultType=0
link(onResult,16519073:doBits,[])
}
Add(IntToBits,16519073,679,112)
{
Count=2
Data_0=Integer(0)
Data_1=Integer(1)
link(onBit1,9389064:doSwitch,[])
}
Add(ChanelToIndex,983114,525,119)
{
link(onIndex,15207677:PageTab,[])
}
Add(Hub,16008142,476,126)
{
link(onEvent1,983114:doWork2,[])
link(onEvent2,983114:doWork1,[(501,139)(501,125)])
}
Add(Switch,9389064,732,112)
{
Default=0
Point(onOn)
Point(DataOn)
link(DataOn,2317164:GetData,[])
}
Add(EventFromData,2317164,732,63)
{
}
Add(BlockFind,9935064,644,63)
{
IncludeBlock=1
StartBlock="AS"
EndBlock="KM"
Point(doStop)
link(onSearch,2317164:doData,[])
}



Редактировалось 1 раз(а), последний 2018-05-28 11:39:59
карма: 0

0
Ответов: 85
Рейтинг: 0
#4: 2018-05-29 12:47:35 ЛС | профиль | цитата
Есть ли кого идеи по проблеме в мессаге #3??? повторю нужна помощь или "пинок" в нужном направлении...
карма: 0

0
Разработчик
Ответов: 26061
Рейтинг: 2120
#5: 2018-05-29 13:13:40 ЛС | профиль | цитата
Тебе чего, коммутатор нужен, что ли. Вот обычный коммутатор событий

Схема


Add(MainForm,10662937,217,126)
{
Width=991
Height=431
link(onCreate,16008142:doEvent1,[])
}
Add(TabControl,15207677,378,126)
{
Left=215
Top=11
Width=795
Height=290
Font=[MS Sans Serif,10,1,0,1]
Tabs=#5:этап1|5:этап2|
Bitmaps=[]
FocusTabs=0
Point(PageTab)
Point(onShow)
link(onChange,3240223:doOperation,[])
}
Add(Math,3240223,434,126)
{
OpType=9
Op1=1
ResultType=0
link(onResult,16519073:doBits,[])
}
Add(IntToBits,16519073,483,126)
{
Count=2
Data_0=Integer(0)
Data_1=Integer(1)
link(onBit1,13346964:doEvent,[])
}
Add(ChanelToIndex,983114,329,133)
{
link(onIndex,15207677:PageTab,[])
}
Add(Hub,16008142,280,140)
{
link(onEvent1,983114:doWork2,[])
link(onEvent2,983114:doWork1,[(305,153)(305,139)])
}
Add(BlockFind,9935064,483,77)
{
IncludeBlock=1
StartBlock="AS"
EndBlock="KM"
Point(doStop)
link(onSearch,14088868:doValue,[])
}
Add(Memory,14088868,567,77)
{
}
Add(IndexToChanel,13346964,567,126)
{
Point(Index)
link(onEvent1,11117624:doWork,[])
link(onEvent2,13012222:doWork,[(648,139)(648,153)])
link(Index,14088868:Value,[])
}
Add(Check,11117624,658,126)
{
Caption="Здесь будут события, если на верху 0"
}
Add(Check,13012222,658,147)
{
Caption="Здесь будут события, если на верху 1"
}

карма: 22

0
Ответов: 85
Рейтинг: 0
#6: 2018-05-30 05:08:09 ЛС | профиль | цитата
nesco, приветствую! Не совсем коммутатор событий. Мне нужен коммутатор потоков, или выключатель потока. Вот попробовал ваш коммутатор событий. Работает не так. Мне нужно , что при одной выбранной вкладке единицы не проходили а при другой проходили в редактор текста...

Make(delphi)
ver(4.05 build 186)
Add(MainForm,10662937,217,273)
{
Width=991
Height=431
link(onCreate,16008142:doEvent1,[])
}
Add(TabControl,15207677,378,273)
{
Left=215
Top=11
Width=795
Height=290
Font=[MS Sans Serif,10,1,0,1]
Tabs=#5:этап1|5:этап2|
Bitmaps=[]
FocusTabs=0
Point(PageTab)
Point(onShow)
link(onChange,3240223:doOperation,[])
}
Add(Math,3240223,434,273)
{
OpType=9
Op1=1
ResultType=0
link(onResult,16519073:doBits,[])
}
Add(IntToBits,16519073,483,273)
{
Count=2
Data_0=Integer(0)
Data_1=Integer(1)
link(onBit1,6253931:doEvent1,[])
}
Add(ChanelToIndex,983114,329,280)
{
link(onIndex,15207677:PageTab,[])
}
Add(Hub,16008142,280,287)
{
link(onEvent1,983114:doWork2,[])
link(onEvent2,983114:doWork1,[(305,300)(305,286)])
}
Add(BlockFind,9935064,483,182)
{
IncludeBlock=1
StartBlock="AS"
EndBlock="KM"
Point(doStop)
link(onSearch,13493241:doEvent1,[])
}
Add(Memory,14088868,616,182)
{
}
Add(Memo,151944,700,273)
{
Left=45
Top=30
Width=145
Height=330
AddType=1
ScrollBars=2
}
Add(ListBox,11608254,322,98)
{
Left=105
Top=415
Width=120
Height=100
Visible=1
Strings=#5:AS1KM|0:|0:|0:|0:|
Point(onSelect)
Point(doSelect)
Point(String)
link(onSelect,13119274:doData,[(363,118)(363,188)])
}
Add(DoData,13119274,378,182)
{
link(onEventData,7629408:doEvent1,[])
link(Data,11608254:String,[(384,156)(349,156)])
}
Add(Timer,9407116,273,140)
{
Point(Enabled)
link(onTimer,11608254:doSelect,[])
}
Add(Hub,7629408,441,182)
{
link(onEvent1,9935064:doSearch,[])
}
Add(Hub,13493241,532,182)
{
link(onEvent1,14088868:doValue,[])
}
Add(Hub,6253931,553,273)
{
InCount=2
OutCount=1
link(onEvent1,14838266:doEvent,[])
}
Add(IndexToChanel,14838266,616,273)
{
Point(Data)
link(onEvent1,151944:doAdd,[])
link(Data,14088868:Value,[])
}

карма: 0

0
Разработчик
Ответов: 26061
Рейтинг: 2120
#7: 2018-05-30 11:01:11 ЛС | профиль | цитата
Я тебе дал просто один из примеров коммутатора событий.
карма: 22

0
Ответов: 85
Рейтинг: 0
#8: 2018-05-30 16:17:17 ЛС | профиль | цитата
nesco, вроде получилось Спасибо, что помогаешь думать. завтра или после завтра попробую прикрутить к своему проекту.


Make(delphi)
ver(4.05 build 186)
Add(MainForm,12326657,203,567)
{
Width=1054
Height=354
link(onCreate,16008142:doEvent1,[])
}
Add(TabControl,15207677,364,567)
{
Left=215
Top=11
Width=795
Height=290
Font=[MS Sans Serif,10,1,0,1]
Tabs=#5:этап1|5:этап2|
Bitmaps=[]
FocusTabs=0
Point(PageTab)
Point(onShow)
link(onChange,3240223:doOperation,[])
}
Add(Math,3240223,420,567)
{
OpType=9
Op1=1
ResultType=0
link(onResult,16519073:doBits,[])
}
Add(IntToBits,16519073,469,567)
{
Count=2
Data_0=Integer(0)
Data_1=Integer(1)
link(onBit1,3549277:doValue,[(545,573)(545,468)])
link(onBit2,8317142:doValue,[(545,580)(545,650)])
}
Add(ChanelToIndex,983114,315,574)
{
link(onIndex,15207677:PageTab,[])
}
Add(Hub,16008142,266,581)
{
link(onEvent1,983114:doWork2,[])
link(onEvent2,983114:doWork1,[(291,594)(291,580)])
}
Add(BlockFind,9935064,301,707)
{
IncludeBlock=1
StartBlock="AS"
EndBlock="KM"
Point(doStop)
link(onSearch,14002621:doEvent1,[])
}
Add(IndexToChanel,13346964,588,700)
{
Data=String()
Point(Data)
link(onEvent2,2053010:doAdd,[])
link(Data,8317142:Value,[])
}
Add(Check,11117624,777,210)
{
Caption="Здесь будут события, если на верху 0"
}
Add(Check,13012222,777,231)
{
Caption="Здесь будут события, если на верху 1"
}
Add(Memo,957134,658,525)
{
Left=15
Top=40
Height=255
AddType=1
ScrollBars=2
}
Add(Memo,2053010,658,707)
{
Left=120
Top=40
Height=255
AddType=1
ScrollBars=2
}
Add(Hub,14002621,427,707)
{
link(onEvent1,8974104:doEvent,[(515,713)(515,524)])
link(onEvent2,13346964:doEvent,[(553,720)(553,706)])
}
Add(ListBox,11608254,238,616)
{
Left=105
Top=415
Width=120
Height=100
Visible=1
Strings=#5:AS1KM|0:|0:|0:|0:|
Point(onSelect)
Point(doSelect)
Point(String)
link(onSelect,13119274:doData,[(282,636)(282,674)(247,674)(247,713)])
}
Add(DoData,13119274,259,707)
{
link(onEventData,9935064:doSearch,[])
link(Data,11608254:String,[])
}
Add(Timer,9407116,126,658)
{
Point(Enabled)
link(onTimer,8699430:doEvent1,[])
}
Add(Hub,8699430,175,658)
{
link(onEvent1,11608254:doSelect,[])
}
Add(Memory,8317142,588,644)
{
Point(Data)
}
Add(IndexToChanel,8974104,588,518)
{
Data=String()
Point(Data)
link(onEvent2,957134:doAdd,[])
link(Data,3549277:Value,[])
}
Add(Memory,3549277,588,462)
{
Point(Data)
}

карма: 0

0
Разработчик
Ответов: 26061
Рейтинг: 2120
#9: 2018-05-30 16:34:19 ЛС | профиль | цитата
RT9U писал(а):
вроде получилось

Ну, да. Что-то типа того.
карма: 22

0
9
Сообщение
...
Прикрепленные файлы
(файлы не залиты)