Ascensor 5 (por marto)

Private Sub borrar_Click()
contraseña = "contraseña."
cinco.Enabled = True
controlcinco.Enabled = True
End Sub

Private Sub cinco_Click()
auxiliar.Caption = Sqr(((ascensor.Top - 1200) / 600) ^ 2)
cuentapisos.Caption = Val(cuentapisos.Caption) + Val(auxiliar.Caption)
ascensor.Top = 1200
If ascensor.Top = 1200 Then
pcinco.Caption = "5"
pcuatro.Caption = "5"
ptres.Caption = "5"
pdos.Caption = "5"
puno.Caption = "5"
ppb.Caption = "5"
pss.Caption = "5"
pisos.Caption = "5"
End If
If ascensor.Top = 1200 Then
ccinco.Caption = ccinco.Caption + 1
End If
cinco.Enabled = False
cuatro.Enabled = True
tres.Enabled = True
dos.Enabled = True
uno.Enabled = True
pb.Enabled = True
ss.Enabled = True
controlcinco.Enabled = False
controlcuatro.Enabled = True
controltres.Enabled = True
controldos.Enabled = True
controluno.Enabled = True
controlpb.Enabled = True
controlss.Enabled = True
End Sub

Private Sub controlcinco_Click()
auxiliar.Caption = Sqr(((ascensor.Top - 1200) / 600) ^ 2)
cuentapisos.Caption = Val(cuentapisos.Caption) + Val(auxiliar.Caption)
If contraseña = "pepino" Then
ascensor.Top = 1200
pcinco.Caption = "5"
pcuatro.Caption = "5"
ptres.Caption = "5"
pdos.Caption = "5"
puno.Caption = "5"
ppb.Caption = "5"
pss.Caption = "5"
pisos.Caption = "5"
contraseña = "ACCESO PERMITIDO"
Else
contraseña = "ACCESO DENEGADO"
End If
If ascensor.Top = 1200 Then
ccinco.Caption = ccinco.Caption + 1
End If
cinco.Enabled = False
cuatro.Enabled = True
tres.Enabled = True
dos.Enabled = True
uno.Enabled = True
pb.Enabled = True
ss.Enabled = True
controlcinco.Enabled = False
controlcuatro.Enabled = True
controltres.Enabled = True
controldos.Enabled = True
controluno.Enabled = True
controlpb.Enabled = True
controlss.Enabled = True

End Sub

Private Sub controlcuatro_Click()
auxiliar.Caption = Sqr(((ascensor.Top - 1800) / 600) ^ 2)
cuentapisos.Caption = Val(cuentapisos.Caption) + Val(auxiliar.Caption)
ascensor.Top = 1800
If ascensor.Top = 1800 Then
pcinco.Caption = "4"
pcuatro.Caption = "4"
ptres.Caption = "4"
pdos.Caption = "4"
puno.Caption = "4"
ppb.Caption = "4"
pss.Caption = "4"
pisos.Caption = "4"
End If
If ascensor.Top = 1800 Then
ccuatro.Caption = ccuatro.Caption + 1
End If
cinco.Enabled = True
cuatro.Enabled = False
tres.Enabled = True
dos.Enabled = True
uno.Enabled = True
pb.Enabled = True
ss.Enabled = True
controlcinco.Enabled = True
controlcuatro.Enabled = False
controltres.Enabled = True
controldos.Enabled = True
controluno.Enabled = True
controlpb.Enabled = True
controlss.Enabled = True
End Sub

Private Sub controldos_Click()
auxiliar.Caption = Sqr(((ascensor.Top - 3000) / 600) ^ 2)
cuentapisos.Caption = Val(cuentapisos.Caption) + Val(auxiliar.Caption)
ascensor.Top = 3000
If ascensor.Top = 3000 Then
pcinco.Caption = "2"
pcuatro.Caption = "2"
ptres.Caption = "2"
pdos.Caption = "2"
puno.Caption = "2"
ppb.Caption = "2"
pss.Caption = "2"
pisos.Caption = "2"
End If
If ascensor.Top = 3000 Then
cdos.Caption = cdos.Caption + 1
End If
cinco.Enabled = True
cuatro.Enabled = True
tres.Enabled = True
dos.Enabled = False
uno.Enabled = True
pb.Enabled = True
ss.Enabled = True
controlcinco.Enabled = True
controlcuatro.Enabled = True
controltres.Enabled = True
controldos.Enabled = False
controluno.Enabled = True
controlpb.Enabled = True
controlss.Enabled = True
End Sub

Private Sub controlpb_Click()
auxiliar.Caption = Sqr(((ascensor.Top - 4200) / 600) ^ 2)
cuentapisos.Caption = Val(cuentapisos.Caption) + Val(auxiliar.Caption)
ascensor.Top = 4200
If ascensor.Top = 4200 Then
pcinco.Caption = "PB"
pcuatro.Caption = "PB"
ptres.Caption = "PB"
pdos.Caption = "PB"
puno.Caption = "PB"
ppb.Caption = "PB"
pss.Caption = "PB"
pisos.Caption = "PB"
End If
If ascensor.Top = 4200 Then
cpb.Caption = cpb.Caption + 1
End If
cinco.Enabled = True
cuatro.Enabled = True
tres.Enabled = True
dos.Enabled = True
uno.Enabled = True
pb.Enabled = False
ss.Enabled = True
controlcinco.Enabled = True
controlcuatro.Enabled = True
controltres.Enabled = True
controldos.Enabled = True
controluno.Enabled = True
controlpb.Enabled = False
controlss.Enabled = True
End Sub

Private Sub controlss_Click()
auxiliar.Caption = Sqr(((ascensor.Top - 4800) / 600) ^ 2)
cuentapisos.Caption = Val(cuentapisos.Caption) + Val(auxiliar.Caption)
ascensor.Top = 4800
If ascensor.Top = 4800 Then
pcinco.Caption = "SS"
pcuatro.Caption = "SS"
ptres.Caption = "SS"
pdos.Caption = "SS"
puno.Caption = "SS"
ppb.Caption = "SS"
pss.Caption = "SS"
pisos.Caption = "SS"
End If
If ascensor.Top = 4800 Then
css.Caption = css.Caption + 1
End If
cinco.Enabled = True
cuatro.Enabled = True
tres.Enabled = True
dos.Enabled = True
uno.Enabled = True
pb.Enabled = True
ss.Enabled = False
controlcinco.Enabled = True
controlcuatro.Enabled = True
controltres.Enabled = True
controldos.Enabled = True
controluno.Enabled = True
controlpb.Enabled = True
controlss.Enabled = False
End Sub

Private Sub controltres_Click()
auxiliar.Caption = Sqr(((ascensor.Top - 2400) / 600) ^ 2)
cuentapisos.Caption = Val(cuentapisos.Caption) + Val(auxiliar.Caption)
ascensor.Top = 2400
If ascensor.Top = 2400 Then
pcinco.Caption = "3"
pcuatro.Caption = "3"
ptres.Caption = "3"
pdos.Caption = "3"
puno.Caption = "3"
ppb.Caption = "3"
pss.Caption = "3"
pisos.Caption = "3"
End If
If ascensor.Top = 2400 Then
ctres.Caption = ctres.Caption + 1
End If
cinco.Enabled = True
cuatro.Enabled = True
tres.Enabled = False
dos.Enabled = True
uno.Enabled = True
pb.Enabled = True
ss.Enabled = True
controlcinco.Enabled = True
controlcuatro.Enabled = True
controltres.Enabled = False
controldos.Enabled = True
controluno.Enabled = True
controlpb.Enabled = True
controlss.Enabled = True
End Sub

Private Sub controluno_Click()
auxiliar.Caption = Sqr(((ascensor.Top - 3600) / 600) ^ 2)
cuentapisos.Caption = Val(cuentapisos.Caption) + Val(auxiliar.Caption)
ascensor.Top = 3600
If ascensor.Top = 3600 Then
pcinco.Caption = "1"
pcuatro.Caption = "1"
ptres.Caption = "1"
pdos.Caption = "1"
puno.Caption = "1"
ppb.Caption = "1"
pss.Caption = "1"
pisos.Caption = "1"
End If
If ascensor.Top = 3600 Then
cuno.Caption = cuno.Caption + 1
End If
cinco.Enabled = True
cuatro.Enabled = True
tres.Enabled = True
dos.Enabled = True
uno.Enabled = False
pb.Enabled = True
ss.Enabled = True
controlcinco.Enabled = True
controlcuatro.Enabled = True
controltres.Enabled = True
controldos.Enabled = True
controluno.Enabled = False
controlpb.Enabled = True
controlss.Enabled = True
End Sub

