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
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
0