Ascensor final (por Herno y Marcos)

Private Sub Command1_Click()

End Sub

Private Sub Label1_Click()

End Sub

Private Sub borrar_Click()
contraseña = "contraseña."
cinco.Enabled = True
controlcinco.Enabled = True
End Sub

Private Sub cinco_Click()

auxiliar.Caption = Sqr(((ascensor.Top - 1200) / 600) ^ 2)
cuentapisos.Caption = Val(cuentapisos.Caption) + Val(auxiliar.Caption)
ascensor.Top = 1200
If ascensor.Top = 1200 Then
pcinco.Caption = "5"
pcuatro.Caption = "5"
ptres.Caption = "5"
pdos.Caption = "5"
puno.Caption = "5"
ppb.Caption = "5"
pss.Caption = "5"
pisos.Caption = "5"
End If
If ascensor.Top = 1200 Then
ccinco.Caption = ccinco.Caption + 1
End If
cinco.Enabled = False
cuatro.Enabled = True
tres.Enabled = True
dos.Enabled = True
uno.Enabled = True
pb.Enabled = True
ss.Enabled = True
controlcinco.Enabled = False
controlcuatro.Enabled = True
controltres.Enabled = True
controldos.Enabled = True
controluno.Enabled = True
controlpb.Enabled = True
controlss.Enabled = True
End Sub

Private Sub controlcinco_Click()
auxiliar.Caption = Sqr(((ascensor.Top - 1200) / 600) ^ 2)
cuentapisos.Caption = Val(cuentapisos.Caption) + Val(auxiliar.Caption)
If contraseña = "14" Then
ascensor.Top = 1200
pcinco.Caption = "5"
pcuatro.Caption = "5"
ptres.Caption = "5"
pdos.Caption = "5"
puno.Caption = "5"
ppb.Caption = "5"
pss.Caption = "5"
pisos.Caption = "5"
contraseña = "ACCESO PERMITIDO"
Else
contraseña = "ACCESO DENEGADO"
End If
If ascensor.Top = 1200 Then
ccinco.Caption = ccinco.Caption + 1
End If
cinco.Enabled = False
cuatro.Enabled = True
tres.Enabled = True
dos.Enabled = True
uno.Enabled = True
pb.Enabled = True
ss.Enabled = True
controlcinco.Enabled = False
controlcuatro.Enabled = True
controltres.Enabled = True
controldos.Enabled = True
controluno.Enabled = True
controlpb.Enabled = True
controlss.Enabled = True

End Sub

Private Sub controlcuatro_Click()
auxiliar.Caption = Sqr(((ascensor.Top - 1800) / 600) ^ 2)
cuentapisos.Caption = Val(cuentapisos.Caption) + Val(auxiliar.Caption)
ascensor.Top = 1800
If ascensor.Top = 1800 Then
pcinco.Caption = "4"
pcuatro.Caption = "4"
ptres.Caption = "4"
pdos.Caption = "4"
puno.Caption = "4"
ppb.Caption = "4"
pss.Caption = "4"
pisos.Caption = "4"
End If
If ascensor.Top = 1800 Then
ccuatro.Caption = ccuatro.Caption + 1
End If
cinco.Enabled = True
cuatro.Enabled = False
tres.Enabled = True
dos.Enabled = True
uno.Enabled = True
pb.Enabled = True
ss.Enabled = True
controlcinco.Enabled = True
controlcuatro.Enabled = False
controltres.Enabled = True
controldos.Enabled = True
controluno.Enabled = True
controlpb.Enabled = True
controlss.Enabled = True
End Sub

Private Sub controldos_Click()
auxiliar.Caption = Sqr(((ascensor.Top - 3000) / 600) ^ 2)
cuentapisos.Caption = Val(cuentapisos.Caption) + Val(auxiliar.Caption)
ascensor.Top = 3000
If ascensor.Top = 3000 Then
pcinco.Caption = "2"
pcuatro.Caption = "2"
ptres.Caption = "2"
pdos.Caption = "2"
puno.Caption = "2"
ppb.Caption = "2"
pss.Caption = "2"
pisos.Caption = "2"
End If
If ascensor.Top = 3000 Then
cdos.Caption = cdos.Caption + 1
End If
cinco.Enabled = True
cuatro.Enabled = True
tres.Enabled = True
dos.Enabled = False
uno.Enabled = True
pb.Enabled = True
ss.Enabled = True
controlcinco.Enabled = True
controlcuatro.Enabled = True
controltres.Enabled = True
controldos.Enabled = False
controluno.Enabled = True
controlpb.Enabled = True
controlss.Enabled = True
End Sub

