Codigo de la calculadora (Por Kevin H.)

Private Sub borrar_Click()Visor.Caption = ""aux1.Caption = ""aux2.Caption = ""End Sub
Private Sub cero_Click()Visor.Caption = Visor.Caption + "0"End Sub
Private Sub cinco_Click()Visor.Caption = Visor.Caption + "5"End Sub
Private Sub coma_Click()Visor.Caption = Visor.Caption + "."End Sub
Private Sub cuatro_Click()Visor.Caption = Visor.Caption + "4"End Sub
Private Sub dividir_Click()aux1.Caption = Visor.Captionaux2.Caption = "/"Visor.Caption = ""End Sub
Private Sub dos_Click()Visor.Caption = Visor.Caption + "2"End Sub
Private Sub igual_Click()If aux2.Caption = "+" ThenVisor.Caption = Val(aux1.Caption) + Val(Visor.Caption)aux1.Caption = ""aux2.Caption = ""End IfIf aux2.Caption = "-" ThenVisor.Caption = Val(aux1.Caption) - Val(Visor.Caption)aux1.Caption = ""aux2.Caption = ""End IfIf aux2.Caption = "/" ThenVisor.Caption = Val(aux1.Caption) / Val(Visor.Caption)aux1.Caption = ""aux2.Caption = ""End IfIf aux2.Caption = "*" ThenVisor.Caption = Val(aux1.Caption) * Val(Visor.Caption)aux1.Caption = ""aux2.Caption = ""End IfEnd Sub
Private Sub mas_Click()aux1.Caption = Visor.Captionaux2.Caption = "+"Visor.Caption = ""End Sub
Private Sub menos_Click()aux1.Caption = Visor.Captionaux2.Caption = "-"Visor.Caption = ""End Sub
Private Sub multiplicar_Click()aux1.Caption = Visor.Captionaux2.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 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

Semana 22 (Por Kevin H.)

Primera Noticia:

Google presenta su primer móvil con Android

El HTC Dream es el móvil que llevará en su corazón el sistema Android, desarrollado por la gente de Google. La empresa T-Mobile ha sido el operador elegido para lanzar este dispositivo móvil al mercado e incluso invitó a varios medios para una conferencia de prensa a realizarse este martes 23.

Sin embargo, don Google ya se les adelantó y el día de ayer en un evento en Londres presentó el móvil (sin el logo de la empresa T-Mobile) que marcaría un hito en lo que son las comunicaciones, o al menos eso se espera.

Sin embargo algunos analistas, como Rajeev Chand, del Banco de Inversión Rutberg & Co, declaró a Reuters que “no es seguro que la experiencia para el consumidor sea significativamente mejor que la del iPhone”.

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

Para Más Información Click Aquí
-------------------------------------------------------------------------------------------
Este celular es muy parecido al iPhone y seguro que esta compitiendo con el, pero como siempre lo de google es muy bueno y recomendable, optaria por elegir este nuevo celular

Segunda Noticia:

INDECOPI te paga por el SPAM que recibes

Ya la ley ANTISPAM tiene tres años en el Perú, empero existe mucha gente que aún no la conoce a pesar que incluso te pagan entre 30 y 400 dólares por el spam que hayas recibido (dependiendo es denuncia formal a persona natural o jurídica). Leer el resto del post.

INDECOPI, el Instituto Nacional de Defensa de la Competencia y de la Protección de la Propiedad Intelectual, es un organismo que además de proteger los plagios de autoría de alguna marca y velar por la libre competencia. Hace unos años INDECOPI también se lanzó a la labor de limpiar la web de indeseables, comenzando por el SPAM junto con la Policía Nacional también tiene su división de División de Investigación de Delitos de Alta Tecnología que se centra en actos criminales en la red (pishing, carding, etc.).

INDECOPI define el SPAM como “todo correo electrónico de contenido comercial, publicitario o promocional de bienes y servicios, que recibimos sin haberlo solicitado o sin haber dado expresa autorización para su envío.”

Dado que cualquiera de nosotros puede ser víctima de éstos correos basura, INDECOPI nos invita a enviar un mensaje a antispam@indecopi.gob.pe detallando el spam recibido para que el email sea ingresado a su base de datos y así contrasten la información brindada para que, si es el caso, se llegue a identificar a la compañía o persona responsable.

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

