Вверх ↑
Этот топик читают: Гость
Ответов: 4641
Рейтинг: 334
#16: 2009-12-17 10:42:53 ЛС | профиль | цитата
nesco писал(а):
а вдруг интереснее получится, чем в справке

да тут масса вариантов. вот поигрался..
code_16005.txt
------------ Дoбавленo в 10.45:
nesco писал(а):
Что не то,

да это я тебе вопрос задавал... Пример из справки не то что ли, что ему нужно было???!!!
а ты начал "падлу не падлу"
карма: 1
Время верстки: %cr_time% Текущее время: %time%
0
файлы: 1code_16005.txt [824B] [258]
Разработчик
Ответов: 26151
Рейтинг: 2127
#17: 2009-12-17 10:46:37 ЛС | профиль | цитата
Ravilr писал(а):
да тут масса вариантов. вот поигрался..

Гы. Пример не совсем корректен, он не даст гарантированное количество неповторяемых значений. В таком случае нужен избыток значений, но мы не знаем изначально, когда Random выдаст всю последовательность неповторяемых значений и должны это делат не в цикле For, а до тех пор, пока они все не будут получены, что у меня в схеме и реализовано
------------ Дoбавленo в 10.47:
Ravilr писал(а):
"падлу не падлу"

Забей на это. Тот пример, тоже некорректен, там стоит цикл
карма: 22

0
Ответов: 4641
Рейтинг: 334
#18: 2009-12-17 10:48:16 ЛС | профиль | цитата
nesco писал(а):
он не даст гарантированное количество неповторяемых значений

над гарантией не старался. если постараться то можно получить.

------------ Дoбавленo в 11.26:
nesco, а так сойдет?


Add(MainForm,16577611,21,98)
{
link(onCreate,8211032:doFor,[])
}
Add(StrList,7129927,238,112)
{
Point(doGetString)
Point(onGetString)
link(onGetString,3501976:doCompare,[])
}
Add(Random,77841,140,119)
{
Max=99
link(onRandom,11152764:doEvent1,[])
}
Add(ListBox,2122520,350,119)
{
Left=10
Top=10
Width=360
Height=235
}
Add(For,8211032,77,112)
{
End=99
link(onEvent,7129927:doAdd,[])
link(onStop,10948686:doWork2,[])
}
Add(Hub,11152764,189,119)
{
OutCount=3
link(onEvent1,7129927:doGetString,[(221,125)(221,160)])
link(onEvent2,7129927:doDelete,[])
link(onEvent3,12950205:doCompare,[(214,139)(214,188)])
}
Add(If_else,12950205,238,182)
{
Op1=Integer(0)
link(onFalse,10948686:doWork3,[(285,195)(285,228)(123,228)])
link(Op2,7129927:Count,[])
}
Add(HubEx,10948686,119,119)
{
link(onEvent,77841:doRandom,[])
}
Add(If_else,3501976,294,119)
{
Type=4
Op2=Integer(0)
link(onTrue,2122520:doAdd,[])
}



ниже 95.67.150.143, был Я.

карма: 1
Время верстки: %cr_time% Текущее время: %time%
0
Гость
Ответов: 17029
Рейтинг: 0
#19: 2009-12-17 11:27:59 правка | ЛС | профиль | цитата


Редактировалось 7 раз(а), последний 2021-05-21 12:59:02
карма: 0

0
Ответов: 120
Рейтинг: 2
#20: 2009-12-17 11:42:19 ЛС | профиль | цитата
code_16006.txt
карма: 1

0
файлы: 1code_16006.txt [2KB] [303]
Разработчик
Ответов: 26151
Рейтинг: 2127
#21: 2009-12-17 11:44:09 ЛС | профиль | цитата
Можно и так
------------ Дoбавленo в 11.45:
mimikriy, ты еще больше схему нарисовать не мог, притом сделал с одним из рассмотренных принципов. Где новизна решения
карма: 22

0
Ответов: 5227
Рейтинг: 587
#22: 2009-12-17 11:59:22 ЛС | профиль | цитата
Напрашивается Вам таки добавить пару точек в Random либо в IntegerArray, например doCountRnd и arrRnd. Иначе можно постоянно в этом упрожнятся

карма: 4
Мой форум - http://hiasm.bbtalk.me/ схемы, компоненты...
0
Ответов: 1926
Рейтинг: 172
#23: 2009-12-18 21:45:16 ЛС | профиль | цитата
code_16023.txt
карма: 9
0
файлы: 1code_16023.txt [993B] [264]
Ответов: 3851
Рейтинг: 159
#24: 2009-12-18 22:50:28 ЛС | профиль | цитата
пример из wiki метод "удаления строк" не доработан и заставляет выполнять лишние циклы random
вот для наглядности code_16025.txt можно сравнить время со включённым check и с выключенным.

предлагаю подкорректировать пример, или расскажите как я могу это сделать - раньше мог, но за время моего отсутствия что-то поменялось видимо..
карма: 0
начавший
0
файлы: 1code_16025.txt [1.5KB] [294]
Ответов: 4641
Рейтинг: 334
#25: 2009-12-18 22:55:31 ЛС | профиль | цитата
Андрей. писал(а):
или расскажите как я могу это сделать

корректируй. через викицентр который в комплекте с хиасмом идет.
------------ Дoбавленo в 22.58:
Андрей. писал(а):
сравнить время со включённым check

сравнил. а результат? уже не рандом, а последовательность. 1, 10, 100, 101....
карма: 1
Время верстки: %cr_time% Текущее время: %time%
0
Ответов: 3851
Рейтинг: 159
#26: 2009-12-18 23:10:54 ЛС | профиль | цитата
Ravilr писал(а):
уже не рандом
да - забыл у ListBox Sort=False вернуть (проверял первую схему nesco - там 18 пропущено, зато 0 есть)..
карма: 0
начавший
0
Разработчик
Ответов: 26151
Рейтинг: 2127
#27: 2009-12-18 23:15:10 ЛС | профиль | цитата
Андрей. писал(а):
проверял первую схему nesco

А че ты, собственно, проверял, какую схему
карма: 22

0
Ответов: 4641
Рейтинг: 334
#28: 2009-12-18 23:22:23 ЛС | профиль | цитата
Андрей. писал(а):
Sort=False вернуть

убрал.....результат в конце тот же...последовательность!
карма: 1
Время верстки: %cr_time% Текущее время: %time%
0
Ответов: 3851
Рейтинг: 159
#29: 2009-12-19 00:18:51 ЛС | профиль | цитата
nesco писал(а):
А че ты, собственно, проверял, какую схему
пост 17 Dec 2009 10:19

Ravilr писал(а):
.результат в конце тот же
мда - за ноль зацепляется. поправил - code_16031.txt, но всё равно debug кажет 108 событий, спать пора..

хорошо, что wiki не обновил - не дала:


карма: 0
начавший
0
файлы: 2wikicenter.png [7.4KB] [460], code_16031.txt [1.3KB] [296]
Разработчик
Ответов: 26151
Рейтинг: 2127
#30: 2009-12-19 00:27:14 ЛС | профиль | цитата
Ну ошибся я и поставил, вместо 100 в If -- 99, вот и весь прикол.
карма: 22

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