Private Sub cuatro_Click()
auxiliar.Caption = Sqr(((ascensor.Top - 1800) / 600) ^ 2)
cuentapisos.Caption = Val(cuentapisos.Caption) + Val(auxiliar.Caption)
ascensor.Top = 1800
If ascensor.Top = 1800 Then
pcinco.Caption = "4"
pcuatro.Caption = "4"
ptres.Caption = "4"
pdos.Caption = "4"
puno.Caption = "4"
ppb.Caption = "4"
pss.Caption = "4"
pisos.Caption = "4"
End If
If ascensor.Top = 1800 Then
ccuatro.Caption = ccuatro.Caption + 1
End If
cinco.Enabled = True
cuatro.Enabled = False
tres.Enabled = True
dos.Enabled = True
uno.Enabled = True
pb.Enabled = True
ss.Enabled = True
controlcinco.Enabled = True
controlcuatro.Enabled = False
controltres.Enabled = True
controldos.Enabled = True
controluno.Enabled = True
controlpb.Enabled = True
controlss.Enabled = True
End Sub

Private Sub dos_Click()
auxiliar.Caption = Sqr(((ascensor.Top - 3000) / 600) ^ 2)
cuentapisos.Caption = Val(cuentapisos.Caption) + Val(auxiliar.Caption)
ascensor.Top = 3000
If ascensor.Top = 3000 Then
pcinco.Caption = "2"
pcuatro.Caption = "2"
ptres.Caption = "2"
pdos.Caption = "2"
puno.Caption = "2"
ppb.Caption = "2"
pss.Caption = "2"
pisos.Caption = "2"
End If
If ascensor.Top = 3000 Then
cdos.Caption = cdos.Caption + 1
End If
cinco.Enabled = True
cuatro.Enabled = True
tres.Enabled = True
dos.Enabled = False
uno.Enabled = True
pb.Enabled = True
ss.Enabled = True
controlcinco.Enabled = True
controlcuatro.Enabled = True
controltres.Enabled = True
controldos.Enabled = False
controluno.Enabled = True
controlpb.Enabled = True
controlss.Enabled = True
End Sub

Private Sub luz_Click()
If ascensor.BackColor = vbYellow Then
ascensor.BackColor = vbBlack
Else
ascensor.BackColor = vbYellow
End If
End Sub

Private Sub pb_Click()
auxiliar.Caption = Sqr(((ascensor.Top - 4200) / 600) ^ 2)
cuentapisos.Caption = Val(cuentapisos.Caption) + Val(auxiliar.Caption)
ascensor.Top = 4200
If ascensor.Top = 4200 Then
pcinco.Caption = "PB"
pcuatro.Caption = "PB"
ptres.Caption = "PB"
pdos.Caption = "PB"
puno.Caption = "PB"
ppb.Caption = "PB"
pss.Caption = "PB"
pisos.Caption = "PB"
End If
If ascensor.Top = 4200 Then
cpb.Caption = cpb.Caption + 1
End If
cinco.Enabled = True
cuatro.Enabled = True
tres.Enabled = True
dos.Enabled = True
uno.Enabled = True
pb.Enabled = False
ss.Enabled = True
controlcinco.Enabled = True
controlcuatro.Enabled = True
controltres.Enabled = True
controldos.Enabled = True
controluno.Enabled = True
controlpb.Enabled = False
controlss.Enabled = True
End Sub

Private Sub pcinco_Click()
If ascensor.Top = 1200 Then
pcinco.Caption = "5"
Else
If ascensor.Top = 1800 Then
pcinco.Caption = "4"
Else
If ascensor.Top = 2400 Then
pcinco.Caption = "3"
Else
If ascensor.Top = 3000 Then
pcinco.Caption = "2"
Else
If ascensor.Top = 3600 Then
pcinco.Caption = "1"
Else
If ascensor.Top = 4200 Then
pcinco.Caption = "PB"
Else
If ascensor.Top = 4800 Then
pcinco.Caption = "SS"
Else
End If
End If
End If
End If
End If
End If
End If
End Sub

Private Sub reiniciar_Click()
ccinco.Caption = "0"
ccuatro.Caption = "0"
ctres.Caption = "0"
cdos.Caption = "0"
cuno.Caption = "0"
cpb.Caption = "0"
css.Caption = "0"
total.Caption = "0"
cinco.Enabled = True
cuatro.Enabled = True
tres.Enabled = True
dos.Enabled = True
uno.Enabled = True
pb.Enabled = True
ss.Enabled = True
End Sub

Private Sub ss_Click()
auxiliar.Caption = Sqr(((ascensor.Top - 4800) / 600) ^ 2)
cuentapisos.Caption = Val(cuentapisos.Caption) + Val(auxiliar.Caption)
ascensor.Top = 4800
If ascensor.Top = 4800 Then
pcinco.Caption = "SS"
pcuatro.Caption = "SS"
ptres.Caption = "SS"
pdos.Caption = "SS"
puno.Caption = "SS"
ppb.Caption = "SS"
pss.Caption = "SS"
pisos.Caption = "SS"
End If
If ascensor.Top = 4800 Then
css.Caption = css.Caption + 1
End If
cinco.Enabled = True
cuatro.Enabled = True
tres.Enabled = True
dos.Enabled = True
uno.Enabled = True
pb.Enabled = True
ss.Enabled = False
controlcinco.Enabled = True
controlcuatro.Enabled = True
controltres.Enabled = True
controldos.Enabled = True
controluno.Enabled = True
controlpb.Enabled = True
controlss.Enabled = False
End Sub

Private Sub stop_Click()
If cinco.Enabled = True Then
cinco.Enabled = False
cuatro.Enabled = False
tres.Enabled = False
dos.Enabled = False
uno.Enabled = False
pb.Enabled = False
ss.Enabled = False
contraseña.Enabled = False
controlcinco.Enabled = False
controlcuatro.Enabled = False
controltres.Enabled = False
controldos.Enabled = False
controluno.Enabled = False
controlpb.Enabled = False
controlss.Enabled = False
borrar.Enabled = False
reiniciar.Enabled = False
luz.Enabled = False
Else
If cinco.Enabled = False Then
cinco.Enabled = True
cuatro.Enabled = True
tres.Enabled = True
dos.Enabled = True
uno.Enabled = True
pb.Enabled = True
ss.Enabled = True
contraseña.Enabled = True
controlcinco.Enabled = True
controlcuatro.Enabled = True
controltres.Enabled = True
controldos.Enabled = True
controluno.Enabled = True
controlpb.Enabled = True
controlss.Enabled = True
borrar.Enabled = True
reiniciar.Enabled = True
luz.Enabled = True
End If
End If
End Sub

Private Sub total_Click()

End Sub

Private Sub tres_Click()
ascensor.Top = 2400
auxiliar.Caption = Sqr(((ascensor.Top - 2400) / 600) ^ 2)
cuentapisos.Caption = Val(cuentapisos.Caption) + Val(auxiliar.Caption)
If ascensor.Top = 2400 Then
pcinco.Caption = "3"
pcuatro.Caption = "3"
ptres.Caption = "3"
pdos.Caption = "3"
puno.Caption = "3"
ppb.Caption = "3"
pss.Caption = "3"
pisos.Caption = "3"
End If
If ascensor.Top = 2400 Then
ctres.Caption = ctres.Caption + 1
End If
cinco.Enabled = True
cuatro.Enabled = True
tres.Enabled = False
dos.Enabled = True
uno.Enabled = True
pb.Enabled = True
ss.Enabled = True
controlcinco.Enabled = True
controlcuatro.Enabled = True
controltres.Enabled = False
controldos.Enabled = True
controluno.Enabled = True
controlpb.Enabled = True
controlss.Enabled = True
End Sub

Private Sub uno_Click()
auxiliar.Caption = Sqr(((ascensor.Top - 3600) / 600) ^ 2)
cuentapisos.Caption = Val(cuentapisos.Caption) + Val(auxiliar.Caption)
ascensor.Top = 3600
If ascensor.Top = 3600 Then
pcinco.Caption = "1"
pcuatro.Caption = "1"
ptres.Caption = "1"
pdos.Caption = "1"
puno.Caption = "1"
ppb.Caption = "1"
pss.Caption = "1"
pisos.Caption = "1"
End If
If ascensor.Top = 3600 Then
cuno.Caption = cuno.Caption + 1
End If
cinco.Enabled = True
cuatro.Enabled = True
tres.Enabled = True
dos.Enabled = True
uno.Enabled = False
pb.Enabled = True
ss.Enabled = True
controlcinco.Enabled = True
controlcuatro.Enabled = True
controltres.Enabled = True
controldos.Enabled = True
controluno.Enabled = False
controlpb.Enabled = True
controlss.Enabled = True
End Sub

