Semana 22

Primer noticia:

Google Insights: una herramienta para conocer actitudes e intereses de los internautas
Enviado el 18 Septiembre 2008 en Tendencias por Grupo Novos Medios
La herramienta Google Insights, lanzada en el mes de agosto, nace para ayudar a anunciantes y marketers a conocer el comportamiento de los usuarios de la red. Google Insights nos permite conocer cuáles han sido las principales búsquedas de los internautas atendiendo a una serie de criterios como distribución geográfica, temporal o categoría.

Sin duda Google Insights se puede convertir en una interesante herramienta para la investigación relacionada con la comunicación online, no podemos olvidar que Google es el motor de búsqueda preferido por los usuarios de Internet. Es interesante observar cómo las preferencias de búsqueda varían en función de las noticias o los acontecimientos más destacados de cada jornada.

Como anécdota destacar que el principal término de búsqueda de los españoles desde el año 2004 a la actualidad ha sido el del portal Youtube. Teniendo en cuenta que el portal no es lanzado hasta el año 2005 podemos apreciar la importancia que ha adquirido la distribución de video por Internet en los últimos años.

Codigo de contro 2

Codigo de control 2 (Yaz, Joy y Bren)

Private Sub Command7_Click()
End Sub
Private Sub anterior_Click()
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 form2_Click()tvcatv.Caption = tvcatvtvcatv = "tv"End Sub
Private Sub mascanal_Click()If nrocanal.Caption > 12 Then If tvcatv.Caption = "tv" Then nrocanal.Caption = 1Else nrocanal.Caption = 1End IfElse nrocanal.Caption = nrocanal.Caption + 1End IfEnd 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 If tvcatv.Caption = "tv" Then nrocanal.Caption = 13Else nrocanal.Caption = 130End IfElse nrocanal.Caption = nrocanal.Caption - 1End 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 brillomas.Enabled = False menosbrillo.Enabled = False mascanal.Enabled = False menoscanal.Enabled = False form2.Enabled = False tvctv1.Enabled = False Else 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 brillomas.Enabled = True menosbrillo.Enabled = True mascanal.Enabled = True menoscanal.Enabled = True form2.Enabled = True tvctv1.Enabled = True End 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()If tvcatv.Caption = form2.Caption Then tvcatv.Caption = tvctv1.CaptionElse tvcatv.Caption = form2.Caption
End IfEnd Sub
Private Sub tvctv1_Click()tvcatv.Caption = tvcatvtvcatv = "tvcatv"End Sub
Private Sub uno_Click()auxiliar.Caption = auxiliar.Caption + "1"End Sub

Semana 21

Primer articulo:

Buena recopilación de 30 colecciones de impresionantes iconos
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 decontrol

Private Sub Command7_Click()
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

TV de Bisual Basic

Mapa de mis vacasiones

Este es mi mapa de las vacasiones.


Ver mapa más grande

Semana 20

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