Para Más Información Click Aquí
---------------------------------------------------------------------------------------------
No se si este bien que PAGUEN por enviarles información sobre spam pero tal vez sea la unica forma de que todos tengan ganas de hacerlo, cada uno sabra...

Tercera Noticia:

Review: Bloggarte - Información en un solo lugar

Bloggarte es un blog de noticias de todas las categorías, ellos mismos se definen como un blog donde podemos encontrar “información en un solo lugar”. Sin embargo la mayoría de su contenido le sentará bien a todos aquellos que gusten de los espectáculos.

Bloggarte es un blog que ya tiene más de un año y el contenido es actualizado a diario ya que son 4 los bloggers encargados de postear día a día.

La redacción es correcta, los artículos están referenciados y el diseño es limpio aunque algo saturado. La actualización del blog, además de ser diaria, se realiza en varias horas al día y al instante en que salen publicadas las noticias en otros lados, tiene un buen grado de indexación.

En su contenido se distingue además la presencia de Lyrics con videos musicales y otras categorías tan poco comunes como Arquitectura y Acertijos. La paginación en la parte inferior ayuda mucho a la navegabilidad en todo el blog.

Puntos a mejorar giran en torno a la estructura del blog, en especial los sidebars que se encuentran algo saturada. Por ejemplo en el sidebar derecho botones de directorios lo recarga la plantilla de sobremanera y le quita seriedad y belleza al blog. Otro aspecto es que los títulos de las imágenes encimadas debajo del header se ven mal en Firefox.

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

Para Más Información Click Aquí
----------------------------------------------------------------------------------------------
He visto un poco la pagina y la verdad no vi al blog con los mismos ojos que esta noticia ya que pense que me iba a encontrar con muchas noticias tecnológicas...

Semana 21 (Por Kevin H.)

Primera Noticia:

El Pleigo X9

El Pleigo X9 es uno de esos portaretratos digitales que están de moda últimamente, para reemplazar las fotos de papel, y que puede reproducir fotos y videos.

Éste modelo de Pleigo tiene un peso de 98 gramos y mide 109 x 79 x 11.8 mm. Además, posee sintonizador DMB-T, Pantalla TFT LCD QVGA de unas 3.5 pulgadas con una resolución de 320 x 240 píxeles, Reproductor de audio en formatos MP3, WMA y OGG, reproductor de video video, visor de imágenes en JPG y una capacidad que va dede 2 a 4 gigas de espacio para almacenar fotos, música y videos.

En fin, el Plegio X9 puede ser una buena opción si andas buscando un aparato de estos, aunque no puedes compararlo con otros todavía ya que el precio es desconocido, así que habrá que esperar...

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

Para Más Información Click Aquí

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

Me parece una buena opcion un aparato como este estilo ya que tiene un diseño moderno y soporta muchos archivos, como musica, videos o fotos...

Segunda Noticia:

Youconvertit: Descarga vídeos online y convierte archivos.

Youconvertir es una excelente y gratuita herramienta/aplicación bastante útil que sirve, entre otras cosas, para convertir archivos a una infinidad de formatos, e igualmente sirve descargar vídeos Online rápidamente.

Como descargar vídeos Online.

YouConvertit nos permiten descargar vídeo de Youtube, Metacafe, entre otros, en tan solo 3 pasos:

Primero, escribe la URL donde se encuentra alojado el vídeo. Segundo, introduce tu E-mail donde te será enviado el Link de descarga. Tercero y último, escoge el formato de vídeo de tu preferencia, teniendo como opción, descargar solamente el audio. Luego envíalo y pronto te llegará un E-mail dándote el LInk de descarga.

Convertir archivos,

También puedes convertir archivos con YouConvertit en 3 sencillos y rápidos pasos. Primero, introduce tu E-mail donde te será enviado el Link de descarga. Segundo, elige el archivo de tu computadora que quieras cambiarle el formato y, por último, elige el formato que quieras que sea convertido, ¡Y listo!

Estas son las 2 principales características de esta interesante página, te invito a que las visites y aproveches estás, y todas sus otras funciones.

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

Para Más Información Click Aquí

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

Esta pagina es muy parecida a otra que usamos anteriormente con la cual podíamos bajar videos de youtube (y en este caso de mas lugares) y se convertían a un formato compatible para diferentes cosas...

Tercera Noticia:

Buscador de Imágenes segun colores

