ascensor

Private Sub b0_Click()
ascensor.Top = pb.Top + 200
contadorpb.Caption = contadorpb.Caption + 1
End Sub
Private Sub b1_Click()
ascensor.Top = p1.Top + 200
contador1.Caption = contador1.Caption + 1
End Sub
Private Sub b2_Click()
ascensor.Top = p2.Top + 200
contador2.Caption = contador2.Caption + 1
End Sub
Private Sub b3_Click()
ascensor.Top = p3.Top + 200
contador3.Caption = contador3.Caption + 1
End Sub
Private Sub b4_Click()
ascensor.Top = p4.Top + 200
contador4.Caption = contador4.Caption + 1
End Sub
Private Sub b5_Click()
Texto1.Visible = True
enter.Visible = True
contraseña.Visible = True
End Sub

Private Sub boton1_Click()
ascensor2.Top = p1.Top + 200
contador1b.Caption = contador1b.Caption + 1
End Sub

Private Sub boton2_Click()
ascensor2.Top = p2.Top + 200
contador2b.Caption = contador2b.Caption + 1
End Sub

Private Sub boton3_Click()
ascensor2.Top = p3.Top + 200
contador3b.Caption = contador3b.Caption + 1
End Sub

Private Sub boton4_Click()
ascensor2.Top = p4.Top + 200
contador4b.Caption = contador4b.Caption + 1
End Sub

Private Sub boton5_Click()
Texto2.Visible = True
enter2.Visible = True
contraseña2.Visible = True
End Sub

Private Sub enter_Click()
If Texto1 = "1234" Then
ascensor.Top = p5.Top + 200
contador5.Caption = contador5.Caption + 1
Texto1 = ""
Texto1.Visible = False
contraseña.Visible = False
enter.Visible = False
End If
End Sub

Private Sub enter2_Click()
If Texto2 = "1234" Then
ascensor2.Top = p5.Top + 200
contador5b.Caption = contador5b.Caption + 1
Texto2 = ""
Texto2.Visible = False
contraseña2.Visible = False
enter2.Visible = False
End If
End Sub

Private Sub Label6_Click()

End Sub

Private Sub off_Click()
b1.Enabled = False
b2.Enabled = False
b3.Enabled = False
b4.Enabled = False
b5.Enabled = False
b0.Enabled = False
sub0.Enabled = False
ascensor.BackColor = vbBlack
contador1.BackColor = vbBlack
contador2.BackColor = vbBlack
contador3.BackColor = vbBlack
contador4.BackColor = vbBlack
contador5.BackColor = vbBlack
contadorpb.BackColor = vbBlack
contadorss.BackColor = vbBlack
piso5.Enabled = False
piso4.Enabled = False
piso3.Enabled = False
piso2.Enabled = False
piso1.Enabled = False
pb2.Enabled = False
ss2.Enabled = False
reset.Enabled = False
End Sub
Private Sub sub_Click()
ascensor.Top = ss.Top + 200
contadorss.Caption = contadorss.Caption + 1
End Sub

Private Sub off2_Click()
boton1.Enabled = False
boton2.Enabled = False
boton3.Enabled = False
boton4.Enabled = False
boton5.Enabled = False
pb3.Enabled = False
ss3.Enabled = False
ascensor2.BackColor = vbBlack
contador1b.BackColor = vbBlack
contador2b.BackColor = vbBlack
contador3b.BackColor = vbBlack
contador4b.BackColor = vbBlack
contador5b.BackColor = vbBlack
contadorpb2.BackColor = vbBlack
contadorss2.BackColor = vbBlack
piso5.Enabled = False
piso4.Enabled = False
piso3.Enabled = False
piso2.Enabled = False
piso1.Enabled = False
pb2.Enabled = False
ss2.Enabled = False
reset2.Enabled = False
End Sub

Private Sub on_Click()
b1.Enabled = True
b2.Enabled = True
b3.Enabled = True
b4.Enabled = True
b5.Enabled = True
b0.Enabled = True
sub0.Enabled = True
ascensor.BackColor = vbDesktop
contador1.BackColor = vbWhite
contador2.BackColor = vbWhite
contador3.BackColor = vbWhite
contador4.BackColor = vbWhite
contador5.BackColor = vbWhite
contadorpb.BackColor = vbWhite
contadorss.BackColor = vbWhite
piso5.Enabled = True
piso4.Enabled = True
piso3.Enabled = True
piso2.Enabled = True
piso1.Enabled = True
pb2.Enabled = True
ss2.Enabled = True
reset.Enabled = True
End Sub