Private Sub controlpb_Click()
auxiliar.Caption = Sqr(((ascensor.Top - 4200) / 600) ^ 2)
cuentapisos.Caption = Val(cuentapisos.Caption) + Val(auxiliar.Caption)
ascensor.Top = 4200
If ascensor.Top = 4200 Then
pcinco.Caption = "PB"
pcuatro.Caption = "PB"
ptres.Caption = "PB"
pdos.Caption = "PB"
puno.Caption = "PB"
ppb.Caption = "PB"
pss.Caption = "PB"
pisos.Caption = "PB"
End If
If ascensor.Top = 4200 Then
cpb.Caption = cpb.Caption + 1
End If
cinco.Enabled = True
cuatro.Enabled = True
tres.Enabled = True
dos.Enabled = True
uno.Enabled = True
pb.Enabled = False
ss.Enabled = True
controlcinco.Enabled = True
controlcuatro.Enabled = True
controltres.Enabled = True
controldos.Enabled = True
controluno.Enabled = True
controlpb.Enabled = False
controlss.Enabled = True
End Sub

Private Sub controlss_Click()
auxiliar.Caption = Sqr(((ascensor.Top - 4800) / 600) ^ 2)
cuentapisos.Caption = Val(cuentapisos.Caption) + Val(auxiliar.Caption)
ascensor.Top = 4800
If ascensor.Top = 4800 Then
pcinco.Caption = "SS"
pcuatro.Caption = "SS"
ptres.Caption = "SS"
pdos.Caption = "SS"
puno.Caption = "SS"
ppb.Caption = "SS"
pss.Caption = "SS"
pisos.Caption = "SS"
End If
If ascensor.Top = 4800 Then
css.Caption = css.Caption + 1
End If
cinco.Enabled = True
cuatro.Enabled = True
tres.Enabled = True
dos.Enabled = True
uno.Enabled = True
pb.Enabled = True
ss.Enabled = False
controlcinco.Enabled = True
controlcuatro.Enabled = True
controltres.Enabled = True
controldos.Enabled = True
controluno.Enabled = True
controlpb.Enabled = True
controlss.Enabled = False
End Sub

Private Sub controltres_Click()
auxiliar.Caption = Sqr(((ascensor.Top - 2400) / 600) ^ 2)
cuentapisos.Caption = Val(cuentapisos.Caption) + Val(auxiliar.Caption)
ascensor.Top = 2400
If ascensor.Top = 2400 Then
pcinco.Caption = "3"
pcuatro.Caption = "3"
ptres.Caption = "3"
pdos.Caption = "3"
puno.Caption = "3"
ppb.Caption = "3"
pss.Caption = "3"
pisos.Caption = "3"
End If
If ascensor.Top = 2400 Then
ctres.Caption = ctres.Caption + 1
End If
cinco.Enabled = True
cuatro.Enabled = True
tres.Enabled = False
dos.Enabled = True
uno.Enabled = True
pb.Enabled = True
ss.Enabled = True
controlcinco.Enabled = True
controlcuatro.Enabled = True
controltres.Enabled = False
controldos.Enabled = True
controluno.Enabled = True
controlpb.Enabled = True
controlss.Enabled = True
End Sub

Private Sub controluno_Click()
auxiliar.Caption = Sqr(((ascensor.Top - 3600) / 600) ^ 2)
cuentapisos.Caption = Val(cuentapisos.Caption) + Val(auxiliar.Caption)
ascensor.Top = 3600
If ascensor.Top = 3600 Then
pcinco.Caption = "1"
pcuatro.Caption = "1"
ptres.Caption = "1"
pdos.Caption = "1"
puno.Caption = "1"
ppb.Caption = "1"
pss.Caption = "1"
pisos.Caption = "1"
End If
If ascensor.Top = 3600 Then
cuno.Caption = cuno.Caption + 1
End If
cinco.Enabled = True
cuatro.Enabled = True
tres.Enabled = True
dos.Enabled = True
uno.Enabled = False
pb.Enabled = True
ss.Enabled = True
controlcinco.Enabled = True
controlcuatro.Enabled = True
controltres.Enabled = True
controldos.Enabled = True
controluno.Enabled = False
controlpb.Enabled = True
controlss.Enabled = True
End Sub

Private Sub cuatro_Click()
auxiliar.Caption = Sqr(((ascensor.Top - 1800) / 600) ^ 2)
cuentapisos.Caption = Val(cuentapisos.Caption) + Val(auxiliar.Caption)
ascensor.Top = 1800
If ascensor.Top = 1800 Then
pcinco.Caption = "4"
pcuatro.Caption = "4"
ptres.Caption = "4"
pdos.Caption = "4"
puno.Caption = "4"
ppb.Caption = "4"
pss.Caption = "4"
pisos.Caption = "4"
End If
If ascensor.Top = 1800 Then
ccuatro.Caption = ccuatro.Caption + 1
End If
cinco.Enabled = True
cuatro.Enabled = False
tres.Enabled = True
dos.Enabled = True
uno.Enabled = True
pb.Enabled = True
ss.Enabled = True
controlcinco.Enabled = True
controlcuatro.Enabled = False
controltres.Enabled = True
controldos.Enabled = True
controluno.Enabled = True
controlpb.Enabled = True
controlss.Enabled = True
End Sub

Private Sub dos_Click()
auxiliar.Caption = Sqr(((ascensor.Top - 3000) / 600) ^ 2)
cuentapisos.Caption = Val(cuentapisos.Caption) + Val(auxiliar.Caption)
ascensor.Top = 3000
If ascensor.Top = 3000 Then
pcinco.Caption = "2"
pcuatro.Caption = "2"
ptres.Caption = "2"
pdos.Caption = "2"
puno.Caption = "2"
ppb.Caption = "2"
pss.Caption = "2"
pisos.Caption = "2"
End If
If ascensor.Top = 3000 Then
cdos.Caption = cdos.Caption + 1
End If
cinco.Enabled = True
cuatro.Enabled = True
tres.Enabled = True
dos.Enabled = False
uno.Enabled = True
pb.Enabled = True
ss.Enabled = True
controlcinco.Enabled = True
controlcuatro.Enabled = True
controltres.Enabled = True
controldos.Enabled = False
controluno.Enabled = True
controlpb.Enabled = True
controlss.Enabled = True
End Sub

Private Sub luz_Click()
If ascensor.BackColor = vbYellow Then
ascensor.BackColor = vbBlack
Else
ascensor.BackColor = vbYellow
End If
End Sub

Private Sub pb_Click()
auxiliar.Caption = Sqr(((ascensor.Top - 4200) / 600) ^ 2)
cuentapisos.Caption = Val(cuentapisos.Caption) + Val(auxiliar.Caption)
ascensor.Top = 4200
If ascensor.Top = 4200 Then
pcinco.Caption = "PB"
pcuatro.Caption = "PB"
ptres.Caption = "PB"
pdos.Caption = "PB"
puno.Caption = "PB"
ppb.Caption = "PB"
pss.Caption = "PB"
pisos.Caption = "PB"
End If
If ascensor.Top = 4200 Then
cpb.Caption = cpb.Caption + 1
End If
cinco.Enabled = True
cuatro.Enabled = True
tres.Enabled = True
dos.Enabled = True
uno.Enabled = True
pb.Enabled = False
ss.Enabled = True
controlcinco.Enabled = True
controlcuatro.Enabled = True
controltres.Enabled = True
controldos.Enabled = True
controluno.Enabled = True
controlpb.Enabled = False
controlss.Enabled = True
End Sub

Private Sub pcinco_Click()
If ascensor.Top = 1200 Then
pcinco.Caption = "5"
Else
If ascensor.Top = 1800 Then
pcinco.Caption = "4"
Else
If ascensor.Top = 2400 Then
pcinco.Caption = "3"
Else
If ascensor.Top = 3000 Then
pcinco.Caption = "2"
Else
If ascensor.Top = 3600 Then
pcinco.Caption = "1"
Else
If ascensor.Top = 4200 Then
pcinco.Caption = "PB"
Else
If ascensor.Top = 4800 Then
pcinco.Caption = "SS"
Else
End If
End If
End If
End If
End If
End If
End If
End Sub

Private Sub reiniciar_Click()
ccinco.Caption = "0"
ccuatro.Caption = "0"
ctres.Caption = "0"
cdos.Caption = "0"
cuno.Caption = "0"
cpb.Caption = "0"
css.Caption = "0"
total.Caption = "0"
cinco.Enabled = True
cuatro.Enabled = True
tres.Enabled = True
dos.Enabled = True
uno.Enabled = True
pb.Enabled = True
ss.Enabled = True
End Sub

Private Sub ss_Click()
auxiliar.Caption = Sqr(((ascensor.Top - 4800) / 600) ^ 2)
cuentapisos.Caption = Val(cuentapisos.Caption) + Val(auxiliar.Caption)
ascensor.Top = 4800
If ascensor.Top = 4800 Then
pcinco.Caption = "SS"
pcuatro.Caption = "SS"
ptres.Caption = "SS"
pdos.Caption = "SS"
puno.Caption = "SS"
ppb.Caption = "SS"
pss.Caption = "SS"
pisos.Caption = "SS"
End If
If ascensor.Top = 4800 Then
css.Caption = css.Caption + 1
End If
cinco.Enabled = True
cuatro.Enabled = True
tres.Enabled = True
dos.Enabled = True
uno.Enabled = True
pb.Enabled = True
ss.Enabled = False
controlcinco.Enabled = True
controlcuatro.Enabled = True
controltres.Enabled = True
controldos.Enabled = True
controluno.Enabled = True
controlpb.Enabled = True
controlss.Enabled = False
End Sub

Private Sub stop_Click()
If cinco.Enabled = True Then
cinco.Enabled = False
cuatro.Enabled = False
tres.Enabled = False
dos.Enabled = False
uno.Enabled = False
pb.Enabled = False
ss.Enabled = False
contraseña.Enabled = False
controlcinco.Enabled = False
controlcuatro.Enabled = False
controltres.Enabled = False
controldos.Enabled = False
controluno.Enabled = False
controlpb.Enabled = False
controlss.Enabled = False
borrar.Enabled = False
reiniciar.Enabled = False
luz.Enabled = False
Else
If cinco.Enabled = False Then
cinco.Enabled = True
cuatro.Enabled = True
tres.Enabled = True
dos.Enabled = True
uno.Enabled = True
pb.Enabled = True
ss.Enabled = True
contraseña.Enabled = True
controlcinco.Enabled = True
controlcuatro.Enabled = True
controltres.Enabled = True
controldos.Enabled = True
controluno.Enabled = True
controlpb.Enabled = True
controlss.Enabled = True
borrar.Enabled = True
reiniciar.Enabled = True
luz.Enabled = True
End If
End If
End Sub

Private Sub total_Click()

End Sub

Private Sub tres_Click()
ascensor.Top = 2400
auxiliar.Caption = Sqr(((ascensor.Top - 2400) / 600) ^ 2)
cuentapisos.Caption = Val(cuentapisos.Caption) + Val(auxiliar.Caption)
If ascensor.Top = 2400 Then
pcinco.Caption = "3"
pcuatro.Caption = "3"
ptres.Caption = "3"
pdos.Caption = "3"
puno.Caption = "3"
ppb.Caption = "3"
pss.Caption = "3"
pisos.Caption = "3"
End If
If ascensor.Top = 2400 Then
ctres.Caption = ctres.Caption + 1
End If
cinco.Enabled = True
cuatro.Enabled = True
tres.Enabled = False
dos.Enabled = True
uno.Enabled = True
pb.Enabled = True
ss.Enabled = True
controlcinco.Enabled = True
controlcuatro.Enabled = True
controltres.Enabled = False
controldos.Enabled = True
controluno.Enabled = True
controlpb.Enabled = True
controlss.Enabled = True
End Sub

Private Sub uno_Click()
auxiliar.Caption = Sqr(((ascensor.Top - 3600) / 600) ^ 2)
cuentapisos.Caption = Val(cuentapisos.Caption) + Val(auxiliar.Caption)
ascensor.Top = 3600
If ascensor.Top = 3600 Then
pcinco.Caption = "1"
pcuatro.Caption = "1"
ptres.Caption = "1"
pdos.Caption = "1"
puno.Caption = "1"
ppb.Caption = "1"
pss.Caption = "1"
pisos.Caption = "1"
End If
If ascensor.Top = 3600 Then
cuno.Caption = cuno.Caption + 1
End If
cinco.Enabled = True
cuatro.Enabled = True
tres.Enabled = True
dos.Enabled = True
uno.Enabled = False
pb.Enabled = True
ss.Enabled = True
controlcinco.Enabled = True
controlcuatro.Enabled = True
controltres.Enabled = True
controldos.Enabled = True
controluno.Enabled = False
controlpb.Enabled = True
controlss.Enabled = True
End Sub

