acensor, por Bren

Private Sub luz_Click()asensor.BackColor = vbRedEnd SubPrivate Sub pisocuatro_Click()asensor.Top = 840End SubPrivate Sub pisodos_Click()asensor.Top = 2280End SubPrivate Sub pisotres_Click()asensor.Top = 1560End SubPrivate Sub parar_Click()Private Sub pisouno_Click()asensor.Top = 3000End SubPrivate Sub plantabaja_Click()asensor.Top = 3720End SubPrivate Sub subsuelo_Click()asensor.Top = 4440End Sub

Apunte de la clase del 1 de noviembre

Private Sub cuatro_Click()
If contraseña.Text = "chinito" Then
ascensor.Top = 856
contador4.Caption = Val(contador4.Caption) + 1
Else
contador4.Caption = Val(contador4.Caption) + 0
End If
If contraseña.Visible = False Then
contraseña.Visible = True
Else
contraseña.Visible = False
End If
If ok.Visible = False Then
ok.Visible = True
Else
ok.Visible = False
End If
End SubPrivate Sub cuatrodos_Click()
If contraseña.Text = "chinito"
Then
ascensor.Top = 856
contador4.Caption = Val(contador4.Caption) + 1
Else
contador4.Caption = Val(contador4.Caption) + 0
End If
If contraseña.Visible = False Then
contraseña.Visible = True
Else
contraseña.Visible = False
End If
If ok.Visible = False Then
ok.Visible = True
Else
ok.Visible = False
End If
End Sub
Private Sub luz_Click()
If ascensor.BackColor = vbBlack Then
ascensor.BackColor = vbYellow
Else
ascensor.BackColor = vbBlack
End If
End Sub

avance acensor

ya programe:
_diseño
_va a todos los pisos
_4 con clave
_luz
_alarma
_prendido y apagado (on_off)
_ los contadores de los pisos -1 ,0, 1 y 2