Private Sub on2_Click()
boton1.Enabled = True
boton2.Enabled = True
boton3.Enabled = True
boton4.Enabled = True
boton5.Enabled = True
pb3.Enabled = True
ss3.Enabled = True
ascensor2.BackColor = vbDesktop
contador1b.BackColor = vbWhite
contador2b.BackColor = vbWhite
contador3b.BackColor = vbWhite
contador4b.BackColor = vbWhite
contador5b.BackColor = vbWhite
contadorpb2.BackColor = vbWhite
contadorss2.BackColor = vbWhite
piso5.Enabled = True
piso4.Enabled = True
piso3.Enabled = True
piso2.Enabled = True
piso1.Enabled = True
pb2.Enabled = True
ss2.Enabled = True
reset2.Enabled = True
End Sub

Private Sub pb2_Click()
If Sqr((pb.Top - ascensor.Top) ^ 2) > Sqr((pb.Top - ascensor2.Top) ^ 2) Then
ascensor2.Top = pb.Top + 200
Else: ascensor.Top = pb.Top + 200
End If
End Sub

Private Sub pb3_Click()
ascensor2.Top = pb.Top + 200
contadorpb2.Caption = contadorpb2.Caption + 1
End Sub

Private Sub piso1_Click()
If Sqr((p1.Top - ascensor.Top) ^ 2) > Sqr((p1.Top - ascensor2.Top) ^ 2) Then
ascensor2.Top = p1.Top + 200
Else: ascensor.Top = p1.Top + 200
End If
End Sub

Private Sub piso2_Click()
If Sqr((p2.Top - ascensor.Top) ^ 2) > Sqr((p2.Top - ascensor2.Top) ^ 2) Then
ascensor2.Top = p2.Top + 200
Else: ascensor.Top = p2.Top + 200
End If
End Sub

Private Sub piso3_Click()
If Sqr((p3.Top - ascensor.Top) ^ 2) > Sqr((p3.Top - ascensor2.Top) ^ 2) Then
ascensor2.Top = p3.Top + 200
Else: ascensor.Top = p3.Top + 200
End If
End Sub
Private Sub piso4_Click()
If Sqr((p4.Top - ascensor.Top) ^ 2) > Sqr((p4.Top - ascensor2.Top) ^ 2) Then
ascensor2.Top = p4.Top + 200
Else: ascensor.Top = p4.Top + 200
End If
End Sub
Private Sub piso5_Click()
If Sqr((p5.Top - ascensor.Top) ^ 2) > Sqr((p5.Top - ascensor2.Top) ^ 2) Then
ascensor2.Top = p5.Top + 200
Else: ascensor.Top = p5.Top + 200
End If
End Sub
Private Sub reset_Click()
contadorss.Caption = "0"
contadorpb.Caption = "0"
contador1.Caption = "0"
contador2.Caption = "0"
contador3.Caption = "0"
contador4.Caption = "0"
contador5.Caption = "0"
End Sub

Private Sub reset2_Click()
contadorss2.Caption = "0"
contadorpb2.Caption = "0"
contador1b.Caption = "0"
contador2b.Caption = "0"
contador3b.Caption = "0"
contador4b.Caption = "0"
contador5b.Caption = "0"
End Sub

Private Sub ss2_Click()
If Sqr((ss.Top - ascensor.Top) ^ 2) > Sqr((ss.Top - ascensor2.Top) ^ 2) Then
ascensor2.Top = ss.Top + 200
Else: ascensor.Top = ss.Top + 200
End If
End Sub

Private Sub ss3_Click()
ascensor2.Top = ss.Top + 200
contadorss2.Caption = contadorss2.Caption + 1
End Sub

Private Sub sub0_Click()
ascensor.Top = ss.Top + 200
contadorss.Caption = contadorss.Caption + 1
End Sub

semana 25

Articulo 1:

Reproduce álbumes y canciones completas en Last.fm

Ya no tendrás solo que escuchar un pedazo de la canción o de un álbum que tanto querías, ni tendrás que andarte buscando en emisoras hasta encontrarla, porque ahora puedes en Last.fm seleccionar y escuchar gratis las canciones que quieras.
Lo malo para alguno es que por ahora solo está disponible en Estados Unidos, Reino Unido y Alemania.
Las canciones solo se podrán reproducir 3 veces de forma directa, si quieres escucharlas más veces tendrás que pagar una suscripción mensual con la que tendrás acceso ilimitado.

