Ascensor 5 (Por Dani B.)

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

Semana 29 (Por Dani B.)

SmartLock: un candado de seguridad que explota si intentas cortarlo

se trata de un candado de seguridad que lleva una correa, cuando el ladrón intenta cortar la correa de seguridad, la misma explotará, ya que posee aire comprimido por dentro, en ese mismo momento desprenderá una tinta invisible, pero que podrá ser reconocida con la policía en caso de robo.

Para más información

Elegí este artículo porque me parece una idea muy segura para usar.

Cámara de vídeo Flip MinoHD, graba 720p HD

Dimensiones: 10.1 x 5 x 1.5 cm
Peso: 93 gramos
Pantalla TFT de 1.5”
Zoom digital de 2X
Grabación en 1280 x 720; 720p (HD)
Compresión Pure Digital Video Engine 3.0
Formato de vídeo: H.264 (vídeo), AAC (audio), formato de archivo MP4
Memoria interna de 4GB
Posibilidad de cambiar la carcasa
USB 2.0

Para más información

Elegí este artículo porque me gutó el diseño de esta cámara.

ClarityLife C900, movil para gente mayor

Amplificador de sonido hasta 20 decibeles.
4 botones grandes para usar fácil.
Un botón de emergencia en la parte de atrás para contactarse con los familiares o amigos más cercanos.
Pantalla backlight que muestra los mensajes con letra grande.
Luz LED naranja para las llamadas entrantes y linterna.

Para más información

Elegí este artículo porque me parece bien que existan celulares diseñados especialmente para personas mayores.

Semana 28 (Por Dani B.)

Mazda KAAN, el coche eléctrico del futuro

El Mazda “KAAN” es un coche eléctrico de carreras, claro, es futurista con miras al año 2025, es parte del LA Auto Show Motorsports 2025, una exposición de diseño sobre coches del futuro de aquí a casi 16 años.

Para más información

Elegí este artículo porque es eléctrico pero tiene un muy buen diseño.

Motorola Motozine ZN5: móvil con cámara digital de 5MPX

se trata del modelo Motozine ZN5, un móvil que ha surgido de un trabajo colaborativo con Kodak para que un teléfono barato pueda tener una cámara digital de media/alta resolución.

Para más información

Elegí este artículo porque es un celular buenisimo y con muy buena camara.

Crear música nunca fué tan fácil como con este nuevo gadget

Se trata de una herramienta que te permite mediante la fricción de sensores colocados en tus dedos, grabar los tonos y ritmos que tu generes y al mismo tiempo transmitirlos por wireless hacia tus oídos. Todos los tonos grabados por los sensores se almacenan en tarjetas flash, que permiten luego una edición cómoda del sonido.

Para más información

Elegí este artículo porque nunca pense que existía un gadget asi.

Ascensor 4 (Por Dani B.)

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

ascensor 3 (Por Dani B.)

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

ascensor 2 (Por Dani B.)

Private Sub cuatro_Click()
ascensor.Top = 1560
End Sub
Private Sub dos_Click()
ascensor.Top = 3240
End Sub
Private Sub llcinco_Click()
ascensor.Top = 720
End Sub
Private Sub llcuatro_Click()
ascensor.Top = 1560
End Sub
Private Sub lldos_Click()
ascensor.Top = 3240
End Sub
Private Sub llpb_Click()
ascensor.Top = 4920
End Sub
Private Sub llss_Click()
ascensor.Top = 5760
End Sub
Private Sub lltres_Click()
ascensor.Top = 2400
End Sub
Private Sub lluno_Click()
ascensor.Top = 4080
End Sub
Private Sub luz_Click()
ascensor.BackColor = vbYellow
End Sub
Private Sub pb_Click()
ascensor.Top = 4920
End Sub
Private Sub ss_Click()
ascensor.Top = 5760
End Sub
Private Sub stop_Click()
If uno.Enabled = False And dos.Enabled = False And tres.Enabled = False And cuatro.Enabled = False and
cinco.Enabled = False Then
uno.Enabled = True
End If