Ascensor 4 (por marto)

Private Sub Command1_Click()

End Sub

Private Sub Label1_Click()

End Sub

Private Sub cinco_Click()
ascensor.Top = 1200
If ascensor.Top = 1200 Then
pcinco.Caption = "5"
pcuatro.Caption = "5"
ptres.Caption = "5"
pdos.Caption = "5"
puno.Caption = "5"
ppb.Caption = "5"
pss.Caption = "5"
pisos.Caption = "5"
End If
End Sub

Private Sub controlcinco_Click()
If contraseña = "pepino" Then
ascensor.Top = 1200
pcinco.Caption = "5"
pcuatro.Caption = "5"
ptres.Caption = "5"
pdos.Caption = "5"
puno.Caption = "5"
ppb.Caption = "5"
pss.Caption = "5"
pisos.Caption = "5"
End If
End Sub

Private Sub controlcuatro_Click()
ascensor.Top = 1800
If ascensor.Top = 1800 Then
pcinco.Caption = "4"
pcuatro.Caption = "4"
ptres.Caption = "4"
pdos.Caption = "4"
puno.Caption = "4"
ppb.Caption = "4"
pss.Caption = "4"
pisos.Caption = "4"
End If
End Sub

Private Sub controldos_Click()
ascensor.Top = 3000
If ascensor.Top = 3000 Then
pcinco.Caption = "2"
pcuatro.Caption = "2"
ptres.Caption = "2"
pdos.Caption = "2"
puno.Caption = "2"
ppb.Caption = "2"
pss.Caption = "2"
pisos.Caption = "2"
End If
End Sub

Private Sub controlpb_Click()
ascensor.Top = 4200
If ascensor.Top = 4200 Then
pcinco.Caption = "PB"
pcuatro.Caption = "PB"
ptres.Caption = "PB"
pdos.Caption = "PB"
puno.Caption = "PB"
ppb.Caption = "PB"
pss.Caption = "PB"
pisos.Caption = "PB"
End If
End Sub

Private Sub controlss_Click()
ascensor.Top = 4800
If ascensor.Top = 4800 Then
pcinco.Caption = "SS"
pcuatro.Caption = "SS"
ptres.Caption = "SS"
pdos.Caption = "SS"
puno.Caption = "SS"
ppb.Caption = "SS"
pss.Caption = "SS"
pisos.Caption = "SS"
End If
End Sub

Private Sub controltres_Click()
ascensor.Top = 2400
If ascensor.Top = 2400 Then
pcinco.Caption = "3"
pcuatro.Caption = "3"
ptres.Caption = "3"
pdos.Caption = "3"
puno.Caption = "3"
ppb.Caption = "3"
pss.Caption = "3"
pisos.Caption = "3"
End If
End Sub

Private Sub controluno_Click()
ascensor.Top = 3600
If ascensor.Top = 3600 Then
pcinco.Caption = "1"
pcuatro.Caption = "1"
ptres.Caption = "1"
pdos.Caption = "1"
puno.Caption = "1"
ppb.Caption = "1"
pss.Caption = "1"
pisos.Caption = "1"
End If
End Sub

Private Sub cuatro_Click()
ascensor.Top = 1800
If ascensor.Top = 1800 Then
pcinco.Caption = "4"
pcuatro.Caption = "4"
ptres.Caption = "4"
pdos.Caption = "4"
puno.Caption = "4"
ppb.Caption = "4"
pss.Caption = "4"
pisos.Caption = "4"
End If
End Sub

Private Sub dos_Click()
ascensor.Top = 3000
If ascensor.Top = 3000 Then
pcinco.Caption = "2"
pcuatro.Caption = "2"
ptres.Caption = "2"
pdos.Caption = "2"
puno.Caption = "2"
ppb.Caption = "2"
pss.Caption = "2"
pisos.Caption = "2"
End If
End Sub

Private Sub luz_Click()
If ascensor.BackColor = vbYellow Then
ascensor.BackColor = vbBlack
Else
ascensor.BackColor = vbYellow
End If
End Sub

Private Sub pb_Click()
ascensor.Top = 4200
If ascensor.Top = 4200 Then
pcinco.Caption = "PB"
pcuatro.Caption = "PB"
ptres.Caption = "PB"
pdos.Caption = "PB"
puno.Caption = "PB"
ppb.Caption = "PB"
pss.Caption = "PB"
pisos.Caption = "PB"
End If
End Sub

Private Sub pcinco_Click()
If ascensor.Top = 1200 Then
pcinco.Caption = "5"
Else
If ascensor.Top = 1800 Then
pcinco.Caption = "4"
Else
If ascensor.Top = 2400 Then
pcinco.Caption = "3"
Else
If ascensor.Top = 3000 Then
pcinco.Caption = "2"
Else
If ascensor.Top = 3600 Then
pcinco.Caption = "1"
Else
If ascensor.Top = 4200 Then
pcinco.Caption = "PB"
Else
If ascensor.Top = 4800 Then
pcinco.Caption = "SS"
Else
End If
End If
End If
End If
End If
End If
End If
End Sub

Private Sub ss_Click()
ascensor.Top = 4800
If ascensor.Top = 4800 Then
pcinco.Caption = "SS"
pcuatro.Caption = "SS"
ptres.Caption = "SS"
pdos.Caption = "SS"
puno.Caption = "SS"
ppb.Caption = "SS"
pss.Caption = "SS"
pisos.Caption = "SS"
End If
End Sub

Private Sub stop_Click()
If cinco.Enabled = True Then
cinco.Enabled = False
cuatro.Enabled = False
tres.Enabled = False
dos.Enabled = False
uno.Enabled = False
pb.Enabled = False
ss.Enabled = False
contraseña.Enabled = False
controlcinco.Enabled = False
controlcuatro.Enabled = False
controltres.Enabled = False
controldos.Enabled = False
controluno.Enabled = False
controlpb.Enabled = False
controlss.Enabled = False
Else
If cinco.Enabled = False Then
cinco.Enabled = True
cuatro.Enabled = True
tres.Enabled = True
dos.Enabled = True
uno.Enabled = True
pb.Enabled = True
ss.Enabled = True
contraseña.Enabled = True
controlcinco.Enabled = True
controlcuatro.Enabled = True
controltres.Enabled = True
controldos.Enabled = True
controluno.Enabled = True
controlpb.Enabled = True
controlss.Enabled = True
End If
End If
End Sub

Private Sub tres_Click()
ascensor.Top = 2400
If ascensor.Top = 2400 Then
pcinco.Caption = "3"
pcuatro.Caption = "3"
ptres.Caption = "3"
pdos.Caption = "3"
puno.Caption = "3"
ppb.Caption = "3"
pss.Caption = "3"
pisos.Caption = "3"
End If
End Sub

Private Sub uno_Click()
ascensor.Top = 3600
If ascensor.Top = 3600 Then
pcinco.Caption = "1"
pcuatro.Caption = "1"
ptres.Caption = "1"
pdos.Caption = "1"
puno.Caption = "1"
ppb.Caption = "1"
pss.Caption = "1"
pisos.Caption = "1"
End If
End Sub

Ascensor 3 (por marto)

Private Sub Command1_Click()

End Sub

Private Sub Label1_Click()

End Sub

Private Sub ccinco_Click(Index As Integer)

End Sub

Private Sub cinco_Click()
ascensor.Top = 1200
If ascensor.Top = 1200 Then
pcinco.Caption = "5"
pcuatro.Caption = "5"
ptres.Caption = "5"
pdos.Caption = "5"
puno.Caption = "5"
ppb.Caption = "5"
pss.Caption = "5"
pisos.Caption = "5"
End If
End Sub

Private Sub controlcinco_Click()
If contraseña = "pepino" Then
ascensor.Top = 1200
pcinco.Caption = "5"
pcuatro.Caption = "5"
ptres.Caption = "5"
pdos.Caption = "5"
puno.Caption = "5"
ppb.Caption = "5"
pss.Caption = "5"
pisos.Caption = "5"
End If
End Sub

Private Sub controlcuatro_Click()
ascensor.Top = 1800
If ascensor.Top = 1800 Then
pcinco.Caption = "4"
pcuatro.Caption = "4"
ptres.Caption = "4"
pdos.Caption = "4"
puno.Caption = "4"
ppb.Caption = "4"
pss.Caption = "4"
pisos.Caption = "4"
End If
End Sub

Private Sub controldos_Click()
ascensor.Top = 3000
If ascensor.Top = 3000 Then
pcinco.Caption = "2"
pcuatro.Caption = "2"
ptres.Caption = "2"
pdos.Caption = "2"
puno.Caption = "2"
ppb.Caption = "2"
pss.Caption = "2"
pisos.Caption = "2"
End If
End Sub

Private Sub controlpb_Click()
ascensor.Top = 4200
If ascensor.Top = 4200 Then
pcinco.Caption = "PB"
pcuatro.Caption = "PB"
ptres.Caption = "PB"
pdos.Caption = "PB"
puno.Caption = "PB"
ppb.Caption = "PB"
pss.Caption = "PB"
pisos.Caption = "PB"
End If
End Sub

Private Sub controlss_Click()
ascensor.Top = 4800
If ascensor.Top = 4800 Then
pcinco.Caption = "SS"
pcuatro.Caption = "SS"
ptres.Caption = "SS"
pdos.Caption = "SS"
puno.Caption = "SS"
ppb.Caption = "SS"
pss.Caption = "SS"
pisos.Caption = "SS"
End If
End Sub

Private Sub controltres_Click()
ascensor.Top = 2400
If ascensor.Top = 2400 Then
pcinco.Caption = "3"
pcuatro.Caption = "3"
ptres.Caption = "3"
pdos.Caption = "3"
puno.Caption = "3"
ppb.Caption = "3"
pss.Caption = "3"
pisos.Caption = "3"
End If
End Sub

Private Sub controluno_Click()
ascensor.Top = 3600
If ascensor.Top = 3600 Then
pcinco.Caption = "1"
pcuatro.Caption = "1"
ptres.Caption = "1"
pdos.Caption = "1"
puno.Caption = "1"
ppb.Caption = "1"
pss.Caption = "1"
pisos.Caption = "1"
End If
End Sub

Private Sub cuatro_Click()
ascensor.Top = 1800
If ascensor.Top = 1800 Then
pcinco.Caption = "4"
pcuatro.Caption = "4"
ptres.Caption = "4"
pdos.Caption = "4"
puno.Caption = "4"
ppb.Caption = "4"
pss.Caption = "4"
pisos.Caption = "4"
End If
End Sub

Private Sub dos_Click()
ascensor.Top = 3000
If ascensor.Top = 3000 Then
pcinco.Caption = "2"
pcuatro.Caption = "2"
ptres.Caption = "2"
pdos.Caption = "2"
puno.Caption = "2"
ppb.Caption = "2"
pss.Caption = "2"
pisos.Caption = "2"
End If
End Sub

Private Sub luz_Click()
If ascensor.BackColor = vbYellow Then
ascensor.BackColor = vbBlack
Else
ascensor.BackColor = vbYellow
End If
End Sub

Private Sub pb_Click()
ascensor.Top = 4200
If ascensor.Top = 4200 Then
pcinco.Caption = "PB"
pcuatro.Caption = "PB"
ptres.Caption = "PB"
pdos.Caption = "PB"
puno.Caption = "PB"
ppb.Caption = "PB"
pss.Caption = "PB"
pisos.Caption = "PB"
End If
End Sub

Private Sub pcinco_Click()
If ascensor.Top = 1200 Then
pcinco.Caption = "5"
Else
If ascensor.Top = 1800 Then
pcinco.Caption = "4"
Else
If ascensor.Top = 2400 Then
pcinco.Caption = "3"
Else
If ascensor.Top = 3000 Then
pcinco.Caption = "2"
Else
If ascensor.Top = 3600 Then
pcinco.Caption = "1"
Else
If ascensor.Top = 4200 Then
pcinco.Caption = "PB"
Else
If ascensor.Top = 4800 Then
pcinco.Caption = "SS"
Else
End If
End If
End If
End If
End If
End If
End If
End Sub

Private Sub ss_Click()
ascensor.Top = 4800
If ascensor.Top = 4800 Then
pcinco.Caption = "SS"
pcuatro.Caption = "SS"
ptres.Caption = "SS"
pdos.Caption = "SS"
puno.Caption = "SS"
ppb.Caption = "SS"
pss.Caption = "SS"
pisos.Caption = "SS"
End If
End Sub

Private Sub stop_Click()
If cinco.Enabled = True Then
cinco.Enabled = False
cuatro.Enabled = False
tres.Enabled = False
dos.Enabled = False
uno.Enabled = False
pb.Enabled = False
ss.Enabled = False
contraseña.Enabled = False
controlcinco.Enabled = False
controlcuatro.Enabled = False
controltres.Enabled = False
controldos.Enabled = False
controluno.Enabled = False
controlpb.Enabled = False
controlss.Enabled = False
Else
If cinco.Enabled = False Then
cinco.Enabled = True
cuatro.Enabled = True
tres.Enabled = True
dos.Enabled = True
uno.Enabled = True
pb.Enabled = True
ss.Enabled = True
contraseña.Enabled = True
controlcinco.Enabled = True
controlcuatro.Enabled = True
controltres.Enabled = True
controldos.Enabled = True
controluno.Enabled = True
controlpb.Enabled = True
controlss.Enabled = True
End If
End If
End Sub

Private Sub tres_Click()
ascensor.Top = 2400
If ascensor.Top = 2400 Then
pcinco.Caption = "3"
pcuatro.Caption = "3"
ptres.Caption = "3"
pdos.Caption = "3"
puno.Caption = "3"
ppb.Caption = "3"
pss.Caption = "3"
pisos.Caption = "3"
End If
End Sub

Private Sub uno_Click()
ascensor.Top = 3600
If ascensor.Top = 3600 Then
pcinco.Caption = "1"
pcuatro.Caption = "1"
ptres.Caption = "1"
pdos.Caption = "1"
puno.Caption = "1"
ppb.Caption = "1"
pss.Caption = "1"
pisos.Caption = "1"
End If
End Sub

Ascensor 2 (por marto)

Private Sub L1_Click()ascensor.Top = 4680End Sub
Private Sub L2_Click()ascensor.Top = 3720End Sub
Private Sub L3_Click()ascensor.Top = 2640End Sub
Private Sub L4_Click()ascensor.Top = 1560End Sub
Private Sub L5_Click()If contraseña = "hola" Thenascensor.Top = 480End IfEnd Sub

Private Sub llamar1_Click()ascensor.Top = 4680End Sub
Private Sub llamarcinco_Click()If contraseña = "hola" Thenascensor.Top = 480End IfEnd Sub
Private Sub llamarcuatro_Click()ascensor.Top = 1560End Sub
Private Sub llamardos_Click()ascensor.Top = 3720End Sub
Private Sub llamarpb_Click()ascensor.Top = 5640End Sub
Private Sub llamarss_Click()ascensor.Top = 6480End Sub
Private Sub llamartres_Click()ascensor.Top = 2640End Sub
Private Sub LPB_Click()ascensor.Top = 5640End Sub
Private Sub LSS_Click()ascensor.Top = 6480End Sub
Private Sub luz_Click()If ascensor.FillColor = vbBlack Thenascensor.FillColor = vbWhiteElseIf ascensor.FillColor = vbWhite Thenascensor.FillColor = vbBlack
End If
End IfEnd Sub
Private Sub stop_Click()If llamar1.Enabled = True Thenllamar1.Enabled = Falsellamardos.Enabled = Falsellamartres.Enabled = Falsellamarcuatro.Enabled = Falsellamarcinco.Enabled = Falsellamarss.Enabled = Falsellamarpb.Enabled = FalseL1.Enabled = FalseL2.Enabled = FalseL3.Enabled = FalseL4.Enabled = FalseL5.Enabled = FalseLPB.Enabled = FalseLSS.Enabled = Falseluz.Enabled = Falsell1.Enabled = Falsell2.Enabled = Falsell3.Enabled = Falsell4.Enabled = Falsell5.Enabled = Falsellss.Enabled = Falsellpb.Enabled = FalseElsellamar1.Enabled = Truellamardos.Enabled = Truellamartres.Enabled = Truellamarcuatro.Enabled = Truellamarcinco.Enabled = Truellamarss.Enabled = Truellamarpb.Enabled = TrueL1.Enabled = TrueL2.Enabled = TrueL3.Enabled = TrueL4.Enabled = TrueL5.Enabled = TrueLPB.Enabled = TrueLSS.Enabled = Trueluz.Enabled = Truell1.Enabled = Truell2.Enabled = Truell3.Enabled = Truell4.Enabled = Truell5.Enabled = Truellss.Enabled = Truellpb.Enabled = TrueEnd If
End Sub

Ascensor 1 (por marto )

Private Sub Command1_Click(Index As Integer)

End Sub

Private Sub Label1_Click()

End Sub

Private Sub cinco_Click(Index As Integer)
ascensor.Top = 1200
End Sub

Private Sub controlcinco_Click()
If contraseña = "pepino" Then
ascensor.Top = 1200
End If
End Sub

Private Sub controlcuatro_Click()
ascensor.Top = 1800
End Sub

Private Sub controldos_Click()
ascensor.Top = 3000
End Sub

Private Sub controlpb_Click()
ascensor.Top = 4200
End Sub

Private Sub controlss_Click()
ascensor.Top = 4800
End Sub

Private Sub controltres_Click()
ascensor.Top = 2400
End Sub

Private Sub controluno_Click()
ascensor.Top = 3600
End Sub

Private Sub cuatro_Click(Index As Integer)
ascensor.Top = 1800
End Sub

Private Sub dos_Click(Index As Integer)
ascensor.Top = 3000
End Sub

Private Sub pb_Click(Index As Integer)
ascensor.Top = 4200
End Sub

Private Sub ss_Click(Index As Integer)
ascensor.Top = 4800
End Sub

Private Sub tres_Click(Index As Integer)
ascensor.Top = 2400
End Sub

Private Sub uno_Click(Index As Integer)
ascensor.Top = 3600
End Sub

semana 29 (por marto)

Bang & Olufsen BeoSound 5, un servidor musical a precio de lujo

Publicado por Redacción el 18 de Noviembre del 2008

El BeoSound 5 reúne todas las características fundamentales en un producto de Bang & Olufsen. Al igual que otras referencias de la firma, este servidor musical se presenta en sociedad con un diseño distinguido, con ese toque de elitismo que tanto les gusta. Y un precio desorbitado que, además de quitar el hipo a cualquiera, no se corresponde del todo con lo que ofrece. Que tampoco es nada del otro mundo, por cierto.

elegi este articulo por que me gusta el diseño
para saber mas

MSR-H01, una araña robot fácil de montar

Publicado por Borja Gil el 18 de Noviembre del 2008

Montar tú mismo un robot casero puede parecer complicado. Sobre todo si se trata de un modelo de seis patas, como este MSR-H01 de la compañía Micromagic Systems. Y para terminar de rizar el rizo, la cosa se complica del todo si ¡ni siquiera incluye las instrucciones de montaje! Pero no hay que alarmarse. Las indicaciones para ensamblar las piezas de esta araña robótica sólo están disponibles en la web para abaratar costes. Basta con seguir las instrucciones de los dibujos para darse cuenta de que, en realidad, no es para tanto.

elegi este articulo por que es un invento muy bueno
para saber mas

Flapping display. Samsung presenta una pantalla OLED de 0,05 milímetros de grosor

Publicado el 10 de Noviembre del 2008

Es una pantalla de cuatro pulgadas con sólo 0,05 milímetros de grosor. Se llama “Flapping display” emplea la tecnología OLED y la ha presentado la firma Samsung en la FDP International 2008 (feria que se celebra en Yokohama, Japón).

La noticia es que esta corporación coreana ha sido capaz de fabricar una de las pantallas flexibles más delgadas del mundo. Tiene el mismo grosor cinco folios juntos. El panel OLED es tan fino que podríamos moverlo con el aire que produce un simple ventilador, como si fuera una cartulina.

elegi este articulo por que es un diseño bueno
para saber mas

semana 28 (por marto)

Sartén con termómetro en el mango

Publicado el 19 de Noviembre del 2008

Este es el invento que todos los aficionados a la cocina han deseado tener alguna vez: una sartén con termómetro incorporado. Pese a tratarse de un accesorio sencillo (incluso de sentido común en algunas ocasiones), hasta ahora sólo aparecían por la cocina en modelos lujosos de barbacoas tecnológicas. Suerte que los chicos de ThinkGeek nos ofrecen ahora esta Digital Thermometer Pan, para que no se nos quemen las tortillas nunca más.

elegi este articulo por que es muy practico la idea
para saber mas

Una mariquita que amplia las conexiones USB del PC

Publicado el de Noviembre del 2008
La tienda online Gadget4all vuelve a la carga con un nuevo gadget disfrazado de mariquita. Si no tuvimos bastante con el ratón mariquita, ahora nos sorprenden con este hub USB. Gracias a él expandiremos las conexiones de este tipo en nuestro ordenador, a costa de su aspecto alegre y risueño. Ni que decir tiene que esta USB Ladybird 4-Port Hub está indicada para niños de corta edad.

elegi este articulo por que es un buen diseño
para saber mas

La publicidad por Internet en España crece un 40% a pesar de la crisis

Publicado el 18 de Noviembre del 2008

La publicidad por Internet en España crece un 40% a pesar de la crisis

Publicado por Redacción el 18 de Noviembre del 2008

La crisis afecta a muchos sectores, entre ellos el publicitario. Pero, por el momento, Internet resiste el estancamiento general de las inversiones. Y es que durante la primera mitad de 2008 los anunciantes han invertido un 39,46% más en Internet que durante el mismo periodo del año pasado. En total, durante los seis primeros meses del año la inversión en publicidad online en España asciende a 307,24 millones de euros, según la Interactive Advertising Bureau (IAB)

elegi este articulo por que me interesaron las cifras

para saber mas

semana 27 (por marto)

Google lanza un buscador con más de 10 millones de fotos de la revista Life

Publicado el 19 de Noviembre del 2008
Podríamos debatir durante horas si es cierto o no el viejo dicho de que una imagen vale más que mil palabras. Pero estaremos todos de acuerdo en que una buena foto hecha en el momento justo puede simbolizar grandes acontecimientos de la Historia. Es lo que sucede en la imagen superior, en la que el fotógrafo Preston Keres captó a un bombero neoyorquino pidiendo apoyo a los equipos de rescate, sólo cuatro días después del atentado contra las Torre Gemelas del 11 de septiembre de 2001.

elegi este articulo por que esta bueno saberlo
para saber mas

Walking Assist Device. Honda renueva su asistente robótico para caminar

Publicado el 19 de Noviembre del 2008

El asistente robótico para caminar de Honda ya tiene una nuevo compañero. La compañía japonesa ya enseñó su primer modelo del Walking Assist Device en abril de este mismo año. Ahora, unos meses después, anuncian esta nueva versión. Las diferencias con respecto al anterior no son sólo en su diseño, sino también en su misión. En lugar de personas con problemas para caminar, este exoesqueleto está destinado a trabajadores que sí pueden andar como cualquier otra persona.

elegi este articulo porm que me gusta la idea
para saber mas

HTC Touch HD - A fondo

Publicado el 19 de Noviembre del 2008

Grandes argumentos a favor y en contra. Es la forma más sencilla en la que podemos resumir nuestras impresiones sobre el HTC Touch HD, el último teléfono táctil que llega al mercado español, y a cuya presentación oficial pudimos asistir ayer martes en Madrid. Y curiosamente, algunos de estos aciertos e inconvenientes están juntos en un mismo elemento: la pantalla. Empecemos por lo bueno: tiene la pantalla más grande y de mayor resolución montada hasta la fecha en un teléfono, algo que se agradece mucho en todo equipo que se maneja aplicando el dedo sobre su superficie.

elegi este articulo por que me gusta el diseño
para saber mas

semana 26 (por marto)

Electric Drum Kit Shirt, la camiseta con más ritmo

Publicado el 16 de Octubre del 2008

¿Eres de los que siempre llevan el ritmo en el cuerpo? Pues esta prenda te vendrá fenomenal. La Electric Drum Kit Shirt es una camiseta con un panel electrónico que sirve para tocar la batería. Es un complemento de lo más original, con el que además podrás seguir el compás sin recurrir a tamborilear sobre la mesa con los dedos. O lo que es más peligroso, golpear las copas de vino con los cubiertos.

elegi este ariculo por que me parecio un buen diseño y un articulo muy interesantes para los amantes del rock

para saber mas

La PSP 3000 llega al mercado con una actualización bajo el brazo

Publicado el 16 de Octubre del 2008

Tal y como os contamos en nuestro especial sobre el Tokyo Game Show 2008, desde ayer está en las tiendas españolas la PSP 3000, la nueva PSP con pantalla antireflejos y micrófono integrado. Llega con un precio de 200 euros y acompañada de un juego (PlayChapas Football Edition) y una película (Iron Man). Al mismo tiempo, Sony ha lanzado una nueva actualización de prestaciones que puede descargarse de forma gratuita.

elegi este articulo por que la psp es algo que me gustaria tener y aparte con la nueva actualizacion

para saber mas

Windows 7 se llamará Windows 7

Publicado por Redacción el 16 de Octubre del 2008


Puede parecer un titular absurdo. Pero sí, el próximo sistema operativo de Microsoft se llamará, definitiva y oficialmente, WIndows 7. Así lo afirma Mike Nash, jefe de producto de Windows y vicepresidente de Microsoft, en esta entrada del blog oficial del equipo de desarrollo de Windows Vista. “Ésta es la séptima versión de Windows, por lo tanto Windows 7 tiene sentido”, afirma Nash siguiendo una lógica aplastante.

elegi ese articulo por que esta bueno saber que va a salir un nuevo windows y q se llamara windows 7

para saber mas

semana 25 (por marto)

Crea tu base dock para el iPhone con unos clips de oficina

Publicado el 7 de Octubre del 2008

El material de oficina puede tener usos muy diversos. En lugar de arrojarlos contra los compañeros de trabajo cuando estás aburrido, puedes fabricarte tu propia base para el iPod o el iPhone con sólo un puñado de clips de carpeta y un cable USB que tenga conexión compatible para el dispositivo en cuestión. Para ello, sólo tienes que seguir las instrucciones del vídeo que el usuario gizak ha colgado en YouTube. Un tutorial al estilo de las manualidades de los programas infantiles de la tele, cuyos pasos puedes seguir con facilidad.
elegi este articulo por que me parecio muy practico
para sabe mas

Ya está aquí la nueva versión beta de Hotmail

Publicado el 7 de Octubre del 2008

Hotmail se renueva. El servicio gratuito de correo electrónico de Microsoft estrena nueva versión. Aunque no está al alcance de todos. De modo aleatorio, Microsoft ofrece a algunos usuarios la posibilidad de probar la nueva versión y así di sfrutar por adelantado de sus novedades. Aunque, uno de los principales cambios todavía no está operativo. Se trata de la integración del servicio de mensajería instantánea Messenger en la misma página de Hotmail. Sin abrir un programa ni unas ventanas aparte. A pesar de esto, la mayoría de los cambios ya son visibles para quienes han accedido a la nueva beta. Unos cambios con los que Microsoft intenta frenar la creciente competencia de Google y su servicio de correo electrónico gratuito Gmail.
elegi este articulo por que me gusto el diseño de la nueva version
para saber mas

Bend Mobile, móvil conceptual con dos pantallas

Publicado el 4 de Octubre del 2008

Su singular forma de petaca es sólo una de las peculiaridade s que presenta este atractivo teléfono móvil conceptual. El Bend Mobile diseñado por el creativo Andy Kurovets destaca también por disponer de dos pantallas para aumentar la superficie visible del terminal. Y encima está equipado con una cámara de fotos muy destacable.

elegi este articulo por que me encanto el diseño
para saber mas

semana 24 (por marto)

Nokia E71 - A fondo

Publicado el 7 de Octubre del 2008
Es delgado, elegante y con teclado completo. El Nokia E71 incluye las funciones típicas de un teléfono profesional manteniendo un diseño bastante delgado para los de su clase, con sólo 1 cm de grosor y 127 gramos de peso. Un móvil bien conectado y con una autonomía satisfactoria. Sólo una pega. La ventaja de tener un teclado QWERTY se ve empañada por el inevitable tamaño de las teclas que, lógicamente, son difíciles de manejar con los pulgares.
elegi este articulo por que meparecio un buen articulo
para saber mas

SER Digital - Internet en el móvil

Publicado el 7 de Octubre del 2008
Hablar de Internet en España supone hablar de ciberdespacio. Tenemos uno de los servicios de banda ancha más caros y lentos de Europa. Y, para colmo, los proveedores de acceso a la Red sólo se comprometen a brindarnos el 10% de la velocidad que ofertan en su publicidad. Con estas cifras, es normal que tengamos una de las tasas de penetración de banda ancha más bajas de Europa.
elegi este articulo por que me gusaria ener uno de esos
para saber mas

SPC Internet 0911, disco duro multimedia económico y de gran capacidad

Publicado el 7 de Octubre del 2008

Hoy en día muchos de los vídeos que vemos los descargamos de Internet. Pero aunque los ordenadores traigan pantallas cada vez más grandes, la mayoría sigue prefiriendo la tele del salón para tumbarse a ver una película. Para eso están los discos duros multimedia, como este SPC Internet 0911. Un reproductor sencillito, económico y con hasta 1 TeraByte de almacenamiento. Espacio suficiente para unas 1.700 películas en formato DivX.

elegi este articulo por que me guso lo que inventaron
para saber mas

Calculadora 3 (por marto)

Private Sub Borrrar_Click()
pantalla.Caption = ""
aux.Caption = ""
aux2.Caption = ""
End Sub
Private Sub cero_Click()
pantalla.Caption = pantalla.Caption + "0"
End Sub
Private Sub cinco_Click()
pantalla.Caption = pantalla.Caption + "5"
End Sub
Private Sub coma_Click()
pantalla.Caption = pantalla.Caption + "."
coma.Enabled = False
End Sub
Private Sub cuatro_Click()
pantalla.Caption = pantalla.Caption + "4"
End Sub
Private Sub dividido_Click()
aux.Caption = pantalla.Caption
aux2.Caption = "/"
pantalla.Caption = ""
coma.Enabled = True
End Sub
Private Sub dos_Click()
pantalla.Caption = pantalla.Caption + "2"
End Sub
Private Sub igual_Click()
If aux2.Caption = "+" Then
pantalla.Caption = Val(aux.Caption) + Val(pantalla.Caption)
End If
If aux2.Caption = "-" Then
pantalla.Caption = Val(aux.Caption) - Val(pantalla.Caption)
End If
If aux2.Caption = "*" Then
pantalla.Caption = Val(aux.Caption) * Val(pantalla.Caption)
End If
If aux2.Caption = "/" Then
pantalla.Caption = Val(aux.Caption) / Val(pantalla.Caption)
End If
If aux2.Caption = "%" Then
pantalla.Caption = Val(aux.Caption) * 100 / Val(pantalla.Caption)
End If
aux.Caption = ""
aux2.Caption = ""
coma.Enabled = True
End Sub
Private Sub mas_Click()
aux.Caption = pantalla.Caption
pantalla.Caption = ""
aux2.Caption = "+"
coma.Enabled = True
End Sub
Private Sub masmenos_Click()
pantalla.Caption = pantalla.Caption * -1
End Sub
Private Sub menos_Click()
aux.Caption = pantalla.Caption
aux2.Caption = "-"
pantalla.Caption = ""
coma.Enabled = True
End Sub
Private Sub nueve_Click()
pantalla.Caption = pantalla.Caption + "9"
End Sub
Private Sub ocho_Click()
pantalla.Caption = pantalla.Caption + "8"
End Sub
Private Sub por_Click()
aux.Caption = pantalla.Caption
aux2.Caption = "*"
pantalla.Caption = ""
coma.Enabled = True
End Sub
Private Sub porcentaje_Click()
aux.Caption = pantalla.Caption
aux2 = "%"
pantalla.Caption = ""
End Sub
Private Sub raiz_Click()
If Val(pantalla.Caption) > -1 Then
pantalla.Caption = Sqr(pantalla.Caption)
Else
pantalla.Caption = "error"
End If
End Sub
Private Sub seis_Click()
pantalla.Caption = pantalla.Caption + "6"
End Sub
Private Sub siete_Click()
pantalla.Caption = pantalla.Caption + "7"
End Sub
Private Sub tres_Click()
pantalla.Caption = pantalla.Caption + "3"
End Sub
Private Sub uno_Click()
pantalla.Caption = pantalla.Caption + "1"
End Sub
Private Sub unodividido_Click()
pantalla.Caption = 1 / Val(pantalla.Caption)
End Sub

Calculadora 2 (por marto)

