Private Sub cinco_Click()
asce.Top = 480
a.Caption = "5"
b.Caption = "5"
c.Caption = "5"
d.Caption = "5"
e.Caption = "5"
f.Caption = "5"
g.Caption = "5"
End Sub

Private Sub Command1_Click()
asce.Top = 480
a.Caption = "5"
b.Caption = "5"
c.Caption = "5"
d.Caption = "5"
e.Caption = "5"
f.Caption = "5"
g.Caption = "5"
End Sub

Private Sub Command2_Click()
asce.Top = 1080
a.Caption = "4"
b.Caption = "4"
c.Caption = "4"
d.Caption = "4"
e.Caption = "4"
f.Caption = "4"
g.Caption = "4"
End Sub

Private Sub Command3_Click()
asce.Top = 1680
a.Caption = "3"
b.Caption = "3"
c.Caption = "3"
d.Caption = "3"
e.Caption = "3"
f.Caption = "3"
g.Caption = "3"
End Sub

Private Sub Command4_Click()
asce.Top = 2280
a.Caption = "2"
b.Caption = "2"
c.Caption = "2"
d.Caption = "2"
e.Caption = "2"
f.Caption = "2"
g.Caption = "2"
End Sub

Private Sub Command5_Click()
asce.Top = 2880
a.Caption = "1"
b.Caption = "1"
c.Caption = "1"
d.Caption = "1"
e.Caption = "1"
f.Caption = "1"
g.Caption = "1"
End Sub

Private Sub Command6_Click()
asce.Top = 3480
a.Caption = "PB"
b.Caption = "PB"
c.Caption = "PB"
d.Caption = "PB"
e.Caption = "PB"
f.Caption = "PB"
g.Caption = "PB"
End Sub

Private Sub cuatro_Click()
asce.Top = 1080
a.Caption = "4"
b.Caption = "4"
c.Caption = "4"
d.Caption = "4"
e.Caption = "4"
f.Caption = "4"
g.Caption = "4"
End Sub

Private Sub luz_Click()
If asce.FillColor = vbWhite Then
asce.FillColor = vbBlack
Else
If asce.FillColor = vbBlack Then
asce.FillColor = vbWhite
End If
End If
End Sub

Private Sub pb_Click()
asce.Top = 3480
a.Caption = "PB"
b.Caption = "PB"
c.Caption = "PB"
d.Caption = "PB"
e.Caption = "PB"
f.Caption = "PB"
g.Caption = "PB"
End Sub

Private Sub ss_Click()
asce.Top = 4080
a.Caption = "SS"
b.Caption = "SS"
c.Caption = "SS"
d.Caption = "SS"
e.Caption = "SS"
f.Caption = "SS"
g.Caption = "SS"
End Sub

Private Sub dos_Click()
asce.Top = 2280
a.Caption = "2"
b.Caption = "2"
c.Caption = "2"
d.Caption = "2"
e.Caption = "2"
f.Caption = "2"
g.Caption = "2"
End Sub

Private Sub SSS_Click()
asce.Top = 4080
a.Caption = "SS"
b.Caption = "SS"
c.Caption = "SS"
d.Caption = "SS"
e.Caption = "SS"
f.Caption = "SS"
g.Caption = "SS"
End Sub

Private Sub stop_Click()

uno.Enabled = False
dos.Enabled = False
tres.Enabled = False
cuatro.Enabled = False
cinco.Enabled = False
ss.Enabled = False
pb.Enabled = False
luz.Enabled = False
Command1.Enabled = False
Command2.Enabled = False
Command3.Enabled = False
Command4.Enabled = False
Command5.Enabled = False
Command6.Enabled = False
SSS.Enabled = False
End Sub

Private Sub tres_Click()
asce.Top = 1680
a.Caption = "3"
b.Caption = "3"
c.Caption = "3"
d.Caption = "3"
e.Caption = "3"
f.Caption = "3"
g.Caption = "3"
End Sub

Private Sub uno_Click()
asce.Top = 2880
a.Caption = "1"
b.Caption = "1"
c.Caption = "1"
d.Caption = "1"
e.Caption = "1"
f.Caption = "1"
g.Caption = "1"
End Sub

Semana 27