cinco.Enabled = False
ss.Enabled = False
pb.Enabled = False
cuentapisos.Caption
lluno.Enabled = False
lldos.Enabled = False
lltres.Enabled = False
llcuatro.Enabled = False
llcinco.Enabled = False
llss.Enabled = False
llpb.Enabled = False
End Sub
Private Sub tres_Click()
ascensor.Top = 2400
End Sub
Private Sub uno_Click()
ascensor.Top = 4080
End Sub

semana 27 (Por Dani B.)

Minoru: robot webcam que ofrece video chat 3D

Minoru es una webcam con forma de un simpático robot, ha sido diseñado para llevar la videoconferencia a otro nivel con la adición del 3D a Internet. La webcam usa dos grandes lentes para terminar formando una sola imágen que parece tridimensional cuando el espectador lo mira con gafas 3D.

Para más información

Elegí este artículo porque me gustó el diseño de esta webcam.

Mini-biblioteca permite organizar libros de la forma que tu gustes

es una mini-biblioteca que nos sirve para archivar libros, nada nuevo, claro pero lo interesante de este pequeño invento es que puedes organizar los libros de la forma que mejor te parezca, las diferentes paredes y estantes de esta mini biblioteca son totalmente movibles y te permiten organizar todo de la manera que tu quieras!

Para más información

Elegí este artículo porque me parece una biblioteca muy practica.

Hello Kitty: Nuevo reproductor de DVD de Hello Kitty

Entre las características de estas tenemos:
Pantalla LCD de 7 pulgadas.
Resolución de 480×234.
Vatería de 200mhA.
Esta incluye un mando a distancia.
Soporta los formatos DVD,DVD-R,DVD-RW,CD, CD-R, CD-RW.

Para más información

Elegí este artículo porque mr gustó el diseño de este dvd portatil.

ascensor (Por Dani B.)

Private Sub cuatro_Click()
ascensor.Top = 1560
End Sub
Private Sub dos_Click()
ascensor.Top = 3240
End Sub
Private Sub tres_Click()
ascensor.Top = 2400
End Sub
Private Sub uno_Click()
ascensor.Top = 4080
End Sub

Semana 26 (Por Dani B.)

Invento sin sentido: sweater que incluye medidor de temperatura

Es un sweater que incorpora un termómetro para indicarte cuando hace demasiado calor para que te lo quites… me pregunto.. ¿acaso uno mismo no se da cuenta cuando tiene calor y se lo quita automáticamente al sentirse abrumado por la temperatura? El termómetro incluye dos modos, uno en grados Celsius y otro en Fahrenheit.

Para más información

Elegí este artículo porque me parece que no tiene sentido este invento.

Especial reloj orientado a personas con problemas visuales

Se trata de un reloj tácti de Auguste Reymond y ayudará a este tipo de personas a leer de manera más eficiente el tiempo con un reloj que luce tal cual como uno estándart, incluso como ves se usa en la muñeca.

Para más información

Elegí este artículo porque me parece bien que hagan cosas adaptadas a las necesidades de cada uno.

Discos duros externos Colour Edition de Verbatim

Verbatim lanza su colorida colección de discos duros externos colour edition, que llega con una cpacidad de 320GB y a un precio de 99,90 euros.
Estos discos de Verbatim se venden en 5 colores diferentes.

Para más información

Elegí este artículo porque me gustó el diseño de estos discos rígidos.

Código caculadora terminada (Por Dani B.)

