Simon in Vb

[ibowlwell]

Hi I am making the simon game from. I am having a problem with one part it seems as if somehow my Arrtemp array ubound is changing from 0 to 1 for no reason at all. If someone could tell me why it would be great thanks.

Dim lastcolor As String
Dim memoryStack() As String
Dim gameMemoryStack() As String   'make a connection with the memorycounters thats i
Dim firstColor As String
Dim memoryCounter As Integer
Dim roundNumber As Integer
Dim arrTemp() As String
Private Function pop() As String
    Dim arrTemp() As String
    ReDim arrTemp(UBound(memoryStack))
    arrTemp() = reverseOrder(memoryStack)
    
    pop = arrTemp(UBound(arrTemp))
    If UBound(memoryStack) = 0 Then
        Call nextRound   'gets the next round
    Else
        ReDim Preserve arrTemp(UBound(arrTemp) - 1)
    End If
        Debug.Print UBound(arrTemp)     '******************
        memoryStack = arrTemp             '*****printing "0"
        Debug.Print UBound(arrTemp)   '*******************
End Function
 
Private Sub Form_Load()
'sets default values to the two arrays used to hold values of the letters pushed
    Dim i As Integer
    Dim randomNumber As Integer
    Dim gameColor As String
    ReDim memoryStack(0)
    ReDim gameMemoryStack(24)
    roundNumber = 1
    
    Randomize
    'decides what the colors are going to be for the whole game
    'fills an array with random colors of red,yellow,blue, and green
    For i = 0 To 24
        randomNumber = Int(4 * Rnd)
        Select Case randomNumber
            Case 0
                gameColor = "Yellow"
            Case 1
                gameColor = "Red"
            Case 2
                gameColor = "Blue"
            Case 3
                gameColor = "Green"
        End Select
        gameMemoryStack(i) = gameColor
    Next i
    firstColor = gameMemoryStack(0)
    Call nextRound
    
 
End Sub
Private Sub lblYellowbutton_click()
    Dim begColor As String
    Dim colorPush As String
    colorPush = "Yellow"
 
    If (colorPush = memoryStack(memoryCounter)) Then
       lastcolor = pop
       memoryCounter = memoryCounter + 1
       Debug.Print UBound(arrTemp)
       If UBound(arrTemp) = 1 Then
          roundNumber = roundNumber + 1
          Call nextRound
       End If
        'we want to add a new color to the old memory stack
    Else
        End
    End If
End Sub
Private Sub lblBluebutton_click()
    Dim begColor As String
    Dim colorPush As String
    colorPush = "Blue"
     
    If (colorPush = memoryStack(memoryCounter)) Then
       lastcolor = pop                       '  *******************
                                                       ' ********* prints "1"
       Debug.Print UBound(arrTemp)  '   **********************
       memoryCounter = memoryCounter + 1
       Debug.Print UBound(arrTemp)
       If UBound(arrTemp) = 1 Then    'changes memory stack to arrtemp
          roundNumber = roundNumber + 1
          Call nextRound
       End If
    Else
       End
    End If
End Sub
Private Sub lblGreenbutton_click()
    Dim begColor As String
    Dim colorPush As String
    colorPush = "Green"
    
    If (colorPush = memoryStack(memoryCounter)) Then
       lastcolor = pop
       memoryCounter = memoryCounter + 1
       Debug.Print UBound(arrTemp)
       If UBound(arrTemp) = 1 Then
          roundNumber = roundNumber + 1
          Call nextRound
       End If
    Else
       End
    End If
End Sub
Private Sub lblRedbutton_click()
    Dim begColor As String
    Dim colorPush As String
    colorPush = "Red"
 
     If (colorPush = memoryStack(memoryCounter)) Then
       lastcolor = pop
       memoryCounter = memoryCounter + 1
       Debug.Print UBound(arrTemp)
       If UBound(arrTemp) = 1 Then       '***********************************
          roundNumber = roundNumber + 1 'this may be a problem ??????????????
          Call nextRound        '***********************************
       End If
    Else
       End
    End If
End Sub
 
 
Private Sub TMRBLINK_Timer()
     'this procedure makes the buttons blink
     Dim i As Integer, j As Integer
     Static blinkNumber As Integer
     
        If blinkNumber < UBound(memoryStack) Then
            firstColor = memoryStack(blinkNumber)
            Call colorSelect
            tmrblink.Enabled = False
            tmrColorBlinked.Enabled = True
            blinkNumber = blinkNumber + 1
        Else
            blinkNumber = 0
            tmrblink.Enabled = False
        End If
        
     
    
End Sub
 
 
Private Function reverseOrder(arrName() As String) As String()
    'this function reverses the order of the array so that we can
    'pull from the bottom
    Dim i As Integer
    Dim tempArr() As String
    ReDim tempArr(UBound(arrName))
    For i = 0 To UBound(arrName)
        tempArr(i) = arrName(UBound(arrName) - 1)
    Next i
    reverseOrder = tempArr
 
End Function
 
Private Sub tmrColorBlinked_Timer()
    'sets the colors back to the original backcolor
    lblYellowButton.BackColor = &HC0C0&
    lblRedButton.BackColor = &HC0&
    lblGreenButton.BackColor = &H8000&
    lblBlueButton.BackColor = &H800000
    tmrColorBlinked.Enabled = False
    tmrblink.Enabled = True
End Sub
 
Private Sub nextRound()
    'this sub procedure starts a new round of the game
    'it pulls a new number out of the gameMemoryStack array
    'and adds it to the memorystack
    Dim i As Integer
    memoryCounter = 0   'intitializes the memory counter
    ReDim memoryStack(roundNumber)
    MsgBox "Round " & roundNumber
    For i = 0 To roundNumber - 1
        memoryStack(i) = gameMemoryStack(i)            'fills the array to be tested
    Next i
    ReDim arrTemp(UBound(memoryStack))
    arrTemp() = reverseOrder(memoryStack)
    tmrblink.Enabled = True                            'tells the color button to flash
End Sub
Private Sub MessageBox()
    'Just a simple message box
    Dim mbox As Integer
    Dim title As String
    Dim message As String
    title = "Game Over"
    message = "You got " & roundNumber & " correct"
    mbox = MsgBox(message, , title)
End Sub
 
 
Private Sub colorSelect()
    Select Case firstColor
        Case "Yellow"
            lblYellowButton.BackColor = vbYellow
        Case "Red"
            lblRedButton.BackColor = vbRed
        Case "Blue"
            lblBlueButton.BackColor = vbBlue
        Case "Green"
            lblGreenButton.BackColor = vbGreen
    End Select
End Sub