MultiColor Calculations

  • Thread starter Thread starter Guest
  • Start date Start date
G

Guest

I need to make a program that uses ten basic colors (eg. red,green,blue) in combinations. I need each color to make a combination as a pair and triple with other colors. For example: red|green, red|blue, red|yellow, green|blue, and so on, but you can't use green|red because we already use red|green. Get it?, then i have to make multiples of threes as well red|green|blue etc..
I have no idea where to begin or how I should set this up, I sure in an array of some sort or recursive callbacks, any suggestions would be appreciated
Thanks.
 
something like

dim colors() as String
dim duoColorCollection as Collection

dim i as integer
dim j as integer

for i = 0 to colors.lenght - 2
for j=i +1 to colors.lenght - 1
duoColorCollection.add(colors(i) + "-" + colors(j))
next j
next i

duocollorscollection will contain all "mixed" colors but no "inverse equals"

i hope what i wrote is right, did it without testing ;-)
but the system can be something like this


hope this helps

dominique


OptikConnex said:
I need to make a program that uses ten basic colors (eg. red,green,blue)
Click to expand...
in combinations. I need each color to make a combination as a pair and
triple with other colors. For example: red|green, red|blue, red|yellow,
green|blue, and so on, but you can't use green|red because we already use
red|green. Get it?, then i have to make multiples of threes as well
red|green|blue etc...
I have no idea where to begin or how I should set this up, I sure in an
Click to expand...
array of some sort or recursive callbacks, any suggestions would be
appreciated.
 
I don't quite see what you are doing in your posted code. How would I display the colors side by side then. And what are you assigning colors to
dim colors() as Strin
dim duoColorCollection as Collectio

dim i as intege
dim j as intege

for i = 0 to colors.lenght -
for j=i +1 to colors.lenght -
duoColorCollection.add(colors(i) + "-" + colors(j)
next
next
 
Scratch that last comment i see what you are doing. Just needed the caffeine to get me going. But now I get an erro
at this line of code: duoColorCollection.Add(colors(i) + "-" + colors(j)) what do i need to do next

Dim colors(4) As Strin
Dim duoColorCollection As Collectio

Dim i As Intege
Dim j As Intege
colors(1) = "Red
colors(2) = "Green
colors(3) = "Blue
colors(4) = "Purple

For i = 0 To colors.Length -
For j = i + 1 To colors.Length -
duoColorCollection.Add(colors(i) + "-" + colors(j)
Next
Next
 
OK I figured most of it out now, but how do I display the results. Here is the code

Dim colors(4) As Strin
Dim duoColorCollection As New Collectio

Dim i As Intege
Dim j As Intege
colors(1) = "Red
colors(2) = "Green
colors(3) = "Blue
colors(4) = "Purple

For i = 0 To colors.Length -
For j = i + 1 To colors.Length -
duoColorCollection.Add(colors(i) + "-" + colors(j)
Next
Next
Where do I display my results eg red-gree
Im an idiot, I know but things aren't clicking today.
 
your duocolorcollection is a collection containing strings ("Red-Green",
"Red-Blue", ...)

so just do something like

dim oneColor as string
for each oneColor in duoColorCollection
debug.writeline(oneColor)
next


PS:
I even didn't know the collection object realy exists, i was pointing to
some kind of collection object (arraylist,...)
java background you know ;-)
 
Back
Top