Ambiente visual, memorama
Enviado por Marijose1499 • 26 de Febrero de 2018 • Prácticas o problemas • 6.274 Palabras (26 Páginas) • 117 Visitas
[pic 1][pic 2]
Universidad Autónoma de Nuevo León.
Escuela Industrial y Preparatoria Técnica Álvaro Obregón.
Unidad Monterrey 1 Churubusco.
Unidad de aprendizaje:
Programación I
Actividad 14
Nombre: Marijose García Zavala.
Matricula: 1726696.
Aula: 134. Grupo: 3L5.
San Nicolás De Los Garza, Nuevo León, México a 4 de septiembre de 2015.
Interfaz grafica
[pic 3]
Código
Public Class Form1
Dim T1, T2, T3, T4, T5, T6, T7, T8 As Integer
Private Sub Tapa1_Click(sender As Object, e As EventArgs) Handles Tapa1.Click
Tapa1.Visible = False
T1 = 1
If T1 = 1 And T2 = 1 Then
MsgBox("Hiciste un par")
T1 = 2 'Que ya hay un par
T2 = 2 'Que ya hay un par
Tapa1.Visible = False
Tapa2.Visible = False
Im1.Visible = False
Im2.Visible = False
End If
If T1 = 1 Then
End If
If T1 = 1 And T3 = 1 Then
MsgBox("No es par, sigue intentando")
Tapa1.Visible = True
Tapa3.Visible = True
T1 = 0
T3 = 0
End If
If T1 = 1 And T4 = 1 Then
MsgBox("No es par, sigue intentando")
Tapa1.Visible = True
Tapa4.Visible = True
T1 = 0
T4 = 0
End If
If T1 = 1 And T5 = 1 Then
MsgBox("No es par, sigue intentando")
Tapa1.Visible = True
Tapa5.Visible = True
T1 = 0
T5 = 0
End If
If T1 = 1 And T6 = 1 Then
MsgBox("No es par, sigue intentando")
PicT1.Visible = True
PicT6.Visible = True
T1 = 0
T6 = 0
End If
If T1 = 1 And T7 = 1 Then
MsgBox("No es par, sigue intentando")
Tapa1.Visible = True
Tapa7.Visible = True
T1 = 0
T7 = 0
End If
If T1 = 1 And T8 = 1 Then
MsgBox("No es par, sigue intentando")
Tapa1.Visible = True
Tapa8.Visible = True
T1 = 0
T8 = 0
End If
End Sub
Private Sub Tapa2_Click(sender As Object, e As EventArgs) Handles Tapa2.Click
Tapa2.Visible = False
T2 = 1
If T2 = 1 And T1 = 1 Then
MsgBox("Hiciste un par")
T2 = 2 'Que ya hay un par
T1 = 2 'Que ya hay un par
Tapa2.Visible = False
Tapa1.Visible = False
Im1.Visible = False
Im2.Visible = False
End If
If T2 = 1 Then
End If
If T2 = 1 And T3 = 1 Then
MsgBox("No es par, sigue intentando")
Tapa2.Visible = True
Tapa3.Visible = True
T2 = 0
T3 = 0
End If
If T2 = 1 And T4 = 1 Then
MsgBox("No es par, sigue intentando")
Tapa2.Visible = True
Tapa4.Visible = True
T2 = 0
T4 = 0
End If
If T2 = 1 And T5 = 1 Then
MsgBox("No es par, sigue intentando")
Tapa2.Visible = True
Tapa5.Visible = True
T2 = 0
T5 = 0
End If
If T2 = 1 And T6 = 1 Then
MsgBox("No es par, sigue intentando")
Tapa2.Visible = True
Tapa6.Visible = True
T2 = 0
T6 = 0
End If
If T2 = 1 And T7 = 1 Then
MsgBox("No es par, sigue intentando")
Tapa2.Visible = True
Tapa7.Visible = True
T2 = 0
T7 = 0
End If
If T2 = 1 And T8 = 1 Then
MsgBox("No es par, sigue intentando")
Tapa2.Visible = True
Tapa8.Visible = True
T2 = 0
T8 = 0
End If
End Sub
Private Sub Tapa3_Click(sender As Object, e As EventArgs) Handles Tapa3.Click
Tapa3.Visible = False
T3 = 1
If T3 = 1 And T4 = 1 Then
MsgBox("Hiciste un par")
T3 = 2 'Que ya hay un par
T4 = 2 'Que ya hay un par
Tapa3.Visible = False
Tapa4.Visible = False
Im3.Visible = False
Im4.Visible = False
End If
...