Private Sub borrar_Click()
cuenta.Caption = ""
auxiliar.Caption = ""
auxiliar2.Caption = ""
coma.Enabled = True
End Sub
Private Sub cero_Click()
cuenta.Caption = cuenta.Caption + "0"
End Sub
Private Sub cinco_Click()
cuenta.Caption = cuenta.Caption + "5"
End Sub
Private Sub coma_Click()
cuenta.Caption = cuenta.Caption + "."
coma.Enabled = False
End Sub
Private Sub cuatro_Click()
cuenta.Caption = cuenta.Caption + "4"
End Sub
Private Sub dividir_Click()
auxiliar.Caption = cuenta.Caption
cuenta.Caption = ""
auxiliar2.Caption = "/"
coma.Enabled = True
End Sub
Private Sub divpant_Click()
cuenta.Caption = 1 / cuenta.Caption
End Sub
Private Sub dos_Click()
cuenta.Caption = cuenta.Caption + "2"
End Sub
Private Sub igual_Click()
If auxiliar2.Caption = "+" Then
cuenta.Caption = Val(auxiliar.Caption) + Val(cuenta.Caption)
auxiliar.Caption = ""
auxiliar2.Caption = ""
End If
If auxiliar2.Caption = "-" Then
cuenta.Caption = Val(auxiliar.Caption) - Val(cuenta.Caption)
auxiliar.Caption = ""
auxiliar2.Caption = ""
End If
If auxiliar2.Caption = "*" Then
cuenta.Caption = Val(auxiliar.Caption) * Val(cuenta.Caption)
auxiliar.Caption = ""
auxiliar2.Caption = ""
End If
If auxiliar2.Caption = "/" Then
cuenta.Caption = Val(auxiliar.Caption) / Val(cuenta.Caption)
auxiliar.Caption = ""
auxiliar2.Caption = ""
End If
If auxiliar2.Caption = "%" Then
cuenta.Caption = 100 * auxiliar.Caption / cuenta.Caption
auxiliar.Caption = ""
auxiliar2.Caption = ""
End If
coma.Enabled = True
End Sub
Private Sub masmenos_Click()
cuenta.Caption = cuenta.Caption * -1
End Sub
Private Sub multiplicar_Click()
auxiliar.Caption = cuenta.Caption
cuenta.Caption = ""
auxiliar2.Caption = "*"
coma.Enabled = True
End Sub
Private Sub nueve_Click()
cuenta.Caption = cuenta.Caption + "9"
End Sub
Private Sub ocho_Click()
cuenta.Caption = cuenta.Caption + "8"
End Sub
Private Sub porcentaje_Click()
auxiliar.Caption = cuenta.Caption
cuenta.Caption = ""
auxiliar2.Caption = "%"
End Sub
Private Sub restar_Click()
auxiliar.Caption = cuenta.Caption
cuenta.Caption = ""
auxiliar2.Caption = "-"
coma.Enabled = True
End Sub
Private Sub seis_Click()
cuenta.Caption = cuenta.Caption + "6"
End Sub
Private Sub siete_Click()
cuenta.Caption = cuenta.Caption + "7"
End Sub
Private Sub sqrt_Click()
If cuenta.Caption > -1 Then
cuenta.Caption = Sqr(Val(cuenta.Caption))
Else
cuenta.Caption = "error"
End If
End Sub
Private Sub sumar_Click()
auxiliar.Caption = cuenta.Caption
cuenta.Caption = ""
auxiliar2.Caption = "+"
coma.Enabled = True
End Sub
Private Sub tres_Click()
cuenta.Caption = cuenta.Caption + "3"
End Sub
Private Sub uno_Click()
cuenta.Caption = cuenta.Caption + "1"
End Sub

Semana 25 (Por Dani B.)

Apple ya lleva vendidos 10 millones de iPhones!

Cuando se lanzó oficialmente el iPhone, Apple estimaba que en el primer año (2008) se venderían 10 millones de unidades, y parece que conseguirá batir dicho record y llegar incluso más lejos. A juzgar por los reportes, Apple ya a esta altura del año ha vendido 10 millones de iPhones.

Para más información

Elegí este artículo porque me llamó la atención el éxito que tuvo el iphone.

USB Webmail Notifier, un gadget curioso

USB Webmail Notifier, es un accesorio que se conecta por medio de USB y que alerta mediante la luz de la bandeja de entrada, cuando se recibe un mail.
No es mas que un simple chichesito como decimos aca y funciona asi, cuando tienes un mensaje, se ilumina para avisar que tienes un nuevo msj.

Para más información

Elegí este artículo porque me gustó este gadget, aunque no tiene mucha utilidad.

Camara BenQ DC C1060

BenQ sonprende con una nueva camara digital de fotos, esta es la BenQ DC C1060, que se destaca por traer un sensor con resolución de 10 megapíxeles y un zoom óptico de tres aumentos.

Para más información

Elegí este artículo porque me gustaría tener una cámara como esa.

Codigo calculadora 2 (Por Dani B.)

