
Tareas
Wednesday, November 19, 2008
SEMANA 25, JOY

SEMANA 24, JOY



SEMANA 23, JOY
Thursday, November 13, 2008
Wednesday, October 22, 2008
Calculadora por Joy

Captura de pantalla:
Codigo de calculadora:
Private Sub borrador_Click()
visor.Caption = " "
End Sub
Private Sub cinco_Click()
visor.Caption = visor.Caption + "5"
End Sub
Private Sub cuatro_Click()
visor.Caption = visor.Caption + "4"
End Sub
Private Sub dividido_Click()
auxiliaruno.Caption = visor.Caption
auxiliardos.Caption = "/"
visor.Caption = " "
End Sub
Private Sub dos_Click()
visor.Caption = visor.Caption + "2"
End Sub
Private Sub igual_Click()
If auxiliardos.Caption = "+" Then
visor.Caption = Val(auxiliaruno.Caption) + Val(visor.Caption)
auxiliaruno.Caption = ""
auxiliardos.Caption = ""
End If
If auxiliardos.Caption = "-" Then
visor.Caption = Val(auxiliaruno.Caption) - Val(visor.Caption)
auxiliaruno.Caption = ""
auxiliardos.Caption = ""
End If
If auxiliardos.Caption = "/" Then
visor.Caption = Val(auxiliaruno.Caption) / Val(visor.Caption)
auxiliaruno.Caption = ""
auxiliardos.Caption = ""
End If
If auxiliardos.Caption = "*" Then
visor.Caption = Val(auxiliaruno.Caption) * Val(visor.Caption)
auxiliaruno.Caption = ""
auxiliardos.Caption = ""
End If
End Sub
Private Sub mas_Click()
auxiliaruno.Caption = visor.Caption
auxiliardos.Caption = "+"
visor.Caption = " "
End Sub
Private Sub menos_Click()
auxiliaruno.Caption = visor.Caption
auxiliardos.Caption = "-"
visor.Caption = " "
End Sub
Private Sub multiplicar_Click()
auxiliaruno.Caption = visor.Caption
auxiliardos.Caption = "*"
visor.Caption = " "
End Sub
Private Sub nueve_Click()
visor.Caption = visor.Caption + "9"
End Sub
Private Sub ocho_Click()
visor.Caption = visor.Caption + "8"
End Sub
Private Sub punto_Click()
visor.Caption = visor.Caption + "."
End Sub
Private Sub seis_Click()
visor.Caption = visor.Caption + "6"
End Sub
Private Sub siete_Click()
visor.Caption = visor.Caption + "7"
End Sub
Private Sub tres_Click()
visor.Caption = visor.Caption + "3"
End Sub
Private Sub uno_Click()
visor.Caption = visor.Caption + "1"
End Sub
Private Sub zero_Click()
visor.Caption = visor.Caption + "0"
End Sub
Ascensor por Joy

Codigo de ascensor:
Private Sub luz_Click()asensor.BackColor = vbRedEnd SubPrivate Sub pisocuatro_Click()asensor.Top = 840End SubPrivate Sub pisodos_Click()asensor.Top = 2280End SubPrivate Sub pisotres_Click()asensor.Top = 1560End SubPrivate Sub parar_Click()Private Sub pisouno_Click()asensor.Top = 3000End SubPrivate Sub plantabaja_Click()asensor.Top = 3720End SubPrivate Sub subsuelo_Click()asensor.Top = 4440End Sub
Thursday, September 25, 2008
Calculadora por Joy

