Вверх ↑
Этот топик читают: Гость
Этот топик был перемещен из раздела "Помощь по среде"
Ответов: 28
Рейтинг: 0
#1: 2017-10-21 17:30:18 ЛС | профиль | цитата
Добрый день!

Столкнулся с одной задачей: требуется чтоб кнопка вызывала запуск прогресс бара и сразу же блокировала себя на секунд 30
Т.е. получается цепочка событий:
(1) Нажимаем на кнопку ==› (2) Запуск прогресс бара ==› (3) Блокировка кнопки 1 на 30 секунд.

Помогите, пожалуйста, не могу понять в чём допущена ошибка...

Заранее благодарю!

Редактировалось 2 раз(а), последний 2017-10-21 17:55:20
карма: 0

0
vip
#1.1контекстная реклама от партнеров
Ответов: 8886
Рейтинг: 823
#2: 2017-10-21 17:48:38 ЛС | профиль | цитата
Dapofig, схемы можно здесь выкладывать, а с посторонними ресурсами лучше не пользоваться, они не в почёте Или Яндекс диск себе заведите.
схемка


Add(Button,13580623,168,105)
{
Left=20
Top=20
Point(doEnabled)
link(onClick,8621025:doEvent1,[])
}
Add(ChanelToIndex,4840553,119,105)
{
link(onIndex,13580623:doEnabled,[])
}
Add(Hub,8621025,210,105)
{
link(onEvent1,6572284:doTimer,[])
link(onEvent2,4840553:doWork1,[(235,118)(235,97)(109,97)(109,111)])
}
Add(Timer,6572284,245,105)
{
Interval=100
Enable=1
AutoStop=300
Point(onStop)
link(onTimer,6067525:doNext,[])
link(onStop,4840553:doWork2,[(284,118)(284,146)(109,146)(109,118)])
}
Add(ProgressBar,13277528,336,105)
{
Left=95
Top=20
Width=165
Color=32768
Max=300
ProgressColor=65280
}
Add(Counter,6067525,294,105)
{
Max=299
link(onNext,13277528:doPosition,[])
}

карма: 19

0
Ответов: 28
Рейтинг: 0
#3: 2017-10-21 17:55:01 ЛС | профиль | цитата
Леонид, благодарю, всё так, как и требовалось
На счёт посторонних ресурсов и кода, так же, большое спасибо, буду знать!
карма: 0

0
Ответов: 2059
Рейтинг: 131
#4: 2017-10-21 17:59:58 ЛС | профиль | цитата
Я понял так, что счётчик это эмуляция чего-то, по этому в одном таймере задал 30 сек., а второй просто для эмуляции процесса.

Add(MainForm,1165713,273,189)
{
Left=20
Top=105
Width=469
Height=149
Caption="Схема(24)"
Position=1
Point(onResize)
Point(onMouseDown)
}
Add(InfoTip,16582780,406,56)
{
Info=#8:Попытка:|
Width=386
Height=235
}
Add(StatusBarEx,7047328,700,147)
{
Text="Connecting to server database"
TextAlign=1
EnablePBar=0
PanelPBar=1
VisiblePBar=0
Max=30
ColorPBar=15780518
Panels=#14:Progress -=115|15:ProgressBar=150|0:|
Point(doPosPBar)
Point(PosPBar)
link(Text,15975530:FString,[(706,135)(678,135)(678,269)(720,269)])
link(Panel,11180413:Value,[(713,128)(678,128)])
link(Width,12782589:Value,[(720,128)(734,128)])
}
Add(Memory,12782589,728,91)
{
Default=Integer(30)
}
Add(Hub,501956,616,161)
{
link(onEvent1,7047328:doPosPBar,[])
link(onEvent2,15975530:doString,[(653,174)(653,223)])
}
Add(FormatStr,15975530,714,217)
{
Mask="Authorization: %2/34"
Point(FString)
link(onFString,7047328:doText,[(758,223)(758,192)(688,192)(688,153)])
link(Str2,7047328:PosPBar,[])
}
Add(Memory,11180413,672,91)
{
Default=Integer(0)
}
Add(Timer,5416241,490,119)
{
Interval=30000
Enable=1
AutoStop=1
Point(onStop)
link(onTimer,16185178:doEvent1,[(534,125)(534,132)])
}
Add(Message,5843898,602,203)
{
}
Add(Button,4897788,421,112)
{
Left=15
Top=55
Width=415
TabOrder=-1
Caption="Запуск прогресс бара и блокировка этой кнопки на 30 секунд"
Data=String(aerfere)
Point(doEnabled)
link(onClick,1603520:doEvent1,[])
}
Add(Counter,16091389,546,161)
{
Max=30
link(onNext,501956:doEvent1,[])
}
Add(Hub,1603520,462,112)
{
OutCount=3
link(onEvent1,10722359:doOn,[(490,118)(490,83)])
link(onEvent2,5416241:doTimer,[])
link(onEvent3,6822514:doTimer,[(482,132)(482,165)(443,165)(443,195)])
}
Add(Switch,10722359,504,63)
{
DataOn=Integer(0)
DataOff=Integer(1)
Point(doOn)
link(onSwitch,4897788:doEnabled,[(548,69)(548,99)(409,99)(409,118)])
}
Add(Timer,6822514,455,189)
{
Enable=1
Point(onStop)
link(onTimer,16091389:doNext,[(512,195)(512,167)])
}
Add(Hub,16185178,546,126)
{
OutCount=3
link(onEvent1,10722359:doReset,[(572,132)(572,104)(492,104)(492,76)])
link(onEvent2,6822514:doStop,[(572,139)(572,171)(443,171)(443,202)])
link(onEvent3,5843898:doMessage,[(581,146)(581,209)])
}



