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.