Прогресс для таймера?

Форумы Помощь по пакетуПрогресс для таймера? ← Ctrl1Ctrl →

Этот топик читают: Гость

Ответов: 41

Рейтинг: 1

#1: 2014-08-14 17:53:07 ЛС | профиль | цитата

Надо чтобы при включении таймера, строка прогресса заправлялась с каждой секундой до каждого срабатывания таймера. После каждого срабатывания таймера, панель прогресса очищалась, и все начиналось сначала.

карма: 0

Разработчик

Ответов: 4698

Рейтинг: 426

#2: 2014-08-14 18:31:51 ЛС | профиль | цитата

Нестандартным путем: code_34144.txt
На будущее: Помочь сделать прогу

карма: 10

Мой сайт, Мои рассказы

файлы: 1

code_34144.txt [594B] [230]

Ответов: 177

Рейтинг: 24

#3: 2014-08-15 16:45:43 ЛС | профиль | цитата

BVA11 писал(а):

можно так:


Add(MainForm,11986904,315,147)
{
 Height=138
}
Add(GProgressBar,13318942,693,245)
{
 Left=25
 Top=75
 Width=350
}
Add(Timer,7245662,532,245)
{
 Interval=100
 Point(doInterval)
 link(onTimer,11827692:doNext,[])
}
Add(Label,6902308,309,301)
{
 Left=115
 Top=20
 Width=91
 Height=17
 Caption="1 s. = 1000 ms --->"
}
Add(UpDown,11794668,364,301)
{
 Left=210
 Top=15
 Height=25
 Max=10000
 link(onPosition,4997861:doText,[(407,307)(407,309)])
}
Add(Edit,4997861,420,303)
{
 Left=235
 Top=17
 Text="100"
 DataType=1
 link(onChange,7245662:doInterval,[(517,309)(517,265)])
}
Add(Button,8160872,420,189)
{
 Left=30
 Top=45
 Width=170
 Caption="Start"
 link(onClick,7245662:doTimer,[(517,195)(517,251)])
}
Add(Button,12091432,420,252)
{
 Left=205
 Top=45
 Width=170
 Caption="Stop"
 link(onClick,7245662:doStop,[])
}
Add(CounterEx,11827692,602,245)
{
 link(onNext,13318942:doPosition,[])
}

карма: 1

Разработчик

Ответов: 4698

Рейтинг: 426

#4: 2014-08-15 17:06:05 ЛС | профиль | цитата

Однако есть вариант попроще моего и стандартным способом

Add(Timer,6143305,616,224)
{
 link(onTimer,11909460:doNext,[])
}
Add(ProgressBar,8911384,714,224)
{
 Left=35
 Top=10
 Width=250
 Max=4
}
Add(Label,7536965,763,273)
{
 Left=315
 Top=15
 Width=10
 Height=17
 Caption="0"
}
Add(CounterEx,9431260,714,273)
{
 link(onNext,7536965:doText,[])
}
Add(CounterEx,11909460,665,224)
{
 Max=4
 Point(onThroughMax)
 link(onNext,8911384:doPosition,[])
 link(onThroughMax,9431260:doNext,[(705,237)(705,279)])
}