Number of Possible Combinations!!-Help!

[Suzie1986]

Hiya,

I am a newcomer to programming and really stuck!!! Any help would be gratefully received!!

I have written a program that gives me all possible combinations for 1 and 2 for a length of 60 digits but is taking for ever to run.

My problems are that the number of 1’s and 2’s must be equal, thirty 1’s and thirty 2’s in every possible combination.

For instance
11111111111111111111111111111122222222222222222222 2222222222
or
12121212121212121212121212121212121212121212121212 1212121212
And so on


Thank you

Suzie

[Suzie1986]

Hiya,

I am a newcomer to programming and really stuck!!! Any help would be gratefully received!!

I have written a program that gives me all possible combinations for 1 and 2 for a length of 60 digits but is taking for ever to run.

My problems are that the number of 1’s and 2’s must be equal, thirty 1’s and thirty 2’s in every possible combination.

For instance
11111111111111111111111111111122222222222222222222 2222222222
or
12121212121212121212121212121212121212121212121212 1212121212
And so on


Thank you

Suzie

can any body help me at all do you need to see the code i have first??

[Suzie1986]

here the code i have already but does not give me balance of 1's and 2's

Dim flag As Boolean
Public Sub Engine(char As String, length As Byte)

ReDim ary(length)
Dim depth As Byte
Dim result As String

depth = 1

While Not (flag)
k = DoEvents()
ary(depth) = ary(depth) + 1

If depth = length Then
result = Left(result, length - 1) + Mid(char, ary(depth), 1)
Else
result = result + Mid(char, ary(depth), 1)
End If

If ary(depth) <> Len(char) + 1 Then
If depth <> length Then
depth = depth + 1
Else
lblresult.Caption = result
If chcsave.Value = 1 Then
Print #1, result
End If
End If
Else
If depth = 1 Then
flag = True
Else
ary(depth) = 0
depth = depth - 1
result = Left(result, depth - 1)
End If
End If
Wend


End Sub

Private Sub cmdcalc_Click()
If cmdcalc.Caption = "Start" Then
flag = False
txtchar.Enabled = False: txtlength.Enabled = False
cmdcalc.Caption = "Stop"
chcsave.Enabled = False
If chcsave.Value = 1 Then
MsgBox "Save in result.txt"
Open App.Path + "\results.txt" For Output As #1
End If
Call Engine(txtchar.Text, txtlength.Text)
cmdcalc.Caption = "Start"
If chcsave.Value = 1 Then
Close #1
End If
txtchar.Enabled = True: txtlength.Enabled = True
chcsave.Enabled = True
Else
flag = True
chcsave.Enabled = True
txtchar.Enabled = True: txtlength.Enabled = True
cmdcalc.Caption = "Start"
End If
End Sub

Private Sub txtchar_Change()
Call check
End Sub

Private Sub txtlength_Change()
Call check
End Sub

Public Sub check()
If txtchar.Text <> "" Then
If IsNumeric(txtlength.Text) And Val(txtlength.Text) > 0 Then
cmdcalc.Enabled = True
Else
cmdcalc.Enabled = False
End If
Else
cmdcalc.Enabled = False
End If
End Sub

[aaryan]

hi,
i am working on it. well until then i would also suggest you to work with small digits, say a combination of 1 and 2 for 4 digits. say 1212,1122,1221,2211,2121
and 2112, etc.

[Suzie1986]

thank you very much the main problem i have is the balance of 1's and 2's must be equal