' Random number selector program, chooses 6 numbers 1-49 without duplication, used for UK lottery.
' Assumes form with button Command1 and six-label array Label1(0) to Label1(5) without captions.
' ©Mike McGrath 1998  eMailto: mikem@clara.net 

Private Sub Command1_Click()

Dim Lottery(6) As Integer                    ' array to hold final selected numbers
Dim nLucky As Integer                        ' variable to hold each random selection
Dim nCount As Integer                        ' counter for number of selections made
Dim nCheck As Integer                        ' counter for check on previous selections

For nCount = 1 To 6                          ' choose 6 numbers
Start:                                       ' lets go (again)
    Randomize                                ' random-seed the random generator
    nLucky = Int((49 * Rnd) + 1)             ' pick random number from 1 to 49
    For nCheck = 1 To 6
        If nLucky = Lottery(nCheck) Then     ' if seleced number has already been picked...
        GoTo Start                           ' go back and pick another number.
        End If
    Next nCheck
    Lottery(nCount) = nLucky                 ' store selection in array
    Label1(nCount - 1) = Lottery(nCount)     ' apply selection to labels (-1 for 0 to 5)
Next nCount

End Sub
-----------------------------------------------------------------------------------------------------------
' "Slot-machine" random selector, chooses from color choice with spin simulation, displays score.
' Assumes form with button Command1 and three-label array Label1(0) to Label1(2), also label named
' lblWinnings with caption 1000.  © Mike McGrath 1998  eMailto: mikem@clara.net 

Private Sub Command1_Click()

Dim Jackpot(3) As Integer                                ' array to hold final selection
Dim nColor As Integer                                    ' variable for color selection
Dim nCount As Integer                                    ' counter for selections made
Dim nSpin As Integer                                     ' counter for spintime
 
For nSpin = 1 To 100
        For nCount = 1 To 3                              ' pick 3 backcolors
        Randomize                                        ' random-seed random generator
        nColor = Int((Rnd * 5) + 1)                      ' pick from 1 to 4
        Jackpot(nCount) = nColor                         ' store selection in array
        Label1(nCount - 1).BackColor = QBColor(nColor)   ' apply selection to label...
        Next nCount                                      ' (-1 for label 0 to 2)
Form1.Refresh                                            ' spin (just for effect)
Next nSpin

    If Jackpot(1) = Jackpot(2) And Jackpot(2) = Jackpot(3) Then
        lblWinnings.Caption = lblWinnings.Caption + 500  ' 3-of-a-kind wins 500
        ElseIf Jackpot(1) = Jackpot(2) Then
        lblWinnings.Caption = lblWinnings.Caption + 100  ' 2-of-a-kind in 1 & 2 wins 100
        Else
        lblWinnings.Caption = lblWinnings.Caption - 50   ' loses stake of 50
    End If

End Sub