Ir para o conteúdo
Catarina Silvestre

Jogo da Memória

Mensagens Recomendadas

Catarina Silvestre

Olá a todos,

Eu estou a desenvolver um jogo de memória em visual basic 2010, mas estou tendo um pequeno problema que não estou conseguindo resolver. É o seguinte eu tenho 6 imagens e ao carregar numa ela vira mas quando carrego na segunda para ver a imagem esta não se vira, mas ele está a fazer o seu trabalho, ou seja, ela vai verificar se as imagens são iguais e se estas forem iguais ele desaparece as imagens, mas se estas não forem eles viram para a imagem inicial. Eu não estou conseguindo resolver o assunto, se alguém conseguir me ajude pro favor?

Public Class memoria_facil

Dim clicou As Boolean = False

Dim ImagemUm, ImagemDois As String

Sub verificarTorreEiffel()

If (ImagemUm = ImagemDois) Then

pbTorreEiffelUm.Visible = False

pbTorreEiffelDois.Visible = False

Else

pbTorreEiffelUm.Image = My.Resources.memoria_facil

pbTorreEiffelUm.SizeMode = PictureBoxSizeMode.CenterImage

pbTorreEiffelDois.Image = My.Resources.memoria_facil

pbTorreEiffelDois.SizeMode = PictureBoxSizeMode.CenterImage

pbColiseuRomaUm.Image = My.Resources.memoria_facil

pbColiseuRomaUm.SizeMode = PictureBoxSizeMode.CenterImage

pbColiseuRomaDois.Image = My.Resources.memoria_facil

pbColiseuRomaDois.SizeMode = PictureBoxSizeMode.CenterImage

pbSagradaFamiliaUm.Image = My.Resources.memoria_facil

pbSagradaFamiliaUm.SizeMode = PictureBoxSizeMode.CenterImage

pbSagradaFamiliaDois.Image = My.Resources.memoria_facil

pbSagradaFamiliaDois.SizeMode = PictureBoxSizeMode.CenterImage

End If

End Sub

Sub verificarColiseuRoma()

If (ImagemUm = ImagemDois) Then

pbColiseuRomaUm.Visible = False

pbColiseuRomaDois.Visible = False

Else

pbTorreEiffelUm.Image = My.Resources.memoria_facil

pbTorreEiffelUm.SizeMode = PictureBoxSizeMode.CenterImage

pbTorreEiffelDois.Image = My.Resources.memoria_facil

pbTorreEiffelDois.SizeMode = PictureBoxSizeMode.CenterImage

pbColiseuRomaUm.Image = My.Resources.memoria_facil

pbColiseuRomaUm.SizeMode = PictureBoxSizeMode.CenterImage

pbColiseuRomaDois.Image = My.Resources.memoria_facil

pbColiseuRomaDois.SizeMode = PictureBoxSizeMode.CenterImage

pbSagradaFamiliaUm.Image = My.Resources.memoria_facil

pbSagradaFamiliaUm.SizeMode = PictureBoxSizeMode.CenterImage

pbSagradaFamiliaDois.Image = My.Resources.memoria_facil

pbSagradaFamiliaDois.SizeMode = PictureBoxSizeMode.CenterImage

End If

End Sub

Sub verificarSagradaFamilia()

If (ImagemUm = ImagemDois) Then

pbSagradaFamiliaUm.Visible = False

pbSagradaFamiliaDois.Visible = False

Else

pbTorreEiffelUm.Image = My.Resources.memoria_facil

pbTorreEiffelUm.SizeMode = PictureBoxSizeMode.CenterImage

pbTorreEiffelDois.Image = My.Resources.memoria_facil

pbTorreEiffelDois.SizeMode = PictureBoxSizeMode.CenterImage

pbColiseuRomaUm.Image = My.Resources.memoria_facil

pbColiseuRomaUm.SizeMode = PictureBoxSizeMode.CenterImage

pbColiseuRomaDois.Image = My.Resources.memoria_facil

pbColiseuRomaDois.SizeMode = PictureBoxSizeMode.CenterImage

pbSagradaFamiliaUm.Image = My.Resources.memoria_facil

pbSagradaFamiliaUm.SizeMode = PictureBoxSizeMode.CenterImage

pbSagradaFamiliaDois.Image = My.Resources.memoria_facil

pbSagradaFamiliaDois.SizeMode = PictureBoxSizeMode.CenterImage

End If

End Sub

Private Sub pbTorreEiffelUm_Click(sender As System.Object, e As System.EventArgs) Handles pbTorreEiffelUm.Click

If (clicou = False) Then

clicou = True

pbTorreEiffelUm.Image = My.Resources.torre_eiffel

pbTorreEiffelUm.SizeMode = PictureBoxSizeMode.StretchImage

ImagemUm = "a"

Else

clicou = False

pbTorreEiffelUm.Image = My.Resources.torre_eiffel

pbTorreEiffelUm.SizeMode = PictureBoxSizeMode.StretchImage

ImagemDois = "a"

'colocar aqui a condicao de permancer as duas diferentes

pbTorreEiffelUm.Visible = True

pbTorreEiffelDois.Visible = True

verificarTorreEiffel()

End If

End Sub

Private Sub pbTorreEiffelDois_Click(sender As System.Object, e As System.EventArgs) Handles pbTorreEiffelDois.Click

If (clicou = False) Then

clicou = True

pbTorreEiffelDois.Image = My.Resources.torre_eiffel

pbTorreEiffelDois.SizeMode = PictureBoxSizeMode.StretchImage

ImagemUm = "a"

Else

clicou = False

pbTorreEiffelDois.Image = My.Resources.torre_eiffel

pbTorreEiffelDois.SizeMode = PictureBoxSizeMode.StretchImage

ImagemDois = "a"

verificarTorreEiffel()

End If

End Sub

Private Sub pbColiseuRomaUm_Click(sender As System.Object, e As System.EventArgs) Handles pbColiseuRomaUm.Click

If (clicou = False) Then

clicou = True

pbColiseuRomaUm.Image = My.Resources.coliseu_roma

pbColiseuRomaUm.SizeMode = PictureBoxSizeMode.StretchImage

ImagemUm = "b"

Else

clicou = False

pbColiseuRomaUm.Image = My.Resources.coliseu_roma

pbColiseuRomaUm.SizeMode = PictureBoxSizeMode.StretchImage

ImagemDois = "b"

verificarColiseuRoma()

End If

End Sub

Private Sub pbColiseuRomaDois_Click(sender As System.Object, e As System.EventArgs) Handles pbColiseuRomaDois.Click

If (clicou = False) Then

clicou = True

pbColiseuRomaDois.Image = My.Resources.coliseu_roma

pbColiseuRomaDois.SizeMode = PictureBoxSizeMode.StretchImage

ImagemUm = "b"

Else

clicou = False

pbColiseuRomaDois.Image = My.Resources.coliseu_roma

pbColiseuRomaDois.SizeMode = PictureBoxSizeMode.StretchImage

ImagemDois = "b"

verificarColiseuRoma()

End If

End Sub

Private Sub pbSagradaFamiliaUm_Click(sender As System.Object, e As System.EventArgs) Handles pbSagradaFamiliaUm.Click

If (clicou = False) Then

clicou = True

pbSagradaFamiliaUm.Image = My.Resources.Sagrada_Familia

pbSagradaFamiliaUm.SizeMode = PictureBoxSizeMode.StretchImage

ImagemUm = "c"

Else

clicou = False

pbSagradaFamiliaUm.Image = My.Resources.Sagrada_Familia

pbSagradaFamiliaUm.SizeMode = PictureBoxSizeMode.StretchImage

ImagemDois = "c"

verificarSagradaFamilia()

End If

End Sub

Private Sub pbSagradaFamiliaDois_Click(sender As System.Object, e As System.EventArgs) Handles pbSagradaFamiliaDois.Click

If (clicou = False) Then

clicou = True

pbSagradaFamiliaDois.Image = My.Resources.Sagrada_Familia

pbSagradaFamiliaDois.SizeMode = PictureBoxSizeMode.StretchImage

ImagemUm = "c"

Else

clicou = False

pbSagradaFamiliaDois.Image = My.Resources.Sagrada_Familia

pbSagradaFamiliaDois.SizeMode = PictureBoxSizeMode.StretchImage

ImagemDois = "c"

verificarSagradaFamilia()

End If

End Sub

End Class

Partilhar esta mensagem


Ligação para a mensagem
Partilhar noutros sites
Pedro Bernardino

No pbTorreEiffelUm_Click tens no final

pbTorreEiffelUm.Visible = True

pbTorreEiffelDois.Visible = True

e nos outros nao tens, poderá ser disso.

Partilhar esta mensagem


Ligação para a mensagem
Partilhar noutros sites

Crie uma conta ou ligue-se para comentar

Só membros podem comentar

Criar nova conta

Registe para ter uma conta na nossa comunidade. É fácil!

Registar nova conta

Entra

Já tem conta? Inicie sessão aqui.

Entrar Agora

×

Aviso Sobre Cookies

Ao usar este site você aceita os nossos Termos de Uso e Política de Privacidade. Este site usa cookies para disponibilizar funcionalidades personalizadas. Para mais informações visite esta página.