Private Sub borrar_Click()
cuenta.Caption = ""
auxiliar.Caption = ""
auxiliar2.Caption = ""
End Sub
Private Sub cero_Click()
cuenta.Caption = cuenta.Caption + "0"
End Sub
Private Sub cinco_Click()
cuenta.Caption = cuenta.Caption + "5"
End Sub
Private Sub coma_Click()
cuenta.Caption = cuenta.Caption + "."
End Sub
Private Sub cuatro_Click()
cuenta.Caption = cuenta.Caption + "4"
End Sub
Private Sub dividir_Click()
auxiliar.Caption = cuenta.Caption
cuenta.Caption = ""
auxiliar2.Caption = "/"
End Sub
Private Sub dos_Click()
cuenta.Caption = cuenta.Caption + "2"
End Sub
Private Sub igual_Click()
If auxiliar2.Caption = "+" Then
cuenta.Caption = Val(auxiliar.Caption) + Val(cuenta.Caption)
auxiliar.Caption = ""
auxiliar2.Caption = ""
End If
If auxiliar2.Caption = "-" Then
cuenta.Caption = Val(auxiliar.Caption) - Val(cuenta.Caption)
auxiliar.Caption = ""
auxiliar2.Caption = ""
End If
If auxiliar2.Caption = "*" Then
cuenta.Caption = Val(auxiliar.Caption) * Val(cuenta.Caption)
auxiliar.Caption = ""
auxiliar2.Caption = ""
End If
If auxiliar2.Caption = "/" Then
cuenta.Caption = Val(auxiliar.Caption) / Val(cuenta.Caption)
auxiliar.Caption = ""
auxiliar2.Caption = ""
End If
If auxiliar2.Caption = "%" Then
cuenta.Caption = 100 * auxiliar.Caption / cuenta.Caption
auxiliar.Caption = ""
auxiliar2.Caption = ""
End If
End Sub
Private Sub multiplicar_Click()
auxiliar.Caption = cuenta.Caption
cuenta.Caption = ""
auxiliar2.Caption = "*"
End Sub
Private Sub nueve_Click()
cuenta.Caption = cuenta.Caption + "9"
End Sub
Private Sub ocho_Click()
cuenta.Caption = cuenta.Caption + "8"
End Sub
Private Sub porcentaje_Click()
auxiliar.Caption = cuenta.Caption
cuenta.Caption = ""
auxiliar2.Caption = "%"
End Sub
Private Sub restar_Click()
auxiliar.Caption = cuenta.Caption
cuenta.Caption = ""
auxiliar2.Caption = "-"
End Sub
Private Sub seis_Click()
cuenta.Caption = cuenta.Caption + "6"
End Sub
Private Sub siete_Click()
cuenta.Caption = cuenta.Caption + "7"
End Sub
Private Sub sqrt_Click()
cuenta.Caption = ""
cuenta.Caption = Sqr(cuenta.Caption)
End Sub
Private Sub sumar_Click()
auxiliar.Caption = cuenta.Caption
cuenta.Caption = ""
auxiliar2.Caption = "+"
End Sub
Private Sub tres_Click()
cuenta.Caption = cuenta.Caption + "3"
End Sub
Private Sub uno_Click()
cuenta.Caption = cuenta.Caption + "1"
End Sub

Semana 24 (Por Dani B.)

Un reloj para averiguar la edad de tu mascota

Este dispositivo analiza variados aspectos de tu mascota y determina la edad exacta de la misma, de esta manera si las mascotas se desarrollan 7 veces más rápido que los humanos, también cumplirán años 7 veces en 1 año humano, y pues si, este dispositivo también te avisará de cada cumpleaños de tu mascota.

Para más información

Elegí este artículo porque me llamo la atención que exista esto.

Mini teclado para culaquier gadget

Llega este mini teclado con un diseño expectacular, estoy hablando del IOData es que viene con conexión bluetooth, por este motivo podrás utilizarlo en cualquier tipo de gadget que tenga el servicio.

Para más información

Elegí este artículo porque me gusto el diseño que tiene y aparte es muy practico.

Fujitsu LifeBook A1110

En cuanto a sus características Fujitsu LifeBook A1110 tenemos:
Procesador Intel Core 2 Duo P7350/T5800
SO: Windows Vista de 32 o 64-bit
Hasta 4GB de RAM a 800 MHz
Pantalla de 15.4”
Disco de 250 o 320GB
Lectograbadora de DVD
Batería de 6 celdas
Autonomía de 2 horas y media

