Конференция VBStreets

**KDima** » 09.01.2005 (Вс) 19:20

Я хочу из одного массива перенести все числа в другой в случайном порядке:

Код: Выделить всё: for i = 1 to 6 ReRND: DoEvents tr = Int(Rnd * 6) + 1 If IshChsl(tr).X = -1 Then GoTo ReRND OutChsl(i) = IshChsl(tr).X IshChsl(tr).X = -1 next i

В чём баг?

**tyomitch** » 09.01.2005 (Вс) 20:45

**KDima** » 10.01.2005 (Пн) 15:54

Ауу! Я здохну пока это буду в 1 процу переделывать

**tyomitch** » 11.01.2005 (Вт) 4:33

Дык не переделывай, юзай как есть :-)

**KDima** » 11.01.2005 (Вт) 20:57

Да

У меня уже 7 форм + 4 модуля

**XairOn** » 11.01.2005 (Вт) 21:09

7 форм!!! и это что бы перемешать массив!!!

BV » 11.01.2005 (Вт) 21:12

А о чем программка, если не секрет :roll:

**KDima** » 11.01.2005 (Вт) 21:36

XairOn писал(а):7 форм!!! и это что бы перемешать массив!!!

Это для респоуна в случайном месте в гаме

**XairOn** » 11.01.2005 (Вт) 22:14

Вобщем касательно твоего вопроса - вот держи примерчик, не знаю ТО это или нет... торопился!

**KDima** » 15.01.2005 (Сб) 21:17

XairOn
Сенкс.
Пример - правильный, но мне пришлось написать свой код...

**XairOn** » 16.01.2005 (Вс) 0:17

KDima, всегда пожалуйста :-)

Сортировка by RND