Captura de pantalla:
Codigo de calculadora:
Private Sub borrador_Click()
visor.Caption = " "
End Sub
Private Sub cinco_Click()
visor.Caption = visor.Caption + "5"
End Sub
Private Sub cuatro_Click()
visor.Caption = visor.Caption + "4"
End Sub
Private Sub dividido_Click()
auxiliaruno.Caption = visor.Caption
auxiliardos.Caption = "/"
visor.Caption = " "
End Sub
Private Sub dos_Click()
visor.Caption = visor.Caption + "2"
End Sub
Private Sub igual_Click()
If auxiliardos.Caption = "+" Then
visor.Caption = Val(auxiliaruno.Caption) + Val(visor.Caption)
auxiliaruno.Caption = ""
auxiliardos.Caption = ""
End If
If auxiliardos.Caption = "-" Then
visor.Caption = Val(auxiliaruno.Caption) - Val(visor.Caption)
auxiliaruno.Caption = ""
auxiliardos.Caption = ""
End If
If auxiliardos.Caption = "/" Then
visor.Caption = Val(auxiliaruno.Caption) / Val(visor.Caption)
auxiliaruno.Caption = ""
auxiliardos.Caption = ""
End If
If auxiliardos.Caption = "*" Then
visor.Caption = Val(auxiliaruno.Caption) * Val(visor.Caption)
auxiliaruno.Caption = ""
auxiliardos.Caption = ""
End If
End Sub
Private Sub mas_Click()
auxiliaruno.Caption = visor.Caption
auxiliardos.Caption = "+"
visor.Caption = " "
End Sub
Private Sub menos_Click()
auxiliaruno.Caption = visor.Caption
auxiliardos.Caption = "-"
visor.Caption = " "
End Sub
Private Sub multiplicar_Click()
auxiliaruno.Caption = visor.Caption
auxiliardos.Caption = "*"
visor.Caption = " "
End Sub
Private Sub nueve_Click()
visor.Caption = visor.Caption + "9"
End Sub
Private Sub ocho_Click()
visor.Caption = visor.Caption + "8"
End Sub
Private Sub punto_Click()
visor.Caption = visor.Caption + "."
End Sub
Private Sub seis_Click()
visor.Caption = visor.Caption + "6"
End Sub
Private Sub siete_Click()
visor.Caption = visor.Caption + "7"
End Sub
Private Sub tres_Click()
visor.Caption = visor.Caption + "3"
End Sub
Private Sub uno_Click()
visor.Caption = visor.Caption + "1"
End Sub
Private Sub zero_Click()
visor.Caption = visor.Caption + "0"
End Sub
Saturday, September 06, 2008
Semana 21, Joy
En outlawdesignblog nos dejan una buena colección de las últimas novedades en cuanto a iconos que están saliendo e Internet, la mayoría vienen de los siguientes lugares: Yellow Icons, Deviant Art y David Lanham. En el artículo 30 Free Icon Sets: More awesome free icons, tenemos los enlaces con sus muestras, seguro que serán de gran utilidad, un modo de ver las tendencias y estilos en este tema. La siguiente ilustración es un ejemplo de dichos iconos.

