Raffle Permutations!

[chancity]

Wrote a script to show all the possible combinations for the raffle. It's pretty useless. Save it in a text document and change the documents extension to .vbs and double click....or open command prompt and run it with cscript.exe.

If Instr(1, WScript.FullName, "CScript", vbTextCompare) = 0 Then 
	Dim objShell : Set objShell = CreateObject("WScript.Shell") 
	objShell.Run "cmd.exe /k cscript //nologo """ & WScript.ScriptFullName, 1, False 
	
	WScript.Quit 
Else 
	Main()
End If 
Dim Count : Count = 0
Private Sub Main()
	Dim combos : combos = Array("1 ","2 ","3 ","4 ","5 ","6 ","7 ","8 ","9 ","10 ","11 ","12 ","13 ","14 ","15 ","16 ","17 ","18 ","19 ","20 ","21 ","22 ","23 ","24 ","25 ","26 ","27 ","28 ","29 ","30 ","31 ","32 ","33 ","34 ","35 ","36 ")
	Premutation combos, 0, 2, ""
	WScript.Echo vbCrlf & Count & "combinations"
End Sub

Private Sub Premutation(ArrString, Index, Max, str)
	Dim i, k, NextStr
	
	For i = 0 To UBound(ArrString)
		NextStr = str + ArrString(i)
		If Index <> Max Then
			Dim c : c = 0
			ReDim NewArray(UBound(ArrString) - 1)
			For k = 0 To UBound(ArrString)
				If k <> i Then
					NewArray(c) = ArrString(k)
					c = c + 1
				End If
			Next
			Premutation NewArray, Index + 1, Max, NextStr
		Else
			WScript.Echo NextStr
			Count = Count + 1
		End If
	Next
End Sub

[Veritable]

That's cool
I just thought of a really neat idea.

A website that would generate a PDF of Raffle Tickets (in pairs) that you could print off and use. The page generated would be based off of input that a user puts on a form.

You could do something like:

Select # Of Digits: [ 1 .. 12 ]
Select Raffle Ticket Style: [ set of images ]
[ Generate Button ]

or you could do like


Paste Data Set: [ Comma Separated Values List ]
Select Raffle Ticket Style: [ set of images ]
[ Generate Button ]

Maybe will do something on it later tonight