Para más información

Elegí este artículo porque me llamá la atención el diseño.

Codigo calculadora (Por Dani B.)

Private Sub borrar_Click()
cuenta.Caption = ""
auxiliar.Caption = ""
auxiliar2.Caption = ""
End Sub
Private Sub cero_Click()
cuenta.Caption = cuenta.Caption + "0"
End Sub
Private Sub cinco_Click()
cuenta.Caption = cuenta.Caption + "5"
End Sub
Private Sub cuatro_Click()
cuenta.Caption = cuenta.Caption + "4"
End Sub
Private Sub dos_Click()
cuenta.Caption = cuenta.Caption + "2"
End Sub
Private Sub igual_Click()
If auxiliar2.Caption = "+" Then
cuenta.Caption = Val(auxiliar.Caption) + Val(cuenta.Caption)
auxiliar.Caption = ""
auxiliar2.Caption = ""
End If
If auxiliar2.Caption = "-" Then
cuenta.Caption = Val(auxiliar.Caption) - Val(cuenta.Caption)
auxiliar.Caption = ""
auxiliar2.Caption = ""
End If
If auxiliar2.Caption = "*" Then
cuenta.Caption = Val(auxiliar.Caption) * Val(cuenta.Caption)
auxiliar.Caption = ""
auxiliar2.Caption = ""
End If
End Sub
Private Sub multiplicar_Click()
auxiliar.Caption = cuenta.Caption
cuenta.Caption = ""
auxiliar2.Caption = "*"
End Sub
Private Sub nueve_Click()
cuenta.Caption = cuenta.Caption + "9"
End Sub
Private Sub ocho_Click()
cuenta.Caption = cuenta.Caption + "8"
End Sub
Private Sub restar_Click()
auxiliar.Caption = cuenta.Caption
cuenta.Caption = ""
auxiliar2.Caption = "-"
End Sub
Private Sub seis_Click()
cuenta.Caption = cuenta.Caption + "6"
End Sub
Private Sub siete_Click()
cuenta.Caption = cuenta.Caption + "7"
End Sub
Private Sub sumar_Click()
auxiliar.Caption = cuenta.Caption
cuenta.Caption = ""
auxiliar2.Caption = "+"
End Sub
Private Sub tres_Click()
cuenta.Caption = cuenta.Caption + "3"
End Sub
Private Sub uno_Click()
cuenta.Caption = cuenta.Caption + "1"
End Sub

Semana 23 (Por Dani B.)

Canon G10: poderosa cámara digital de 14.7MP

Les presentamos la nueva serie G de Canon, la G10 incluye lentes con ángulos periféricos de 28mm y zoom óptico 5x, en cuanto a su resolución, posee 14.7 megapíxeles y una pantalla LCD de 3 pulgadas.

Para más información

Elegí este artículo porque me sorprendió que una camara tenga 14.7 megapixeles que es un monton.

Proyector en la palma de tu mano

Por fin!! Todos los que de vez en cuando hacemos presentaciones con un proyector esperábamos este momento con ansia.
El día 30 de Septiembre lanzan el 3M Mpro110, un picoproyector que apenas pesa 150 gramos y permite proyectar imágenes con una resolución de 640 x 480 a un tamaño máximo de 50 pulgadas. Disponiendo de entradas VGA y de vídeo compuesto.

Para más información

Elegí este artículo porque no sabía que existía un poryector tan chico.

Nuevo LG KB770: con televisión DVB-T

Es un teléfono de tecnología 3.5G con Bluetooth stereo y con la capacidad de capturar vídeos en 320 x 240 píxeles de resolución a 15 fps. Pero lo más interesante aún de este aparato es su televisión móvil, con una amplia pantalla táctil de 3 pulgadas.

Para más información

Elegí este artículo porque me encantaría tener un celular en el que se pueda ver la tele.

Semana 22 (Por Dani B.)

AOC V17: lo último de AOC en monitores LCD

AOC ha anunciado su nuevo monitor LCD, el AOC V17, que tiene tan sólo 12mm de profundidad. Con sus 17 pulgadas, ofrece resoluciones de hasta 1440 x 900 con una relación de contraste de 5000:1 y tiempo de respuesta de 10ms. Además de tener dimensiones compactas, también incluye una cámara web VGA, una carcasa transparente, base de vidrio y altavoces estéreo integrados (aunque de tan sólo 1W cada uno). Como si fuera poco, tiene micrófono digital incorporado y también incluye software de videoconferencia.