Segundo articulo:
Conjunto "Simplicio" con un total de 78 iconos
Se trata de otro conjunto de iconos que he visto en SmashingMagazine, que siempre nos sorprenden por sus artículos, que por regla general son impresionantes.
Para más información entrar a: http://www.cosassencillas.com/2008/09/04/conjunto-simplicio-con-un-total-de-78-iconos/
Tercer noticia:
Selección de 25 artículos esenciales para todos los principiantes con WordPress
Es normal que en algunas ocasiones se presenten algunos problemas a la hora hora de empezar a utilizar WordPress, por el tema del desconocimiento. Así que el articulo que encontramos en Elite, puede ser de gran ayuda a los miles de nuevos blogs que surgen todos los días, ya que puede ser bastante desalentador para un usuario nuevo enfrentarse por primera vez a un interfaz y plataforma de blogs que desconoce. Por eso en el artículo 25 Essential Articles For Every WordPress Beginner, podemos empezar desde cero a los fundamentos esenciales con 25 artículos para los principiantes en WordPress. Es una lástima que estos artículos no estén en castellano.
codigo del control (Joy)
End Sub
Private Sub brillomas_Click()tv.Left = tv.Left + 100auxiliar.Left = auxiliar.Left + 100base.Left = base.Left + 100nrocanal.Left = nrocanal.Left + 100onoff.Left = onoff.Left + 100tvcatv.Left = tvcatv.Left + 100End 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 Label2_Click()
End Sub
Private Sub enter_Click()nrocanal.Caption = auxiliarauxiliar.Caption = ""End Sub
Private Sub mascanal_Click()nrocanal.Caption = nrocanal.Caption + 1End Sub
Private Sub massonido_Click()
End Sub
Private Sub masvolumen_Click()tv.Top = tv.Top + 100auxiliar.Top = auxiliar.Top + 100base.Top = base.Top + 100nrocanal.Top = nrocanal.Top + 100tvcatv.Top = tvcatv.Top + 100onoff.Top = onoff.Top + 100
End Sub
Private Sub menosbrillo_Click()tv.Left = tv.Left - 100auxiliar.Left = auxiliar.Left - 100base.Left = base.Left - 100nrocanal.Left = nrocanal.Left - 100onoff.Left = onoff.Left - 100tvcatv.Left = tvcatv.Left - 100
End Sub
Private Sub menoscanal_Click()If nrocanal.Caption > 1 Then nrocanal.Caption = nrocanal.Caption - 1Else nrocanal.Caption = 120End IfEnd Sub
Private Sub menosvolumen_Click()tv.Top = tv.Top - 100auxiliar.Top = auxiliar.Top - 100base.Top = base.Top - 100nrocanal.Top = nrocanal.Top - 100tvcatv.Top = tvcatv.Top - 100onoff.Top = onoff.Top - 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 = ""tvcatv.Caption = ""onoff.BackColor = vbBlackuno.Enabled = Falsedos.Enabled = Falsetres.Enabled = Falsecuatro.Enabled = Falsecinco.Enabled = Falseseis.Enabled = Falsesiete.Enabled = Falseocho.Enabled = Falsenueve.Enabled = Falsecero.Enabled = False
End Sub
Private Sub offon_Click()If uno.Enabled = True Then nrocanal.Caption = "" tvcatv.Caption = "" onoff.BackColor = vbBlack 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 masvolumen.Enabled = False menosvolumen.Enabled = False masbrillo.Enabled = False menosbrillo.Enabled = False mascanal.Enabled = False menoscanal.Enabled = False tv1.Enabled = False tvctv1.Enabled = FalseElse nrocanal.Caption = "0" tvcatv.Caption = "tv" onoff.BackColor = vbRed 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 enter.Enabled = True masvolumen.Enabled = True menosvolumen.Enabled = True masbrillo.Enabled = True menosbrillo.Enabled = True mascanal.Enabled = True menoscanal.Enabled = True tv1.Enabled = True tvctv1.Enabled = TrueEnd If
End Sub
Private Sub on_Click()nrocanal.Caption = "0"tvcatv.Caption = "tv"onoff.BackColor = vbReduno.Enabled = Truedos.Enabled = Truetres.Enabled = Truecuatro.Enabled = Truecinco.Enabled = Trueseis.Enabled = Truesiete.Enabled = Trueocho.Enabled = Truenueve.Enabled = Truecero.Enabled = TrueEnd 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 tv1_Click(Index As Integer)tvcatv.Caption = tvcatvtvcatv = "tv"End Sub
Private Sub tvcatv2_Click()
End Sub
Private Sub tvctv1_Click()tvcatv.Caption = tvcatvtvcatv = "tvcatv"End Sub
Private Sub uno_Click()auxiliar.Caption = auxiliar.Caption + "1"End Sub
Wednesday, August 27, 2008
Monday, August 25, 2008
Semana 20, por Joy
Primer noticia:
Panel internacional de cancerólogos lanza advertencia sobre celulares
Un panel internacional de cancerólogos advirtió este jueves sobre un posible daño de los teléfonos celulares para la salud, especialmente en los niños, y recomendó adoptar medidas de precaución.Encabezado por el profesor Ronald Herberman de la Universidad de Pittsburg, el panel incluye principalmente cancerólogos de Estados Unidos y Francia que no se pronuncian definitivamente sobre el tema pero recomiendan ser prudentes.
*Para más información entrar a: http://cientecno.blogspot.com/2008/07/panel-internacional-de-cancerlogos.html
Segunda noticia:
Virus informático afecta a portales paraguayos
Varios sitios nacionales estuvieron hoy con dificultad de estar en línea, además de problemas dentro de los servidores internos. El problema, según los primeros datos, radicaría en un virus denominado Mario Forever, lanzado esta mañana y sin que los antivirus puedan detectarlo.
*Para más información entrar a: http://cientecno.blogspot.com/2008/08/virus-informtico-afecta-portales.html
Tercer noticia:
La última misión que dará nueva vida al Hubble
El telescopio espacial Hubble de la NASA será reforzado y reparado en octubre con la esperanza de que continúe aportando la información que ha revolucionado el conocimiento del hombre sobre el Universo.
*Para más información entrar a: http://cientecno.blogspot.com/2008/08/la-ltima-misin-que-dar-nueva-vida-al.html
Wednesday, August 13, 2008
Semana 14
Un panel internacional de cancerólogos advirtió este jueves sobre un posible daño de los teléfonos celulares para la salud, especialmente en los niños, y recomendó adoptar medidas de precaución.Encabezado por el profesor Ronald Herberman de la Universidad de Pittsburg, el panel incluye principalmente cancerólogos de Estados Unidos y Francia que no se pronuncian definitivamente sobre el tema pero recomiendan ser prudentes.
En DesignReviver, comentan que no hay escasez de páginas dedicadas al diseño de blogs, y es fácil de entender por qué. Los diseñadores web poseen todos los conocimientos necesarios para crear fácilmente un blog, pueden crear el diseño de un blog porque es parte de su trabajo. Pueden codificar los blog porque es lo que hacen. Y para el contenido… pueden escribir sobre lo que hacen. En 14 of the Most Useful Web Design Blogs encontramos una colección con algunas de las direcciones más útiles sobre el diseño de blogs. Han excluido dos grandes blogs como Smashing Magazine y A List Apart, por que con toda seguridad son las páginas que todos seguimos.
En Web design blog nos dejan una colección de 82 hermosos iconos gratis con el nombre Henkos, que podemos utilizar en un sitio web, blog o con tu XP iconos. Aquí tienes el enlace a su descarga.