Articulo 2:

Sony Ericsson Paris mas imagenes y caracteristicas

Como ya lo habiamos publicado antes acerca de unas imagenes del nuevo celular Sony Ericsson

Paris.Aqui te traemos mas imagenes con algunas caracteristicas del celular:

.Tendra una Camara de 5 megapixeles
.Google Maps preinstalado
.Pantalla de 2,6 pulgadas
.A-GPS y Wi-Fi
.Bluetooth
.Bateria de 960mAH
.Teclado QWERTY
.Versión nueva del navegador
.La última version de UIQ

Articulo 3:

Exportar objetos desde Second Life a OpenSim

PUES SÍ PODEMOS. Si se pueden exportar e importar objetos entre opensim y Second Life. La respuesta es sí y aquí vemos unas cuantas pruebas. He importado de Second Life a OpenSim un megaprim para el suelo además de varios objetos. Para poder hacerlo necesitas tener permisos completos sobre el objeto, pero siendo así se puede exportar desde un prim hasta todo un domo.
De momento ya está en Revver el primero de los videotutoriales sobre la instalación de OpenSim que ya ha visto bastante gente inworld, dentro de Second Life y que lo han instalado sin más problemas. Las dudas que me han mandado sobre como modificar el terreno o como cambiar el aspecto del avatar pues como se puede ver no es nada complicado, aunque sí es algo diferente que en Second Life y es necesario usar comandos en la consola, aunque de nuevo de modo muy sencillo.

semana 24

articulo 1:

Disponible la nueva versión de Firefox 3.0.4

Ya se encuentra disponible la nueva versión de Firefox 3.0.4; en esta versión se corrigen varios problemas, ya sean de seguridad como de estabilidad, arreglándose además el problema surgido al guardar nuestras contraseñas. En detalle las mejoras han sido:

• Se han solucionado varios problemas de seguridad y estabilidad.
• Ya se encuentran disponibles las versiones oficiales de los idiomas: islandés y tailandés.
• Además podemos probar las versiones beta de los siguientes idiomas: búlgaro, esperanto, estonio, letón, occitano y galés.
• Se ha actualizado la lista interna de sufijos públicos.
• Se ha solucionado el problema en el que el panel de ‘Administrar marcadores’ tapaba la herramienta IME.
• Se han activado nuevos certificados raíz EV.
• Han solucionado el problema, que no permitía que algunas contraseñas sean guardadas.
• Se ha corregido el problema que no permitía que Firefox guarde de forma correcta la configuración proxy para protocolos diferentes del HTTP.

articulo 2:

Más de 100 aplicaciones gratuitas para Mac OS X

sar Mac es fabuloso, el problema es que al no ser (todavía) tan usada como las PCs a la gente que quiere cambiar a esta plataforma le da miedo, pues hay que ser algo geek-clavado-curioso para descubrir programas para esta plataforma. Con una PC cualquiera te recomienda alternativas gratuitas a diferentes aplicaciones o utilidades gratuitas para hacerle cualquier cosa a tu computadora, pero con la Mac es algo diferente.

Por eso es que el post publicado hoy en UsingMac.com resulta muy útil para novatos y expertos. Te ofrece una lista de más de 100 aplicaciones compatibles con OS X. Se ha tomado la molestia de dividir los programas por categoría (productividad, sistema, manejo de archivos, editores de texto, etc.), además te da una brevísima explicación de cada una, la liga para descargar y todos los programas GRATIS.

articulo 3:

Acuerdo entre Sun y Microsoft para competir con Google

Los usuarios de Internet necesitamos emplear un buscador, entre la amplia oferta que existe, para navegar entre toda la maraña que forma la red. Para muchísimos usuarios, el buscador es su página de inicio por defecto y la más empleada y visitada. Google, conocido por todos, es el servicio más popular, aunque existan otros muchos buscadores como el portal Yahoo! o dmoz, implementado en código abierto.

En la pugna entre Microsot y Google para convertirse en la empresa más influyente sobre Internet, es evidente que por el momento Google ha ganado la partida. Además, el intento de compra de Yahoo!, por parte de Microsoft para reforzar su posición, ha fracasado y ha favorecido la sensación dominante de su competidor más directo.

