Visual Basic.NET - Ayuda con el juego de memoria

   
Vista:

Ayuda con el juego de memoria

Publicado por Manuel (1 intervención) el 26/06/2009 22:19:22
Como proyecto en la U, me dejaron hacer un juego de memoria pero jugando con los mismos botones osea poniendole colores a los botones y asi ir descubriendo cual boton hace pareja con el otro del mismo color... yo creo que asi esta ya terminado PERO tengo un error que no logro decifrar del porque se da: trata de que si yo presiono el primer boton me tira el mensaje del msgbox que esta "incorrecto" osea no esta haciendo de primero la comparacion...

les dejo el codigo haber si me pueden hechar una mano, es lo UNICO que me falta... GRACIAS.

Public Class Form1
Dim acierto, intento, desa As Integer
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Button1.BackColor = Color.Aquamarine
Button1.Text = ""
Button1.Enabled = False

If ((Button1.BackColor = Color.Aquamarine) = (Button7.BackColor = Color.Aquamarine)) Then

MsgBox("BIEN HECHO, CONTINUE", MsgBoxStyle.Information, "ACIERTO")
Button1.Enabled = False
Button7.Enabled = False
acierto = acierto + 1
intento = intento + 1

Else

MsgBox("INCORRECTO, CONTINUE", MsgBoxStyle.Critical, "DESACIERTO")
Button1.Enabled = True
desa = desa + 1
intento = intento + 1

End If

If acierto = 5 Then
Select Case intento
Case 1 To 5
MessageBox.Show("EXCELENTE JUEGO")
Case 6 To 8
MessageBox.Show("JUEGO MUY BUENO")
Case 9 To 13
MessageBox.Show("JUEGO BUENO")
Case 14 To 20
MessageBox.Show("JUEGO REGULAR")
Case 21 To 30
MessageBox.Show("QUE POCO SESO TENES")
End Select
End If

txtintento.Text = intento
txtacierto.Text = acierto
txtdesa.Text = desa
End Sub

Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click

Button7.BackColor = Color.Aquamarine
Button7.Text = ""
Button7.Enabled = False

If ((Button7.BackColor = Color.Aquamarine) = (Button1.BackColor = Color.Aquamarine)) Then

MsgBox("BIEN HECHO, CONTINUE", MsgBoxStyle.Information, "ACIERTO")
Button1.Enabled = False
Button7.Enabled = False
acierto = acierto + 1
intento = intento + 1

Else

MsgBox("INCORRECTO, CONTINUE", MsgBoxStyle.Critical, "DESACIERTO")
Button7.Enabled = True
desa = desa + 1
intento = intento + 1

End If

If acierto = 5 Then
Select Case intento
Case 1 To 5
MessageBox.Show("EXCELENTE JUEGO")
Case 6 To 8
MessageBox.Show("JUEGO MUY BUENO")
Case 9 To 13
MessageBox.Show("JUEGO BUENO")
Case 14 To 20
MessageBox.Show("JUEGO REGULAR")
Case 21 To 30
MessageBox.Show("QUE POCO SESO TENES")
End Select
End If

txtintento.Text = intento
txtacierto.Text = acierto
txtdesa.Text = desa
End Sub
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Ayuda con el juego de memoria

Publicado por miguel bahamon (1 intervención) el 05/08/2009 02:47:26
Que crees que pensaria tu profesor si te viera esta pagina de preguntas
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Ayuda con el juego de memoria

Publicado por BRAYAN (2 intervenciones) el 27/05/2010 03:53:28
Mira bos lo unico malo que tenes es que comparaste con tu
if si el color era igual a aqua entonces al darle
click este te sale el mensaje de intentalo de nuevo
solo checka el codigo ya te lo arregle
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Button1.BackColor = Color.Aquamarine
Button1.Text = ""
Button1.Enabled = False

If ((Button1.BackColor = Color.Aquamarine) = (Button7.BackColor = Color.Aquamarine)) Then

MsgBox("BIEN HECHO, CONTINUE", MsgBoxStyle.Information, "ACIERTO")
Button1.Enabled = False
Button7.Enabled = False
acierto = acierto + 1
intento = intento + 1

Else if button1.backColor = Color.Aquamarine = Button8.BackColor=color.red then
MsgBox("INCORRECTO, CONTINUE", MsgBoxStyle.Critical, "DESACIERTO")
Button1.Enabled = True
desa = desa + 1
intento = intento + 1

End If

