алгоритм "перемешки"

[ExiliM]

Здраствуйте, интересует как реализовать перемешивание 52 значений.

То есть есть некий массив, либо разноименных переменных. Грубо говоря 52 числа. Как сделать что бы они вывелись списком, какое число за каким идёт. К примеру 5, 32, 2, 1....и т.д без повторов. Заранее спасибо.

[FaKk2]

забавно что как раз на прошлой неделе нам учитель упоминал код для такого случайного перемешивания.

вот псевдокод:

Код: Выделить всё

Randomize
For i = 0 To 52
   swap(arr (i), arr(rand(0, i)))
Next i


[Demonx]

Код: Выделить всё

swap

?

[Хакер]

Что, даже никаких мыслей на тему того, что делает функция с таким названием?

[ExiliM]

Свап выглядит так?
Sub Swap(V1 As Variant, V2 As Variant)
Dim Mk As Variant
Mk = V2
V2 = V1
V1 = Mk
End Sub

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

[FaKk2]

Код: Выделить всё

Function Random(min As Integer, max As Integer)
Random = Int(Rnd * (max - min)) + min
End Function


А, swap, да, такой. Только зачем Variant?

[ExiliM]

Код: Выделить всё

Sub Swap(V1 As Byte, V2 As Byte)
Dim Mk As Byte
Mk = V2
V2 = V1
V1 = Mk
End Sub
Function Random(min As Byte, max As Byte)
Random = Int(Rnd * (max - min)) + min
End Function

Private Sub Command1_Click()
Dim arr As Byte
Randomize
For i = 0 To 52
Swap Arr(i), Arr(Random(0, i))
List1.AddItem i, i
Next i
End Sub


на аrr ругаеца, expected array. Пишу array, говорит "ByRef argument type mismatch"

[ExiliM]

блин, всё не могу разобраться, помогите пож

[Хакер]

То есть глаза обманывают тебя, не позволяя видеть, что arr у тебя переменная, а не массив?

[ExiliM]

делал и массив arr(52) тож самое

[ExiliM]

объявил i as byte, в листбокс добавляет все числа по порядку то есть 0.1.2.3.4.5....52, а нужно что б не по порядку(

[Хакер]

Ну так активируй свою голову, магистр вуду-программирования.

[ExiliM]

ясно, ладно...спасибо.

[iGrok]

Ну, наверное надо сначала заполнить массив чем-то? Естественно, он ошибку выдавал при попытке что-то сделать с пустым массивом..

[qwertyhp]

ListBox имеет свойство "Sorted". Если оно = False, то данные отображаются в порядке их добавления: если оно = True - то данные сортируются. Проверь свойство.
Опа, не посмотрел код: а что именно Вы добавляете в ListBox? Если верить коду - то индексы цикла "For i = 0 To 52" (потому что через строчку у Вас - "List1.AddItem i, i").
А также: у Вас

Код: Выделить всё

Random = Int(Rnd * (max - min)) + min

Но min и max у Вас-то в примере - где? Для Вас

Код: Выделить всё

Random = Int(Rnd * (52))

[alibek]

забавно что как раз на прошлой неделе нам учитель упоминал код для такого случайного перемешивания.

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

[Денис]

Аха! Автор топика картишки перетасовать хотел Видимо, делает свой покер с блэк-джеком?

[ExiliM]

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

[iGrok]

Нуу.. Повторю ещё раз, раз не увидел.
1) Массив надо сначала чем-то заполнить. (Первый проход)
2) Потом массив надо перемешать. (Второй проход)
3) Потом перемешанный массив надо вывести. (Третий проход)

А ты всё пытаешься сделать за один, да ещё и с непроинициализированным массивом..

[ExiliM]

Код: Выделить всё

Public Sub Swap(a, b)
Dim tmp
tmp = a
a = b
b = tmp
End Sub

Public Sub Mix(Ary() As Long)
Dim LB As Long, UB As Long
Dim i As Long
LB = LBound(Ary)
UB = UBound(Ary)
For i = LB To UB
  Swap Ary(i), Ary(Int(Rnd(1) * (UB - LB + 1) + LB))
Next i
End Sub

Private Sub command1_click()
Const n = 52
  Dim Ary() As Long
  Dim i As Long
  ReDim Ary(0 To n - 1)
  For i = 0 To n - 1
    Ary(i) = i + 1
  Next i
  Randomize Timer
  Mix Ary
  For i = 0 To n - 1
   Text1.Text = Text1.Text & " " & Ary(i)
  Next i
End Sub

[iGrok]

Это вообще что такое? Ты сам вообще хотя бы понимаешь, что ты написал?

[ExiliM]

всё, я разобрался...теперь последний вопрос: Как присвоить переменные (a,b,c..) каждому элементу из массива т.е что б было 52 переменных.

[iGrok]

"Присвоить переменные элементам массива"?
Никак.

А зачем?

[ExiliM]

ну как я уже сказал, делаю покер...будет 52 picturebox'a...я хотел что бы например 6 черви это сh6, 10 буби - b10 и т.д и показывать картинки в зависимости от перемешки. то есть допустим первые 3 карты будут 10b,10ch, Kch(король черви) и соответственно картинки должны выложиться на стол. Вообщем все картинки(52) уже изначально будут иметь своё имя. присвоив каждому элементу массива переменную было бы проще, а потом уже "выкладывать карты" которые привязанны к переменным. Если этот способ не правильный, наставьте пожалста, как лучше поступить. Буду очень благодарен...т.к прога горит...

[iGrok]

Мда... Ну если так..
Загони имена картинок в другой массив, и бери оттуда нужное имя по индексу из первого массива. Хотя это бред тот ещё..

И что значит "прога горит"? Ты это на заказ пишешь, что ли? С таким вот подходом?
Если так - мой тебе совет - откажись, пока не поздно.

[ExiliM]

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

[Денис]

Здраствуйте. Заранее спасибо.

Вот, держи рабочий код по итогам топика. Надеюсь, поможет.

Удачи в гонке, чувак!

Form1.zip

(1.04 Кб) Скачиваний: 65

Загони имена картинок в другой массив, и бери оттуда нужное имя по индексу из первого массива. Хотя это бред тот ещё...

Ага. Я бы сделал так:

Код: Выделить всё

Private Type Card
   cIndex As Integer 'индекс
   cFace As Picture  'изображение
   cName As String   'Имя (например "Двойка бубн")
   cValue As Long    'или Single если надо
   cRules As String  'строка с описанием правил для карты
End Type

а потом бы создал массив Private Cards(52) as Card и загрузил в него картинки карт (кроме всего прочего). Правда, после этого мешать немного иначе придется, чем в моем сорце.

Вот как-то так:

FormB1.zip

(1.22 Кб) Скачиваний: 71

А потом сделал бы всего пять PictureBox'ов и грузил бы в них нужные изображения, согласно игровой логике.

А вот вариант с названиями карт.

FormB2.zip

(1.61 Кб) Скачиваний: 71

[ExiliM]

ух, спасибо огромное, щас скачаю , разберусь)

[Денис]

Аха, разбирайся. А я уже картинки со стандартными изображениями карт прикрутил. Еще чуть-чуть и будет полноценный покер! Но завтра, ибо "рабочий" день окончен.