semana 26

Perian en su versión 1.1.1

Por suerte ya se encuentra disponible Perian en su versión 1.1.1, este plugin hace que QuickTime vuelva a ser el protagonista de reproductor de Mac OS x. En esta nueva versión podemos encontrar mas de una novedad, una de ellas es una gran cantidad de soluciones a problemas que van desde el codec H.264 hasta MKV con audioAAC/FLAC, entre otras cosas se refina el sistema encargado de las actualizaciones automáticas.

Otra de las cosas a destacar de Perain es que soporta nuevos codecs como, ZMBV, DosBox y VP6+Alpha.



En la pagina web de este proyecto se puede descargar también la versión para Apple TV, la vedad es que cada día que pasa el QuikTime es un poco mas versátil, esperemos que se mantenga este nivel.
































DistriBrute, usando P2P para instalaciones masivas









Al decir P2P, muchas personas piensan directamente en la descarga de archivos, y en los problemas de piratería… pero esta forma de distribución tiene mucho potencial, y DistriBrute es un ejemplo de ello.
Esta aplicación permitiría utilizar el protocolo empleado en BitTorrent para hacer instalaciones masivas por medio de una red, pudiendo evitar el uso de servidores centrales.Esta solución ha sido desarrollada por la empresa 4M88, que está orientada en el desarrollo de productos corporativos, más que nada.
La aplicación DistriBrute es su caballito de batalla, y no es para menos, ya que la misma permitiría entre tantas cosas, eliminar la necesidad de servidores de distribución, reducir notablemente los tiempos de actualización/reinstalación de software en una extensa red de computadoras, y hasta ahorrarnos dinero a la hora de hacer actividades de mantenimiento (ya que una persona las haría de forma masiva, y no una-por-una).
Esta idea viene circulando por la mente de varias empresas, aunque con distintos enfoques, como el caso de Microsoft Research, que en su momento quería sacar provecho a los gusanos de Internet para que hicieran labores de este tipo.
En todo caso, la gente de 4M88 lo ha logrado con DistriBrute, y hasta promueven su software como una solución ‘verde’, al provocar un ahorro de energía en la eliminación de servidores de distribución (¡incluso han ganado un premio por ello!).

Funcionamiento de DistriBrute
Ya hay dos lugares en donde se ha probado exitosamente DistriBrute, siendo uno de Holanda, donde se distribuye software por medio de una red que conecta unas 6500 computadoras, en 16 ubicaciones distintas. En este caso, se pudieron eliminar un total de 20 servidores, y los tiempos de actualización se redujeron de 4 días a unas 4 horas solamente…
De momento, el producto se encuentra disponible solo para organizaciones dentro de Holanda, aunque esperan poder lanzarlo a nivel mundial para el primer trimestre del 2009.

Los móviles están en la mira de los hackers

1

Todos sabemos que significa la palabra hacker y las empresas sienten pavor de que alguno de estos individuos logre colarse en sus sistemas, ¿pero ellos ya están pensando en los móviles? Pues sí, según los especialistas en seguridad los ordenadores ya no son el único objetivo de los hackers pues hoy el móvil comienza a estar en su mira.
Parece que los móviles ya son pequeños ordenadores de bolsillos y tienen a veces mejores conexiones a Internet, así que los hackers pueden llegar a capitalizar sus puntos vulnerables en materia de aplicaciones o sistemas operativos.
Podrían usarlos para ganar dinero, programándolos para llamar a cobrar o para comprar tonos de llamadas configurados por los criminales mismos, por ejemplo, ya que parece que los móviles son cacharros muy vulnerables, que siempre están encendidos, tienen pocos softwares de seguridad, siempre están recibiendo o enviando datos y demás.
O sea, pueden ser la víctima ideal de los hackers. Pueden ser, nadie dice que hoy en día lo sean. Parece que esta investigación realizada por la firma Georgia Tech no tiene evidencias concluyentes de que ya estén sobre ellos aunque claro, podemos especular con que algo así tiene todas las posibilidades de ocurrir en un futuro no demasiado lejano.

Blogs, medios sociales, lectores e influencia