If acierto = 5 Then
Select Case intento
Case 1 To 5
MessageBox.Show("EXCELENTE JUEGO")
Case 6 To 8
MessageBox.Show("JUEGO MUY BUENO")
Case 9 To 13
MessageBox.Show("JUEGO BUENO")
Case 14 To 20
MessageBox.Show("JUEGO REGULAR")
Case 21 To 30
MessageBox.Show("QUE POCO SESO TENES")
End Select
End If

txtintento.Text = intento
txtacierto.Text = acierto
txtdesa.Text = desa
End Sub

Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click

Button7.BackColor = Color.Aquamarine
Button7.Text = ""
Button7.Enabled = False

If ((Button7.BackColor = Color.Aquamarine) = (Button1.BackColor = Color.Aquamarine)) Then

MsgBox("BIEN HECHO, CONTINUE", MsgBoxStyle.Information, "ACIERTO")
Button1.Enabled = False
Button7.Enabled = False
acierto = acierto + 1
intento = intento + 1

Else

MsgBox("INCORRECTO, CONTINUE", MsgBoxStyle.Critical, "DESACIERTO")
Button7.Enabled = True
desa = desa + 1
intento = intento + 1

End If

If acierto = 5 Then
Select Case intento
Case 1 To 5
MessageBox.Show("EXCELENTE JUEGO")
Case 6 To 8
MessageBox.Show("JUEGO MUY BUENO")
Case 9 To 13
MessageBox.Show("JUEGO BUENO")
Case 14 To 20
MessageBox.Show("JUEGO REGULAR")
Case 21 To 30
MessageBox.Show("QUE POCO SESO TENES")
End Select
End If

txtintento.Text = intento
txtacierto.Text = acierto
txtdesa.Text = desa
End Sub
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Ayuda con el juego de memoria

Publicado por BRAYAN (2 intervenciones) el 27/05/2010 03:54:06
Mira bos lo unico malo que tenes es que comparaste con tu
if si el color era igual a aqua entonces al darle
click este te sale el mensaje de intentalo de nuevo
solo checka el codigo ya te lo arregle
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Button1.BackColor = Color.Aquamarine
Button1.Text = ""
Button1.Enabled = False

If ((Button1.BackColor = Color.Aquamarine) = (Button7.BackColor = Color.Aquamarine)) Then

MsgBox("BIEN HECHO, CONTINUE", MsgBoxStyle.Information, "ACIERTO")
Button1.Enabled = False
Button7.Enabled = False
acierto = acierto + 1
intento = intento + 1

Else if button1.backColor = Color.Aquamarine = Button8.BackColor=color.red then
MsgBox("INCORRECTO, CONTINUE", MsgBoxStyle.Critical, "DESACIERTO")
Button1.Enabled = True
desa = desa + 1
intento = intento + 1

End If

If acierto = 5 Then
Select Case intento
Case 1 To 5
MessageBox.Show("EXCELENTE JUEGO")
Case 6 To 8
MessageBox.Show("JUEGO MUY BUENO")
Case 9 To 13
MessageBox.Show("JUEGO BUENO")
Case 14 To 20
MessageBox.Show("JUEGO REGULAR")
Case 21 To 30
MessageBox.Show("QUE POCO SESO TENES")
End Select
End If

txtintento.Text = intento
txtacierto.Text = acierto
txtdesa.Text = desa
End Sub

Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click

Button7.BackColor = Color.Aquamarine
Button7.Text = ""
Button7.Enabled = False

If ((Button7.BackColor = Color.Aquamarine) = (Button1.BackColor = Color.Aquamarine)) Then

MsgBox("BIEN HECHO, CONTINUE", MsgBoxStyle.Information, "ACIERTO")
Button1.Enabled = False
Button7.Enabled = False
acierto = acierto + 1
intento = intento + 1

Else

MsgBox("INCORRECTO, CONTINUE", MsgBoxStyle.Critical, "DESACIERTO")
Button7.Enabled = True
desa = desa + 1
intento = intento + 1

End If

If acierto = 5 Then
Select Case intento
Case 1 To 5
MessageBox.Show("EXCELENTE JUEGO")
Case 6 To 8
MessageBox.Show("JUEGO MUY BUENO")
Case 9 To 13
MessageBox.Show("JUEGO BUENO")
Case 14 To 20
MessageBox.Show("JUEGO REGULAR")
Case 21 To 30
MessageBox.Show("QUE POCO SESO TENES")
End Select
End If

txtintento.Text = intento
txtacierto.Text = acierto
txtdesa.Text = desa
End Sub
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar