Private Sub cinco_Click()
If contraseña.Text = "1234" Then
auxiliar.Caption = Sqr(((ascensor.Top - 720) / 840) ^ 2)
cuentapisos.Caption = Val(cuentapisos.Caption) + Val(auxiliar.Caption)
ascensor.Top = 720
contraseña.Text = ""
ncinco.Caption = "5"
ncuatro.Caption = "5"
ntres.Caption = "5"
ndos.Caption = "5"
nuno.Caption = "5"
npb.Caption = "5"
nss.Caption = "5"
marcapiso.Caption = "5"
marcacinco.Caption = marcacinco.Caption + 1
End If
End Sub
Private Sub cuatro_Click()
auxiliar.Caption = Sqr(((ascensor.Top - 1560) / 840) ^ 2)
cuentapisos.Caption = Val(cuentapisos.Caption) + Val(auxiliar.Caption)
ascensor.Top = 1560
ncinco.Caption = "4"
ncuatro.Caption = "4"
ntres.Caption = "4"
ndos.Caption = "4"
nuno.Caption = "4"
npb.Caption = "4"
nss.Caption = "4"
marcapiso.Caption = "4"
marcacuatro.Caption = marcacuatro.Caption + 1
End Sub
Private Sub dos_Click()
auxiliar.Caption = Sqr(((ascensor.Top - 3240) / 840) ^ 2)
cuentapisos.Caption = Val(cuentapisos.Caption) + Val(auxiliar.Caption)
ascensor.Top = 3240
ncinco.Caption = "2"
ncuatro.Caption = "2"
ntres.Caption = "2"
ndos.Caption = "2"
nuno.Caption = "2"
npb.Caption = "2"
nss.Caption = "2"
marcapiso.Caption = "2"
marcados.Caption = marcados.Caption + 1
End Sub
Private Sub llcinco_Click()
auxiliar.Caption = Sqr(((ascensor.Top - 720) / 840) ^ 2)
cuentapisos.Caption = Val(cuentapisos.Caption) + Val(auxiliar.Caption)
ascensor.Top = 720
ncinco.Caption = "5"
ncuatro.Caption = "5"
ntres.Caption = "5"
ndos.Caption = "5"
nuno.Caption = "5"
npb.Caption = "5"
nss.Caption = "5"
marcapiso.Caption = "5"
marcacinco.Caption = marcacinco.Caption + 1
End Sub
Private Sub llcuatro_Click()
auxiliar.Caption = Sqr(((ascensor.Top - 1560) / 840) ^ 2)
cuentapisos.Caption = Val(cuentapisos.Caption) + Val(auxiliar.Caption)
ascensor.Top = 1560
ncinco.Caption = "4"
ncuatro.Caption = "4"
ntres.Caption = "4"
ndos.Caption = "4"
nuno.Caption = "4"
npb.Caption = "4"
nss.Caption = "4"
marcapiso.Caption = "4"
marcacuatro.Caption = marcacuatro.Caption + 1
End Sub
Private Sub lldos_Click()
auxiliar.Caption = Sqr(((ascensor.Top - 3240) / 840) ^ 2)
cuentapisos.Caption = Val(cuentapisos.Caption) + Val(auxiliar.Caption)
ascensor.Top = 3240
ncinco.Caption = "2"
ncuatro.Caption = "2"
ntres.Caption = "2"
ndos.Caption = "2"
nuno.Caption = "2"
npb.Caption = "2"
nss.Caption = "2"
marcapiso.Caption = "2"
marcados.Caption = marcados.Caption + 1
End Sub
Private Sub llpb_Click()
auxiliar.Caption = Sqr(((ascensor.Top - 4920) / 840) ^ 2)
cuentapisos.Caption = Val(cuentapisos.Caption) + Val(auxiliar.Caption)
ascensor.Top = 4920
ncinco.Caption = "PB"
ncuatro.Caption = "PB"
ntres.Caption = "PB"
ndos.Caption = "PB"
nuno.Caption = "PB"
npb.Caption = "PB"
nss.Caption = "PB"
marcapiso.Caption = "PB"
marcapb.Caption = marcapb.Caption + 1
End Sub
Private Sub llss_Click()
auxiliar.Caption = Sqr(((ascensor.Top - 5760) / 840) ^ 2)
cuentapisos.Caption = Val(cuentapisos.Caption) + Val(auxiliar.Caption)
ascensor.Top = 5760
ncinco.Caption = "SS"
ncuatro.Caption = "SS"
ntres.Caption = "SS"
ndos.Caption = "SS"
nuno.Caption = "SS"
npb.Caption = "SS"
nss.Caption = "SS"
marcapiso.Caption = "SS"
marcass.Caption = marcass.Caption + 1
End Sub
Private Sub lltres_Click()
auxiliar.Caption = Sqr(((ascensor.Top - 2400) / 840) ^ 2)
cuentapisos.Caption = Val(cuentapisos.Caption) + Val(auxiliar.Caption)
ascensor.Top = 2400
ncinco.Caption = "3"
ncuatro.Caption = "3"
ntres.Caption = "3"
ndos.Caption = "3"
nuno.Caption = "3"
npb.Caption = "3"
nss.Caption = "3"
marcapiso.Caption = "3"
marcatres.Caption = marcatres.Caption + 1
End Sub
Private Sub lluno_Click()
auxiliar.Caption = Sqr(((ascensor.Top - 4080) / 840) ^ 2)
cuentapisos.Caption = Val(cuentapisos.Caption) + Val(auxiliar.Caption)
ascensor.Top = 4080
ncinco.Caption = "1"
ncuatro.Caption = "1"
ntres.Caption = "1"
ndos.Caption = "1"
nuno.Caption = "1"
npb.Caption = "1"
nss.Caption = "1"
marcapiso.Caption = "1"
marcauno.Caption = marcauno.Caption + 1
End Sub
Private Sub luz_Click()
If ascensor.BorderColor = vbRed Then
ascensor.BorderColor = vbYellow
Else
ascensor.BorderColor = vbRed
End If
End Sub
Private Sub marcapiso_Click()
End Sub
Private Sub pb_Click()
auxiliar.Caption = Sqr(((ascensor.Top - 4920) / 840) ^ 2)
cuentapisos.Caption = Val(cuentapisos.Caption) + Val(auxiliar.Caption)
ascensor.Top = 4920
ncinco.Caption = "PB"
ncuatro.Caption = "PB"
ntres.Caption = "PB"
ndos.Caption = "PB"
nuno.Caption = "PB"
npb.Caption = "PB"
nss.Caption = "PB"
marcapiso.Caption = "PB"
marcapb.Caption = marcapb.Caption + 1
End Sub
Private Sub ss_Click()
auxiliar.Caption = Sqr(((ascensor.Top - 5760) / 840) ^ 2)
cuentapisos.Caption = Val(cuentapisos.Caption) + Val(auxiliar.Caption)
ascensor.Top = 5760
ncinco.Caption = "SS"
ncuatro.Caption = "SS"
ntres.Caption = "SS"
ndos.Caption = "SS"
nuno.Caption = "SS"
npb.Caption = "SS"
nss.Caption = "SS"
marcapiso.Caption = "SS"
marcass.Caption = marcass.Caption + 1
End Sub
Private Sub stop_Click()
If uno.Enabled = True Then
uno.Enabled = False
Else
uno.Enabled = True
End If
If dos.Enabled = True Then
dos.Enabled = False
Else
dos.Enabled = True
End If
If tres.Enabled = True Then
tres.Enabled = False
Else
tres.Enabled = True
End If
If cuatro.Enabled = True Then
cuatro.Enabled = False
Else
cuatro.Enabled = True
End If
If cinco.Enabled = True Then
cinco.Enabled = False
Else
cinco.Enabled = True
End If
If ss.Enabled = True Then
ss.Enabled = False
Else
ss.Enabled = True
End If
If pb.Enabled = True Then
pb.Enabled = False
Else
pb.Enabled = True
End If
If lluno.Enabled = True Then
lluno.Enabled = False
Else
lluno.Enabled = True
End If
If lldos.Enabled = True Then
lldos.Enabled = False
Else
lldos.Enabled = True
End If
If lltres.Enabled = True Then
lltres.Enabled = False
Else
lltres.Enabled = True
End If
If llcuatro.Enabled = True Then
llcuatro.Enabled = False
Else
llcuatro.Enabled = True
End If
If llcinco.Enabled = True Then
llcinco.Enabled = False
Else
llcinco.Enabled = True
End If
If llss.Enabled = True Then
llss.Enabled = False
Else
llss.Enabled = True
End If
If llpb.Enabled = True Then
llpb.Enabled = False
Else
llpb.Enabled = True
End If
If luz.Enabled = True Then
luz.Enabled = False
Else
luz.Enabled = True
End If
marcapiso.Caption = "0"
marcacinco.Caption = "0"
marcacuatro.Caption = "0"
marcatres.Caption = "0"
marcados.Caption = "0"
marcauno.Caption = "0"
marcapb.Caption = "0"
marcass.Caption = "0"
auxiliar.Caption = "0"
cuentapisos.Caption = "0"
End Sub
Private Sub tres_Click()
auxiliar.Caption = Sqr(((ascensor.Top - 2400) / 840) ^ 2)
cuentapisos.Caption = Val(cuentapisos.Caption) + Val(auxiliar.Caption)
ascensor.Top = 2400
ncinco.Caption = "3"
ncuatro.Caption = "3"
ntres.Caption = "3"
ndos.Caption = "3"
nuno.Caption = "3"
npb.Caption = "3"
nss.Caption = "3"
marcapiso.Caption = "3"
marcatres.Caption = marcatres.Caption + 1
End Sub
Private Sub uno_Click()
auxiliar.Caption = Sqr(((ascensor.Top - 4080) / 840) ^ 2)
cuentapisos.Caption = Val(cuentapisos.Caption) + Val(auxiliar.Caption)
ascensor.Top = 4080
ncinco.Caption = "1"
ncuatro.Caption = "1"
ntres.Caption = "1"
ndos.Caption = "1"
nuno.Caption = "1"
npb.Caption = "1"
nss.Caption = "1"
marcapiso.Caption = "1"
marcauno.Caption = marcauno.Caption + 1
End Sub
viernes, 14 de noviembre de 2008
viernes, 7 de noviembre de 2008
Ascensor 5 (por Galu)
Private Sub cinco_Click()
If contraseña.Text = "1234" Then
auxiliar.Caption = Sqr(((ascensor.Top - 720) / 840) ^ 2)
cuentapisos.Caption = Val(cuentapisos.Caption) + Val(auxiliar.Caption)
ascensor.Top = 720
contraseña.Text = ""
ncinco.Caption = "5"
ncuatro.Caption = "5"
ntres.Caption = "5"
ndos.Caption = "5"
nuno.Caption = "5"
npb.Caption = "5"
nss.Caption = "5"
marcapiso.Caption = "5"
marcacinco.Caption = marcacinco.Caption + 1
End If
End Sub
Private Sub cuatro_Click()
auxiliar.Caption = Sqr(((ascensor.Top - 1560) / 840) ^ 2)
cuentapisos.Caption = Val(cuentapisos.Caption) + Val(auxiliar.Caption)
ascensor.Top = 1560
ncinco.Caption = "4"
ncuatro.Caption = "4"
ntres.Caption = "4"
ndos.Caption = "4"
nuno.Caption = "4"
npb.Caption = "4"
nss.Caption = "4"
marcapiso.Caption = "4"
marcacuatro.Caption = marcacuatro.Caption + 1
End Sub
Private Sub dos_Click()
auxiliar.Caption = Sqr(((ascensor.Top - 3240) / 840) ^ 2)
cuentapisos.Caption = Val(cuentapisos.Caption) + Val(auxiliar.Caption)
ascensor.Top = 3240
ncinco.Caption = "2"
ncuatro.Caption = "2"
ntres.Caption = "2"
ndos.Caption = "2"
nuno.Caption = "2"
npb.Caption = "2"
nss.Caption = "2"
marcapiso.Caption = "2"
marcados.Caption = marcados.Caption + 1
End Sub
Private Sub llcinco_Click()
auxiliar.Caption = Sqr(((ascensor.Top - 720) / 840) ^ 2)
cuentapisos.Caption = Val(cuentapisos.Caption) + Val(auxiliar.Caption)
ascensor.Top = 720
ncinco.Caption = "5"
ncuatro.Caption = "5"
ntres.Caption = "5"
ndos.Caption = "5"
nuno.Caption = "5"
npb.Caption = "5"
nss.Caption = "5"
marcapiso.Caption = "5"
marcacinco.Caption = marcacinco.Caption + 1
End Sub
Private Sub llcuatro_Click()
auxiliar.Caption = Sqr(((ascensor.Top - 1560) / 840) ^ 2)
cuentapisos.Caption = Val(cuentapisos.Caption) + Val(auxiliar.Caption)
ascensor.Top = 1560
ncinco.Caption = "4"
ncuatro.Caption = "4"
ntres.Caption = "4"
ndos.Caption = "4"
nuno.Caption = "4"
npb.Caption = "4"
nss.Caption = "4"
marcapiso.Caption = "4"
marcacuatro.Caption = marcacuatro.Caption + 1
End Sub
Private Sub lldos_Click()
auxiliar.Caption = Sqr(((ascensor.Top - 3240) / 840) ^ 2)
cuentapisos.Caption = Val(cuentapisos.Caption) + Val(auxiliar.Caption)
ascensor.Top = 3240
ncinco.Caption = "2"
ncuatro.Caption = "2"
ntres.Caption = "2"
ndos.Caption = "2"
nuno.Caption = "2"
npb.Caption = "2"
nss.Caption = "2"
marcapiso.Caption = "2"
marcados.Caption = marcados.Caption + 1
End Sub
Private Sub llpb_Click()
auxiliar.Caption = Sqr(((ascensor.Top - 4920) / 840) ^ 2)
cuentapisos.Caption = Val(cuentapisos.Caption) + Val(auxiliar.Caption)
ascensor.Top = 4920
ncinco.Caption = "PB"
ncuatro.Caption = "PB"
ntres.Caption = "PB"
ndos.Caption = "PB"
nuno.Caption = "PB"
npb.Caption = "PB"
nss.Caption = "PB"
marcapiso.Caption = "PB"
marcapb.Caption = marcapb.Caption + 1
End Sub
Private Sub llss_Click()
auxiliar.Caption = Sqr(((ascensor.Top - 5760) / 840) ^ 2)
cuentapisos.Caption = Val(cuentapisos.Caption) + Val(auxiliar.Caption)
ascensor.Top = 5760
ncinco.Caption = "SS"
ncuatro.Caption = "SS"
ntres.Caption = "SS"
ndos.Caption = "SS"
nuno.Caption = "SS"
npb.Caption = "SS"
nss.Caption = "SS"
marcapiso.Caption = "SS"
marcass.Caption = marcass.Caption + 1
End Sub
Private Sub lltres_Click()
auxiliar.Caption = Sqr(((ascensor.Top - 2400) / 840) ^ 2)
cuentapisos.Caption = Val(cuentapisos.Caption) + Val(auxiliar.Caption)
ascensor.Top = 2400
ncinco.Caption = "3"
ncuatro.Caption = "3"
ntres.Caption = "3"
ndos.Caption = "3"
nuno.Caption = "3"
npb.Caption = "3"
nss.Caption = "3"
marcapiso.Caption = "3"
marcatres.Caption = marcatres.Caption + 1
End Sub
Private Sub lluno_Click()
auxiliar.Caption = Sqr(((ascensor.Top - 4080) / 840) ^ 2)
cuentapisos.Caption = Val(cuentapisos.Caption) + Val(auxiliar.Caption)
ascensor.Top = 4080
ncinco.Caption = "1"
ncuatro.Caption = "1"
ntres.Caption = "1"
ndos.Caption = "1"
nuno.Caption = "1"
npb.Caption = "1"
nss.Caption = "1"
marcapiso.Caption = "1"
marcauno.Caption = marcauno.Caption + 1
End Sub
Private Sub luz_Click()
If ascensor.BorderColor = vbRed Then
ascensor.BorderColor = vbYellow
Else
ascensor.BorderColor = vbRed
End If
End Sub
Private Sub pb_Click()
auxiliar.Caption = Sqr(((ascensor.Top - 4920) / 840) ^ 2)
cuentapisos.Caption = Val(cuentapisos.Caption) + Val(auxiliar.Caption)
ascensor.Top = 4920
ncinco.Caption = "PB"
ncuatro.Caption = "PB"
ntres.Caption = "PB"
ndos.Caption = "PB"
nuno.Caption = "PB"
npb.Caption = "PB"
nss.Caption = "PB"
marcapiso.Caption = "PB"
marcapb.Caption = marcapb.Caption + 1
End Sub
Private Sub ss_Click()
auxiliar.Caption = Sqr(((ascensor.Top - 5760) / 840) ^ 2)
cuentapisos.Caption = Val(cuentapisos.Caption) + Val(auxiliar.Caption)
ascensor.Top = 5760
ncinco.Caption = "SS"
ncuatro.Caption = "SS"
ntres.Caption = "SS"
ndos.Caption = "SS"
nuno.Caption = "SS"
npb.Caption = "SS"
nss.Caption = "SS"
marcapiso.Caption = "SS"
marcass.Caption = marcass.Caption + 1
End Sub
Private Sub stop_Click()
If uno.Enabled = True Then
uno.Enabled = False
Else
uno.Enabled = True
End If
If dos.Enabled = True Then
dos.Enabled = False
Else
dos.Enabled = True
End If
If tres.Enabled = True Then
tres.Enabled = False
Else
tres.Enabled = True
End If
If cuatro.Enabled = True Then
cuatro.Enabled = False
Else
cuatro.Enabled = True
End If
If cinco.Enabled = True Then
cinco.Enabled = False
Else
cinco.Enabled = True
End If
If ss.Enabled = True Then
ss.Enabled = False
Else
ss.Enabled = True
End If
If pb.Enabled = True Then
pb.Enabled = False
Else
pb.Enabled = True
End If
If lluno.Enabled = True Then
lluno.Enabled = False
Else
lluno.Enabled = True
End If
If lldos.Enabled = True Then
lldos.Enabled = False
Else
lldos.Enabled = True
End If
If lltres.Enabled = True Then
lltres.Enabled = False
Else
lltres.Enabled = True
End If
If llcuatro.Enabled = True Then
llcuatro.Enabled = False
Else
llcuatro.Enabled = True
End If
If llcinco.Enabled = True Then
llcinco.Enabled = False
Else
llcinco.Enabled = True
End If
If llss.Enabled = True Then
llss.Enabled = False
Else
llss.Enabled = True
End If
If llpb.Enabled = True Then
llpb.Enabled = False
Else
llpb.Enabled = True
End If
If luz.Enabled = True Then
luz.Enabled = False
Else
luz.Enabled = True
End If
marcapiso.Caption = "0"
marcacinco.Caption = "0"
marcacuatro.Caption = "0"
marcatres.Caption = "0"
marcados.Caption = "0"
marcauno.Caption = "0"
marcapb.Caption = "0"
marcass.Caption = "0"
auxiliar.Caption = "0"
cuentapisos.Caption = "0"
End Sub
Private Sub tres_Click()
auxiliar.Caption = Sqr(((ascensor.Top - 2400) / 840) ^ 2)
cuentapisos.Caption = Val(cuentapisos.Caption) + Val(auxiliar.Caption)
ascensor.Top = 2400
ncinco.Caption = "3"
ncuatro.Caption = "3"
ntres.Caption = "3"
ndos.Caption = "3"
nuno.Caption = "3"
npb.Caption = "3"
nss.Caption = "3"
marcapiso.Caption = "3"
marcatres.Caption = marcatres.Caption + 1
End Sub
Private Sub uno_Click()
auxiliar.Caption = Sqr(((ascensor.Top - 4080) / 840) ^ 2)
cuentapisos.Caption = Val(cuentapisos.Caption) + Val(auxiliar.Caption)
ascensor.Top = 4080
ncinco.Caption = "1"
ncuatro.Caption = "1"
ntres.Caption = "1"
ndos.Caption = "1"
nuno.Caption = "1"
npb.Caption = "1"
nss.Caption = "1"
marcapiso.Caption = "1"
marcauno.Caption = marcauno.Caption + 1
End Sub
If contraseña.Text = "1234" Then
auxiliar.Caption = Sqr(((ascensor.Top - 720) / 840) ^ 2)
cuentapisos.Caption = Val(cuentapisos.Caption) + Val(auxiliar.Caption)
ascensor.Top = 720
contraseña.Text = ""
ncinco.Caption = "5"
ncuatro.Caption = "5"
ntres.Caption = "5"
ndos.Caption = "5"
nuno.Caption = "5"
npb.Caption = "5"
nss.Caption = "5"
marcapiso.Caption = "5"
marcacinco.Caption = marcacinco.Caption + 1
End If
End Sub
Private Sub cuatro_Click()
auxiliar.Caption = Sqr(((ascensor.Top - 1560) / 840) ^ 2)
cuentapisos.Caption = Val(cuentapisos.Caption) + Val(auxiliar.Caption)
ascensor.Top = 1560
ncinco.Caption = "4"
ncuatro.Caption = "4"
ntres.Caption = "4"
ndos.Caption = "4"
nuno.Caption = "4"
npb.Caption = "4"
nss.Caption = "4"
marcapiso.Caption = "4"
marcacuatro.Caption = marcacuatro.Caption + 1
End Sub
Private Sub dos_Click()
auxiliar.Caption = Sqr(((ascensor.Top - 3240) / 840) ^ 2)
cuentapisos.Caption = Val(cuentapisos.Caption) + Val(auxiliar.Caption)
ascensor.Top = 3240
ncinco.Caption = "2"
ncuatro.Caption = "2"
ntres.Caption = "2"
ndos.Caption = "2"
nuno.Caption = "2"
npb.Caption = "2"
nss.Caption = "2"
marcapiso.Caption = "2"
marcados.Caption = marcados.Caption + 1
End Sub
Private Sub llcinco_Click()
auxiliar.Caption = Sqr(((ascensor.Top - 720) / 840) ^ 2)
cuentapisos.Caption = Val(cuentapisos.Caption) + Val(auxiliar.Caption)
ascensor.Top = 720
ncinco.Caption = "5"
ncuatro.Caption = "5"
ntres.Caption = "5"
ndos.Caption = "5"
nuno.Caption = "5"
npb.Caption = "5"
nss.Caption = "5"
marcapiso.Caption = "5"
marcacinco.Caption = marcacinco.Caption + 1
End Sub
Private Sub llcuatro_Click()
auxiliar.Caption = Sqr(((ascensor.Top - 1560) / 840) ^ 2)
cuentapisos.Caption = Val(cuentapisos.Caption) + Val(auxiliar.Caption)
ascensor.Top = 1560
ncinco.Caption = "4"
ncuatro.Caption = "4"
ntres.Caption = "4"
ndos.Caption = "4"
nuno.Caption = "4"
npb.Caption = "4"
nss.Caption = "4"
marcapiso.Caption = "4"
marcacuatro.Caption = marcacuatro.Caption + 1
End Sub
Private Sub lldos_Click()
auxiliar.Caption = Sqr(((ascensor.Top - 3240) / 840) ^ 2)
cuentapisos.Caption = Val(cuentapisos.Caption) + Val(auxiliar.Caption)
ascensor.Top = 3240
ncinco.Caption = "2"
ncuatro.Caption = "2"
ntres.Caption = "2"
ndos.Caption = "2"
nuno.Caption = "2"
npb.Caption = "2"
nss.Caption = "2"
marcapiso.Caption = "2"
marcados.Caption = marcados.Caption + 1
End Sub
Private Sub llpb_Click()
auxiliar.Caption = Sqr(((ascensor.Top - 4920) / 840) ^ 2)
cuentapisos.Caption = Val(cuentapisos.Caption) + Val(auxiliar.Caption)
ascensor.Top = 4920
ncinco.Caption = "PB"
ncuatro.Caption = "PB"
ntres.Caption = "PB"
ndos.Caption = "PB"
nuno.Caption = "PB"
npb.Caption = "PB"
nss.Caption = "PB"
marcapiso.Caption = "PB"
marcapb.Caption = marcapb.Caption + 1
End Sub
Private Sub llss_Click()
auxiliar.Caption = Sqr(((ascensor.Top - 5760) / 840) ^ 2)
cuentapisos.Caption = Val(cuentapisos.Caption) + Val(auxiliar.Caption)
ascensor.Top = 5760
ncinco.Caption = "SS"
ncuatro.Caption = "SS"
ntres.Caption = "SS"
ndos.Caption = "SS"
nuno.Caption = "SS"
npb.Caption = "SS"
nss.Caption = "SS"
marcapiso.Caption = "SS"
marcass.Caption = marcass.Caption + 1
End Sub
Private Sub lltres_Click()
auxiliar.Caption = Sqr(((ascensor.Top - 2400) / 840) ^ 2)
cuentapisos.Caption = Val(cuentapisos.Caption) + Val(auxiliar.Caption)
ascensor.Top = 2400
ncinco.Caption = "3"
ncuatro.Caption = "3"
ntres.Caption = "3"
ndos.Caption = "3"
nuno.Caption = "3"
npb.Caption = "3"
nss.Caption = "3"
marcapiso.Caption = "3"
marcatres.Caption = marcatres.Caption + 1
End Sub
Private Sub lluno_Click()
auxiliar.Caption = Sqr(((ascensor.Top - 4080) / 840) ^ 2)
cuentapisos.Caption = Val(cuentapisos.Caption) + Val(auxiliar.Caption)
ascensor.Top = 4080
ncinco.Caption = "1"
ncuatro.Caption = "1"
ntres.Caption = "1"
ndos.Caption = "1"
nuno.Caption = "1"
npb.Caption = "1"
nss.Caption = "1"
marcapiso.Caption = "1"
marcauno.Caption = marcauno.Caption + 1
End Sub
Private Sub luz_Click()
If ascensor.BorderColor = vbRed Then
ascensor.BorderColor = vbYellow
Else
ascensor.BorderColor = vbRed
End If
End Sub
Private Sub pb_Click()
auxiliar.Caption = Sqr(((ascensor.Top - 4920) / 840) ^ 2)
cuentapisos.Caption = Val(cuentapisos.Caption) + Val(auxiliar.Caption)
ascensor.Top = 4920
ncinco.Caption = "PB"
ncuatro.Caption = "PB"
ntres.Caption = "PB"
ndos.Caption = "PB"
nuno.Caption = "PB"
npb.Caption = "PB"
nss.Caption = "PB"
marcapiso.Caption = "PB"
marcapb.Caption = marcapb.Caption + 1
End Sub
Private Sub ss_Click()
auxiliar.Caption = Sqr(((ascensor.Top - 5760) / 840) ^ 2)
cuentapisos.Caption = Val(cuentapisos.Caption) + Val(auxiliar.Caption)
ascensor.Top = 5760
ncinco.Caption = "SS"
ncuatro.Caption = "SS"
ntres.Caption = "SS"
ndos.Caption = "SS"
nuno.Caption = "SS"
npb.Caption = "SS"
nss.Caption = "SS"
marcapiso.Caption = "SS"
marcass.Caption = marcass.Caption + 1
End Sub
Private Sub stop_Click()
If uno.Enabled = True Then
uno.Enabled = False
Else
uno.Enabled = True
End If
If dos.Enabled = True Then
dos.Enabled = False
Else
dos.Enabled = True
End If
If tres.Enabled = True Then
tres.Enabled = False
Else
tres.Enabled = True
End If
If cuatro.Enabled = True Then
cuatro.Enabled = False
Else
cuatro.Enabled = True
End If
If cinco.Enabled = True Then
cinco.Enabled = False
Else
cinco.Enabled = True
End If
If ss.Enabled = True Then
ss.Enabled = False
Else
ss.Enabled = True
End If
If pb.Enabled = True Then
pb.Enabled = False
Else
pb.Enabled = True
End If
If lluno.Enabled = True Then
lluno.Enabled = False
Else
lluno.Enabled = True
End If
If lldos.Enabled = True Then
lldos.Enabled = False
Else
lldos.Enabled = True
End If
If lltres.Enabled = True Then
lltres.Enabled = False
Else
lltres.Enabled = True
End If
If llcuatro.Enabled = True Then
llcuatro.Enabled = False
Else
llcuatro.Enabled = True
End If
If llcinco.Enabled = True Then
llcinco.Enabled = False
Else
llcinco.Enabled = True
End If
If llss.Enabled = True Then
llss.Enabled = False
Else
llss.Enabled = True
End If
If llpb.Enabled = True Then
llpb.Enabled = False
Else
llpb.Enabled = True
End If
If luz.Enabled = True Then
luz.Enabled = False
Else
luz.Enabled = True
End If
marcapiso.Caption = "0"
marcacinco.Caption = "0"
marcacuatro.Caption = "0"
marcatres.Caption = "0"
marcados.Caption = "0"
marcauno.Caption = "0"
marcapb.Caption = "0"
marcass.Caption = "0"
auxiliar.Caption = "0"
cuentapisos.Caption = "0"
End Sub
Private Sub tres_Click()
auxiliar.Caption = Sqr(((ascensor.Top - 2400) / 840) ^ 2)
cuentapisos.Caption = Val(cuentapisos.Caption) + Val(auxiliar.Caption)
ascensor.Top = 2400
ncinco.Caption = "3"
ncuatro.Caption = "3"
ntres.Caption = "3"
ndos.Caption = "3"
nuno.Caption = "3"
npb.Caption = "3"
nss.Caption = "3"
marcapiso.Caption = "3"
marcatres.Caption = marcatres.Caption + 1
End Sub
Private Sub uno_Click()
auxiliar.Caption = Sqr(((ascensor.Top - 4080) / 840) ^ 2)
cuentapisos.Caption = Val(cuentapisos.Caption) + Val(auxiliar.Caption)
ascensor.Top = 4080
ncinco.Caption = "1"
ncuatro.Caption = "1"
ntres.Caption = "1"
ndos.Caption = "1"
nuno.Caption = "1"
npb.Caption = "1"
nss.Caption = "1"
marcapiso.Caption = "1"
marcauno.Caption = marcauno.Caption + 1
End Sub
viernes, 31 de octubre de 2008
Ascensor 4 (por Galu)
Private Sub cinco_Click()
If contraseña.Text = "1234" Then
auxiliar.Caption = (ascensor.Top - 720) / 840
ascensor.Top = 720
contraseña.Text = ""
ncinco.Caption = "5"
ncuatro.Caption = "5"
ntres.Caption = "5"
ndos.Caption = "5"
nuno.Caption = "5"
npb.Caption = "5"
nss.Caption = "5"
marcapiso.Caption = "5"
marcacinco.Caption = marcacinco.Caption + 1
End If
End Sub
Private Sub cuatro_Click()
auxiliar.Caption = (ascensor.Top - 1560) / 840
ascensor.Top = 1560
ncinco.Caption = "4"
ncuatro.Caption = "4"
ntres.Caption = "4"
ndos.Caption = "4"
nuno.Caption = "4"
npb.Caption = "4"
nss.Caption = "4"
marcapiso.Caption = "4"
marcacuatro.Caption = marcacuatro.Caption + 1
End Sub
Private Sub dos_Click()
auxiliar.Caption = (ascensor.Top - 3240) / 840
ascensor.Top = 3240
ncinco.Caption = "2"
ncuatro.Caption = "2"
ntres.Caption = "2"
ndos.Caption = "2"
nuno.Caption = "2"
npb.Caption = "2"
nss.Caption = "2"
marcapiso.Caption = "2"
marcados.Caption = marcados.Caption + 1
End Sub
Private Sub llcinco_Click()
auxiliar.Caption = (ascensor.Top - 720) / 840
ascensor.Top = 720
ncinco.Caption = "5"
ncuatro.Caption = "5"
ntres.Caption = "5"
ndos.Caption = "5"
nuno.Caption = "5"
npb.Caption = "5"
nss.Caption = "5"
marcapiso.Caption = "5"
marcacinco.Caption = marcacinco.Caption + 1
End Sub
Private Sub llcuatro_Click()
auxiliar.Caption = (ascensor.Top - 1560) / 840
ascensor.Top = 1560
ncinco.Caption = "4"
ncuatro.Caption = "4"
ntres.Caption = "4"
ndos.Caption = "4"
nuno.Caption = "4"
npb.Caption = "4"
nss.Caption = "4"
marcapiso.Caption = "4"
marcacuatro.Caption = marcacuatro.Caption + 1
End Sub
Private Sub lldos_Click()
auxiliar.Caption = (ascensor.Top - 3240) / 840
ascensor.Top = 3240
ncinco.Caption = "2"
ncuatro.Caption = "2"
ntres.Caption = "2"
ndos.Caption = "2"
nuno.Caption = "2"
npb.Caption = "2"
nss.Caption = "2"
marcapiso.Caption = "2"
marcados.Caption = marcados.Caption + 1
End Sub
Private Sub llpb_Click()
auxiliar.Caption = (ascensor.Top - 4920) / 840
ascensor.Top = 4920
ncinco.Caption = "PB"
ncuatro.Caption = "PB"
ntres.Caption = "PB"
ndos.Caption = "PB"
nuno.Caption = "PB"
npb.Caption = "PB"
nss.Caption = "PB"
marcapiso.Caption = "PB"
marcapb.Caption = marcapb.Caption + 1
End Sub
Private Sub llss_Click()
auxiliar.Caption = (ascensor.Top - 5760) / 840
ascensor.Top = 5760
ncinco.Caption = "SS"
ncuatro.Caption = "SS"
ntres.Caption = "SS"
ndos.Caption = "SS"
nuno.Caption = "SS"
npb.Caption = "SS"
nss.Caption = "SS"
marcapiso.Caption = "SS"
marcass.Caption = marcass.Caption + 1
End Sub
Private Sub lltres_Click()
auxiliar.Caption = (ascensor.Top - 2400) / 840
ascensor.Top = 2400
ncinco.Caption = "3"
ncuatro.Caption = "3"
ntres.Caption = "3"
ndos.Caption = "3"
nuno.Caption = "3"
npb.Caption = "3"
nss.Caption = "3"
marcapiso.Caption = "3"
marcatres.Caption = marcatres.Caption + 1
End Sub
Private Sub lluno_Click()
auxiliar.Caption = (ascensor.Top - 4080) / 840
ascensor.Top = 4080
ncinco.Caption = "1"
ncuatro.Caption = "1"
ntres.Caption = "1"
ndos.Caption = "1"
nuno.Caption = "1"
npb.Caption = "1"
nss.Caption = "1"
marcapiso.Caption = "1"
marcauno.Caption = marcauno.Caption + 1
End Sub
Private Sub luz_Click()
If ascensor.BorderColor = vbRed Then
ascensor.BorderColor = vbYellow
Else
ascensor.BorderColor = vbRed
End If
End Sub
Private Sub pb_Click()
auxiliar.Caption = (ascensor.Top - 4920) / 840
ascensor.Top = 4920
ncinco.Caption = "PB"
ncuatro.Caption = "PB"
ntres.Caption = "PB"
ndos.Caption = "PB"
nuno.Caption = "PB"
npb.Caption = "PB"
nss.Caption = "PB"
marcapiso.Caption = "PB"
marcapb.Caption = marcapb.Caption + 1
End Sub
Private Sub ss_Click()
auxiliar.Caption = (ascensor.Top - 5760) / 840
ascensor.Top = 5760
ncinco.Caption = "SS"
ncuatro.Caption = "SS"
ntres.Caption = "SS"
ndos.Caption = "SS"
nuno.Caption = "SS"
npb.Caption = "SS"
nss.Caption = "SS"
marcapiso.Caption = "SS"
marcass.Caption = marcass.Caption + 1
End Sub
Private Sub stop_Click()
If uno.Enabled = True Then
uno.Enabled = False
Else
uno.Enabled = True
End If
If dos.Enabled = True Then
dos.Enabled = False
Else
dos.Enabled = True
End If
If tres.Enabled = True Then
tres.Enabled = False
Else
tres.Enabled = True
End If
If cuatro.Enabled = True Then
cuatro.Enabled = False
Else
cuatro.Enabled = True
End If
If cinco.Enabled = True Then
cinco.Enabled = False
Else
cinco.Enabled = True
End If
If ss.Enabled = True Then
ss.Enabled = False
Else
ss.Enabled = True
End If
If pb.Enabled = True Then
pb.Enabled = False
Else
pb.Enabled = True
End If
If lluno.Enabled = True Then
lluno.Enabled = False
Else
lluno.Enabled = True
End If
If lldos.Enabled = True Then
lldos.Enabled = False
Else
lldos.Enabled = True
End If
If lltres.Enabled = True Then
lltres.Enabled = False
Else
lltres.Enabled = True
End If
If llcuatro.Enabled = True Then
llcuatro.Enabled = False
Else
llcuatro.Enabled = True
End If
If llcinco.Enabled = True Then
llcinco.Enabled = False
Else
llcinco.Enabled = True
End If
If llss.Enabled = True Then
llss.Enabled = False
Else
llss.Enabled = True
End If
If llpb.Enabled = True Then
llpb.Enabled = False
Else
llpb.Enabled = True
End If
If luz.Enabled = True Then
luz.Enabled = False
Else
luz.Enabled = True
End If
marcapiso.Caption = "0"
marcacinco.Caption = "0"
marcacuatro.Caption = "0"
marcatres.Caption = "0"
marcados.Caption = "0"
marcauno.Caption = "0"
marcapb.Caption = "0"
marcass.Caption = "0"
End Sub
Private Sub tres_Click()
auxiliar.Caption = (ascensor.Top - 2400) / 840
ascensor.Top = 2400
ncinco.Caption = "3"
ncuatro.Caption = "3"
ntres.Caption = "3"
ndos.Caption = "3"
nuno.Caption = "3"
npb.Caption = "3"
nss.Caption = "3"
marcapiso.Caption = "3"
marcatres.Caption = marcatres.Caption + 1
End Sub
Private Sub uno_Click()
auxiliar.Caption = (ascensor.Top - 4080) / 840
ascensor.Top = 4080
ncinco.Caption = "1"
ncuatro.Caption = "1"
ntres.Caption = "1"
ndos.Caption = "1"
nuno.Caption = "1"
npb.Caption = "1"
nss.Caption = "1"
marcapiso.Caption = "1"
marcauno.Caption = marcauno.Caption + 1
End Sub
If contraseña.Text = "1234" Then
auxiliar.Caption = (ascensor.Top - 720) / 840
ascensor.Top = 720
contraseña.Text = ""
ncinco.Caption = "5"
ncuatro.Caption = "5"
ntres.Caption = "5"
ndos.Caption = "5"
nuno.Caption = "5"
npb.Caption = "5"
nss.Caption = "5"
marcapiso.Caption = "5"
marcacinco.Caption = marcacinco.Caption + 1
End If
End Sub
Private Sub cuatro_Click()
auxiliar.Caption = (ascensor.Top - 1560) / 840
ascensor.Top = 1560
ncinco.Caption = "4"
ncuatro.Caption = "4"
ntres.Caption = "4"
ndos.Caption = "4"
nuno.Caption = "4"
npb.Caption = "4"
nss.Caption = "4"
marcapiso.Caption = "4"
marcacuatro.Caption = marcacuatro.Caption + 1
End Sub
Private Sub dos_Click()
auxiliar.Caption = (ascensor.Top - 3240) / 840
ascensor.Top = 3240
ncinco.Caption = "2"
ncuatro.Caption = "2"
ntres.Caption = "2"
ndos.Caption = "2"
nuno.Caption = "2"
npb.Caption = "2"
nss.Caption = "2"
marcapiso.Caption = "2"
marcados.Caption = marcados.Caption + 1
End Sub
Private Sub llcinco_Click()
auxiliar.Caption = (ascensor.Top - 720) / 840
ascensor.Top = 720
ncinco.Caption = "5"
ncuatro.Caption = "5"
ntres.Caption = "5"
ndos.Caption = "5"
nuno.Caption = "5"
npb.Caption = "5"
nss.Caption = "5"
marcapiso.Caption = "5"
marcacinco.Caption = marcacinco.Caption + 1
End Sub
Private Sub llcuatro_Click()
auxiliar.Caption = (ascensor.Top - 1560) / 840
ascensor.Top = 1560
ncinco.Caption = "4"
ncuatro.Caption = "4"
ntres.Caption = "4"
ndos.Caption = "4"
nuno.Caption = "4"
npb.Caption = "4"
nss.Caption = "4"
marcapiso.Caption = "4"
marcacuatro.Caption = marcacuatro.Caption + 1
End Sub
Private Sub lldos_Click()
auxiliar.Caption = (ascensor.Top - 3240) / 840
ascensor.Top = 3240
ncinco.Caption = "2"
ncuatro.Caption = "2"
ntres.Caption = "2"
ndos.Caption = "2"
nuno.Caption = "2"
npb.Caption = "2"
nss.Caption = "2"
marcapiso.Caption = "2"
marcados.Caption = marcados.Caption + 1
End Sub
Private Sub llpb_Click()
auxiliar.Caption = (ascensor.Top - 4920) / 840
ascensor.Top = 4920
ncinco.Caption = "PB"
ncuatro.Caption = "PB"
ntres.Caption = "PB"
ndos.Caption = "PB"
nuno.Caption = "PB"
npb.Caption = "PB"
nss.Caption = "PB"
marcapiso.Caption = "PB"
marcapb.Caption = marcapb.Caption + 1
End Sub
Private Sub llss_Click()
auxiliar.Caption = (ascensor.Top - 5760) / 840
ascensor.Top = 5760
ncinco.Caption = "SS"
ncuatro.Caption = "SS"
ntres.Caption = "SS"
ndos.Caption = "SS"
nuno.Caption = "SS"
npb.Caption = "SS"
nss.Caption = "SS"
marcapiso.Caption = "SS"
marcass.Caption = marcass.Caption + 1
End Sub
Private Sub lltres_Click()
auxiliar.Caption = (ascensor.Top - 2400) / 840
ascensor.Top = 2400
ncinco.Caption = "3"
ncuatro.Caption = "3"
ntres.Caption = "3"
ndos.Caption = "3"
nuno.Caption = "3"
npb.Caption = "3"
nss.Caption = "3"
marcapiso.Caption = "3"
marcatres.Caption = marcatres.Caption + 1
End Sub
Private Sub lluno_Click()
auxiliar.Caption = (ascensor.Top - 4080) / 840
ascensor.Top = 4080
ncinco.Caption = "1"
ncuatro.Caption = "1"
ntres.Caption = "1"
ndos.Caption = "1"
nuno.Caption = "1"
npb.Caption = "1"
nss.Caption = "1"
marcapiso.Caption = "1"
marcauno.Caption = marcauno.Caption + 1
End Sub
Private Sub luz_Click()
If ascensor.BorderColor = vbRed Then
ascensor.BorderColor = vbYellow
Else
ascensor.BorderColor = vbRed
End If
End Sub
Private Sub pb_Click()
auxiliar.Caption = (ascensor.Top - 4920) / 840
ascensor.Top = 4920
ncinco.Caption = "PB"
ncuatro.Caption = "PB"
ntres.Caption = "PB"
ndos.Caption = "PB"
nuno.Caption = "PB"
npb.Caption = "PB"
nss.Caption = "PB"
marcapiso.Caption = "PB"
marcapb.Caption = marcapb.Caption + 1
End Sub
Private Sub ss_Click()
auxiliar.Caption = (ascensor.Top - 5760) / 840
ascensor.Top = 5760
ncinco.Caption = "SS"
ncuatro.Caption = "SS"
ntres.Caption = "SS"
ndos.Caption = "SS"
nuno.Caption = "SS"
npb.Caption = "SS"
nss.Caption = "SS"
marcapiso.Caption = "SS"
marcass.Caption = marcass.Caption + 1
End Sub
Private Sub stop_Click()
If uno.Enabled = True Then
uno.Enabled = False
Else
uno.Enabled = True
End If
If dos.Enabled = True Then
dos.Enabled = False
Else
dos.Enabled = True
End If
If tres.Enabled = True Then
tres.Enabled = False
Else
tres.Enabled = True
End If
If cuatro.Enabled = True Then
cuatro.Enabled = False
Else
cuatro.Enabled = True
End If
If cinco.Enabled = True Then
cinco.Enabled = False
Else
cinco.Enabled = True
End If
If ss.Enabled = True Then
ss.Enabled = False
Else
ss.Enabled = True
End If
If pb.Enabled = True Then
pb.Enabled = False
Else
pb.Enabled = True
End If
If lluno.Enabled = True Then
lluno.Enabled = False
Else
lluno.Enabled = True
End If
If lldos.Enabled = True Then
lldos.Enabled = False
Else
lldos.Enabled = True
End If
If lltres.Enabled = True Then
lltres.Enabled = False
Else
lltres.Enabled = True
End If
If llcuatro.Enabled = True Then
llcuatro.Enabled = False
Else
llcuatro.Enabled = True
End If
If llcinco.Enabled = True Then
llcinco.Enabled = False
Else
llcinco.Enabled = True
End If
If llss.Enabled = True Then
llss.Enabled = False
Else
llss.Enabled = True
End If
If llpb.Enabled = True Then
llpb.Enabled = False
Else
llpb.Enabled = True
End If
If luz.Enabled = True Then
luz.Enabled = False
Else
luz.Enabled = True
End If
marcapiso.Caption = "0"
marcacinco.Caption = "0"
marcacuatro.Caption = "0"
marcatres.Caption = "0"
marcados.Caption = "0"
marcauno.Caption = "0"
marcapb.Caption = "0"
marcass.Caption = "0"
End Sub
Private Sub tres_Click()
auxiliar.Caption = (ascensor.Top - 2400) / 840
ascensor.Top = 2400
ncinco.Caption = "3"
ncuatro.Caption = "3"
ntres.Caption = "3"
ndos.Caption = "3"
nuno.Caption = "3"
npb.Caption = "3"
nss.Caption = "3"
marcapiso.Caption = "3"
marcatres.Caption = marcatres.Caption + 1
End Sub
Private Sub uno_Click()
auxiliar.Caption = (ascensor.Top - 4080) / 840
ascensor.Top = 4080
ncinco.Caption = "1"
ncuatro.Caption = "1"
ntres.Caption = "1"
ndos.Caption = "1"
nuno.Caption = "1"
npb.Caption = "1"
nss.Caption = "1"
marcapiso.Caption = "1"
marcauno.Caption = marcauno.Caption + 1
End Sub
Semana 29 (por Galu)
Papeleras de seguridad con paneles informativos
En mi viaje a Japón pude comprobar de primera mano lo difícil que es encontrar una papelera por la calle. En Londres sucede algo similar, aunque cuando estuve allí no me fijé en ello. La excusa, en ambos casos, es la misma: la seguridad frente a ataques terroristas, que podrían utilizar las papeleras para poner bombas.
La compañía Media Metrica ha desarrollado unas papeleras especiales antibomba que podrían cambiar este panorama. Aunque no es eso por lo que aparecen en Xataka, sino porque irán equipadas con el sistema Renew.
Con un par de pantallas de gran tamaño en cada papelera, allí se puede mostrar información variada, desde noticias de actualidad, información sobre el transporte o, pensando que serán instaladas sobre todo en zonas financieras, cotizaciones de accio
31 de octubre de 2008
Para ver más
PoP, máquina de vending de contenidos
¿Alguna vez has querido comprar un DVD o un Blu-ray a las cuatro de la mañana? No, yo tampoco, pero Universal y Sony no quieren perder la oportunidad de hacer esa venta si, cualquier día, nos da por ahí. Para ello han desarrollado la PoP.
No es más que una máquina de vending aunque con algunas funciones avanzadas, en la cual se podrán adquirir DVDs, discos Blu-ray y juegos de Playstation 3, además de contenido digital que podremos almacenar en nuestros propios dispositivos conectándolos a la máquina.
31 de octubre de 2008
Para ver más
Protege tu iPhone con estas carcasas metálicas
Si quieres proteger a tu iPhone (es caro, mejor que lo cuides bien) aquí les dejo unas carcasas metálicas que quizás les interese. Pueden comprarlas a través de la página oficial de sus creadores, Incase, por sólo US$35.
31 de octubre de 2008
Para ver más
En mi viaje a Japón pude comprobar de primera mano lo difícil que es encontrar una papelera por la calle. En Londres sucede algo similar, aunque cuando estuve allí no me fijé en ello. La excusa, en ambos casos, es la misma: la seguridad frente a ataques terroristas, que podrían utilizar las papeleras para poner bombas.
La compañía Media Metrica ha desarrollado unas papeleras especiales antibomba que podrían cambiar este panorama. Aunque no es eso por lo que aparecen en Xataka, sino porque irán equipadas con el sistema Renew.
Con un par de pantallas de gran tamaño en cada papelera, allí se puede mostrar información variada, desde noticias de actualidad, información sobre el transporte o, pensando que serán instaladas sobre todo en zonas financieras, cotizaciones de accio
31 de octubre de 2008
Para ver más
PoP, máquina de vending de contenidos
¿Alguna vez has querido comprar un DVD o un Blu-ray a las cuatro de la mañana? No, yo tampoco, pero Universal y Sony no quieren perder la oportunidad de hacer esa venta si, cualquier día, nos da por ahí. Para ello han desarrollado la PoP.
No es más que una máquina de vending aunque con algunas funciones avanzadas, en la cual se podrán adquirir DVDs, discos Blu-ray y juegos de Playstation 3, además de contenido digital que podremos almacenar en nuestros propios dispositivos conectándolos a la máquina.
31 de octubre de 2008
Para ver más
Protege tu iPhone con estas carcasas metálicas
Si quieres proteger a tu iPhone (es caro, mejor que lo cuides bien) aquí les dejo unas carcasas metálicas que quizás les interese. Pueden comprarlas a través de la página oficial de sus creadores, Incase, por sólo US$35.
31 de octubre de 2008
Para ver más
jueves, 30 de octubre de 2008
Semana 28 (por Galu)
Teclado con ventiladores
Muchas personas tienen problemas de transpiración en las manos y la verdad es que andar presionando teclas todo el día en la oficina, además de empeorarlo, es bastante molesto.
Pero siempre hay una solución para los problemas. Lo único que tendrás que hacer para solucionar este es comprar este teclado de Thanko con tres ventiladores en los lugares donde nuestras manos están todo el tiempo sobre el teclado.
Tiene conexión USB y si por casualidad piensas que no vale la pena comprarlo porque se está acercando el invierno, no te preocupes, porque también lanza aire caliente.
30 de Octubre de 2008
Para ver más
Robot que copia nuestras expresiones
Xatakeros, os presento a Jules. Jules, aquí los lectores de Xataka. Tras las formalidades, ya os puedo contar que lo que véis en el vídeo de arriba no es una persona sino un robot llamado Jules y que ha saltado a la fama por poder copiar gestos y caras de otras personas que están frente a él.
Jules es un desarrollo de David Hanson en colaboración con la Universidad de Bristol, en el Reino Unido. Es un robot humanoide cuyo rostro con piel es movido por 34 motores escondidos bajo ella. El robot de Hanson recibe la información de un software desarrollado por la Universidad de Bristol, que convierte los gestos de una persona en instrucciones para los motores. Lo hace en tiempo real a 25 movimientos por segundo.
El mayor inconveniente que tiene hasta ahora este tipo de robots que imitan el rostro y expresiones humanas es que al no ser perfecto del todo, alguna expresión nos puede parecer extraña e incluso de miedo a los humanos, pues no estamos acostumbrados a verla en nuestros semejantes.
30 de Octubre de 2008
Para ver más
Samsung SDI logra crear una pantalla OLED de 0,05mm de grosor y 4 pulgadas de tamaño
La filial de Samsung dedicada a la I+D de pantallas, Samsung SDI acaba de darle otra alegría a la tecnología para un futuro no muy lejano.
Samsung presenta en el FPD de Japón una nueva pantalla OLED, de solo 0,05mm de grosor y con un tamaño de 4 pulgadas. No hace falta decir que es semiflexible, no puedes doblarla del todo (como si fuese una hoja de papel) pero puede formar curvas sin problemas. Para que te hagas una idea, una hoja de papel normal tiene un grosor de 0.06mm.
Para demostrar que tiene el grosor de una hoja lo han puesto debajo de un torrente de aire, así se puede ver como bambolea. Esta pantalla alcanza una resolución de 480×272 píxeles, con un contraste de 1.000.000:1, un brillo de 200cd/m2 y con un muestreo del 100% en color NTSC.
30 de Octubre de 2008
Para ver más
Muchas personas tienen problemas de transpiración en las manos y la verdad es que andar presionando teclas todo el día en la oficina, además de empeorarlo, es bastante molesto.
Pero siempre hay una solución para los problemas. Lo único que tendrás que hacer para solucionar este es comprar este teclado de Thanko con tres ventiladores en los lugares donde nuestras manos están todo el tiempo sobre el teclado.
Tiene conexión USB y si por casualidad piensas que no vale la pena comprarlo porque se está acercando el invierno, no te preocupes, porque también lanza aire caliente.
30 de Octubre de 2008
Para ver más
Robot que copia nuestras expresiones
Xatakeros, os presento a Jules. Jules, aquí los lectores de Xataka. Tras las formalidades, ya os puedo contar que lo que véis en el vídeo de arriba no es una persona sino un robot llamado Jules y que ha saltado a la fama por poder copiar gestos y caras de otras personas que están frente a él.
Jules es un desarrollo de David Hanson en colaboración con la Universidad de Bristol, en el Reino Unido. Es un robot humanoide cuyo rostro con piel es movido por 34 motores escondidos bajo ella. El robot de Hanson recibe la información de un software desarrollado por la Universidad de Bristol, que convierte los gestos de una persona en instrucciones para los motores. Lo hace en tiempo real a 25 movimientos por segundo.
El mayor inconveniente que tiene hasta ahora este tipo de robots que imitan el rostro y expresiones humanas es que al no ser perfecto del todo, alguna expresión nos puede parecer extraña e incluso de miedo a los humanos, pues no estamos acostumbrados a verla en nuestros semejantes.
30 de Octubre de 2008
Para ver más
Samsung SDI logra crear una pantalla OLED de 0,05mm de grosor y 4 pulgadas de tamaño
La filial de Samsung dedicada a la I+D de pantallas, Samsung SDI acaba de darle otra alegría a la tecnología para un futuro no muy lejano.
Samsung presenta en el FPD de Japón una nueva pantalla OLED, de solo 0,05mm de grosor y con un tamaño de 4 pulgadas. No hace falta decir que es semiflexible, no puedes doblarla del todo (como si fuese una hoja de papel) pero puede formar curvas sin problemas. Para que te hagas una idea, una hoja de papel normal tiene un grosor de 0.06mm.
Para demostrar que tiene el grosor de una hoja lo han puesto debajo de un torrente de aire, así se puede ver como bambolea. Esta pantalla alcanza una resolución de 480×272 píxeles, con un contraste de 1.000.000:1, un brillo de 200cd/m2 y con un muestreo del 100% en color NTSC.
30 de Octubre de 2008
Para ver más
Ascensor 3 (por Galu)
Private Sub cinco_Click()
If contraseña.Text = "1234" Then
ascensor.Top = 720
contraseña.Text = ""
ncinco.Caption = "5"
ncuatro.Caption = "5"
ntres.Caption = "5"
ndos.Caption = "5"
nuno.Caption = "5"
npb.Caption = "5"
nss.Caption = "5"
marcapiso.Caption = "5"
marcacinco.Caption = marcacinco.Caption + 1
End If
End Sub
Private Sub cuatro_Click()
ascensor.Top = 1560
ncinco.Caption = "4"
ncuatro.Caption = "4"
ntres.Caption = "4"
ndos.Caption = "4"
nuno.Caption = "4"
npb.Caption = "4"
nss.Caption = "4"
marcapiso.Caption = "4"
marcacuatro.Caption = marcacuatro.Caption + 1
End Sub
Private Sub dos_Click()
ascensor.Top = 3240
ncinco.Caption = "2"
ncuatro.Caption = "2"
ntres.Caption = "2"
ndos.Caption = "2"
nuno.Caption = "2"
npb.Caption = "2"
nss.Caption = "2"
marcapiso.Caption = "2"
marcados.Caption = marcados.Caption + 1
End Sub
Private Sub Form_Load()
End Sub
Private Sub llcinco_Click()
ascensor.Top = 720
ncinco.Caption = "5"
ncuatro.Caption = "5"
ntres.Caption = "5"
ndos.Caption = "5"
nuno.Caption = "5"
npb.Caption = "5"
nss.Caption = "5"
marcapiso.Caption = "5"
marcacinco.Caption = marcacinco.Caption + 1
End Sub
Private Sub llcuatro_Click()
ascensor.Top = 1560
ncinco.Caption = "4"
ncuatro.Caption = "4"
ntres.Caption = "4"
ndos.Caption = "4"
nuno.Caption = "4"
npb.Caption = "4"
nss.Caption = "4"
marcapiso.Caption = "4"
marcacuatro.Caption = marcacuatro.Caption + 1
End Sub
Private Sub lldos_Click()
ascensor.Top = 3240
ncinco.Caption = "2"
ncuatro.Caption = "2"
ntres.Caption = "2"
ndos.Caption = "2"
nuno.Caption = "2"
npb.Caption = "2"
nss.Caption = "2"
marcapiso.Caption = "2"
marcados.Caption = marcados.Caption + 1
End Sub
Private Sub llpb_Click()
ascensor.Top = 4920
ncinco.Caption = "PB"
ncuatro.Caption = "PB"
ntres.Caption = "PB"
ndos.Caption = "PB"
nuno.Caption = "PB"
npb.Caption = "PB"
nss.Caption = "PB"
marcapiso.Caption = "PB"
marcapb.Caption = marcapb.Caption + 1
End Sub
Private Sub llss_Click()
ascensor.Top = 5760
ncinco.Caption = "SS"
ncuatro.Caption = "SS"
ntres.Caption = "SS"
ndos.Caption = "SS"
nuno.Caption = "SS"
npb.Caption = "SS"
nss.Caption = "SS"
marcapiso.Caption = "SS"
marcass.Caption = marcass.Caption + 1
End Sub
Private Sub lltres_Click()
ascensor.Top = 2400
ncinco.Caption = "3"
ncuatro.Caption = "3"
ntres.Caption = "3"
ndos.Caption = "3"
nuno.Caption = "3"
npb.Caption = "3"
nss.Caption = "3"
marcapiso.Caption = "3"
marcatres.Caption = marcatres.Caption + 1
End Sub
Private Sub lluno_Click()
ascensor.Top = 4080
ncinco.Caption = "1"
ncuatro.Caption = "1"
ntres.Caption = "1"
ndos.Caption = "1"
nuno.Caption = "1"
npb.Caption = "1"
nss.Caption = "1"
marcapiso.Caption = "1"
marcauno.Caption = marcauno.Caption + 1
End Sub
Private Sub luz_Click()
If ascensor.BorderColor = vbRed Then
ascensor.BorderColor = vbYellow
Else
ascensor.BorderColor = vbRed
End If
End Sub
Private Sub pb_Click()
ascensor.Top = 4920
ncinco.Caption = "PB"
ncuatro.Caption = "PB"
ntres.Caption = "PB"
ndos.Caption = "PB"
nuno.Caption = "PB"
npb.Caption = "PB"
nss.Caption = "PB"
marcapiso.Caption = "PB"
marcapb.Caption = marcapb.Caption + 1
End Sub
Private Sub ss_Click()
ascensor.Top = 5760
ncinco.Caption = "SS"
ncuatro.Caption = "SS"
ntres.Caption = "SS"
ndos.Caption = "SS"
nuno.Caption = "SS"
npb.Caption = "SS"
nss.Caption = "SS"
marcapiso.Caption = "SS"
marcass.Caption = marcass.Caption + 1
End Sub
Private Sub stop_Click()
If uno.Enabled = True Then
uno.Enabled = False
Else
uno.Enabled = True
End If
If dos.Enabled = True Then
dos.Enabled = False
Else
dos.Enabled = True
End If
If tres.Enabled = True Then
tres.Enabled = False
Else
tres.Enabled = True
End If
If cuatro.Enabled = True Then
cuatro.Enabled = False
Else
cuatro.Enabled = True
End If
If cinco.Enabled = True Then
cinco.Enabled = False
Else
cinco.Enabled = True
End If
If ss.Enabled = True Then
ss.Enabled = False
Else
ss.Enabled = True
End If
If pb.Enabled = True Then
pb.Enabled = False
Else
pb.Enabled = True
End If
If lluno.Enabled = True Then
lluno.Enabled = False
Else
lluno.Enabled = True
End If
If lldos.Enabled = True Then
lldos.Enabled = False
Else
lldos.Enabled = True
End If
If lltres.Enabled = True Then
lltres.Enabled = False
Else
lltres.Enabled = True
End If
If llcuatro.Enabled = True Then
llcuatro.Enabled = False
Else
llcuatro.Enabled = True
End If
If llcinco.Enabled = True Then
llcinco.Enabled = False
Else
llcinco.Enabled = True
End If
If llss.Enabled = True Then
llss.Enabled = False
Else
llss.Enabled = True
End If
If llpb.Enabled = True Then
llpb.Enabled = False
Else
llpb.Enabled = True
End If
If luz.Enabled = True Then
luz.Enabled = False
Else
luz.Enabled = True
End If
marcapiso.Caption = "0"
marcacinco.Caption = "0"
marcacuatro.Caption = "0"
marcatres.Caption = "0"
marcados.Caption = "0"
marcauno.Caption = "0"
marcapb.Caption = "0"
marcass.Caption = "0"
End Sub
Private Sub tres_Click()
ascensor.Top = 2400
ncinco.Caption = "3"
ncuatro.Caption = "3"
ntres.Caption = "3"
ndos.Caption = "3"
nuno.Caption = "3"
npb.Caption = "3"
nss.Caption = "3"
marcapiso.Caption = "3"
marcatres.Caption = marcatres.Caption + 1
End Sub
Private Sub uno_Click()
ascensor.Top = 4080
ncinco.Caption = "1"
ncuatro.Caption = "1"
ntres.Caption = "1"
ndos.Caption = "1"
nuno.Caption = "1"
npb.Caption = "1"
nss.Caption = "1"
marcapiso.Caption = "1"
marcauno.Caption = marcauno.Caption + 1
End Sub
If contraseña.Text = "1234" Then
ascensor.Top = 720
contraseña.Text = ""
ncinco.Caption = "5"
ncuatro.Caption = "5"
ntres.Caption = "5"
ndos.Caption = "5"
nuno.Caption = "5"
npb.Caption = "5"
nss.Caption = "5"
marcapiso.Caption = "5"
marcacinco.Caption = marcacinco.Caption + 1
End If
End Sub
Private Sub cuatro_Click()
ascensor.Top = 1560
ncinco.Caption = "4"
ncuatro.Caption = "4"
ntres.Caption = "4"
ndos.Caption = "4"
nuno.Caption = "4"
npb.Caption = "4"
nss.Caption = "4"
marcapiso.Caption = "4"
marcacuatro.Caption = marcacuatro.Caption + 1
End Sub
Private Sub dos_Click()
ascensor.Top = 3240
ncinco.Caption = "2"
ncuatro.Caption = "2"
ntres.Caption = "2"
ndos.Caption = "2"
nuno.Caption = "2"
npb.Caption = "2"
nss.Caption = "2"
marcapiso.Caption = "2"
marcados.Caption = marcados.Caption + 1
End Sub
Private Sub Form_Load()
End Sub
Private Sub llcinco_Click()
ascensor.Top = 720
ncinco.Caption = "5"
ncuatro.Caption = "5"
ntres.Caption = "5"
ndos.Caption = "5"
nuno.Caption = "5"
npb.Caption = "5"
nss.Caption = "5"
marcapiso.Caption = "5"
marcacinco.Caption = marcacinco.Caption + 1
End Sub
Private Sub llcuatro_Click()
ascensor.Top = 1560
ncinco.Caption = "4"
ncuatro.Caption = "4"
ntres.Caption = "4"
ndos.Caption = "4"
nuno.Caption = "4"
npb.Caption = "4"
nss.Caption = "4"
marcapiso.Caption = "4"
marcacuatro.Caption = marcacuatro.Caption + 1
End Sub
Private Sub lldos_Click()
ascensor.Top = 3240
ncinco.Caption = "2"
ncuatro.Caption = "2"
ntres.Caption = "2"
ndos.Caption = "2"
nuno.Caption = "2"
npb.Caption = "2"
nss.Caption = "2"
marcapiso.Caption = "2"
marcados.Caption = marcados.Caption + 1
End Sub
Private Sub llpb_Click()
ascensor.Top = 4920
ncinco.Caption = "PB"
ncuatro.Caption = "PB"
ntres.Caption = "PB"
ndos.Caption = "PB"
nuno.Caption = "PB"
npb.Caption = "PB"
nss.Caption = "PB"
marcapiso.Caption = "PB"
marcapb.Caption = marcapb.Caption + 1
End Sub
Private Sub llss_Click()
ascensor.Top = 5760
ncinco.Caption = "SS"
ncuatro.Caption = "SS"
ntres.Caption = "SS"
ndos.Caption = "SS"
nuno.Caption = "SS"
npb.Caption = "SS"
nss.Caption = "SS"
marcapiso.Caption = "SS"
marcass.Caption = marcass.Caption + 1
End Sub
Private Sub lltres_Click()
ascensor.Top = 2400
ncinco.Caption = "3"
ncuatro.Caption = "3"
ntres.Caption = "3"
ndos.Caption = "3"
nuno.Caption = "3"
npb.Caption = "3"
nss.Caption = "3"
marcapiso.Caption = "3"
marcatres.Caption = marcatres.Caption + 1
End Sub
Private Sub lluno_Click()
ascensor.Top = 4080
ncinco.Caption = "1"
ncuatro.Caption = "1"
ntres.Caption = "1"
ndos.Caption = "1"
nuno.Caption = "1"
npb.Caption = "1"
nss.Caption = "1"
marcapiso.Caption = "1"
marcauno.Caption = marcauno.Caption + 1
End Sub
Private Sub luz_Click()
If ascensor.BorderColor = vbRed Then
ascensor.BorderColor = vbYellow
Else
ascensor.BorderColor = vbRed
End If
End Sub
Private Sub pb_Click()
ascensor.Top = 4920
ncinco.Caption = "PB"
ncuatro.Caption = "PB"
ntres.Caption = "PB"
ndos.Caption = "PB"
nuno.Caption = "PB"
npb.Caption = "PB"
nss.Caption = "PB"
marcapiso.Caption = "PB"
marcapb.Caption = marcapb.Caption + 1
End Sub
Private Sub ss_Click()
ascensor.Top = 5760
ncinco.Caption = "SS"
ncuatro.Caption = "SS"
ntres.Caption = "SS"
ndos.Caption = "SS"
nuno.Caption = "SS"
npb.Caption = "SS"
nss.Caption = "SS"
marcapiso.Caption = "SS"
marcass.Caption = marcass.Caption + 1
End Sub
Private Sub stop_Click()
If uno.Enabled = True Then
uno.Enabled = False
Else
uno.Enabled = True
End If
If dos.Enabled = True Then
dos.Enabled = False
Else
dos.Enabled = True
End If
If tres.Enabled = True Then
tres.Enabled = False
Else
tres.Enabled = True
End If
If cuatro.Enabled = True Then
cuatro.Enabled = False
Else
cuatro.Enabled = True
End If
If cinco.Enabled = True Then
cinco.Enabled = False
Else
cinco.Enabled = True
End If
If ss.Enabled = True Then
ss.Enabled = False
Else
ss.Enabled = True
End If
If pb.Enabled = True Then
pb.Enabled = False
Else
pb.Enabled = True
End If
If lluno.Enabled = True Then
lluno.Enabled = False
Else
lluno.Enabled = True
End If
If lldos.Enabled = True Then
lldos.Enabled = False
Else
lldos.Enabled = True
End If
If lltres.Enabled = True Then
lltres.Enabled = False
Else
lltres.Enabled = True
End If
If llcuatro.Enabled = True Then
llcuatro.Enabled = False
Else
llcuatro.Enabled = True
End If
If llcinco.Enabled = True Then
llcinco.Enabled = False
Else
llcinco.Enabled = True
End If
If llss.Enabled = True Then
llss.Enabled = False
Else
llss.Enabled = True
End If
If llpb.Enabled = True Then
llpb.Enabled = False
Else
llpb.Enabled = True
End If
If luz.Enabled = True Then
luz.Enabled = False
Else
luz.Enabled = True
End If
marcapiso.Caption = "0"
marcacinco.Caption = "0"
marcacuatro.Caption = "0"
marcatres.Caption = "0"
marcados.Caption = "0"
marcauno.Caption = "0"
marcapb.Caption = "0"
marcass.Caption = "0"
End Sub
Private Sub tres_Click()
ascensor.Top = 2400
ncinco.Caption = "3"
ncuatro.Caption = "3"
ntres.Caption = "3"
ndos.Caption = "3"
nuno.Caption = "3"
npb.Caption = "3"
nss.Caption = "3"
marcapiso.Caption = "3"
marcatres.Caption = marcatres.Caption + 1
End Sub
Private Sub uno_Click()
ascensor.Top = 4080
ncinco.Caption = "1"
ncuatro.Caption = "1"
ntres.Caption = "1"
ndos.Caption = "1"
nuno.Caption = "1"
npb.Caption = "1"
nss.Caption = "1"
marcapiso.Caption = "1"
marcauno.Caption = marcauno.Caption + 1
End Sub
viernes, 17 de octubre de 2008
Semana 27 (por Galu)
Televisión en el Nokia N96
Una de las preguntas que más recibimos desde que salió al mercado el Nokia N96, tiene como protagonista a la televisión en el móvil. Y es que este teléfono de Nokia viene preparado para recibir la televisión digital terrestre, pero bajo el formato DVB-H, adaptación de la TDT que recibimos en nuestra televisión de casa.
El problema de la televisión en el Nokia N96 es que aunque el teléfono viene con sintonizador, en España todavía no disponemos de canales que emitan en ese formato, y por lo tanto no vamos a aprovechar esa funcionalidad que atrae la atención de muchos consumidores cuando miran las especificaciones del Nokia N96. Hay alguna prueba en determinadas zonas, pero la televisión digital en el móvil sin pagar a las operadoras vía DVb-H, en España, de momento no existe.
¿Cuándo podremos aprovechar esta tecnología DVB-H? Pues todo parece indicar que para el año 2010 ya se dispondrá de emisiones regulares y no solo de algún canal en prueba.
Publicado el día 17 de octubre.
Para ver más
Plantas robóticas que lanzarán aromatizantes y florecerán cuando te acerques
Investigadores de la Universidad Nacional de Chonnam desarrollaron una planta robótica que es parecida a las que actualmente conocemos como sintéticas. Son de bajo coste, no necesita ningún tipo de mantenimiento y en lugar de generar oxígeno como lo hacen las verdaderas, estas emiten un aromatizante para el ambiente.
Las plantas sintéticas tienen que ser mejoradas para levantar sus ventas y los investigadores crearon esta interesante forma para hacerlo.
Estas plantas están diseñadas para que cuando una persona se acerque a 40cm de distancia ‘mire’ hacia el visitante y ‘florezca’. También florecerá cuando se le hable. Además, imitará la fotosíntesis realizada por las plantas reales, ya que cuando reciban luz se abrirán y cuando no, se cerrarán.
Publicado el día 17 de octubre
Para ver más
Philips Flavors, televisores con marcos intercambiables
Philips Flavors es el último elemento de la estrategia de tecnología amiga y de sentidos que la compañía holandesa quiere colar en nuestros hogares. Llamar la atención hay que admitir que lo hacen y muy bien. Con líneas e ideas que nos recuerdan a sus Philips Ambilight, los nuevos televisores Philips Flavours son algo más, pues incluyen un sistema de cine en casa para acompañarlos.
Lo llamativo a nivel estético de los equipos Philips Flavours es el diseño y la posibilidad de intercambiar carcasas de forma sencilla (hasta 12 para elegir). Sin ninguna de ellas, el diseño es más minimalista que nunca. El mando a distancia acompaña la apariencia del resto del sistema de imagen. Llamar la atención, divertir. Es su misión. Esperemos que sin olvidar el interior, la calidad de imagen.
El colmo de la personalización y fijación en el diseño lo podemos comprobar en el hecho de que los menús podemos ajustarlos en apariencia con los colores y diseño de la carcasa que estemos en ese momento usando.
Publicado el día 16 de octubre
Para ver más
Una de las preguntas que más recibimos desde que salió al mercado el Nokia N96, tiene como protagonista a la televisión en el móvil. Y es que este teléfono de Nokia viene preparado para recibir la televisión digital terrestre, pero bajo el formato DVB-H, adaptación de la TDT que recibimos en nuestra televisión de casa.
El problema de la televisión en el Nokia N96 es que aunque el teléfono viene con sintonizador, en España todavía no disponemos de canales que emitan en ese formato, y por lo tanto no vamos a aprovechar esa funcionalidad que atrae la atención de muchos consumidores cuando miran las especificaciones del Nokia N96. Hay alguna prueba en determinadas zonas, pero la televisión digital en el móvil sin pagar a las operadoras vía DVb-H, en España, de momento no existe.
¿Cuándo podremos aprovechar esta tecnología DVB-H? Pues todo parece indicar que para el año 2010 ya se dispondrá de emisiones regulares y no solo de algún canal en prueba.
Publicado el día 17 de octubre.
Para ver más
Plantas robóticas que lanzarán aromatizantes y florecerán cuando te acerques
Investigadores de la Universidad Nacional de Chonnam desarrollaron una planta robótica que es parecida a las que actualmente conocemos como sintéticas. Son de bajo coste, no necesita ningún tipo de mantenimiento y en lugar de generar oxígeno como lo hacen las verdaderas, estas emiten un aromatizante para el ambiente.
Las plantas sintéticas tienen que ser mejoradas para levantar sus ventas y los investigadores crearon esta interesante forma para hacerlo.
Estas plantas están diseñadas para que cuando una persona se acerque a 40cm de distancia ‘mire’ hacia el visitante y ‘florezca’. También florecerá cuando se le hable. Además, imitará la fotosíntesis realizada por las plantas reales, ya que cuando reciban luz se abrirán y cuando no, se cerrarán.
Publicado el día 17 de octubre
Para ver más
Philips Flavors, televisores con marcos intercambiables
Philips Flavors es el último elemento de la estrategia de tecnología amiga y de sentidos que la compañía holandesa quiere colar en nuestros hogares. Llamar la atención hay que admitir que lo hacen y muy bien. Con líneas e ideas que nos recuerdan a sus Philips Ambilight, los nuevos televisores Philips Flavours son algo más, pues incluyen un sistema de cine en casa para acompañarlos.
Lo llamativo a nivel estético de los equipos Philips Flavours es el diseño y la posibilidad de intercambiar carcasas de forma sencilla (hasta 12 para elegir). Sin ninguna de ellas, el diseño es más minimalista que nunca. El mando a distancia acompaña la apariencia del resto del sistema de imagen. Llamar la atención, divertir. Es su misión. Esperemos que sin olvidar el interior, la calidad de imagen.
El colmo de la personalización y fijación en el diseño lo podemos comprobar en el hecho de que los menús podemos ajustarlos en apariencia con los colores y diseño de la carcasa que estemos en ese momento usando.
Publicado el día 16 de octubre
Para ver más
Suscribirse a:
Entradas (Atom)
