Formulas

Solo disponible en BuenasTareas
  • Páginas : 2 (440 palabras )
  • Descarga(s) : 0
  • Publicado : 26 de agosto de 2012
Leer documento completo
Vista previa del texto
Dim a, b, c

Private Sub Command1_Click()
Command2.Visible = True
Timer1.Enabled = True
Timer4.Enabled = True
Timer7.Enabled = True
Label4.Visible = False
End Sub

Private SubCommand2_Click()
Timer1.Enabled = False
Timer2.Enabled = False
Timer3.Enabled = False
Timer4.Enabled = False
Timer5.Enabled = False
Timer6.Enabled = False
Timer7.Enabled = False
Timer8.Enabled = FalseTimer9.Enabled = False

a = Int((2 - 0 + 1) * Rnd + 0)
b = Int((2 - 0 + 1) * Rnd + 0)
c = Int((2 - 0 + 1) * Rnd + 0)
Label1.Caption = a
If a = 0 Then
Image1.Visible = True
Image2.Visible =False
Image3.Visible = False
End If
If a = 1 Then
Image1.Visible = False
Image2.Visible = True
Image3.Visible = False
End If
If a = 2 Then
Image1.Visible = False
Image2.Visible = FalseImage3.Visible = True
End If
Label2.Caption = b
If b = 0 Then
Image4.Visible = True
Image5.Visible = False
Image6.Visible = False
End If
If b = 1 Then
Image4.Visible = False
Image5.Visible = TrueImage6.Visible = False
End If
If b = 2 Then
Image4.Visible = False
Image5.Visible = False
Image6.Visible = True
End If
Label3.Caption = c
If c = 0 Then
Image7.Visible = TrueImage8.Visible = False
Image9.Visible = False
End If
If c = 1 Then
Image7.Visible = False
Image8.Visible = True
Image9.Visible = False
End If
If c = 2 Then
Image7.Visible = False
Image8.Visible = FalseImage9.Visible = True
End If
Command2.Visible = False
If Image1.Visible = True And Image4.Visible = True And Image7.Visible = True Then
Label4.Visible = True
Label4.Caption = "GANASTE"
End IfIf Image2.Visible = True And Image5.Visible = True And Image8.Visible = True Then
Label4.Visible = True
Label4.Caption = "GANASTE"
End If
If Image3.Visible = True And Image6.Visible = True AndImage9.Visible = True Then
Label4.Visible = True
Label4.Caption = "GANASTE"
End If
End Sub

Private Sub Timer1_Timer()
Image1.Visible = True
Image3.Visible = False
Timer2.Enabled = True...
tracking img