Codigo para memorama en vb

Solo disponible en BuenasTareas
  • Páginas : 2 (302 palabras )
  • Descarga(s) : 0
  • Publicado : 23 de noviembre de 2010
Leer documento completo
Vista previa del texto
Dim TJ2 As String * 1
Dim cont As Integer
Dim TJ1 As String * 1
Private Sub BCKCA1_Click()
BCKCA1.Enabled = False
BCKCA2.Enabled = True
CTKCA3 = cont + 1
TJ1 = CTKCA1TJ2 = CTKCA2
If TJ1 = 1 Or TJ2 = 1 Then TPKCA1.Visible = False
If TJ1 = 2 Or TJ2 = 2 Then TPKCA2.Visible = False
If TJ1 = 3 Or TJ2 = 3 Then TPKCA3.Visible = False
If TJ1 = 4 OrTJ2 = 4 Then TPKCA4.Visible = False
If TJ1 = 5 Or TJ2 = 5 Then TPKCA5.Visible = False
If TJ1 = 6 Or TJ2 = 6 Then TPKCA6.Visible = False
If TJ1 = 7 Or TJ2 = 7 ThenTPKCA7.Visible = False
If TJ1 = 8 Or TJ2 = 8 Then TPKCA8.Visible = False

If (TJ1 = 1 And TJ2 = 7) Or (TJ1 = 7 And TJ2 = 1) Then
IMKCA1.Visible = False
IMKCA7.Visible = False
cont =cont + 1
Else
If (TJ1 = 2 And TJ2 = 8) Or (TJ1 = 8 And TJ2 = 2) Then
IMKCA2.Visible = False
IMKCA8.Visible = False
cont = cont + 1
Else
If (TJ1= 3 And TJ2 = 6) Or (TJ1 = 6 And TJ2 = 3) Then
IMKCA3.Visible = False
IMKCA6.Visible = False
cont = cont + 1
Else
If (TJ1 = 4 AndTJ2 = 5) Or (TJ1 = 5 And TJ2 = 4) Then
IMKCA4.Visible = False
IMKCA5.Visible = False
Else
End If
End If
End IfEnd If

End Sub

Private Sub BCKCA2_Click()
BCKCA2.Enabled = False
BCKCA1.Enabled = True
CTKCA1 = ""
CTKCA2 = ""
If TJ1 = 1 Or TJ2 = 1 Then TPKCA1.Visible = True
IfTJ1 = 2 Or TJ2 = 2 Then TPKCA2.Visible = True
If TJ1 = 3 Or TJ2 = 3 Then TPKCA3.Visible = True
If TJ1 = 4 Or TJ2 = 4 Then TPKCA4.Visible = True
If TJ1 = 5 Or TJ2 = 5 ThenTPKCA5.Visible = True
If TJ1 = 6 Or TJ2 = 6 Then TPKCA6.Visible = True
If TJ1 = 7 Or TJ2 = 7 Then TPKCA7.Visible = True
If TJ1 = 8 Or TJ2 = 8 Then TPKCA8.Visible = True
End Sub
tracking img