Multiple Combinations

[HenrikOlsson]

Dice VAR BYTE[5]    'Array of 5 bytes, one for each dice.
Results VAR BYTE[6]  'Array of six bytes containing the number of ones, twos, threes etc
i VAR BYTE

For i = 0 to 5
  Results[i] = 0   'Clear counters
Next

For i = 0 to 4     'Itterate thru the five dices
  Select Case Dice[i]
    Case 1
      Results[0] = Results[0] + 1   'Ones
    Case 2
      Results[1] = Results[1] + 1   'Twos
    Case 3
      Results[2] = Results[2] + 1   'Threes
    Case 4
      Results[3] = Results[3] + 1   'Fours
    Case 5
      Results[4] = Results[4] + 1   'Fives
    Case 6
      Results[5] = Results[5] + 1   'Sixes
  End Select
NEXT

Now you know how MANY of each you've got, perhaps that's a start?

[Vicato]

Dice VAR BYTE[5]    'Array of 5 bytes, one for each dice.
Results VAR BYTE[6]  'Array of six bytes containing the number of ones, twos, threes etc
i VAR BYTE

For i = 0 to 5
  Results[i] = 0   'Clear counters
Next

For i = 0 to 4     'Itterate thru the five dices
  Select Case Dice[i]
    Case 1
      Results[0] = Results[0] + 1   'Ones
    Case 2
      Results[1] = Results[1] + 1   'Twos
    Case 3
      Results[2] = Results[2] + 1   'Threes
    Case 4
      Results[3] = Results[3] + 1   'Fours
    Case 5
      Results[4] = Results[4] + 1   'Fives
    Case 6
      Results[5] = Results[5] + 1   'Sixes
  End Select
NEXT

Now you know how MANY of each you've got, perhaps that's a start?

This actually worked out really well, I got it checking for each one. Thanks for your help!