Entrevista a la Madre de Google
El logo del buscador es una marca registrada de Internet. En una entrevista exclusiva su creadora explica cómo diseñó el emblema hace diez años: letras, colores y formas que están presentes en todo el mundo. Es con la diseñadora brasileña Ruth Kedar y comenta que los emprendedores de google "Me dieron muy buena impresión. Tenían una visión muy clara y lúcida de lo que la compañía tenía que ser. "
Cuenta que se tardó cuatro meses en hacer el logo.
Pero también su creación cambia. Así, en distintos aniversarios y fechas el logo muta a nuevas formas. Aunque Kedar, como cualquier madre, no se frustra si su hijo crece y cambia.
Entrevista completa...

Creo que creadora debe estar orgullosa de su logo, ya que yo pienso que es muy original y me gusta cuando cambian para distintas fechas (como se ve en la ilustración) .




La ONU lanzará en español el primer videojuego humanitario
El Programa Mundial de Alimentos de la Organización de las Naciones Unidas presentará “Food Force”, un videojuego para tomar conciencia sobre la pobreza.
El objetivo del juego es erradicar el hambre en el mundo. Para ello, el participante tendrá que localizar lugares donde la gente se muere de hambre o huye de la guerra. Una vez ubicados, repartirá cargamentos de comida desde un camión que, posiblemente, tenga que atravesar terrenos peligrosos.
Al final de la partida, los jóvenes descubren se puede contribuir a que la gente reconstruya sus vidas después de una tragedia.
LINK

La elegí por ser una propuesta buena para disminuir (o mejor dicho transmitir) estos problemas a través de algo tan sencillo como un videojuego.


Samsung Delve
Este nuevo celular probablemente estará en venta a partir del 7 de Noviembre e incluirá una pantalla táctil de 3 pulgadas con 240×400 pixels de resolución.
Pesa 102 gramos; tiene Bluetooth, memoria interna de 150 MB, y ranura para tarjetas MicroSD.
Entre otras aplicaciones, también tiene la interfaz TouchWiz que permite arrastrar los widgets por la home para personalizarla.

Más sobre este nuevo modelo...

Ascensor 2 (Melu)

Private Sub cinco_Click()
asce.Top = 480
End Sub

Private Sub cuatro_Click()
asce.Top = 1080
End Sub

Private Sub luz_Click()
If asce.BackColor = vbBlack Then
asce.BackColor = vbWhite
End If
End Sub

Private Sub pb_Click()
asce.Top = 3480
End Sub

Private Sub ss_Click()
asce.Top = 4080
End Sub

Private Sub dos_Click()
asce.Top = 2280
End Sub

Private Sub tres_Click()
asce.Top = 1680
End Sub

Private Sub uno_Click()
asce.Top = 2880
End Sub

Noticias Semana 26

Montevideo se convierte primera ciudad Latino-América con Wi-Fi en transporte público
Esta ciudad es la primera latino-americana que ofrece a los usuarios de transporte urbano la posibilidad de acceder gratuitamente a Internet a través de un sistema de conexión inalámbrica WiFi instalado en los vehículos.

Así, viajeros con ordenadores portátiles, escolares del Plan Ceibal y usuarios de teléfonos móviles con conexión inalámbrica se beneficiarán del servicio.

En esta primera etapa, la conexión está disponible en tres vehículos de la línea urbana D10 y se ampliará progresivamente a otros recorridos.

Más Información...

Creo que es un excelente proyecto y será muy útil para la gente de Uruguay.

Los bloggers proponen ideas para combatir la pobreza (15/ 107/ 2008)
El "Día de Acción Blog" pretende unir a bitácoras, podcatsts y videocasts para compartir ideas sobre la pobreza. Anteriormente en la edición 2007, se había establecido un debate sobre la situación del medio ambiente.

También colgarán en sus sitios web ideas y tentativas de solución a este problema mundial. Está abierta a cualquier persona y no hay límites.

Esta convocatoria permitirá a los bloggers dirigir sus preguntas y comentarios a los políticos que estén dispuestos a sumarse a esta campaña.
Sobre Blog Action Day... Foto del logo 2007