Friday, August 08, 2008
Semana 13
Siete diarios franceses testan el papel digital
Enviado el 21 Julio 2008 en Multiplataforma por Ramón Salaverría
¿Los lectores tradicionales de prensa impresa adoptarán nuevas formas de leer en “papel”? Esta es la pregunta que se han propuesto responder siete diarios franceses, en un proyecto promovido por France Télécom.
Según informa The New York Times, estas empresas han puesto en marcha una prueba piloto entregando gratuitamente un dispositivo de papel digital a 120 personas que forman parte de un grupo de estudio. Estas personas utilizarán durante un tiempo el aparato, bautizado como Read & Go, y finalmente se realizará un estudio sobre el uso realizado y el nivel de satisfacción alcanzado.
Para más información entrar a:
http://infotendencias.com/2008/07/21/siete-diarios-franceses-testan-el-papel-digital/
Segunda noticia:
Los 15 mejores blogs sobre el tema de la tipografía
Desde el blog SpeckyBoy, tocan el tema de la importancia de la tipografía hora de diseñar y darle estilo a un trabajo. En el artículo Top 15 Inspirational Typograhy and Font Blogs, 15 sitios diferentes donde ofrecen asesoramiento, consejos, e inspiración para la el control de la tipografía, seguro que la gran mayoría haba oído hablar de I Love Typography, que es una de mis lecturas diarias, también The FontFeed, pero tal vez te sea una novedad. Algunos incluso abordan el estilo CSS y otros son fuentes de inspiración, pero en general todos son buenos y merecen una visita.
Para más información entrar a: http://www.cosassencillas.com/2008/08/07/los-15-mejores-blogs-sobre-el-tema-de-la-tipografa/
Tercer noticia:
10 diferencias entre cerebros y ordenadores
La comparación entre ordenadores y cerebros vivos ha servido muchas veces para explicar que puede o no hacer un ordenador, o de que manera funciona.

Para más infromación entrar a: http://cientecno.blogspot.com/
Semana 12
Después de dos meses de rodaje, la web de RTVE en versión beta se consolida como un punto de referencia en la actualidad informativa, con una imagen fresca, fuerte presencia de vídeo y la participación de los usuarios. La redacción multimedia, capitaneada por Rosalía Lloret, ha conseguido en pocos meses el meritorio trabajo de adoptar un estilo propio en consonancia con el servicio público de la casa, así como coordinar el trabajo de profesionales de RNE y TVE que aportan contenidos a la web. Los usuarios pueden ver todos los programas emitidos durante los últimos siete días, acceder a la cobertura en directo de eventos importantes y visitar los blogs de destacados corresponsales y responsables de algunos programas.
Desde IconTexto, nos podemos traer una colección de iconos que podemos poner en diferentes sitios, lo forman 14 iconos en formato PNG con diferentes tamaños (256×256, 128×128, 48×48, 32×32, 16×16) y también en formato ICO (256×256, 128×128, 48×48, 32×32, 16×16). Ocupa 2,36 MB, y tiene licencia Licencia de Creative Commons Reconocimiento-NoComercial 3,0. La descarga en el siguiente enlace: IconTexto Emoticons Icon Pack .

