Looping to see if something = something(resolved)

[paralinx]

Hello, I'm working on a concentration game, and i'm trying to make the function that will tell if the user matches the flags or does not. So far, I've got it can only tell if they do not match them, but in my loop, it will only work if they click a 3, then a 4. It won't work if they click a 4, and then a 3.

Code:

Dim i As Integer
    clickcount = clickcount + 1
    lblCover(Index).Visible = False
    For i = 0 To 15
        If lblCover(i).Visible = False Then
            If clickcount = 2 Then
                picSecond.Picture = imgPicture(i).Picture
            Else
                picFirst.Picture = imgPicture(i).Picture
            End If
        End If
    Next i
    
    Call CheckMatch

[randem]

paralinx,

A better explaination is needed. Cannot make out what you are attempting to do in this routine.

[dglienna]

I'd have to see your Match routine, but I think you could use the .TAG property of the pictureboxes to store what is in them. Just use the picture number. Then, you could match easily.

[ZeBula8]

Dim i As Integer
Static clickcount As Integer
 
clickcount = clickcount + 1
lblCover(Index).Visible = False
For i = 0 To 15
    If lblCover(i).Visible = False Then
        If clickcount = 2 Then
            picSecond.Picture = imgPicture(i).Picture
            clickcount = 0  ' reset
        Else
            picFirst.Picture = imgPicture(i).Picture
        End If
    End If
Next i
 
Call CheckMatch

[paralinx]

paralinx,

A better explaination is needed. Cannot make out what you are attempting to do in this routine.

well, I explained it the best I could, it really doesn't help when all you post is "explain it better"

[dglienna]

Heres what I meant.

Dim i As Integer
Static clickcount As Integer
 
clickcount = clickcount + 1
lblCover(Index).Visible = False
For i = 0 To 15
    If lblCover(i).Visible = False Then
        If clickcount = 2 Then
            picSecond.Picture = imgPicture(i).Picture
            picSecond.tag = i
            clickcount = 0  ' reset
        Else
            picFirst.Picture = imgPicture(i).Picture
            picFirst.tag = i 
        End If
    End If
Next i
 
Call CheckMatch
'  if picFirst.tag = picSecond.tag  then pictures are the same

[paralinx]

I'd have to see your Match routine, but I think you could use the .TAG property of the pictureboxes to store what is in them. Just use the picture number. Then, you could match easily.

my match function is very dumb, but it works somehow. How would I use the .TAG of the images to see if the pictures match?

[dglienna]

See post #6. Use the picture index as the tag.

[paralinx]

I'm trying to use this, but it is not working here is my code

Private Sub lblCover_Click(Index As Integer)
    
    Dim i As Integer
    
    clickcount = clickcount + 1
    lblCover(Index).Visible = False
    For i = 0 To 15
        If lblCover(i).Visible = False Then
            If clickcount = 2 Then
                picSecond.Picture = imgPicture(i).Picture
                picSecond.Tag = i
            Else
                picFirst.Picture = imgPicture(i).Picture
                picFirst.Tag = i
            End If
        End If
    Next i
    If clickcount = 2 Then
        Call CheckMatch
    End If
End Sub
 
Public Sub CheckMatch()
 
    Dim i As Integer
    
    If picFirst.Tag = picSecond.Tag Then
        tmrWin.Enabled = True
        clickcount = 0
    Else
        tmrLose.Enabled = True
        clickcount = 0
    End If
 
End Sub

[dglienna]

I think you need another array of default picture names. When you click picture6 and it has image 4 in it, you would want to save pointer(4) to the tag property. The method I posted won't work because you won't be clicking on the same picture twice, so they won't match. If both tags contained pointer(4), they would match.

Post your project and I'll look at it.

[paralinx]

Here you go

[dglienna]

I'll look at it when I get back.

[paralinx]

Take your time

[dglienna]

I had to make a few changes, but I think you'll like it

[paralinx]

thanks david, it works great.