Printable View
I'm trying to make a game for my nephew. He is really into basketball and he is only 7. As a 7 year old, he needs to practice with his memorization. I am trying to design this game where you match cards with each other. I am making the cards not visible when they are both clicked, but I can not seem to make them go back when you click one and then click another (being the wrong one). I was wondering If I should use functions as there are many cards that have to do the same thing.
What you do is store to variables, card1 and card2. In the card's click events, set it to visible and set either card1 or card2. Once card2 has been set, then check if it matches card1. Assuming you're using pictureboxes, I would store the card's value in it's tag property:
Code:Option Strict On
Option Explicit On
Public Class Form1
Private card1 As PictureBox = Nothing
Private card2 As PictureBox = Nothing
Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
'Click event for each card
For Each card As PictureBox In Me.Controls.OfType(Of PictureBox)()
AddHandler card.Click, AddressOf card_Click
Next
End Sub
Private Sub card_Click(sender As Object, e As EventArgs)
If IsNothing(card1) Then
'Set card1
card1 = DirectCast(sender, PictureBox)
Else
'Set card2
card2 = DirectCast(sender, PictureBox)
'Check if they match
If CInt(card1.Tag) = CInt(card2.Tag) Then
'Match!
MessageBox.Show("Match!")
Else
'Not a match
card1.Visible = False
card2.Visible = False
End If
card1 = Nothing
card2 = Nothing
End If
End Sub
End Class
have a look at this:
http://www.scproject.biz/javaMatchingGameApplet.htm
Because there are so many cards I was wondering if i should use a array. Also, I tried the code out and couldn't figure out how to work it. Why is it card1 = nothing and card2 = nothing? Also, how would I use this code for more then 2 cards? just keep using this code for ever pair?
Breaking down my code:
Will add a click event for every picturebox.Code:For Each card As PictureBox In Me.Controls.OfType(Of PictureBox)()
AddHandler card.Click, AddressOf card_Click
Next
First we check if card1 is nothing, by default it will be nothing. If card1 is nothing, then we set it to the picturebox that was just clicked.Code:If IsNothing(card1) Then
'Set card1
card1 = DirectCast(sender, PictureBox)
Next we add the code if card1 is something. The code we add sets card number2.Code:Else
'Set card2
card2 = DirectCast(sender, PictureBox)
Here we check if card1's tag and card2's tag match. The tag property in my example would hold an integer value: 1,2,3,4,5,6, etc.Code:'Check if they match
If CInt(card1.Tag) = CInt(card2.Tag) Then
'Match!
MessageBox.Show("Match!")
Now we check if the two card's tags didn't match, if not then we set them to invisible. Or in your case, you may just change the Image to the back of the card.Code:Else
'Not a match
card1.Visible = False
card2.Visible = False
End If
Finally we set card1 and card2 to nothing so that the next card that's pressed will be considered card1.Code:card1 = Nothing
card2 = Nothing
End If
The way I present it doesn't need any arrays. If you wanted to store the pair then declare a dictionary(of picturebox, picturebox) then add the two cards to that dictionary:
Code:Private pair_dic As New Dictionary(Of PictureBox, PictureBox)
Private Sub card_Click(sender As Object, e As EventArgs)
If IsNothing(card1) Then
'Set card1
card1 = DirectCast(sender, PictureBox)
Else
'Set card2
card2 = DirectCast(sender, PictureBox)
'Check if they match
If CInt(card1.Tag) = CInt(card2.Tag) Then
'Match!
MessageBox.Show("Match!")
pair_dic.Items.Add(card1, card2)
Else
'Not a match
card1.Visible = False
card2.Visible = False
End If
card1 = Nothing
card2 = Nothing
End If
End Sub
Sorry, but I'm still a bit confused. I attempted this on Visual Basic. Should I change Picturebox1_click to card_click? Also, when I tried it (without changing picturebox1_click to card_click) I clicked the pictureboxes and it came up with Match even though it didn't match. How does it recognize if its a match or not? Also should I anywhere be saying anything like card1 = picturebox1 or card2 = picturebox2? I'm not sure where to place the code..For all the code in card_click would that be the Picturebox? Does this code go into every picturebox?
For Each card As PictureBox In Me.Controls.OfType(Of PictureBox)()Quote:
Originally Posted by dday9
AddHandler card.Click, AddressOf card_Click
When you use that code, it makes it so all the Pictureboxs are the same, so when I match things together anything will say "Match!"..How do I make it so only certain pictureboxes aren't matches.
You need to set the tag property of the card. Whether at run time or at design time. If you look at the card's properties, at the very bottom you'll find the tag property. I set the tag as an Integer, but really it could be any object(String, Boolean, etc.). Here is a picture of where to set the tag property at design time:
Attachment 100595
If you wanted to set the tag property at run time, the code would look like this:
Code:fooPictureBox.Tag = fooObject
I figured out the code, but I have a small issue. When it does not match the card2 does not show up because it is supposed to not be visible right away. Is there a way to make card 2 being not visible after 1-2 seconds? Thanks!Quote:
Originally Posted by dday9
I would use a timer. Set the interval at 1000 for 1 second or 2000 for 2 seconds. In the tick event you'll stop the timer and set the card's visibility to false. So it'd look sort of like this in the timer's tick event:
Code:Timer.Enabled = False 'Or Timer.Stop()
card.Visibile = False
Alright, but I still have a problem.. Now I need to move the card1 and card2 = nothing somewhere else because it wont recognize it when its in the position that you told me to put it in. Where should I move card1 = nothing and card2 = nothing so that it will recognize it.Quote:
Originally Posted by dday9
You might like to check out the Match Two link in my signature. Given the timing, it may actually have been inspired by this thread in the first place, although I don't recall.