Para mas información

Elegí este artículo porque me gusto mucho el diseño de este monitor.

Philips te ayuda a despertar por las mañanas con su nuevo gadget

Philips es famoso por sus electrodomésticos en general, esta vez no es un electrodoméstico, sino que es un gadget muy simple para ayudarnos a despertar por las mañanas. Se trata de una luz-alarma que nos despertará por las mañanas, ofrece sonidos naturales que incluyen por ejemplo cantos de pájaros, sonidos de insectos, etc. La luz por su parte, ofrece una luminisidad gradual a medida que pasan los minutos para hacer que el shock de levantarse no sea tan grande si eres muy perezoso.

Para más información Elegí este artículo porque me parecio original este despertador, y a la vez, mas tranquilo que los demas.

Samsung E215, Nuevo Samsung E215

Entre las caracteristicas del Samsung E215 tenemos:
Tarjeta MicroSD de 1GB.
Bluetooth.
Samsung E215 trae conexión USB para trasmitir datos.
Cámara VGA.
Grabador de video.

Para más información

Elegí este artículo porque me gustó el color de este celular.

semana 21 (Por Dani B.)

Motorola MOTOJEWEL, un motorola para chicas

Idem al Motorola U9, llega el Motorola MOTOJEWEL se presenta todavía más enfocado hacia un público femenino.
Entre las prestaciones este Motorola MOTOJEWEL trae:
Conectividad EDGE.
Cámara de fotos de 2 megapíxeles.
Reproductor de música, compatible con Windows Media Player.
Trae Bluetooth.
Como complementos del Motorola MOTOJEWEL se incluye un minibolso en el que caben el teléfono, una tarjeta de crédito y una barra de labios

Para mas información

Elegí este artículo porque me gusto la forma y el diseño de este celular.

iPod nano 4G

Pod nano 4G tiene nuevos diseños y en el el interior se añade un acelerómetro, de forma que la pantalla se rota automáticamente al girar el reproductor.
Con esto ahora con este 4g podemos ver Coverflow, ver los vídeos en panorámico y rotar las fotos automáticamente. Este acelerómetro también añade una nueva funcionalidad, Shake to Shuffle, con lo que al agitar el iPod nano 4G obtendremos una lista de reproducción aleatoria.

Para mas información

Elegí este artículo porque me gustó el cambio que tuvo desde la version anterior a esta.

Muwi: un robot que corta el césped por ti

Echa un vistazo a esta singular e innovadora cortadora de césped. A diferencia de la mayoría de las cortadoras de césped, Muwi es una cortadora-robot de última generación que ya que calcula el tamaño total del césped y automáticamente lo corta. A medida que el césped es cortado y se acumula dentro de Muwi, la máquina construye y comprime el césped en bloques cilíndricos, que pueden ser usados por niños o adultos para realizar diferentes cosas. Interesante máquina!

Para más información

Elegí este artículo porque cada vez existen mas robots que pueden hacer las tareas domesticas como cortar el pasto y así, no lo tenemos que hacer nosotros.

Visual Basic 2 (Por Dani B.)

Private Sub d_Click()
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 Label1_Click()
End Sub
Private Sub enter_Click()
If auxiliar.Caption < 120 Then
nrocanal.Caption = auxiliar.Caption
auxiliar.Caption = ""
Else
auxiliar.Caption = ""
End If
End Sub
Private Sub masbrillo_Click()
pantalla.Top = pantalla.Top - 100
End Sub
Private Sub mascanal_Click()
If Tvcatv.Caption = "TV" Then
If nrocanal.Caption < 13 Then
nrocanal.Caption = nrocanal.Caption + 1
Else nrocanal.Caption = 0
End If
Else
If nrocanal.Caption < 120 Then
nrocanal.Caption = nrocanal.Caption + 1
Else
nrocanal.Caption = 0
End If
End If
End Sub
Private Sub masvolumen_Click()
pantalla.Left = pantalla.Left - 100
End Sub
Private Sub menosbrillo_Click()
pantalla.Top = pantalla.Top + 100
End Sub
Private Sub menoscanal_Click()
If nrocanal.Caption > 0 Then
nrocanal.Caption = nrocanal.Caption - 1
Else
If Tvcatv.Caption = "catv" Then
nrocanal.Caption = 120
Else
nrocanal.Caption = 13
End If
End If
End Sub
Private Sub menosvolumen_Click()
pantalla.Left = pantalla.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
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 = ""
catvtv.Enabled = False
Else
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
auxiliar.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
auxiliar.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