Private Sub Borrrar_Click()
pantalla.Caption = ""
aux.Caption = ""
aux2.Caption = ""
End Sub
Private Sub cero_Click()
pantalla.Caption = pantalla.Caption + "0"
End Sub
Private Sub cinco_Click()
pantalla.Caption = pantalla.Caption + "5"
End Sub
Private Sub coma_Click()
pantalla.Caption = pantalla.Caption + "."

End Sub
Private Sub cuatro_Click()
pantalla.Caption = pantalla.Caption + "4"
End Sub
Private Sub dividido_Click()
aux.Caption = pantalla.Caption
aux2.Caption = "/"
pantalla.Caption = ""
End Sub
Private Sub dos_Click()
pantalla.Caption = pantalla.Caption + "2"
End Sub
Private Sub igual_Click()
If aux2.Caption = "+" Then
pantalla.Caption = Val(aux.Caption) + Val(pantalla.Caption)
End If
If aux2.Caption = "-" Then
pantalla.Caption = Val(aux.Caption) - Val(pantalla.Caption)
End If
If aux2.Caption = "*" Then
pantalla.Caption = Val(aux.Caption) * Val(pantalla.Caption)
End If
If aux2.Caption = "/" Then
pantalla.Caption = Val(aux.Caption) / Val(pantalla.Caption)
End If
If aux2.Caption = "%" Then
pantalla.Caption = Val(aux.Caption) * 100 / Val(pantalla.Caption)
End If
aux.Caption = ""
aux2.Caption = ""
End Sub
Private Sub mas_Click()
aux.Caption = pantalla.Caption
pantalla.Caption = ""
aux2.Caption = "+"
End Sub
Private Sub menos_Click()
aux.Caption = pantalla.Caption
aux2.Caption = "-"
pantalla.Caption = ""
End Sub
Private Sub nueve_Click()
pantalla.Caption = pantalla.Caption + "9"
End Sub
Private Sub ocho_Click()
pantalla.Caption = pantalla.Caption + "8"
End Sub
Private Sub por_Click()
aux.Caption = pantalla.Caption
aux2.Caption = "*"
pantalla.Caption = ""
End Sub
Private Sub porcentaje_Click()
aux.Caption = pantalla.Caption
aux2 = "%"
pantalla.Caption = ""
End Sub
Private Sub raiz_Click()
pantalla.Caption = Sqr(pantalla.Caption)
End Sub
Private Sub seis_Click()
pantalla.Caption = pantalla.Caption + "6"
End Sub
Private Sub siete_Click()
pantalla.Caption = pantalla.Caption + "7"
End Sub
Private Sub tres_Click()
pantalla.Caption = pantalla.Caption + "3"
End Sub
Private Sub uno_Click()
pantalla.Caption = pantalla.Caption + "1"
End Sub
Private Sub unodividido_Click()
pantalla.Caption = 1 / Val(pantalla.Caption)
End Sub

calculadora (por marto)

Private Sub Borrrar_Click()
pantalla.Caption = ""
aux.Caption = ""
aux2.Caption = ""
End Sub
Private Sub cero_Click()
pantalla.Caption = pantalla.Caption + "0"
End Sub
Private Sub cinco_Click()
pantalla.Caption = pantalla.Caption + "5"
End Sub
Private Sub coma_Click()
pantalla.Caption = pantalla.Caption + ","
End Sub
Private Sub cuatro_Click()
pantalla.Caption = pantalla.Caption + "4"
End Sub
Private Sub dividido_Click()
aux.Caption = pantalla.Caption
aux2.Caption = "/"
pantalla.Caption = ""
End Sub
Private Sub dos_Click()
pantalla.Caption = pantalla.Caption + "2"
End Sub
Private Sub igual_Click()
If aux2.Caption = "+" Then
pantalla.Caption = Val(aux.Caption) + Val(pantalla.Caption)
End If
If aux2.Caption = "-" Then
pantalla.Caption = Val(aux.Caption) - Val(pantalla.Caption)
End If
If aux2.Caption = "*" Then
pantalla.Caption = Val(aux.Caption) * Val(pantalla.Caption)
End If
If aux2.Caption = "/" Then
pantalla.Caption = Val(aux.Caption) / Val(pantalla.Caption)
End If
aux.Caption = ""
aux2.Caption = ""
End Sub
Private Sub mas_Click()
aux.Caption = pantalla.Caption
pantalla.Caption = ""
End Sub
Private Sub menos_Click()
aux.Caption = pantalla.Caption
aux2.Caption = "-"
pantalla.Caption = ""
End Sub
Private Sub nueve_Click()
pantalla.Caption = pantalla.Caption + "9"
End Sub
Private Sub ocho_Click()
pantalla.Caption = pantalla.Caption + "8"
End Sub
Private Sub por_Click()
aux.Caption = pantalla.Caption
aux2.Caption = "*"
pantalla.Caption = ""
End Sub
Private Sub seis_Click()
pantalla.Caption = pantalla.Caption + "6"
End Sub
Private Sub siete_Click()
pantalla.Caption = pantalla.Caption + "7"
End Sub
Private Sub tres_Click()
pantalla.Caption = pantalla.Caption + "3"
End Sub
Private Sub uno_Click()
pantalla.Caption = pantalla.Caption + "1"
End Sub

semana 23 (por marto)

Flee, una cámara de fotos arrojadiza

Publicado el 6 de Agosto del 2008

Parece una pelota de badminton, pero Flee es en realidad una cámara de fotos arrojadiza. Ideada por el diseñador turco Hakan Bogazpinar, este concepto incluiría un sensor CCD, una pequeña lente, una batería, un dispositivo de almacenamiento para las fotos y un módulo Bluetooth para enviarlas instantáneamente y sin cables al móvil. Sólo habría que programarla con su mando a distancia para disparar el número de fotos deseado durante el número de segundos deseado y arrojarla en la dirección deseada.

elegi este ariculo por que es un buen imvento
para saber mas

iPig, un cerdito para cargar la batería y amplificar la música del iPod

Publicado el 20 de Septiembre del 2008

Los cerditos son animales muy graciosos que ya han pegado fuerte en casi todos los gadgets tecnológicos. Desde auriculares hasta el Pig Phone, pasando por unos geniales altavoces. Hoy queremos poner otra nota porcina presentando iPig, una base para amplificar el iPod, que no tiene desperdicio. Creada por la firma Speakal, posiblemente sea el dock más divertido que hemos presentado hasta el momento, especialmente indicado para amantes de la granja y del jamón

elegi este articulo por que es un diseño muy bueno

para saber mas

iStik, para llevar pegado el iPod al cuerpo

Publicado el 12 de Septiembre del 2008

Este iStik es el invento típico para los adictos al iPod. Una inganiosa placa con imanes que nos permite llevarlo siempre pegado a la ropa. El dispositivo usa ocho imanes Neodynium de extrema acción magnética para mantener el iPod adherido a tu ropa. No se cae aunque balemos, hagamos deporte o peqguemos unos saltos increíbles…

elegi este articulo por que es muy practico
para saber mas

semana 22 (por marto)

Vodafone lanza una oferta que combina ADSL con Internet móvil

Publicado por Borja Gil el 25 de Septiembre del 2008

La operadora Vodafone acaba de anunciar su propio servicio de ADSL para particulares, precisamente bajo el nombre de Vodafone ADSL. Una oferta que llama la atención por incluir tanto un router Wi-Fi como un módem USB en el paquete inicial. Y es gracias a ese módem que el usuario podrá disfrutar de Internet móvil cuando se encuentre fuera de casa, a un coste bastante razonable.

elegi este ariculo por que es una gran conbinacion
para saber mas

Samsung Armani Night Effect, un móvil musical y juvenil - A fondo

Publicado por Lucas Laó el 24 de Septiembre del 2008

Samsung y Armani siguen llevándose bien. Al menos en lo que a lanzar móviles como marca conjunta se refiere. Pero en esta ocasión cambian de registro y de público. Tras el Samsung Giorgio Armani, una “pitillera táctil” destinada a un público más bien elitista, ahora se decantan por seducir a un sector más joven. Hablamos del Samsung Armani Night Effect M7500, un teléfono de tipo tableta, delgado, colorido y con efectos de iluminación inspirados, según Armani, en las luces nocturnas de Tokyo.

elegi este articulo por que me gusto el diseño
para saber mas

Compact Fashion, una cámara de bolsillo muy enrollada

Publicado por Redacción el 18 de Septiembre del 2008