Tercer articulo:
Se podría revertir la pérdida de memoria
Los problemas de memoria podrían tener una solución gracias a un descubrimiento accidental.¿te interesa?
Para más infromación entrar a: http://cientecno.blogspot.com/
Wednesday, July 02, 2008
Wednesday, June 18, 2008
Semana 10
El próximo 30 de junio del presente año, Microsoft dejará de vender oficialmente licencias de Windows XP, lo mismo harán los principales fabricantes de PCs y portátiles. Habrá excepciones a la regla, eso sí, pero para la inmensa mayoría de usuarios, ese día Windows XP se jubilará definitivamente.
A pesar de ello, Windows XP seguirá instalado en una inmensa cantidad de PCs y portátiles en todo el mundo durante meses e incluso años antes de que sus usuarios decidan migrar a Windows Vista o a otras alternativas como Linux.
Aunque Microsoft dejará de vender este sistema operativo, Windows XP seguirá muy presente en algunos escenarios, sobre todo en los PCs y ultraportátiles de bajo coste, una nueva división de dispositivos que han triunfado en ferias como Computex y para los que se prevé un éxito arrollador los próximos meses. Los ASUS Eee PC y compañía ofrecen recursos algo más limitados que no los hacen muy adecuados para Windows Vista, lo que ha hecho que Microsoft tome la decisión de extender la posibilidad de preinstalar Windows XP en estas máquinas hasta el 30 de junio de 2011.
Según he leído en ALT1040, Google es un buscador todopoderoso, en la Red puede hacer lo que quiera con nosotros, es el amo… pero en la vida real pocas cosas pasan por alto a la ley.
¿Actuado el agente para cumplir la ley, o para salir inmortalizado en Google Street View, y así vacilar ante sus amigos?

En esta fotografía se puede observar a un oficial de San Francisco multando a uno de los automóviles que se encargan de capturar las imágenes que más tarde son utilizadas por Google Maps. Puedes ver la fotografía más grande en el Flickr de DSPain, quien tomó la foto originalmente.

Parece ser que no es la primera vez, tal y como comentan en Microsiervos, también en España les recetan algunos papeles, pues hace poco en Sevilla también hubo multa para el coche de Google.

Tercer articulo:
Cuidado a la hora de usar los logos de Firefox
En muchas ocasiones cuando necesitamos un logo, lo buscamos en Google u otro buscador y ponemos el primero que encontramos, pero he leido en MozillaES, que Asa Dotzler en su blog ha comentado que es necesario usar de una manera responsable los logos de Mozilla Firefox, donde se invita a utilizar el logo nuevo de Firefox, ya que aún se encuentra circulando en la red el antiguo logo.
Aquí presentamos una imagen que provee Dotzler para identificar las diferencias de los logos:
Para más información lea los siguientes artículos de Mozilla: Uso correcto de los logos (EN), y Notas legales sobre el logo (EN).
Wednesday, June 11, 2008
Encuesta
masculino: 46

1 a 13, 13 a 30: 3
13 a 30: 33



me cuido: 24



Semana 9
Puesto que la tipografía es esencial en cualquier soporte de presentación: logo, banner o simplemente un título. Es muy importante inyectar la creatividad en él, para ayudar en la entrega del mensaje, y dejar una buena impresión en el espectador. Realizar un buen diseño con la tipografía no es fácil.
Para más información entrar a: http://www.cosassencillas.com/2008/06/11/los-22-mejores-tutoriales-sobre-efectos-en-texto/
Segundo articulo:
Colección de 170 iconos con efecto cristal
Directamente desde Web design blog tenemos una buena colección de 170 iconos de diversos temas y de gran calidad, con efecto cristal. Todos los archivos están en formato PNG. Podemos efectuar la descarga desde: rapidshare o filebox.ro.
En la siguiente ilustración puedes ver algunas muestras:

Tercer articulo:
Pickreflect, aplicación en línea para crear imágenes reflejadas
A través de UBH, descubro Pickreflect, una aplicación en línea que te permite crear en unos segundos imágenes reflejadas en cualquier tipo de formato (JPG, PNG, o GIF). Solo tenemos que subir la imagen desde nuestro pc o indicando una url en la que tengamos la imagen.

Las opciones por defecto las podemos cambiar y editarlas para que se adapten a nuestros deseos, cuando terminamos solo tenemos que descargar la imágen resultante.