Welcome Guest
Log In | Register )
You last visited January 23, 2017, 5:52 pm
All times shown are
Eastern Time (GMT-5:00)

Help: Random Number Generator?

Topic closed. 8 replies. Last post 6 years ago by MADDOG10.

Page 1 of 1
PrintE-mailLink
Avatar
New Member
oc, california
United States
Member #107774
March 14, 2011
3 Posts
Offline
Posted: March 14, 2011, 2:43 am - IP Logged

Hello.

Is there any software or web script that will pick random numbers I choose from a list I provide?

Example:

5

8

9

13

34

44

51

etc.

 

The software should pick 5 of the numbers above at random (no duplicate numbers).

 

If anyone can point me in the right direction that would be great.

    CajunWin4's avatar - Lottery-031.jpg
    Whiskey Island
    United States
    Member #90216
    April 24, 2010
    12809 Posts
    Online
    Posted: March 14, 2011, 2:48 am - IP Logged

    Try Lotto Post quick pick generator .......

      CajunWin4's avatar - Lottery-031.jpg
      Whiskey Island
      United States
      Member #90216
      April 24, 2010
      12809 Posts
      Online
      Posted: March 14, 2011, 2:52 am - IP Logged

      CA Fantasy 5 

      Next 3 Draws :  03/14 thru 03/16

      5 - 11 - 18 - 21 - 29

      5 - 11 - 18 - 21 - 36

      5 - 11 - 18 - 29 - 36

      5 - 11 - 21 - 29 - 36

      5 - 18 - 21 - 29 - 36

      11 - 18 - 21 - 29 - 36

        Avatar
        New Member
        oc, california
        United States
        Member #107774
        March 14, 2011
        3 Posts
        Offline
        Posted: March 14, 2011, 2:53 am - IP Logged

        Thanks for the help, I dont think it supports SuperLotto unless Im blind :)

          CajunWin4's avatar - Lottery-031.jpg
          Whiskey Island
          United States
          Member #90216
          April 24, 2010
          12809 Posts
          Online
          Posted: March 14, 2011, 3:13 am - IP Logged

          CA Supper Lotto

          Next 3 Draws :

                                       (BB)

          2 - 6 - 19 - 30 - 31(10)

          2 - 7 - 16 - 30 - 31(10)

          2 - 7 - 19 - 30 - 31(10)

          2 - 8 - 19 - 30 - 31(10)

          2 - 16 - 19 - 30 - 31(10)

          6 - 7 - 8 - 30 - 31(10)

          6 - 7 - 16 - 30 - 31(10)

          6 - 7 - 19 - 30 - 31(10)

          6 - 8 - 19 - 30 - 31(10)

          6 - 16 - 19 - 30 - 31(10)

          7 - 8 - 16 - 19 - 31(10)

          7 - 8 - 16 - 30 - 31(10)

          7 - 8 - 19 - 30 - 31(10)

          7 - 16 - 19 - 30 - 31(10)

          8 - 16 - 19 - 30 - 31(10)

            Avatar
            New Member
            oc, california
            United States
            Member #107774
            March 14, 2011
            3 Posts
            Offline
            Posted: March 14, 2011, 3:23 am - IP Logged

            Thank so much :)

              CajunWin4's avatar - Lottery-031.jpg
              Whiskey Island
              United States
              Member #90216
              April 24, 2010
              12809 Posts
              Online
              Posted: March 14, 2011, 3:27 am - IP Logged

              Anytime , I can help let me know .... Win Big and Win Often !!!!

                                                                                                           CajunWin4

               

              Also check out Lottolaughs post .....

                LottoMining's avatar - lightbulb
                California
                United States
                Member #48843
                January 11, 2007
                27 Posts
                Offline
                Posted: March 16, 2011, 11:20 pm - IP Logged

                A while back, I wrote an Excel VBA script that generates randomized picks from the user's defined list.  The script expects a tab labeled "Last" and then you
                put your list in the K column.  The cool thing is that let's say you think digit 39 is very likely to come up so you list it two, three times or more
                in the list and you see it show up more often in the outputted list of 5 randomized draws at range M1:Q5.  If this doesn't format cleanly, I added it to my
                LP blog titled "Excel VBA script to generate a list of 5 randomized draws (forum requested)" .

                 


                Sub GenerateFiveRandDraws() 
                Dim x As Single, intDrw As Integer, ColRef As String, NumDy As Integer, sCol As String
                Dim LastC5ol As String, intUniq As Integer, strDblChk As String, ChkRef As String, ArNums(1 To 5) As Integer
                Dim Val1 As Integer, Val2 As Integer, Val3 As Integer, Val4 As Integer, Val5 As Integer, a As Integer, ValX As Integer
                Dim rndstart As Single, intrndstart As Integer

                Sheets("Last").Select
                NumDy = 1
                Do
                    intDrw = 1
                    Do
                    ColRef = Switch(intDrw = 1, "M", intDrw = 2, "N", intDrw = 3, "O", intDrw = 4, "P", intDrw = 5, "Q")
                      'accept RndNum iif it's in the list in Col, then test for no dupes
                      intUniq = 1
                DoOVER:
                      Do
                           '''double rnd to start at different areas in UniqNums array
                           rndstart = Format((Rnd() * 0.31) * 100, "00")
                           intrndstart = CInt(rndstart)
                           intUniq = intrndstart + 1
                            x = Format((Rnd() * 0.39) * 100, "00")
                            LastCol = "K" & CStr(intUniq)
                            intUniq = intUniq + 1
                            If intUniq > 27 Then   '''chng to 26 from 30
                               intUniq = 1
                            End If
                            ''''embed a check here/perhaps send to sub w/more bias checks
                            If x = 0 Then
                              GoTo DoOVER
                           End If
                      Loop Until x = Range(LastCol).Value
                      sCol = ColRef & CStr(NumDy)
                      Range(sCol).Value = x
                     
                      If intD5rw > 1 Then
                        ChkRef = Switch(intDrw = 2, "M", intDrw = 3, "N", intDrw = 4, "O", intDrw = 5, "P")
                        strDblChk = ChkRef & CStr(NumDy)
                        If Range(strDblChk).Value = Range(sCol).Value Then
                           GoTo DoOVER
                        ElseIf intDrw = 3 And Range(sCol).Value = Range("N" & CStr(NumDy) & "").Value Then
                           GoTo DoOVER
                        ElseIf intDrw = 3 And Range(sCol).Value = Range("M" & CStr(NumDy) & "").Value Then
                           GoTo DoOVER
                        ElseIf intDrw = 4 And Range(sCol).Value = Range("N" & CStr(NumDy) & "").Value Then
                           GoTo DoOVER
                        ElseIf intDrw = 4 And Range(sCol).Value = Range("M" & CStr(NumDy) & "").Value Then
                           GoTo DoOVER
                        ElseIf intDrw = 5 And Range(sCol).Value = Range("P" & CStr(NumDy) & "").Value Then
                           GoTo DoOVER
                        ElseIf intDrw = 5 And Range(sCol).Value = Range("O" & CStr(NumDy) & "").Value Then
                           GoTo DoOVER
                        ElseIf intDrw = 5 And Range(sCol).Value = Range("N" & CStr(NumDy) & "").Value Then
                           GoTo DoOVER
                        ElseIf intDrw = 5 And Range(sCol).Value = Range("M" & CStr(NumDy) & "").Value Then
                           GoTo DoOVER
                        End If
                      End If
                      intDrw = intDrw + 1
                    Loop Until intDrw > 5
                    Val1 = Range("M" & CStr(NumDy) & "").Value
                    Val2 = Range("N" & CStr(NumDy) & "").Value
                    Val3 = Range("O" & CStr(NumDy) & "").Value
                    Val4 = Range("P" & CStr(NumDy) & "").Value
                    Val5 = Range("Q" & CStr(NumDy) & "").Value
                 For a = 1 To 5
                    ValX = Switch(a = 1, Val1, a = 2, Val2, a = 3, Val3, a = 4, Val4, a = 5, Val5)
                    ArNums(a) = ValX
                  Next
                  a = a - 1
                 Call BubbleSort(ArNums())

                 Range("Q" & CStr(NumDy) & "").Value = ArNums(a)
                 Range("P" & CStr(NumDy) & "").Value = ArNums(a - 1)
                 Range("O" & CStr(NumDy) & "").Value = ArNums(a - 2)
                 Range("N" & CStr(NumDy) & "").Value = ArNums(a - 3)
                 Range("M" & CStr(NumDy) & "").Value = ArNums(a - 4)
                 

                 If Range("M" & CStr(NumDy) & "").Value = Range("N" & CStr(NumDy) & "").Value Then
                    intDrw = 1
                    GoTo DoOVER
                 ElseIf Range("N" & CStr(NumDy) & "").Value = Range("O" & CStr(NumDy) & "").Value Then
                    intDrw = 2
                    GoTo DoOVER
                 ElseIf Range("O" & CStr(NumDy) & "").Value = Range("P" & CStr(NumDy) & "").Value Then
                    intDrw = 3
                    GoTo DoOVER
                 ElseIf Range("P" & CStr(NumDy) & "").Value = Range("Q" & CStr(NumDy) & "").Value Then
                    intDrw = 4
                    GoTo DoOVER
                 End If

                 
                  NumDy = NumDy + 1
                Loop Until NumDy > 5
                MsgBox "done"

                End Sub

                'borrowed this from John Walkenbach, a writer of great Excel books
                Sub BubbleSort(list() As Integer)
                Dim First As Integer, Last As Integer, i As Integer, j As Integer, temp
                First = LBound(list)
                Last = UBound(list)
                For i = First To Last - 1
                  For j = i + 1 To Last
                    If list(i) > list(j) Then
                       temp = list(j)
                       list(j) = list(i)
                       list(i) = temp
                    End If
                  Next j
                Next i

                End Sub

                  MADDOG10's avatar - smoke
                  Beautiful Florida
                  United States
                  Member #5709
                  July 18, 2004
                  20248 Posts
                  Online
                  Posted: March 16, 2011, 11:27 pm - IP Logged

                  Hello.

                  Is there any software or web script that will pick random numbers I choose from a list I provide?

                  Example:

                  5

                  8

                  9

                  13

                  34

                  44

                  51

                  etc.

                   

                  The software should pick 5 of the numbers above at random (no duplicate numbers).

                   

                  If anyone can point me in the right direction that would be great.

                  Well, if you have the numbers and you want sotware to randomly pick them it wouldn't be random now, would it?

                  What you can do is try Lotterypost wheels section and use your numbers in a wheel, whether it be a key or abbreviated.

                                                               

                                                                 " You can not control the Wind, but you can direct the Sail "