Semana 20 (Por Dani B.)

Google Chrome, el navegador de Google

Google Chrome: el navegador web de Google. ¿Alguien creía que algo así no iba a llegar algún día? Es un paso más de la estrategia de Google por conquistar la web y le acerca aún más a un futurible Google OS, sobretodo por algunas de las características que implementa.

Para más información

Elegí este artículo para que todas las personas se enteren de que existe este nuevo navegador.

Las máquinas serán más inteligentes que los humanos en 2050

Durante el último día de la conferencia Intel Developer Forum en San Francisco, el director tecnológico de Intel, Justin Rattner, presentó su visión para las máquinas de futuro. Entre otras cosas, comentó que Intel investiga y desarrolla interfases entre seres humanos y máquinas, y que ya ha logrado grandes avances en sus investigaciones, que podrían resultar en que la brecha entre seres humanos y computadoras desaparezca antes del año 2050

Para más información

Elegí este artículo para mostrar que el hombre puede crear cosas que sean mas inteligentes que uno mismo.

Colas falsas para comprar el iPhone en Polonia

En la mayoría de países donde se lanzó el iPhone, la expectación generada por la prensa, los foros de internet y los propios consumidores, provocó un interés desmesurado por el terminal de Apple que se reflejó en las largas colas que se formaron para comprar el teléfono.

Sin embargo, como publica Reuters, esta actitud no ha sido igual de homogénea en todos los países del mundo. La operadora Orange, viendo la poca expectación que despertaba el lanzamiento del teléfono en Polonia, optó por contratar actores para que hiciesen cola delante de las tiendas. “Tenemos estas colas frente a 20 negocios en todo el país para incrementar el interés en el iPhone”, ha reconocido un portavoz de la compañía

Para más información

Elegí este artículo para mostrar que no en todo el mundo se esta interesando en comprar el Iphone.

Pantalla y control (Por Dani B.)

Private Sub d_Click()

End Sub

Private Sub catv_Click()

Tvcatv.Caption = "CATV"

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 Label1_Click()

End Sub

Private Sub enter_Click()

nrocanal.Caption = auxiliar.Caption
auxiliar.Caption = ""

End Sub

Private Sub masbrillo_Click()

pantalla.Top = pantalla.Top - 100

End Sub

Private Sub mascanal_Click()

If nrocanal.Caption < caption =" nrocanal.Caption" caption =" 0" left =" pantalla.Left" top =" pantalla.Top"> 0 Then
nrocanal.Caption = nrocanal.Caption - 1
Else
nrocanal.Caption = 120
End If

End Sub

Private Sub menosvolumen_Click()

pantalla.Left = pantalla.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 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
auxiliar.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

Semana 19 (Por Dani B.)

Cual es el resultado de: 399999999999999-399999999999998?

Pues Google dice que el resultado de esta resta es igual a 0. Habrá que mandar a Google a la escuela, Jeje!

Para más información

Elegí este artículo para demostrar que también google se puede equivocar.

iPod dock en forma de un cerdito iPig

Este curioso iPod dock lleva como nombre iPig, el cual como vemos en la imagen tiene forma de un cerdito muy simpatico.

Vista previa del iPigAlgunas caracteristicas son:
2 altavoces de 25 watts integrados
1 subwoofer de 4 pulgadas
Las orejas funcionan como controlador de volumen
Viene en los colores: Amarillo, blanco y rosa.El precio del iPig es de unos $40 dolares.

Para mas información

Elegí este artículo porque me pareció graciosos la forma que tiene este ipod.

Adventure V750, de la mano de Verizon

Verizon y Motorola han anunciado su nuevo móvil que es el Motorola Adventure V750, el cual está basado en la red Qchat y funciona con EVDO Revision A, que al parecer es mejor que la tecnología de tercera generación (3G).