Muy interesante es esta aplicación con la que podremos buscar imágenes según los colores que nosotros elijamos así cuando no encontremos una foto para nuestro post podemos recurrir a Multicolr Search Lab para buscar una imagen que vaya de acuerdo a los colores de nuestro blog.

Todas las fotos que nos saldrán son de una base de de datos de más de 100 millones de imágenes de Flickr y con licencia Creative Commons, podremos usarlas libremente sin usarlas para un fin comercial.

Estas son las fotos que obtuve como resultado con los colores de ContraPosteando, naranja, verde y azul claro. Los resultados muy interesantes y llamativos, perfectos para usarlos en la web. Como ves también tienen una paleta de colores muy amplia para que puedas elegir los colores correctos y tener muy buenos resultados.

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

Para Más Información Click Aquí

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

Me parece muy bueno una pagina de este estilo el cual eligiendo pocos colores te proporciona imágenes referidas...

Semana 20 (Por Kevin H.)

Primera Noticia:

Guantes para usar pantallas táctiles cuando hace frío

Si uno tiene un aparato o gadget con pantalla tactil y cuando hace frio no tiene ganas de rayarla con guantes de lana o enfriarse las manos, estos guantes son para ESA persona...

Para estos problemas ahora está el Dot Gloves, que son unos guantes con unos puntos de metal en las puntas de los dedos para poder usar los dispositivos con pantallas táctiles cuando hace frío, así no se te enfría la mano y puedes disfrutar de tus gadgets.

Para Más Información Click Aquí

Posteo esta noticia ya que hay muchas personas que realmente no tienen ganas de usar cosas tactiles ya que tienen frio asi que esto les ayudara a no ser "fiacas"

Segunda Noticia:

10 Webs 2,0 que están a punto de ser lanzados

Lifehacker entre la gran cantidad de productos presentados en el Demofall 2008 y Techcrunch50 seleccionaron los mejores 10 que acaban de lanzarse o están a punto de ser puestos en el mercado.

Aquí están los Top 10.

• 10. Rate Surfer, gestión financiera de servicios
• 09. RealDVD, copia de seguridad de DVD
• 08. Postbox, cliente de correo electrónico en línea
• 07. Popego / Angstro, organizador de redes sociales
• 06. 2Pad, e-mail a galería
• 05. OtherInbox, cliente de correo electrónico en línea
• 04. MessageSling, SMS, voz a texto
• 03. Fitbit, el mundo del fitness
• 02. Snipd, cortador web (video, texto, etc)
• 01. UsableLogin , administrador de contraseña

Para Más Información Click Aquí

Pongo esta noticia asi los interesados en alguno de estos programas o productos pueda interesarle y los use...

Tercera Noticia:

Enviar SMS gratis al iPhone con Yahoo OneConnect

Yahoo OneConnect es una aplicación gratuita para tu iPhone o iPod Touch que te permite administrar todo lo referente a tus herramientas sociales desde ese dispositivo, además de una notable funcionalidad que permite enviar SMS gratis a los contactos que tengas agregados a tu libreta de direcciones de Yahoo (asociadas a un número telefónico).

En realidad lo que puedes hacer con esta función del Yahoo OneConnect es que puedes enviar n mensajes durante el día a tus contactos, ya sea desde tu iPhone o iPod Touch (con conexión Wi-Fi), sin que estos se carguen a los pagos de SMS de tu plan de AT&T.

Esta aplicación soporta redes sociales como Facebook, Flickr, MySpace y Twitter. Funciona también con los contactos de Yahoo Messenger, es altamente funcional, gratuito, fácil de usar y solo necesitas una cuenta Yahoo para obtenerlo.

Para Más Información Click Aquí

Posteo esta noticia ya que es bueno tener un programa para mandar mensajes entre la PC (con muchas de redes sociales) y el iPhone

Codigo del Visual Basic (Por Kevin H.)

Private Sub Apagar_Click()
Nrocanal.Caption = ""
Ncanal.Caption = ""
TVcanal.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
onoff.BackColor = vbBlack
onoff.Caption = "Apagado"
onoff.ForeColor = vbRed
TV.Enabled = False
CATV.Enabled = False
Enter.Enabled = False
Canalmas.Enabled = False
Canalmenos.Enabled = False
Volmas.Enabled = False
Volmenos.Enabled = False
Brillomas.Enabled = False
Brillomenos.Enabled = False
Televisión.Left 240
End Sub