Trabaja uno en blogs, medios sociales y publicidad online, pero luego son los temas que menos aparecen en el blog. Para empezar a encauzar esta situación, hoy comparto presentación de un estudio realizado por Social Media SL y GFK basado en las entrevistas realizadas a un total de 920 internautas. Toca temas como los cambios de hábitos de consumo de contenidos (de medios tradicionales a blogs especializados, el 47 por ciento de los encuestados afirma leer menos revistas), la presencia de lectores influenciadores, el grado de aceptación de publicidad en blogs y la influencia de los mismos en decisiones de compra. El estudio se centra en los blogs que comercializa Social Media (en el momento del estudio, los de WeblogsSL), pero tiene un montón de datos interesantes sobre temas acerca de los que hemos teorizado mucho

captura y codigo

End Sub

Private Sub Dos_Click()
Auxiliar.Caption = Auxiliar.Caption + "2"
End Sub

Private Sub Enter_Click()
Nrocanal.Caption = Auxiliar.Caption
Auxiliar.Caption = ""
End Sub

Private Sub Interruptor1_Click()
if Tvctv.Caption = TV
End Sub

Private Sub Masbrillo_Click()
Pantalla.Top = Pantalla.Top + 100
Auxiliar.Top = Auxiliar.Top + 100
Tvcatv.Top = Tvcatv.Top + 100
Onoff.Top = Onoff.Top + 100
Panasonic1.Top = Panasonic1.Top + 100
Bajo.Top = Bajo.Top + 100
Nrocanal.Top = Nrocanal.Top + 100
End Sub

Private Sub Mascanal_Click()
If Tvcatv.Caption = "TV" Then
If Nrocanal.Caption < caption =" Nrocanal.Caption" caption =" 0" caption =" Nrocanal.Caption" caption =" 0" left =" Pantalla.Left" left =" Auxiliar.Left" left =" Tvcatv.Left" left =" Onoff.Left" left =" Panasonic1.Left" left =" Bajo.Left" left =" Nrocanal.Left" top =" Pantalla.Top" top =" Auxiliar.Top" top =" Tvcatv.Top" top =" Onoff.Top" top =" Panasonic1.Top" top =" Bajo.Top" top =" Nrocanal.Top"> 0 Then
Nrocanal.Caption = Nrocanal.Caption - 1
Else
Nrocanal.Caption = 130
End If
End Sub

Private Sub Menosvolumen_Click()
Pantalla.Left = Pantalla.Left - 100
Auxiliar.Left = Auxiliar.Left - 100
Tvcatv.Left = Tvcatv.Left - 100
Onoff.Left = Onoff.Left - 100
Panasonic1.Left = Panasonic1.Left - 100
Bajo.Left = Bajo.Left - 100
Nrocanal.Left = Nrocanal.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 = ""
Onoff.BackColor = vbBlack
Tvcatv.Caption = ""
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
Enter.Enabled = False
Off.Enabled = False
Masvolumen.Enabled = False
Masbrillo.Enabled = False
Mascanal.Enabled = False
Menosvolumen.Enabled = False
Menosbrillo.Enabled = False
Menoscanal.Enabled = False
Onn.Enabled = True
Auxiliar.Caption = ""
End Sub

Private Sub Onn_Click()
Nrocanal.Caption = "0"
Onoff.BackColor = vbRed
Tvcatv.Caption = "TV"
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
Enter.Enabled = True
Off.Enabled = True
Masvolumen.Enabled = True
Masbrillo.Enabled = True
Mascanal.Enabled = True
Menosvolumen.Enabled = True
Menosbrillo.Enabled = True
Menoscanal.Enabled = True
Onn.Enabled = False

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

hecho por herno y marcos

segundo video flash(por herno)

[Upload your own video]

animasion 2 (por herno)

[Upload your own video]

pelotita

---------------------------------------------------------------------------------------

resultados encuesta

estos son los resultados de encuesta:

internet explorer:44

mozilla firefox:44

otro:22

ares:51

limewire:38
otro:21

encuesta: 44

los foros:38

otro:18

google maps:45

msn maps:46

otro:9

de 10 a 20 :47

de 20 a 35:30
mas de 35:33

maculino:77

femanina:33

PRIMER MES DE NOTICIAS

YO RESERVE:GOOGLE

mi lugar (por herno)

