jueves, 30 de octubre de 2008
viernes, 3 de octubre de 2008
Semana 23
Noticia 1:
Una entrada de Slashdot me lleva hasta “Almost half of Goo
gle products - including 4-year-old Gmail - remain in beta: Why?“, un artículo de NetworkWorld en el que se plantean hasta qué punto Google ha redefinido el significado del calificativo “beta” desde su sentido primigenio, algo que resulta completamente evidente si partimos del significado de “versión beta” en Wikipedia:
“Una versión beta o lanzamiento beta representa generalmente la primera versión completa del programa informático o de otro producto, que es probable que sea inestable pero útil para que las demostraciones internas y las inspecciones previas seleccionen a clientes.”
Frente a esa idea de inestabilidad, de prueba en condiciones de carga limitada y de “solo apto para valientes”, Google ofrece, como comenta el título del artículo, prácticamente la mitad de sus productos en esta fase (veintidós de cuarenta y cinco), incluyendo algunos como Gmail, con ya cuatro años de antigüedad. ¿Qué significa para Google, por tanto, el calificativo de “beta”? Según un portavoz de la empresa que ha dejado un comentario en la entrada, el concepto de “beta” se ha redefinido completamente:
“We have very high internal metrics our consumer products have to meet before coming out of beta. Our teams continue to work to improve these products and provide users with an even better experience. We believe beta has a different meaning when applied to applications on the Web, where people expect continual improvements in a product. On the Web, you don’t have to wait for the next version to be on the shelf or an update to become available. Improvements are rolled out as they’re developed. Rather than the packaged, stagnant software of decades past, we’re moving to a world of regular updates and constant feature refinement where applications live in the cloud.”
Es decir, que la beta se refiere a la fase de “aprendizaje promovido por el uso”, a las actualizaciones continuas y el refinamiento de funciones mientras las aplicaciones viven en la nube, algo que se separa completamente de la época en la que había que esperar a que la siguiente versión de un programa con las correspondientes mejoras llegase a las estanterías de las tiendas en una caja forrada en celofán. Y en ese sentido, resulta razonable pensar que un producto permanezca en beta cuatro años o los que hagan falta, si en efecto está incorporando mejoras gracias a las sugerencias y a la utilización constante.
gle products - including 4-year-old Gmail - remain in beta: Why?“, un artículo de NetworkWorld en el que se plantean hasta qué punto Google ha redefinido el significado del calificativo “beta” desde su sentido primigenio, algo que resulta completamente evidente si partimos del significado de “versión beta” en Wikipedia:“Una versión beta o lanzamiento beta representa generalmente la primera versión completa del programa informático o de otro producto, que es probable que sea inestable pero útil para que las demostraciones internas y las inspecciones previas seleccionen a clientes.”
Frente a esa idea de inestabilidad, de prueba en condiciones de carga limitada y de “solo apto para valientes”, Google ofrece, como comenta el título del artículo, prácticamente la mitad de sus productos en esta fase (veintidós de cuarenta y cinco), incluyendo algunos como Gmail, con ya cuatro años de antigüedad. ¿Qué significa para Google, por tanto, el calificativo de “beta”? Según un portavoz de la empresa que ha dejado un comentario en la entrada, el concepto de “beta” se ha redefinido completamente:
“We have very high internal metrics our consumer products have to meet before coming out of beta. Our teams continue to work to improve these products and provide users with an even better experience. We believe beta has a different meaning when applied to applications on the Web, where people expect continual improvements in a product. On the Web, you don’t have to wait for the next version to be on the shelf or an update to become available. Improvements are rolled out as they’re developed. Rather than the packaged, stagnant software of decades past, we’re moving to a world of regular updates and constant feature refinement where applications live in the cloud.”
Es decir, que la beta se refiere a la fase de “aprendizaje promovido por el uso”, a las actualizaciones continuas y el refinamiento de funciones mientras las aplicaciones viven en la nube, algo que se separa completamente de la época en la que había que esperar a que la siguiente versión de un programa con las correspondientes mejoras llegase a las estanterías de las tiendas en una caja forrada en celofán. Y en ese sentido, resulta razonable pensar que un producto permanezca en beta cuatro años o los que hagan falta, si en efecto está incorporando mejoras gracias a las sugerencias y a la utilización constante.
Noticia 2:
PDF Search En
gine es un buscador online que te permitirá encontrar los e-books que andas buscando. Lo único que tienes que hacer es tipear el nombre del libro que buscas o una palabra clave y obtendrás una lista de resultados. Una de las ventajas con las que cuenta este buscador es que puedes obtener una vista previa del documento antes de descargarlo, lo cual resulta muy útil para evitar perder tiempo descargando algo no deseado.También podrás buscar documentos en general que esten en pdf, algo muy apropiado si andas buscando que leer.
gine es un buscador online que te permitirá encontrar los e-books que andas buscando. Lo único que tienes que hacer es tipear el nombre del libro que buscas o una palabra clave y obtendrás una lista de resultados. Una de las ventajas con las que cuenta este buscador es que puedes obtener una vista previa del documento antes de descargarlo, lo cual resulta muy útil para evitar perder tiempo descargando algo no deseado.También podrás buscar documentos en general que esten en pdf, algo muy apropiado si andas buscando que leer.Noticia 3:
Internet World Stats es una we
b dedicada a brindar información estadística actualizada sobre el uso internacional de internet, estadísticas de población e información para investigación de mercados en más de 233 países en diversas regiones del mundo. Este cuadro me llamó mucho la atención pues nos muestra los 10 idiomas más usados en la Web.Noticia 3:
Semana 22
Noticia 1:
Prueba un Mercedez Benz CLC
CLC Dream Test Drive es un juego tipo Need for Sp
eed que te permitirá (virtualmente) sentir la experiencia de conducir un auto Mercedez Benz CLC. El juego pesa 105MB y cuenta con varias pistas de carrera tanto de día como de noche. Así mismo podrás ver los detalles del interior de los autos de una manera bastante realista.
Prueba un Mercedez Benz CLC
CLC Dream Test Drive es un juego tipo Need for Sp
eed que te permitirá (virtualmente) sentir la experiencia de conducir un auto Mercedez Benz CLC. El juego pesa 105MB y cuenta con varias pistas de carrera tanto de día como de noche. Así mismo podrás ver los detalles del interior de los autos de una manera bastante realista.Noticia 2:
BenQ con nuevos LCDLa conocida y exitosa m
arca BenQ ha presentado un par de monitores LCD que realmente son muy interesantes, ambos pertenecen a su linea G. Es un monitor ideales para los artistas y personas similares ya que presenta características totalmente configurables y ajustables. Los modelos de los que estamos hablando son el G2200WT con nada menos que 22 pulgadas de tamaño y el G2400WT con 24 pulgadas de puro lujo.
Los dos modelos poseen la capacidad de girar sus pantallas hasta 90 grados y elevarse por encima de su base unos 13 cm, lo mejor de estos monitores es su contraste dinámico en el orden de los 4000:1 y un tiempo de respuesta de nada menos que 5 milisegundos en sus paneles. También cuentan con conectores DVI y VGA.
arca BenQ ha presentado un par de monitores LCD que realmente son muy interesantes, ambos pertenecen a su linea G. Es un monitor ideales para los artistas y personas similares ya que presenta características totalmente configurables y ajustables. Los modelos de los que estamos hablando son el G2200WT con nada menos que 22 pulgadas de tamaño y el G2400WT con 24 pulgadas de puro lujo.Los dos modelos poseen la capacidad de girar sus pantallas hasta 90 grados y elevarse por encima de su base unos 13 cm, lo mejor de estos monitores es su contraste dinámico en el orden de los 4000:1 y un tiempo de respuesta de nada menos que 5 milisegundos en sus paneles. También cuentan con conectores DVI y VGA.
Noticia 3:
Interesante c
olumna de Sarah Lacy en Business Week, “Blogging: in praise of small“, en la que describe cómo muchos blogs, al crecer, se convierten en medios de comunicación y pierden algunas de las señas de identidad del género: entran en el juego de las marcas para informar sobre nuevos productos, escriben contenidos para tener más publicidad, y provocan que se desvanezca en gran medida la sensación de comunidad.
En cierto modo, es como si muchos blogs hubiesen decidido que “de mayores querían ser medios de comunicación clásicos”, y hubiesen heredado algunas de las peores características de éstos: la mediatización, el sesgo y la despersonalización. El articulo es exactamente lo que dice el título: un elogio de los blogs pequeños, con comunidades sólidas y asentadas, esas en las que el autor conoce a los comentaristas y se cruza comentarios con ellos y entradas con otros blogs vecinos, en esa conversación que se suponía era parte de la esencia primigenia de los blogs como medios personales.La autora de la columna divide a los bloggers en tres tipos: los profesionales que escriben por dinero, los amateurs que siguen haciéndolo for the love of it, y los pioneros que empezaron fascinados por el medio, lo abandonaron para pasarse al nanoblogging con Twitter, Friendfeed y afines, y que seguramente se pasarán también al siguiente medio que aparezca en el panorama de la red.
olumna de Sarah Lacy en Business Week, “Blogging: in praise of small“, en la que describe cómo muchos blogs, al crecer, se convierten en medios de comunicación y pierden algunas de las señas de identidad del género: entran en el juego de las marcas para informar sobre nuevos productos, escriben contenidos para tener más publicidad, y provocan que se desvanezca en gran medida la sensación de comunidad.En cierto modo, es como si muchos blogs hubiesen decidido que “de mayores querían ser medios de comunicación clásicos”, y hubiesen heredado algunas de las peores características de éstos: la mediatización, el sesgo y la despersonalización. El articulo es exactamente lo que dice el título: un elogio de los blogs pequeños, con comunidades sólidas y asentadas, esas en las que el autor conoce a los comentaristas y se cruza comentarios con ellos y entradas con otros blogs vecinos, en esa conversación que se suponía era parte de la esencia primigenia de los blogs como medios personales.La autora de la columna divide a los bloggers en tres tipos: los profesionales que escriben por dinero, los amateurs que siguen haciéndolo for the love of it, y los pioneros que empezaron fascinados por el medio, lo abandonaron para pasarse al nanoblogging con Twitter, Friendfeed y afines, y que seguramente se pasarán también al siguiente medio que aparezca en el panorama de la red.
Semana 21
noticia 1:
El PUE, o Power Use Efficiency, es uno de los ratios más simples y que se están popularizando más para introducir métricas que evalúen los data centers en función de su eficiencia energética. Corresponde al cociente entre el uso total de energía en un data center frente al consumo de los ordenadores contenidos en él: dado que habitualmente, alrededor de la mitad del consumo se emplea en tareas como refrigeración, este ratio nos da una idea muy clara de la cantidad de energía necesaria para mover nuestros equipos.
Un PUE de 2 supone que por cada watio empleado en hacer funcionar un equipo, hemos tenido que utiulizar otro watio más para enfriarlo y hacer llegar la electricidad hasta él, y era la magnitud habitual de esta métrica en los data centers norteamericanos según las estadísticas de la EPA de 2006, agencia que se ha marcado como objetivo obtener una reducción a 1.9 para el total agregado del parque de data centers en el año 2011. En los de más reciente construcción, diseñados ya con la idea de la eficiencia energética en la cabeza como variable importante que va a la línea inferior de la cuenta de resultados y por la que un número creciente de CIOs empiezan a ser evaluados, el PUE puede llegar a ser de 1.3.
Un PUE de 2 supone que por cada watio empleado en hacer funcionar un equipo, hemos tenido que utiulizar otro watio más para enfriarlo y hacer llegar la electricidad hasta él, y era la magnitud habitual de esta métrica en los data centers norteamericanos según las estadísticas de la EPA de 2006, agencia que se ha marcado como objetivo obtener una reducción a 1.9 para el total agregado del parque de data centers en el año 2011. En los de más reciente construcción, diseñados ya con la idea de la eficiencia energética en la cabeza como variable importante que va a la línea inferior de la cuenta de resultados y por la que un número creciente de CIOs empiezan a ser evaluados, el PUE puede llegar a ser de 1.3.
noticia 2
El título del post suena demasiado genérico pues no está referido a todos los usuarios de Linux sino más bien a los programadores que trabajan con Linux. Y es que la compañia Fitbit (especialistas en monitoreo del buen estado físico y del sueño) mostró el siguiente cuadro para hacer ver que la obesidad es un problema que también está afectando al mundo geek.La siguiente imágen muestra claramente como en menos de 10 años las camisetas diseñadas para el Linux Symposium variarion drásticamente en las tallas.
Noticia 3
El 5to concurso de diseño organizado por Peugeot para este año tiene como tema "imaginate a Peugeot en las grandes ciudades del mañana" para lo cual diseñadores de todo el mundo están enviando sus propuestas futuristas que obviamente tiene que tener el estilo y la identidad del fabricante de automóviles Peugeot y además, otras importantes características como: la conciencia en el medio ambiente, la armonía social, movilidad interactiva y la eficiencia económica. El ganador se dará a conocer el próximo 2 de octubre, y será exhibido en el Motor Show de Shangai en abril de 2009.
jueves, 25 de septiembre de 2008
calculadora de visualbasic
Private Sub borrar_Click()auxiliar.Caption = ""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 coma_Click()auxiliar.Caption = auxiliar.Caption + "."End Sub
Private Sub cuatro_Click()auxiliar.Caption = auxiliar.Caption + "4"End Sub
Private Sub dividido_Click()auxiliarnumero.Caption = auxiliar.Captionauxiliarop.Caption = "/"auxiliar.Caption = ""End Sub
Private Sub dos_Click()auxiliar.Caption = auxiliar.Caption + "2"End Sub
Private Sub igual_Click()If auxiliarop.Caption = "+" Thenauxiliar.Caption = Val(auxiliarnumero.Caption) + Val(auxiliar.Caption)auxiliarnumero.Caption = ""auxiliarop.Caption = ""End IfIf auxiliarop.Caption = "-" Thenauxiliar.Caption = Val(auxiliarnumer.Caption) - Val(auxiliar.Caption)auxilianumero.Caption = ""auxiliarop.Caption = ""End IfIf auxiliarop.Caption = "*" Thenauxiliar.Caption = Val(auxiliarnumer.Caption) * Val(auxiliar.Caption)auxilianumero.Caption = ""auxiliarop.Caption = ""End IfIf auxiliarop.Caption = "/" Thenauxiliar.Caption = Val(auxiliarnumer.Caption) / Val(auxiliar.Caption)auxilianumero.Caption = ""auxiliarop.Caption = ""End IfEnd Sub
Private Sub mas_Click()auxiliarnumero.Caption = auxiliar.Captionauxiliarop.Caption = "+"auxiliar.Caption = ""End Sub
Private Sub menos_Click()auxiliarnumero.Caption = auxiliar.Captionauxiliarop.Caption = "-"auxiliar.Caption = ""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 por_Click()auxiliarnumero.Caption = auxiliar.Captionauxiliarsigno.Caption = "*"auxiliar.Caption = ""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 uno_Click()auxiliar.Caption = auxiliar.Caption + "1"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 coma_Click()auxiliar.Caption = auxiliar.Caption + "."End Sub
Private Sub cuatro_Click()auxiliar.Caption = auxiliar.Caption + "4"End Sub
Private Sub dividido_Click()auxiliarnumero.Caption = auxiliar.Captionauxiliarop.Caption = "/"auxiliar.Caption = ""End Sub
Private Sub dos_Click()auxiliar.Caption = auxiliar.Caption + "2"End Sub
Private Sub igual_Click()If auxiliarop.Caption = "+" Thenauxiliar.Caption = Val(auxiliarnumero.Caption) + Val(auxiliar.Caption)auxiliarnumero.Caption = ""auxiliarop.Caption = ""End IfIf auxiliarop.Caption = "-" Thenauxiliar.Caption = Val(auxiliarnumer.Caption) - Val(auxiliar.Caption)auxilianumero.Caption = ""auxiliarop.Caption = ""End IfIf auxiliarop.Caption = "*" Thenauxiliar.Caption = Val(auxiliarnumer.Caption) * Val(auxiliar.Caption)auxilianumero.Caption = ""auxiliarop.Caption = ""End IfIf auxiliarop.Caption = "/" Thenauxiliar.Caption = Val(auxiliarnumer.Caption) / Val(auxiliar.Caption)auxilianumero.Caption = ""auxiliarop.Caption = ""End IfEnd Sub
Private Sub mas_Click()auxiliarnumero.Caption = auxiliar.Captionauxiliarop.Caption = "+"auxiliar.Caption = ""End Sub
Private Sub menos_Click()auxiliarnumero.Caption = auxiliar.Captionauxiliarop.Caption = "-"auxiliar.Caption = ""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 por_Click()auxiliarnumero.Caption = auxiliar.Captionauxiliarsigno.Caption = "*"auxiliar.Caption = ""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 uno_Click()auxiliar.Caption = auxiliar.Caption + "1"End Sub
jueves, 18 de septiembre de 2008
Segundo codigo visual basic
Private Sub apagar_Click()ceito.Caption = ""tvcatv.Caption = ""uno.Enabled = Falsedos.Enabled = Falsetres.Enabled = Falsecuatro.Enabled = FalseCinco.Enabled = Falseseis.Enabled = Falsesiete.Enabled = Falseocho.Enabled = Falsenueve.Enabled = FalseCero.Enabled = Falseenter.Enabled = Falseonoff.BackColor = vbBlack
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 Command1_Click()
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 enter_Click()ceito.Caption = auxiliar.Captionauxiliar.Caption = ""End Sub
Private Sub mados_Click()
End Sub
Private Sub mas_Click()tele.Top = tele.Top - 100base.Top = base.Top - 100End Sub
Private Sub masdos_Click()If ceito.Caption > 12 Then If tvcatv.Caption = "TV" Then ceito.Caption = 1 Else ceito.Caption = 1 End IfElseceito.Caption = ceito.Caption + 1End IfEnd Sub
Private Sub masuno_Click()tele.Left = tele.Left - 100base.Left = base.Left - 100End Sub
Private Sub menos_Click()tele.Top = tele.Top + 100base.Top = base.Top + 100End Sub
Private Sub menosdos_Click()If ceito.Caption < 1 Then If tvcatv.Caption = "TV" Then ceito.Caption = 13 Else ceito.Caption = 130 End IfElseceito.Caption = ceito.Caption - 1End IfEnd Sub
Private Sub menosuno_Click()tele.Left = tele.Left + 100base.Left = base.Left + 100End Sub
Private Sub nueve_Click()auxiliar.Caption = auxiliar.Caption + "9"End Sub
Private Sub NUEVOCATV_Click()If tvcatv.Caption = "tv" Then tvcatv.Caption = "catv" Else tvcatv.Caption = "catv" tvcatv.Caption = "tv" End If
End Sub
Private Sub ocho_Click()auxiliar.Caption = auxiliar.Caption + "8"End Sub
Private Sub offon_Click()If uno.Enabled = True Then ceito.Caption = "" 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 enter.Enabled = False onoff.BackColor = vbBlack mas.Enabled = False masuno.Enabled = False masdos.Enabled = False menos.Enabled = False menosuno.Enabled = False menosdos.Enabled = False NUEVOCATV.Enabled = False prender.Enabled = False apagar.Enabled = False tv.Enabled = False catv.Enabled = FalseElseceito.Caption = "0"uno.Enabled = Truedos.Enabled = Truetres.Enabled = Truecuatro.Enabled = TrueCinco.Enabled = Trueseis.Enabled = Truesiete.Enabled = Trueocho.Enabled = Truenueve.Enabled = TrueCero.Enabled = Trueenter.Enabled = Trueonoff.BackColor = vbRed mas.Enabled = True masuno.Enabled = True masdos.Enabled = True menos.Enabled = True menosuno.Enabled = True menosdos.Enabled = True NUEVOCATV.Enabled = True prender.Enabled = True apagar.Enabled = True tv.Enabled = True catv.Enabled = TrueEnd IfEnd Sub
Private Sub prender_Click()ceito.Caption = "0"uno.Enabled = Truedos.Enabled = Truetres.Enabled = Truecuatro.Enabled = TrueCinco.Enabled = Trueseis.Enabled = Truesiete.Enabled = Trueocho.Enabled = Truenueve.Enabled = TrueCero.Enabled = Trueenter.Enabled = Trueonoff.BackColor = vbRed
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 uno_Click()auxiliar.Caption = auxiliar.Caption + "1"End Sub
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 Command1_Click()
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 enter_Click()ceito.Caption = auxiliar.Captionauxiliar.Caption = ""End Sub
Private Sub mados_Click()
End Sub
Private Sub mas_Click()tele.Top = tele.Top - 100base.Top = base.Top - 100End Sub
Private Sub masdos_Click()If ceito.Caption > 12 Then If tvcatv.Caption = "TV" Then ceito.Caption = 1 Else ceito.Caption = 1 End IfElseceito.Caption = ceito.Caption + 1End IfEnd Sub
Private Sub masuno_Click()tele.Left = tele.Left - 100base.Left = base.Left - 100End Sub
Private Sub menos_Click()tele.Top = tele.Top + 100base.Top = base.Top + 100End Sub
Private Sub menosdos_Click()If ceito.Caption < 1 Then If tvcatv.Caption = "TV" Then ceito.Caption = 13 Else ceito.Caption = 130 End IfElseceito.Caption = ceito.Caption - 1End IfEnd Sub
Private Sub menosuno_Click()tele.Left = tele.Left + 100base.Left = base.Left + 100End Sub
Private Sub nueve_Click()auxiliar.Caption = auxiliar.Caption + "9"End Sub
Private Sub NUEVOCATV_Click()If tvcatv.Caption = "tv" Then tvcatv.Caption = "catv" Else tvcatv.Caption = "catv" tvcatv.Caption = "tv" End If
End Sub
Private Sub ocho_Click()auxiliar.Caption = auxiliar.Caption + "8"End Sub
Private Sub offon_Click()If uno.Enabled = True Then ceito.Caption = "" 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 enter.Enabled = False onoff.BackColor = vbBlack mas.Enabled = False masuno.Enabled = False masdos.Enabled = False menos.Enabled = False menosuno.Enabled = False menosdos.Enabled = False NUEVOCATV.Enabled = False prender.Enabled = False apagar.Enabled = False tv.Enabled = False catv.Enabled = FalseElseceito.Caption = "0"uno.Enabled = Truedos.Enabled = Truetres.Enabled = Truecuatro.Enabled = TrueCinco.Enabled = Trueseis.Enabled = Truesiete.Enabled = Trueocho.Enabled = Truenueve.Enabled = TrueCero.Enabled = Trueenter.Enabled = Trueonoff.BackColor = vbRed mas.Enabled = True masuno.Enabled = True masdos.Enabled = True menos.Enabled = True menosuno.Enabled = True menosdos.Enabled = True NUEVOCATV.Enabled = True prender.Enabled = True apagar.Enabled = True tv.Enabled = True catv.Enabled = TrueEnd IfEnd Sub
Private Sub prender_Click()ceito.Caption = "0"uno.Enabled = Truedos.Enabled = Truetres.Enabled = Truecuatro.Enabled = TrueCinco.Enabled = Trueseis.Enabled = Truesiete.Enabled = Trueocho.Enabled = Truenueve.Enabled = TrueCero.Enabled = Trueenter.Enabled = Trueonoff.BackColor = vbRed
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 uno_Click()auxiliar.Caption = auxiliar.Caption + "1"End Sub
Codigo visual basic, con sofi
Private Sub apagar_Click()ceito.Caption = ""tvcatv.Caption = ""uno.Enabled = Falsedos.Enabled = Falsetres.Enabled = Falsecuatro.Enabled = FalseCinco.Enabled = Falseseis.Enabled = Falsesiete.Enabled = Falseocho.Enabled = Falsenueve.Enabled = FalseCero.Enabled = Falseenter.Enabled = Falseonoff.BackColor = vbBlack
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 enter_Click()ceito.Caption = auxiliar.Captionauxiliar.Caption = ""End Sub
Private Sub mados_Click()
End Sub
Private Sub mas_Click()tele.Top = tele.Top - 100base.Top = base.Top - 100End Sub
Private Sub masdos_Click()If ceito.Caption < 120 Then ceito.Caption = ceito.Caption + 1 Else ceito.Caption = 1 End IfEnd Sub
Private Sub masuno_Click()tele.Left = tele.Left - 100base.Left = base.Left - 100End Sub
Private Sub menos_Click()tele.Top = tele.Top + 100base.Top = base.Top + 100End Sub
Private Sub menosdos_Click()If ceito.Caption > 1 Then ceito.Caption = ceito.Caption - 1 Else ceito.Caption = 120 End If End Sub
Private Sub menosuno_Click()tele.Left = tele.Left + 100base.Left = base.Left + 100End Sub
Private Sub nueve_Click()auxiliar.Caption = auxiliar.Caption + "9"End Sub
Private Sub NUEVOCATV_Click()If tvcatv.Caption = "tv" Then tvcatv.Caption = "catv" Else tvcatv.Caption = "catv" tvcatv.Caption = "tv" End If
End Sub
Private Sub ocho_Click()auxiliar.Caption = auxiliar.Caption + "8"End Sub
Private Sub offon_Click()If uno.Enabled = True Then ceito.Caption = "" 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 enter.Enabled = False onoff.BackColor = vbBlack mas.Enabled = False masuno.Enabled = False masdos.Enabled = False menos.Enabled = False menosuno.Enabled = False menosdos.Enabled = False NUEVOCATV.Enabled = False prender.Enabled = False apagar.Enabled = False tv.Enabled = False catv.Enabled = FalseElseceito.Caption = "0"uno.Enabled = Truedos.Enabled = Truetres.Enabled = Truecuatro.Enabled = TrueCinco.Enabled = Trueseis.Enabled = Truesiete.Enabled = Trueocho.Enabled = Truenueve.Enabled = TrueCero.Enabled = Trueenter.Enabled = Trueonoff.BackColor = vbRed mas.Enabled = True masuno.Enabled = True masdos.Enabled = True menos.Enabled = True menosuno.Enabled = True menosdos.Enabled = True NUEVOCATV.Enabled = True prender.Enabled = True apagar.Enabled = True tv.Enabled = True catv.Enabled = TrueEnd IfEnd Sub
Private Sub prender_Click()ceito.Caption = "0"uno.Enabled = Truedos.Enabled = Truetres.Enabled = Truecuatro.Enabled = TrueCinco.Enabled = Trueseis.Enabled = Truesiete.Enabled = Trueocho.Enabled = Truenueve.Enabled = TrueCero.Enabled = Trueenter.Enabled = Trueonoff.BackColor = vbRed
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 uno_Click()auxiliar.Caption = auxiliar.Caption + "1"End Sub
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 enter_Click()ceito.Caption = auxiliar.Captionauxiliar.Caption = ""End Sub
Private Sub mados_Click()
End Sub
Private Sub mas_Click()tele.Top = tele.Top - 100base.Top = base.Top - 100End Sub
Private Sub masdos_Click()If ceito.Caption < 120 Then ceito.Caption = ceito.Caption + 1 Else ceito.Caption = 1 End IfEnd Sub
Private Sub masuno_Click()tele.Left = tele.Left - 100base.Left = base.Left - 100End Sub
Private Sub menos_Click()tele.Top = tele.Top + 100base.Top = base.Top + 100End Sub
Private Sub menosdos_Click()If ceito.Caption > 1 Then ceito.Caption = ceito.Caption - 1 Else ceito.Caption = 120 End If End Sub
Private Sub menosuno_Click()tele.Left = tele.Left + 100base.Left = base.Left + 100End Sub
Private Sub nueve_Click()auxiliar.Caption = auxiliar.Caption + "9"End Sub
Private Sub NUEVOCATV_Click()If tvcatv.Caption = "tv" Then tvcatv.Caption = "catv" Else tvcatv.Caption = "catv" tvcatv.Caption = "tv" End If
End Sub
Private Sub ocho_Click()auxiliar.Caption = auxiliar.Caption + "8"End Sub
Private Sub offon_Click()If uno.Enabled = True Then ceito.Caption = "" 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 enter.Enabled = False onoff.BackColor = vbBlack mas.Enabled = False masuno.Enabled = False masdos.Enabled = False menos.Enabled = False menosuno.Enabled = False menosdos.Enabled = False NUEVOCATV.Enabled = False prender.Enabled = False apagar.Enabled = False tv.Enabled = False catv.Enabled = FalseElseceito.Caption = "0"uno.Enabled = Truedos.Enabled = Truetres.Enabled = Truecuatro.Enabled = TrueCinco.Enabled = Trueseis.Enabled = Truesiete.Enabled = Trueocho.Enabled = Truenueve.Enabled = TrueCero.Enabled = Trueenter.Enabled = Trueonoff.BackColor = vbRed mas.Enabled = True masuno.Enabled = True masdos.Enabled = True menos.Enabled = True menosuno.Enabled = True menosdos.Enabled = True NUEVOCATV.Enabled = True prender.Enabled = True apagar.Enabled = True tv.Enabled = True catv.Enabled = TrueEnd IfEnd Sub
Private Sub prender_Click()ceito.Caption = "0"uno.Enabled = Truedos.Enabled = Truetres.Enabled = Truecuatro.Enabled = TrueCinco.Enabled = Trueseis.Enabled = Truesiete.Enabled = Trueocho.Enabled = Truenueve.Enabled = TrueCero.Enabled = Trueenter.Enabled = Trueonoff.BackColor = vbRed
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 uno_Click()auxiliar.Caption = auxiliar.Caption + "1"End Sub
Suscribirse a:
Entradas (Atom)