Con tanto gadget tecnológico, ya no cabe nada más en nuestros bolsillos. Y es que con el móvil, la PDA, la cámara y el MP3, no hay sitio para nada. Es por eso que alguien tuvo la brillante idea de reducir el tamaño de los aparatos y empezó por la cámara fotográfica. La han llamado Compact Fashion Camera, es casi tan fina como un trozo de papel y puede enrollarse hasta parecer un pintalabios. Aunque todavía es un concepto, es muy probable que la firma Curventa se atreva a ponerla a danzar en el mercado tecnológico.

elegi este articulo por que me gusto el diseño
para saber mas

semana 21 (por marto)

Nokia N96, ya está en las tiendas el buque insignia de Nokia

Publicado el 25 de Septiembre del 2008
Al igual que hiciera con el iPhone, Telefónica se ha reservado la exclusiva del lanzamiento del Nokia N96 en España. Mucho se habla y se escribe sobre el terminal táctil de Apple, pero a este móvil “todo en uno” que llega el 1 de octubre a nuestro país tampoco le van a faltar novias. No olvidemos que se trata de un terminal que lleva todas las funciones pero con unas características técnicas mucho mejores que el terminal de Apple. Basta decir que lleva una cámara de fotos de muy buena calidad (5 megapíxeles y óptica Karl Zeiss) mientras que la del iPhone apenas tiene 2 megapíxeles. O, por ejemplo, el N96 lleva GPS completo mientras que el móvil de Apple sólo muestra mapas. De cualquier forma, con este modelo de la firma finlandesa Movistar sigue la política de precios controlados a cambio de cuotas mensuales y lanzan el Nokia N96 a 310 euros.

elegi este articulo por que me gusto el diseño
para saber mas

Unas gafas de sol muy multimedia

Publicado el 25 de Septiembre del 2008

Estas gafas de sol que venden en ThinkGeek reúnen en un sólo producto prestaciones parecidas a las de otros dos modelos de los que ya os hemos hablado. Como las gafas espía, llevan una cámara incorporada en la montura, aunque en este caso sólo sirve para hacer fotos. Y al igual que las gafas de Chinavasion, incluyen dos auriculares para escuchar música, pero en lugar de recibir las canciones sin cables, tiene un reproductor MP3 integrado con 1 GB de capacidad.

elegi este articulo por que tiene mucha ecnologuia estas gafas
para sabe mas

El 35% de los usuarios sustituye Windows Vista por Windows XP

Publicado por Borja Gil el 25 de Septiembre del 2008

Windows Vista sigue abriéndose paso, pero a marchas forzadas. Ahora es un nuevo estudio, realizado por Devil Mountain Software, el que afirma que hasta un 35% de los ordenadores con Windows Vista se sustituyen por el anterior Windows XP. Para realizar este sondeo, que se ha llevado a cabo a través de la comunidad de xpnet, se han analizado más de 3.000 ordenadores.

elegi este articulo por que es un gran porsentaje

para saber mas

Private Sub Label1_Click()

Private Sub Anterior_Click()
NroCanal.Caption = Auxiliar2.Caption
Auxiliar2.Caption = auxiliar3.Caption
Auxiliar2.Caption = NroCanal.Caption
auxiliar3.Caption = Auxiliar2.Caption
NroCanal.Caption = Auxiliar2.Caption

End Sub

Private Sub CATV_Click()
Tvcatv.Caption = "CATV"
End Sub

Private Sub catvtv_Click()
If Tvcatv.Caption = "TV" Then
Tvcatv.Caption = "CATV"
Else
Tvcatv.Caption = "TV"
End If
End Sub

Private Sub Cero_Click()
auxiliar.Caption = auxiliar.Caption + "0"
End Sub

Private Sub Cinco_Click()
auxiliar.Caption = auxiliar.Caption + "5"
End Sub


Private Sub Cuatro_Click()
auxiliar.Caption = auxiliar.Caption + "4"
End Sub

Private Sub Dos_Click()
auxiliar.Caption = auxiliar.Caption + "2"
End Sub

Private Sub Enter_Click()

If Tvcatv.Caption = "TV" Then
If auxiliar.Caption < caption =" NroCanal.Caption" caption =" auxiliar.Caption" caption = "" caption =" NroCanal.Caption" caption =" auxiliar.Caption" caption = "" caption = "TV" caption =" NroCanal.Caption" caption =" 0" caption =" NroCanal.Caption" caption =" 0" top =" Pantalla.Top" top =" auxiliar.Top" top =" Shape2.Top" top =" Tvcatv.Top" top =" onoff.Top" top =" NroCanal.Top" left =" Pantalla.Left" left =" auxiliar.Left" left =" Shape2.Left" left =" Tvcatv.Left" left =" onoff.Left" left =" NroCanal.Left"> 0 Then
NroCanal.Caption = NroCanal.Caption - 1
Else
If Tvcatv.Caption = "CATV" Then
NroCanal.Caption = 129
Else
NroCanal.Caption = 13
End If
End If
End Sub

Private Sub Menos1_Click()
Pantalla.Top = Pantalla.Top - 100
auxiliar.Top = auxiliar.Top - 100
Shape2.Top = Shape2.Top - 100
Tvcatv.Top = Tvcatv.Top - 100
onoff.Top = onoff.Top - 100
NroCanal.Top = NroCanal.Top - 100
End Sub

Private Sub Menos2_Click()
Pantalla.Left = Pantalla.Left - 100
auxiliar.Left = auxiliar.Left - 100
Shape2.Left = Shape2.Left - 100
Tvcatv.Left = Tvcatv.Left - 100
onoff.Left = onoff.Left - 100
NroCanal.Left = NroCanal.Left - 100
End Sub

Private Sub Nueve_Click()
auxiliar.Caption = auxiliar.Caption + "9"
End Sub

Private Sub Ocho_Click()
auxiliar.Caption = auxiliar.Caption + "8"
End Sub

Private Sub Off_Click()
NroCanal.Caption = ""
Tvcatv.Caption = ""
onoff.BackColor = vbBlack
Uno.Enabled = False
Dos.Enabled = False
Tres.Enabled = False
Cuatro.Enabled = False
Cinco.Enabled = False
Seis.Enabled = False
Siete.Enabled = False
Ocho.Enabled = False
Nueve.Enabled = False
Cero.Enabled = False
TV.Enabled = False
CATV.Enabled = False
auxiliar.Caption = ""
End Sub

Private Sub offon_Click()
If onoff.BackColor = vbRed Then
onoff.BackColor = vbBlack
Uno.Enabled = False
Dos.Enabled = False
Tres.Enabled = False
Cuatro.Enabled = False
Cinco.Enabled = False
Seis.Enabled = False
Siete.Enabled = False
Ocho.Enabled = False
Nueve.Enabled = False
Cero.Enabled = False
TV.Enabled = False
CATV.Enabled = False
catvtv.Enabled = False
auxiliar.Caption = ""
Mas.Enabled = False
Mas1.Enabled = False
Mas2.Enabled = False
Menos.Enabled = False
Menos1.Enabled = False
Menos2.Enabled = False
Enter.Enabled = False
Else
onoff.BackColor = vbRed
Uno.Enabled = True
Dos.Enabled = True
Tres.Enabled = True
Cuatro.Enabled = True
Cinco.Enabled = True
Seis.Enabled = True
Siete.Enabled = True
Ocho.Enabled = True
Nueve.Enabled = True
Cero.Enabled = True
TV.Enabled = True
CATV.Enabled = True
catvtv.Enabled = True
Mas.Enabled = True
Mas1.Enabled = True
Mas2.Enabled = True
Menos.Enabled = True
Menos1.Enabled = True
Menos2.Enabled = True
Enter.Enabled = True
End If

End Sub

Private Sub On_Click()
NroCanal.Caption = "0"
Tvcatv.Caption = "TV"
onoff.BackColor = vbRed
Uno.Enabled = True
Dos.Enabled = True
Tres.Enabled = True
Cuatro.Enabled = True
Cinco.Enabled = True
Seis.Enabled = True
Siete.Enabled = True
Ocho.Enabled = True
Nueve.Enabled = True
Cero.Enabled = True
TV.Enabled = True
CATV.Enabled = True
End Sub

Private Sub Seis_Click()
auxiliar.Caption = auxiliar.Caption + "6"
End Sub

Private Sub Siete_Click()
auxiliar.Caption = auxiliar.Caption + "7"
End Sub

Private Sub Tres_Click()
auxiliar.Caption = auxiliar.Caption + "3"
End Sub

Private Sub TV_Click()
Tvcatv.Caption = "TV"
End Sub


Private Sub Uno_Click()
auxiliar.Caption = auxiliar.Caption + "1"
End Sub