Вверх ↑
Этот топик читают: Гость
Ответов: 817
Рейтинг: 52
#1: 2008-11-06 17:08:07 ЛС | профиль | цитата
Приятного времени суток господа!

Необходимо из ListBox считывать последовательность данных с определенной задержкой
Попробовал вот так
code_10553.txt
Задержка в 5 сек есть, но очередности считывания нет, всегда показывает последнюю строку
Подскажите что не так я сделал?
Заранее всем спасибо
карма: 1

0
файлы: 1code_10553.txt [861B] [233]
Ответов: 1161
Рейтинг: 160
#2: 2008-11-06 17:15:19 ЛС | профиль | цитата
о как надо
code_10554.txt
карма: 0

0
файлы: 1code_10554.txt [1.1KB] [189]
Ответов: 817
Рейтинг: 52
#3: 2008-11-06 17:25:12 ЛС | профиль | цитата
Мудрено, ща буду осмысливать
Спасибо за оперативность, и за решение вопроса
карма: 1

0
Ответов: 2236
Рейтинг: 676
#4: 2008-11-07 16:41:42 ЛС | профиль | цитата
Отнимание лишнее
code_10566.txt
карма: 11

1
файлы: 1code_10566.txt [1.1KB] [354]
Голосовали:LainX
Ответов: 16884
Рейтинг: 1239
#5: 2008-11-07 18:44:50 ЛС | профиль | цитата
-= DriveR =-,
Add(ListBox,2174597,350,147)
{
Left=10
Top=10
Width=145
Height=155
Strings=#8:Строка 1|8:Строка 2|8:Строка 3|8:Строка 4|8:Строка 5|8:Строка 6|8:Строка 7|
Point(doSelect)
Point(String)
}
Add(Button,3027014,168,252)
{
Left=205
Top=190
link(onClick,10715440:doFor,[])
}
Add(For,10715440,217,252)
{
IncludeEnd=1
link(onEvent,4837909:doEvent1,[])
link(End,2174597:Count,[(230,226)(363,226)])
}
Add(ListBox,9461971,371,259)
{
Left=165
Top=10
Width=115
Height=155
link(onChange,11018697:doProcessMessages,[])
link(Str,2174597:String,[])
}
Add(Sleep,10470149,315,259)
{
Delay=5000000
link(onSleep,9461971:doAdd,[])
}
Add(Hub,4837909,259,252)
{
link(onEvent1,2174597:doSelect,[(303,258)(303,195)])
link(onEvent2,10470149:doSleepMks,[])
}
Add(Application,11018697,420,259)
{
}



карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
Ответов: 5227
Рейтинг: 587
#6: 2008-11-07 18:52:54 ЛС | профиль | цитата
Tad, висит по чёрному
карма: 4
Мой форум - http://hiasm.bbtalk.me/ схемы, компоненты...
0
Ответов: 1161
Рейтинг: 160
#7: 2008-11-07 18:54:36 ЛС | профиль | цитата
andrestudio, а поток тебе на что???
code_10574.txt
карма: 0

0
файлы: 1code_10574.txt [1.2KB] [196]
Разработчик
Ответов: 26113
Рейтинг: 2126
#8: 2008-11-07 19:00:32 ЛС | профиль | цитата
То же самое, но на массивах и таймере и никаких заморочек с потоками


Add(MainForm,2953706,217,245)
{
}
Add(ListBox,2174597,406,224)
{
Left=10
Top=10
Width=145
Height=155
Strings=#8:Строка 1|8:Строка 2|8:Строка 3|8:Строка 4|8:Строка 5|8:Строка 6|8:Строка 7|
Point(doSelect)
Point(String)
}
Add(Button,3027014,217,315)
{
Left=205
Top=190
link(onClick,2839734:doTimer,[])
}
Add(ListBox,9461971,462,224)
{
Left=165
Top=10
Width=115
Height=155
}
Add(Timer,2839734,273,315)
{
Interval=5000
Enable=1
link(onTimer,12889495:doNext,[])
}
Add(Counter,12889495,322,315)
{
Min=-1
Max=1000000
Default=-1
link(onNext,15186592:doCompare,[])
}
Add(If_else,15186592,371,315)
{
Type=5
link(onTrue,73474:doRead,[])
link(onFalse,2839734:doStop,[(412,328)(412,357)(261,357)(261,328)])
link(Op2,2174597:Count,[(384,295)(419,295)])
}
Add(ArrayRW,73474,420,315)
{
link(onRead,5870831:doAdd,[])
link(Array,2174597:Array,[])
}
Add(ArrayRW,5870831,476,301)
{
link(Array,9461971:Array,[])
}

карма: 22

1
Голосовали:andrestudio
Ответов: 5227
Рейтинг: 587
#9: 2008-11-07 19:04:03 ЛС | профиль | цитата
LainX, енто не мне;)
------------ Дoбавленo:

nesco, удачный вариант +
карма: 4
Мой форум - http://hiasm.bbtalk.me/ схемы, компоненты...
0
9
Сообщение
...
Прикрепленные файлы
(файлы не залиты)