50 событий

Ravilr, в какой схеме?

а нет...все в порядке...это я сонный был!
------------ Дoбавленo в 09.39:

Андрей., твой доработанный пример внесен в вики.

ноль тоже цифра и исключать его и списка, как-то ...
Вот схемка которая вроде за ноль не цепляется. Да и про doRandomize забывать нежелательно.
code_16035.txt

ну да, всё должно быть ровно, но почему у тебя 104 события? должно быть 100.
в публикаторе toolsshuffle делает всё корректно, но уж больно она большая для примеров, хотелось оптимизировать..

А чем моя схема не устраивает

Андрей.,
1. включи Sort в ListBox
2. убери If_else перед ListBox.doAdd
и увидишь в начале списка ListBox 2-8 пустых строк
Вопрос : откуда они берутся ???
Вот за счет этих строк и получается от 100 до 110 событий.
Вопрос : откуда берутся пустые строки ???
а события считаются правильно

Я честно говоря плохо понимаю для чего юзеру схематическая реализация данного блока, какой смысл запутывать себя и того кто читать должен эту схему. Кода там две копейки а вопрос по этой теме постоянный. И после начинается полёт творческих мыслей . Вот и я не удержался на скрипт положить этот блок code_16038.txt

на скрипте...две копейки.
Может кто доработает компонент или новый RandomEx

andrestudio, этот скрипт работает медленнее даже чем shuffle (9 против 42) - думай другой пожалуйсто ..
------------ Дoбавленo в 20.45:
Tad, я это тоже увидел вчера, но лучше б я вчера с этим и разобрался..
плохо когда мозги жидкие - плохо, но как приятно..
------------ Дoбавленo в 20.53:
при условии задачи = 100, random генерит 455 событий. когда я ставлю 1000 - получаю RunTime Error 202

Tad, а если поиском воспользоваться, тема уже раза два-три всплывала, и каждый раз одно и тоже, схема была сокращена и вылизана
(Правильное название этой вещи: Генератор равномерно распределённых случайных чисел)

Андрей., ну и накой мне это Мне и этого за глаза хватит

andrestudio, ты это, давай прекращай позорить светлое имя VB

Андрей., интепритаторы быстродействием не блещут, и это надо учитывать. Вот с таким выводом может будет небольшой прирост в скорости code_16040.txt

да - это пошустрее будет, надо принять на вооружение. осталось определиться - везде ли оно будет работать, в смысле на машине могут быть отключены некоторые возможности винды..