Редактировалось 3 раз(а), последний 2017-10-21 18:32:06
карма: 6

0
Ответов: 28
Рейтинг: 0
#5: 2017-10-21 18:31:04 ЛС | профиль | цитата
flint2, да, вы полностью правы! Большое спасибо
карма: 0

0
Ответов: 2059
Рейтинг: 131
#6: 2017-10-21 18:33:11 ЛС | профиль | цитата
Dapofig, Только что поправил, так будет вернее.
карма: 6

0
Ответов: 16884
Рейтинг: 1239
#7: 2017-10-21 20:18:47 ЛС | профиль | цитата
Главное в схеме - путанка !
gl.jpg


Редактировалось 1 раз(а), последний 2017-10-21 20:20:00
карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
Ответов: 2059
Рейтинг: 131
#8: 2017-10-21 20:26:57 ЛС | профиль | цитата
Tad, ну мы-же художники!
И я так вижу!


Ещё краше.

Add(MainForm,1165713,315,231)
{
Left=20
Top=105
Width=469
Height=149
Caption="Схема(24)"
Position=1
Point(onResize)
Point(onMouseDown)
}
Add(InfoTip,16582780,448,98)
{
Info=#8:Попытка:|
Width=386
Height=235
}
Add(StatusBarEx,7047328,742,189)
{
Text="Connecting to server database"
TextAlign=1
EnablePBar=0
PanelPBar=1
VisiblePBar=0
Max=30
ColorPBar=15780518
Panels=#14:Progress -=115|15:ProgressBar=150|0:|
Point(doPosPBar)
Point(PosPBar)
link(Text,15975530:FString,[(748,177)(720,177)(720,288)(762,288)])
link(Panel,11180413:Value,[(755,170)(720,170)])
link(Width,12782589:Value,[(762,170)(776,170)])
}
Add(Memory,12782589,770,133)
{
Default=Integer(30)
}
Add(Hub,501956,658,231)
{
link(onEvent1,7047328:doPosPBar,[(707,237)(707,209)])
link(onEvent2,15975530:doString,[])
}
Add(FormatStr,15975530,756,238)
{
Mask="Authorization: %2/34"
Point(FString)
link(onFString,7047328:doText,[(795,244)(795,231)(730,231)(730,195)])
link(Str2,7047328:PosPBar,[])
}
Add(Memory,11180413,714,133)
{
Default=Integer(0)
}
Add(Timer,5416241,532,133)
{
Interval=30000
Enable=1
AutoStop=1
Point(onStop)
link(onTimer,16185178:doEvent1,[])
}
Add(Message,5843898,637,182)
{
}
Add(Button,4897788,463,126)
{
Left=15
Top=55
Width=415
TabOrder=-1
Caption="Запуск прогресс бара и блокировка этой кнопки на 30 секунд"
Data=Integer(0)
Point(doEnabled)
link(onClick,1603520:doEvent1,[])
}
Add(Counter,16091389,567,231)
{
Max=30
link(onNext,501956:doEvent1,[])
}
Add(Hub,1603520,504,126)
{
OutCount=3
link(onEvent1,14347620:doWork3,[(530,132)])
link(onEvent2,5416241:doTimer,[])
link(onEvent3,6822514:doTimer,[(524,146)(524,208)(484,208)(484,237)])
}
Add(Timer,6822514,497,231)
{
Enable=1
Point(onStop)
link(onTimer,16091389:doNext,[])
}
Add(Hub,16185178,588,133)
{
OutCount=3
link(onEvent1,13833534:doData,[])
link(onEvent2,6822514:doStop,[(614,146)(614,213)(468,213)(468,244)])
link(onEvent3,5843898:doMessage,[(623,153)(623,188)])
}
Add(DoData,13833534,637,133)
{
Data=Integer(1)
link(onEventData,14347620:doWork2,[(681,139)(681,120)])
}
Add(HubEx,14347620,526,114)
{
Angle=2
link(onEvent,4897788:doEnabled,[(451,120)(451,132)])
}


Редактировалось 1 раз(а), последний 2017-10-21 20:50:23
карма: 6

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