/blogentry/44836 winsumloosesum's Blog: Excel VBA - Generate Pairs & Trips to a Text File en-us Lottery Post RSS Generator /blogentry/44836#c54596 /blogentry/44836#c54596 Tue, 28 Sep 2010 19:10:57 GMT luclc <br />can you please confirm.   I would like to use this with Pick3 or 6/49<br /><br />for   6/49 I tried <br /><br /><br />code:<br /><br />Sub Generate49C2() <br /><br />Open "c:\Lotto649\L649.txt" For Output As #1 <br /><br />For i1 = 1 To 49 - 1 <br />    For i2 = i1 + 1 To 49 - 0 <br />        <br />                    LexiNum = LexiNum + 1 <br />                    Print #1, Format(LexiNum, "000") & " " & Format(i1, "0") & "," & Format(i2, "0") <br />               <br />    Next <br />N... [ More ]

]]> luclc /blogentry/44836#c52828 /blogentry/44836#c52828 Wed, 11 Aug 2010 01:03:47 GMT GASMETERGUY For those who do not program in Excel you must first call the VBA program. This is done by pressing "Alt" and F11 at the same time.

]]> GASMETERGUY /blogentry/44836 /blogentry/44836 Tue, 10 Aug 2010 16:14:15 GMT winsumloosesum 1. Create a new folder on your C: Drive and name it Lotto543 (c:\Lotto543)

2. Open Excel and right-click any Tab at the bottom and select ViewCode

3. When the Window opens go to the top Main Menu and select Insert Module

4. Copy and paste the following code into the right workspace where you see the blinking cursor.

Sub Generate43C2()

Open c:\Lotto543\L543.txt For Output As #1

For i1 = 1 To 43 - 1

For i2 = i1 + 1 To 43 - 0

LexiNum = LexiNum + 1

Print #1, Format(LexiNum, 000 ) Format(i1, 0 ) , Format(i2, 0 )

Next

Next

Close #1

End Sub

=======================================================================

This generates all 903 Pairs for the 5/43 Lottery Game to a text file named L43.txt located at C:\Lotto543

If your drive designation is different from C:\ then you will need to change the following code to reflect the code:

For example if your drive designation is the letter D:\ you would change th following line of code to the following:

Open d:\Lotto543\L543.txt For Output As #1

============================================================================

If your Lottery Game is a 5/39 game you can change or create a new folder and name the folder c:\Lotto539

and change the following code:

Sub Generate39C2()

Open c:\Lotto539\L539.txt For Output As #1

For i1 = 1 To 39 - 1

For i2 = i1 + 1 To 39 - 0

LexiNum = LexiNum + 1

Print #1, Format(LexiNum, 000 ) Format(i1, 0 ) , Format(i2, 0 )

Next

Next

Close #1

End Sub

=======================================================================

The LexiNum is actually the Lexicographic Pairs designation number.

The Excel formula for calculating the number of pairs in your lottery game is =COMBIN(43,2) where X is the total number of balls (43) and N is the number of digits = 903 for a 5/43 game

or =COMBIN(39/2) = 741 Pairs for a 5/39 lottery game.

=======================================================================

For creating 3 Number Combinations (9,139) for a 5/39 Game =COMBIN(39,3). This code below will generate all 9,139 trips to your folder C:\Lotto539. If you open the folder you should see a text file L539Trips.txt inside the folder. Remember to create your new folder c:\Lotto539 first before running the code.

Sub Generate39C3()

Open c:\Lotto539\L539Trips.txt For Output As #1

For i1 = 1 To 39 - 2

For i2 = i1 + 1 To 39 - 1

For i3 = i2 + 1 To 39 - 0

LexiNum = LexiNum + 1

Print #1, Format(LexiNum, 000 ) Format(i1, 0 ) , Format(i2, 0 ) , Format(i3, 0 )

Next

Next

Next

Close #1

End Sub

======================================================================================

Good Luck!!

... [ More ]

]]> Blog Entry winsumloosesum https://www.lotterypost.com/blogentry/44836