Para más información

Elegí este artículo porque me parecio un modelo muy bueno de celular.

Mapa (Por Dani B.)

Ver mapa más grande

Semana 18 (Por Dani B.)

El sobrecalentamiento de iPods vinculado a incendios

El ministerio de comercio de Japón está investigando tres incendios causados por el recalentamiento de Apple iPod nanos.Nadie resultó herido en los incendios, pero el Gobierno dice que Apple ya ha informado de otros dos casos donde las personas han sufrido quemaduras leves. Los incendios se cree que están vinculados a un defecto de batería.l

Para mas información

Elegí este artículo para que la gente tome precaucion al usar los ipods.

Falso mensaje de movistar propaga troyano

En el día de la fecha zed sheol nos ha reportado un correo que simula provenir de Movistar pero tiene el objetivo de propagar un troyano.

Para mas información

Elegí este artículo para que la gente este al tanto y a las personas que le lleguen este mail que no lo abran.

Blogger tenía un virus

Al fín se sabe porqué el servicio de Blogger, en el cual se aloja este Blog, funciona tan mal.Parece ser que el 6 de agosto sus desarrolladores encontraron un virus de gran magnitud en su código fuente.

Para mas información

Elegí este artículo para que todas las personas se enteren de los que estaba pasando pero por suerte ya se soluciono.

Mis vacaciones (Por Dani B.)

El lunes 28 de julio vino Laura a mi casa y usamos las computadora.










El martes 29 vinieron Iara y Lucila a mi casa para hacer un trabajo de sociales.

El miercoles 30 fui a almorzar a la casa de mi abuela.

El jueves 31 fui al abasto con casi todo mi división a ver una pelicula.

El viernes 1 fui a la casa de Fabiana y usamos la compu.

El lunes 3 fui al dentista.

El martes 4 fui al winter con algunos chicos de mi division.


El miercoles 5 fui a pasear por florida.

El jueves 6 fui a la casa de lucila y tambien fuieron iara y galit para hacer un trabajo de sociales.





El viernes 7 fui al abasto con mis papas.

Semana 17 (por Dani B.)

tumsn... más basura para tu MSN

Este nuevo "servicio" tumsn . net es uno más de los famosos quienteadmite utilizado para obtener usuarios y contraseñas de personas demasiado curiosas y descuidadas.Luego de ingresar tus datos, el sistema se loguará automáticamente en tu cuenta (con tu usuario y contraseña) y enviará este mensaje a tus contactos invitándolos a participar de este engaño

Para mas información



Elegí este artículo para que la gente se de cuenta de lo que es verdaderamente esta pagina de internet.

Sony Ericsson T700


Algunas caracteristicas del Sony EricssonT700 son las siguientes:
Pantalla de 2 pulgadas y 240x320 pixeles de resolucion
Grosor de 10mm y tiene un Peso de 78 gramos
Camara de 3.2 megapixeles
Altavoces integrados
Bluetooth
Conectividad HSDPA


Para mas información

Elegí este artículo porque es un celular muy buenp y m e gustaría tener uno como ese.


Soy rico: 8 personas han comprado el tonto programa para sus iPhones

Ocho propietarios iPhones se han sumado a una elite de clanes: Su gadget de Apple está ejecutando un programa que costó casi US $1000. Pues si son 8 personas que han comprado el tonto programa "I Am Rich".Su función es exactamente lo que el nombre implica: para alertar a la gente que tiene dinero en el banco. I Am Rich (Soy rico). Estaba disponible para la compra en App Store de Apple, conseguir esto cuesta $999.99 dólares, el monto más alto que un desarrollador puede cargar a través del distribuidor digital, dice Armin Heinrich, el desarrollador del programa. Una vez descargado, que no hace mucho solo presenta un icono rojo en pantalla de inicio del iPhone al igual que cualquier otra aplicación, con el subtexto "I Am Rich (Soy rico)." Una vez activado, les presenta a los usuarios la foto de una grande y brillante joya (foto arriba). Eso es todo. Por mil dólares.

Para mas información

Elegí este artículo para que la gente se de cuenta de lo que es esta aplicación y nadie mas la compre.