1) Компоненты ShareWare и RegProg (искать на форуме)
4)
Add(MainForm,2953706,168,280)
{
Height=188
Point(Close)
Point(onClose)
link(Close,5761567:GetData,[])
}
Add(Button,8464122,168,126)
{
Left=30
Top=25
Width=125
Height=35
Caption="Начать процесс"
link(onClick,2648362:doEvent1,[])
}
Add(LED,10462268,672,126)
{
Left=195
Top=30
}
Add(LED,11080812,630,133)
{
Left=235
Top=30
ColorOn=16776960
ColorOff=8388608
}
Add(LED,1493711,588,140)
{
Left=275
Top=30
ColorOn=65280
ColorOff=32768
}
Add(Timer,14927360,420,126)
{
Interval=100
Enable=1
link(onTimer,10344012:doNext,[])
}
Add(CounterEx,10344012,469,126)
{
Max=3
Default=-1
link(onNext,4800872:doEvent,[])
}
Add(IndexToChanel,4800872,525,126)
{
Count=3
link(onEvent1,10462268:doChangeValue,[])
link(onEvent2,11080812:doChangeValue,[])
link(onEvent3,1493711:doChangeValue,[])
}
Add(Hub,2648362,224,126)
{
link(onEvent1,14927360:doTimer,[])
link(onEvent2,1921273:doSwitch,[])
}
Add(Switch,1921273,301,133)
{
DataOn=Integer(1)
DataOff=Integer(0)
Point(State)
}
Add(InfoTip,15316232,392,77)
{
Info=#11:Наш процесс|
Width=372
Height=116
}
Add(EventFromData,5761567,168,224)
{
link(onEvent,10455155:doWork2,[])
}
Add(If_else,8943341,301,224)
{
Op2=Integer(1)
link(onTrue,1056953:doMessage,[])
link(onFalse,2953706:doClose,[(340,237)(340,321)(158,321)(158,307)])
link(Op1,1921273:State,[])
}
Add(Message,1056953,364,224)
{
Message="Я в процессе! Завершить процесс и закрыть прогу?"
Type=2
Point(onYES)
Point(onNO)
link(onYES,4723335:doWork1,[])
link(onNO,4723335:doWork2,[])
}
Add(ChanelToIndex,4723335,413,231)
{
link(onIndex,5761567:doData,[(452,237)(452,328)(151,328)(151,230)])
}
Add(Button,12926896,217,238)
{
Left=30
Top=90
Width=125
Height=35
Caption="Закрыть"
link(onClick,10455155:doWork3,[(284,244)])
}
Add(HubEx,10455155,280,224)
{
link(onEvent,8943341:doCompare,[])
}
В моей схеме небольшая небоработка...
Исправление:
Add(MainForm,14923503,147,259)
{
Height=188
Point(Close)
Point(onClose)
link(Close,5761567:GetData,[])
}
Add(Button,8464122,84,119)
{
Left=30
Top=25
Width=125
Height=35
Caption="Начать процесс"
link(onClick,1921273:doOn,[])
}
Add(LED,10462268,588,105)
{
Left=195
Top=30
}
Add(LED,11080812,546,112)
{
Left=235
Top=30
ColorOn=16776960
ColorOff=8388608
}
Add(LED,1493711,504,119)
{
Left=275
Top=30
ColorOn=65280
ColorOff=32768
}
Add(Timer,14927360,336,105)
{
Interval=100
Enable=1
link(onTimer,10344012:doNext,[])
}
Add(CounterEx,10344012,385,105)
{
Max=3
Default=-1
link(onNext,4800872:doEvent,[])
}
Add(IndexToChanel,4800872,441,105)
{
Count=3
link(onEvent1,10462268:doChangeValue,[])
link(onEvent2,11080812:doChangeValue,[])
link(onEvent3,1493711:doChangeValue,[])
}
Add(Switch,1921273,217,105)
{
DataOn=Integer(1)
DataOff=Integer(0)
Point(State)
Point(doOn)
link(onSwitch,14927360:doTimer,[])
}
Add(InfoTip,15316232,308,56)
{
Info=#11:Наш процесс|
Width=372
Height=116
}
Add(EventFromData,5761567,147,203)
{
link(onEvent,10455155:doWork2,[])
}
Add(If_else,8943341,217,203)
{
Op2=Integer(1)
link(onTrue,1056953:doMessage,[])
link(onFalse,16215885:doWork1,[(256,216)])
link(Op1,1921273:State,[])
}
Add(Message,1056953,273,203)
{
Message="Я в процессе! Завершить процесс и закрыть прогу?"
Type=2
Point(onYES)
Point(onNO)
link(onYES,10488734:doEvent1,[])
link(onNO,4723335:doWork2,[(312,223)(312,237)(354,237)(354,223)])
}
Add(ChanelToIndex,4723335,378,210)
{
link(onIndex,5761567:doData,[(417,216)(417,307)(130,307)(130,209)])
}
Add(Button,12926896,84,168)
{
Left=30
Top=90
Width=125
Height=35
Caption="Закрыть"
link(onClick,10455155:doWork1,[(200,174)])
}
Add(HubEx,10455155,196,203)
{
link(onEvent,8943341:doCompare,[])
}
Add(Hub,10488734,322,210)
{
link(onEvent1,4723335:doWork1,[])
link(onEvent2,16215885:doWork2,[(347,223)(347,300)])
}
Add(HubEx,16215885,252,294)
{
Angle=2
link(onEvent,14923503:doClose,[(137,300)(137,286)])
}
|
Спасибо!
Поиск
Друзья
Администрация