Private Sub Brillomas_Click()
Televisión.Left = Televisión.Left + 100
Auxiliar.Left = Auxiliar.Left + 100
Base.Left = Base.Left + 100
Ncanal.Left = Ncanal.Left + 100
Nrocanal.Left = Nrocanal.Left + 100
onoff.Left = onoff.Left + 100
TVcanal.Left = TVcanal.Left + 100
Kevson.Left = Kevson.Left + 100
End Sub

Private Sub Brillomenos_Click()
Televisión.Left = Televisión.Left - 100
Auxiliar.Left = Auxiliar.Left - 100
Base.Left = Base.Left - 100
Ncanal.Left = Ncanal.Left - 100
Nrocanal.Left = Nrocanal.Left - 100
onoff.Left = onoff.Left - 100
TVcanal.Left = TVcanal.Left - 100
Kevson.Left = Kevson.Left - 100
End Sub

Private Sub Canalmas_Click()
If Ncanal.Caption < 100 Then
Ncanal.Caption = Ncanal.Caption + 1
Else: Ncanal.Caption = 1
End If
End Sub

Private Sub Canalmenos_Click()
If Ncanal.Caption > 1 Then
Ncanal.Caption = Ncanal.Caption - 1
Else: Ncanal.Caption = 100
End If
End Sub

Private Sub CATV_Click()
TVcanal.Caption = "CATV Canal"
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 Encender_Click()
Nrocanal.Caption = "Numero de Canal"
Ncanal.Caption = ""
TVcanal.Caption = "TV Canal"
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
onoff.BackColor = vbRed
onoff.Caption = "Encendido"
onoff.ForeColor = vbBlack
TV.Enabled = True
CATV.Enabled = True
Enter.Enabled = True
Canalmas.Enabled = True
Canalmenos.Enabled = True
Volmas.Enabled = True
Volmenos.Enabled = True
Brillomas.Enabled = True
Brillomenos.Enabled = True
End Sub

Private Sub Enter_Click()
Ncanal.Caption = Auxiliar.Caption
Auxiliar.Caption = ""
Nrocanal.Caption = "Numero de Canal:"
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 offon_Click()
If uno.Enabled = True Then
Nrocanal.Caption = ""
Ncanal.Caption = ""
TVcanal.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
onoff.BackColor = vbBlack
onoff.Caption = "Apagado"
onoff.ForeColor = vbRed
TV.Enabled = False
CATV.Enabled = False
Enter.Enabled = False
Canalmas.Enabled = False
Canalmenos.Enabled = False
Volmas.Enabled = False
Volmenos.Enabled = False
Brillomas.Enabled = False
Brillomenos.Enabled = False
TVCATV.Enabled = False
Else: Nrocanal.Caption = "Numero de Canal"
Ncanal.Caption = ""
TVcanal.Caption = "TV Canal"
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
onoff.BackColor = vbRed
onoff.Caption = "Encendido"
onoff.ForeColor = vbBlack
TV.Enabled = True
CATV.Enabled = True
Enter.Enabled = True
Canalmas.Enabled = True
Canalmenos.Enabled = True
Volmas.Enabled = True
Volmenos.Enabled = True
Brillomas.Enabled = True
Brillomenos.Enabled = True
TVCATV.Enabled = True
End If
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()
TVcanal.Caption = "TV Canal"
End Sub

Private Sub TVCATV_Click()
If TVcanal.Caption = "TV Canal" Then
TVcanal.Caption = "CATV Canal"
Else: TVcanal.Caption = "TV Canal"
End If
End Sub

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

Private Sub Volmas_Click()
Televisión.Top = Televisión.Top + 100
Auxiliar.Top = Auxiliar.Top + 100
Base.Top = Base.Top + 100
Ncanal.Top = Ncanal.Top + 100
Nrocanal.Top = Nrocanal.Top + 100
onoff.Top = onoff.Top + 100
TVcanal.Top = TVcanal.Top + 100
Kevson.Top = Kevson.Top + 100
End Sub

Private Sub Volmenos_Click()
Televisión.Top = Televisión.Top - 100
Auxiliar.Top = Auxiliar.Top - 100
Base.Top = Base.Top - 100
Ncanal.Top = Ncanal.Top - 100
Nrocanal.Top = Nrocanal.Top - 100
onoff.Top = onoff.Top - 100
TVcanal.Top = TVcanal.Top - 100
Kevson.Top = Kevson.Top - 100
End Sub