Me parece que tendrá mucho existo. Ojalá se hagan buenas propuestas y los gobiernos las tomen en cuenta, llevándolas a la práctica.

Iluminación de las calles gracias a la genética (13/10)

Afortunadamente, cada vez mas calles de nuestras ciudades tienen árboles para darles vida, reducir la contaminación y alegrar la vista. Pero parece que pueden hacer algo más: modificados genéticamente podrían convertirse en organismos bioluminiscentes. Para eso existe la bioluminiscencia que es un proceso biológico que produce de luz gracias a una reacción química. Este proceso es (depende el ser vivo) así: luciferina/ luciferasa + oxigeno= luz + molécula.

Resultado: hojas que brillan en la oscuridad con una iluminación difusa y mucho más agradable que la de una farola.

Sin embargo, aún queda bastante para desarrollar un organismo que podamos utilizar. Empezando por la cantidad de luz: la suma de cientos de hojas no pueden (todavía) aportar una cantidad apreciable de luz.

Pero parece que el color es mucho menos problemático. Jugando con la biología, los científicos han sido capaces de generar hasta 90 colores diferentes...

LINK

Otra nueva propuesta para cuidar el medio ambiente

Calculadora3

Private Sub ocho_Click()
pantalla.Caption = pantalla.Caption + "8"
End Sub

Private Sub por_Click()
aux2.Caption = "*"
Auxiliar.Caption = pantalla.Caption
pantalla.Caption = ""
coma.Enabled = True
End Sub

Private Sub porc_Click()
aux2.Caption = "%"
Auxiliar.Caption = pantalla.Caption
pantalla.Caption = ""
coma.Enabled = True
End Sub

Private Sub raiz_Click()
If pantalla.Caption <= 0 Then
pantalla.Caption = "Error"
Else
pantalla.Caption = Sqr(pantalla.Caption)
End If
End Sub

Private Sub seis_Click()
pantalla.Caption = pantalla.Caption + "6"
End Sub

Private Sub siete_Click()
pantalla.Caption = pantalla.Caption + "7"
End Sub

Private Sub tres_Click()
pantalla.Caption = pantalla.Caption + "3"
End Sub

Private Sub uno_Click()
pantalla.Caption = pantalla.Caption + "1"
End Sub

Noticias Semana 25

Swirrl, trabajo en equipo mediante wiki (6/ 10/ 08)

Con la llegada de la web 2.0 el trabajo colaborativo ha recibido un tremendo empujón, y lo que antes significaba mantener un incesante intercambio de correos, ahora se simplifica con la aparición de herramientas que nos permiten trabajar en equipo al mismo tiempo y desde lugares remotos. Por eso nos encontramos con Swirrl, servicio web que facilita el almacenamiento, edición y análisis de la información de manera sencilla para que los equipos de trabajo metan mano en ella al estilo de una wiki. Tan solo hay que ingresar con el email y elegir el nombre del proyecto, para figurar como administrador. Después sólo será cuestión de invitar a los demás miembros de tu equipo.

Qué es Swirrl

Creo que es una interesante idea y muy útil.

El ADN de las huellas digitales permitiría revelar el apellido (8- Oct- 2008)

La policía podría llegar algún día a predecir el apellido de los sospechosos o las víctimas de crímenes a partir del ADN, informaron investigadores británicos. Ellos dijeron que habían demostrado que los hombres con el mismo apellido eran muy propensos a estar genéticamente relacionados.

En un estudio con aproximadamente 2.500 hombres, más del 70 por ciento de los hombres con apellidos como Attenborough y Swindlehurst compartían los mismos o tipos casi iguales del cromosoma Y.

Más sobre este descubrimiento...

Parece algo útil, pero habría que ver si realmente es tan exacto como dice la noticia.

El BlackBerry que faltaba : con pantalla táctil. (9/ 10/ 2008)

El Storm, que saldrá al mercado en pocos meses, esta listo para competir con el iPhone y el Nokia 5800. El visor se hunde ligeramente cuando se la presiona y hace un "clic" al soltarse.

Además viene con correo electrónico y gestión de documentos, un reproductor de música, películas y fotos. También está equipado con una cámara de 3,2 megapíxeles.

Sobre este celular...

Parece un prometedor modelo.