semana 23

articulo 1:

Nuevo modelo Nissan Tecnologia de la mas alta calidad

Tecnologia de la mas alta calidad
Una modelo aparcando el prototipo del nuevo Pivo de Nissan en la sede de la compañía en Tokio (Japón).
Se trata de un auto eléctrico con una cabina que gira 360 grados y ruedas que giran 90 grados. Será presentado en la Feria del Motor de Tokio a finales de este mes de octubre.

Aunque es corto me intereso ya habla de un prototipo de un auto nuevo que va a salir a la venta pronto.

Articulo 2:

El nuevo Windows 7 novedades todo novedades

La fecha prevista de aparición de la nueva versión de Windows llamada Windows 7 sera para el año 2010.

Pues bien parece que hay una serie de rumores que indicarían que Microsoft seguiría la línea abierta con el producto Microsoft Surface y apostaría por la compatibilidad de plataformas táctiles con el nuevo sistema, de forma que dichas interfaces cobrasen mucho más protagonismo en el nuevo sistema operativo Windows 7.Hay analistas que aseguran que el desarrollo se centrará en otros aspectos más allá de la interfaz gráfica que ha sufrido cambios significativos en el paso de Windows Xp a Windows Vista.

Me intereso este articulo porque introduce el posible Windows 7.

Articulo 3:

Windows XP SP3, una actualización recomendada

Finalmente, Microsoft ha hecho que el Service Pack 3 paraWindows XP esté disponible para su descarga. El archivo ocupaunos 308 MB en su versión completa. Pero si solo deseaactualizar su PC, es mejor esperar hacerlo vía WindowsUpdate, que también empezará a ofrecerlo a través de lasactualizaciones automáticas, ya que el tiempo y el tamaño dela descarga será mucho menor (mínimo unos 70 MB).La liberación del nuevo pack se ha retrasado por un error queafectaba a los usuarios del Microsoft Dynamics RetailManagement System (Sistema de Administración para la Venta alPúblico), una herramienta que permite a pequeños y medianoscomerciantes, administrar procesos de punto de ventaautomatizados en una o múltiples tiendas y sucursales.Microsoft publicó un parche para estos usuarios que debe ser aplicado antes de instalar el SP3.

Elegi este articulo porque habla acerca de un programa para pequeños y medianos comerciantes.

semana 22

articulo 1:

No te pierdas ningún concierto con HearWhere

HearWhere es un portal especializado para localizar todos los eventos musicales que se desarrollarán en la zona y puedan ser de tu interés.

Posee un buscador integrado que permite escoger la música que te interesa. Seleccionas los géneros musicales que te gustan; desde la música vocal a la electrónica, pasando por el flamenco o el rock clásico. Escoges las fechas donde tengas disponibilidad para asistir a los conciertos. Y finalmente centras en qué localidad, y añades a cuánta distancia alrededor (en millas), quieres saber qué se organiza.

articulo 2:

Organiza eventos con Congregar

Congregar es una herramienta en línea para ayudarte en la tarea de organizar cualq

uier evento. Se basa en resolver qué fecha es la mejor, entre todos los participantes, para favorecer la mayor asistencia posible.

Para crear un nuevo evento es necesario indicar tu nombre y tu correo electrónico, que serán visibles para todos los posibles participantes a tu acto. A continuación debes introducir el título de la actividad y una breve descripción de en qué consistirá. Y como último paso escoger, sobre un calendario, la fecha o fechas propuestas como mejor día para organizar el acto.

articulo 3:

blog Los usuarios del iPhone ya se quejan del modelo 3G

Después del tan esperado lanzamiento que se realizó hoy a nivel mundial, hubo fallas que dificultaron la activación del nuevo artefacto. Quejas y enojos de los usuarios

Los desperfectos fueron hallados a nivel del iTunes de Apple, donde queda registrada la información sobre las cuentas de los usuarios por lo que un representante de AT&T habló al respecto: 'Apple está trabajando para resolver este tema, que se da a nivel global con iTunes'.
Si bien hubo colas para adquirir el Iphone en Nueva York, San Francisco y otras ciudades de Estados Unidos no fueron tan largas como las que se vieron hace un año, señaló DPA, según publicó hoy Eluniversal.com.

semana 21

articulo 1:

blog Movistar también ofrece reservar el iPhone 3G en la Argentina