Ricardo Izecson dos Santos Leite (22 de abril de 1982, Brasilia, Brasil), mas conocido como kaká, debutó en el 2001 con el Sao Paulo con tan solo 19 años, marcó 22 goles en sus dos primeras temporadas lo que llamó la atención de uno de los clubes mas poderosos de Europa, el Milán, quien le fichó por tan solo ocho millones y medio de euros. Debutó contra el Ancona y consiguió 10 tantos en la temporada e incluso su equipo ganó la liga y la supercopa europea. Sus años en Milán están siendo mágicos aun mas cuando jugaba con el ahora jugador del Chelsea Sevchenko, fué nombrado balón de oro en 2005 y el mejor jugador de la copa de Europa en la temporada 2004-2005. Resumiendo... Kaká es un crack, una jóven promesa brasileña y está dando mucho que hablar..




Quien ha tenido la fortuna, como yo, de vivir la Familia del Milan no olvida y no quiere dejar de sentirse parte de ella.

Lo he sabido volviendo al Benfica, una vuelta muy sentimental en la cual me ha llevado hacia mis raices, consiguiendo un sueño que me ha acompañado desde el día que era jóven, tuve que abandonar Lisboa.

El Milan te entra en las venas y no sale nunca más, quiero transmitirte a ti, al Presidente, a Carlo y a todos los chicos que mi corazón estará con todos vosotros en Atenas.
Ver mapa más grande

Mi lugar (por herno)

El lugar que yo elegi fue la cancha del inter

mi blog (por Hernan R.)

mi blog es este: http://herno-river2d.blogspot.com/

cancion 2

La renga

A tu lado

Pobreza en los estómagos
Más pobreza en la cabeza
No queda nada a salvo de este gran error
El mundo sigue así
Tan terrible y abrumado
Que sentirte a mi lado me hará mucho mejor
Saltemos este muro y desaparezcamos

No, no da refugio el cielo,
En una noche como hoy, de fuego,
Vaga tu alma en celo
En su trampa el cazador sereno
va a estar esperándote

En esta soledad,
La que asila a tanta gente
El que salve su vida, la perderá
El mundo tan feliz, a su mal me ha acostumbrado
Que sentirme a tu lado me hará mucho mejor
Saltemos este muro y desaparezcamos,
en un lugar seguro dejaremos el dolor.

No, no da refugio el cielo,
En una noche como hoy, de fuego,
Vaga tu alma en celo
En su trampa el cazador sereno
va a estar esperándote

Al fin seremos todos,
Después que sólo seas uno,
Es un arte muy difícil cuando domina el temor
El mundo tan hostil, nos lleva decapitados
Que sentirte a mi lado me hará mucho mejor
Saltemos este absurdo y desaparezcamos
En un lugar seguro dejaremos el dolor.

No, no da refugio el cielo,
En una noche como hoy, de fuego,
Vaga tu alma en celo
En su trampa el cazador sereno
va a estar esperándote

página oficial de La Renga

me gusto porque es una cancion que escuchaba mi hermano de chico y me la enseño y estuve toda mi vida escuchando la renga.

tarea cancion 2008

La renga

A tu lado

Pobreza en los estómagos
Más pobreza en la cabeza
No queda nada a salvo de este gran error
El mundo sigue así
Tan terrible y abrumado
Que sentirte a mi lado me hará mucho mejor
Saltemos este muro y desaparezcamos

No, no da refugio el cielo,
En una noche como hoy, de fuego,
Vaga tu alma en celo
En su trampa el cazador sereno
va a estar esperándote

En esta soledad,
La que asila a tanta gente
El que salve su vida, la perderá
El mundo tan feliz, a su mal me ha acostumbrado
Que sentirme a tu lado me hará mucho mejor
Saltemos este muro y desaparezcamos,
en un lugar seguro dejaremos el dolor.

No, no da refugio el cielo,
En una noche como hoy, de fuego,
Vaga tu alma en celo
En su trampa el cazador sereno
va a estar esperándote

Al fin seremos todos,
Después que sólo seas uno,
Es un arte muy difícil cuando domina el temor
El mundo tan hostil, nos lleva decapitados
Que sentirte a mi lado me hará mucho mejor
Saltemos este absurdo y desaparezcamos
En un lugar seguro dejaremos el dolor.

No, no da refugio el cielo,
En una noche como hoy, de fuego,
Vaga tu alma en celo
En su trampa el cazador sereno
va a estar esperándote

página oficial de La Renga