blog La empresa dependiente de Telefónica ya permite entonces que los usuarios reserven su equipo previo registro en Tienda Movistar, página lanzada hace pocos meses atrás.

Se une así al método de registro que puso al aire Claro tiempo atrás, pero sin brindar detalle alguno acerca de la fecha de llegada del iPhone 3G al país ni tampoco sobre el precio que tendrá.

El iPhone 3G fue presentado en 21 países el 11 de julio. El único de la región que estuvo entre los elegidos fue México, país del que es oriunda Claro, filial de América Móvil.












articulo 2:

Roban a sus padres para comprar en internet

Si sos padre y tu hijo tiene entre 8 y 16 años de edad, empezá a esconder tu tarjeta de crédito (por las dudas)… no vayas a convertirte en uno de esos padres desprevenidos de Gran Bretaña que pagan más de 191 millones de libras esterlinas al año, por los hábitos fraudulentos que tienen sus hijos en internet.

Éstas y otras cifras más se dieron a conocer mediante un sondeo realizado en ese país, en dónde son más de 1 millón los niños que usan o “intentan usar” las tarjetas de crédito de sus padres. Sobretodo los que tienen más de 15 años de edad, de los cuáles 1 de cada 10 hace una compra ilícita de entre 75 y 100 libras esterlinas por mes para comprar aparatos tecnológicos, juegos para PC o consolas.

articulo 3:

Google Maps Argentina el 17 de Noviembre

En iPhoneGurues me entero de que a partir del próximo Lunes 17 de Noviembre, Google lanzará lo que es la primera etapa del servicio de mapas para Argentina, con las cap

as que incluyen el nombre de calles y rutas varias de nuestro país.

El lanzamiento de funcionalidades será progresivo, en esta primera etapa estaría cubierto el 80% de la población argentina. Los usuarios de

dispositivos móviles deberán esperar una semana más para tener los datos en la versión “mobile”.

semana 20

articulo 1:

Los ISP temen la seguridad de IPv6

Casi la mitad de los proveedores de Internet (ISP) creen que podrían surgir nuevas amenazas con el despliegue de la nueva versión del Protocolo Internet (IPv6).

El último informe anual sobre seguridad de infraestructura lo ha dejado claro: los proveedores de Internet temen a IPv6. Arbor Network, empresa encargada de realizar el estudio afirma que la mitad de los IPv6 creen que la nueva versión del protocolo generará nuevas amenazas.

La encuesta se ha realizado a cerca de 70 operadores de red de todo el mundo y muestra un continuado aumento de ataques cada vez más sofisticados, incluidos ataques a nivel de servicio, intoxicación de DNS y secuestro de rutas.

articulo 2:

blog Los usuarios del iPhone ya se quejan del modelo 3G

Después del tan esperado lanzamiento que se realizó hoy a nivel mundial, hubo fallas que dificultaron la activación del nuevo artefacto. Quejas y enojos de los usuarios

Los desperfectos fueron hallados a nivel del iTunes de Apple, donde queda registrada la información sobre las cuentas de los usuarios por lo que un representante de AT&T habló al respecto: 'Apple está trabajando para resolver este tema, que se da a nivel global con iTunes'.


articulo 3:

blog Datos sobre CPUs Intel con 8 núcleos y AVX

egún varias diapositivas mostradas de los planes de Intel en el futuro, los procesadores Core i7 de Intel recibirán una reducción del proceso de fabricación de los 45 nm a 32 nm. Para el 2010 llegaría una arquitectura nueva conocida en clave como Sandy Bridge, y que duplicará el número de núcleos a 8. Conservará el HyperThreading, por lo que dispondrá de la capacidad de ejecutar 16 subprocesos, y contará con una caché de tercer nivel de 16 MB compartida para todos los núcleos.

Sandy Bridge también contará con un nuevo juego de instrucciones llamado AVX (Adv

anced Vector Extensions) y que superará a las SSE de los Core 2 y Core i7. Este AVX extenderá el tamaño de las instrucciones a 256 bits, y opcionalmente realizará como cuatro cálculos en una sola instrucción. También se podrá extender y ampliar con nuevo código a lo largo del tiempo, sin necesidad de cambiar el hardware en sí. Estas extensiones AVX deberían mejorar el rendimiento de codificación multimedia, modelado 3D y otros terrenos donde se haya usado matemáticas basada en vectores para mejorar el rendimiento.