Codigos de Calculadora 1

Private Sub borrar_Click()
pantalla.Caption = ""
auxnro.Caption = ""
auxoper.Caption = ""
End Sub

Private Sub cero_Click()
pantalla.Caption = pantalla.Caption + "0"
End Sub

Private Sub cinco_Click()
pantalla.Caption = pantalla.Caption + "5"
End Sub

Private Sub coma_Click()
pantalla.Caption = pantalla.Caption + "."
End Sub

Private Sub cuatro_Click()
pantalla.Caption = pantalla.Caption + "4"
End Sub

Private Sub dos_Click()
pantalla.Caption = pantalla.Caption + "2"
End Sub

Private Sub igual_Click()
If auxoper.Caption = "+" Then
pantalla.Caption = Val(auxnro.Caption) + Val(pantalla.Caption)
auxnro.Caption = ""
auxoper.Caption = ""
End If
If auxoper.Caption = "-" Then
pantalla.Caption = Val(auxnro.Caption) - Val(pantalla.Caption)
auxnro.Caption = ""
auxoper.Caption = ""
End If
End Sub

Private Sub mas_Click()
auxnro.Caption = pantalla.Caption
auxoper.Caption = "+"
pantalla.Caption = ""
End Sub

Private Sub menos_Click()
auxnro.Caption = pantalla.Caption
auxoper.Caption = "-"
pantalla.Caption = ""
End Sub

Private Sub nueve_Click()
pantalla.Caption = pantalla.Caption + "9"
End Sub

Private Sub ocho_Click()
pantalla.Caption = pantalla.Caption + "8"
End Sub

Private Sub seis_Click()
pantalla.Caption = pantalla.Caption + "6"
End Sub

Private Sub siete_Click()
pantalla.Caption = pantalla.Caption + "7"
End Sub

Private Sub tres_Click()
pantalla.Caption = pantalla.Caption + "3"
End Sub

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

Semana 22

Noticia 1:
Recupera tu notebook robado con Adeona14
Sep
2008
Si estas pensando en Adeona como una solución magica para la recuperación de tu notebook robado, lamentablemente no es así, como siempre debemos previnir antes que pasen estos desagradables percances, ahora que ya sabemos que NO es adeona, podemos hablar de lo que si, es, y al parecer es bastante y muy útil.

Adeona es un servicio/software opensource, patrocinado por la Universidad de Washington, para que podamos realizar un seguimiento de la localización de un portátil perdido o robado.



Puede que existan servicios similares con la gran diferencia que este es totalmente gratuito y la aplicación realiza un gran esfuerzo para garantizar la privacidad de los datos, de forma que nadie excepto el propietario del ordenador pueda acceder a la información registrada.

El funcionamiento es bastante sencillo. se instala en nuestro equipo un pequeño software agente(disponible para Windows Vista y XP, Linux y Mac OS X). La instalación es muy rápida y solo nos pide donde hay que instalar el programa y la contraseña de protección de acceso a los datos.

La instalación genera un archivo de configuración, denominado adeona-retrievecredentials.ost. Esta será nuestra llave, conjuntamente con la contraseña que ingresamos durante la instalación, para poder acceder a los datos de localización del notebook.

Este servicio registra la información de la IP y otros datos básicos acerca la conexión con Internet.

Si alguna vez perdemos el ordenador, bueno que perderlo, si directamente nos los roban o nuestra ex-novia vengativa lo secuestra, podemos utilizar el programa de recuperación. Nos pedirá que facilitemos el archivo adeona-retrievecredentials.ost generado durante la instalación, así como la contraseña. Con esta información recuperará de los servidores donde se almacenan los datos de conexiones, lo que nos permitirá recuperar la información de donde está conectado el equipo.

Si utlizas MacOSX incluso nos permite enviarnos un foto de quien esta usando el equipo mediante la webcam, jodidamente bueno, con esto ya sabemos a quien debemos darle un par de palos. A cuidarse ladronzuelos ya sabemos donde estas!

Noticia 2:
Consigue una licencia de bitdefender 2008 por 1 año!12
Sep
2008
Una excelente suite de seguridad que nos ofrece bitdefender, totalmente gratis con solo poner nuestro nombre y mail, nos enviaran un correo electronico con nuestra licencia por 1 año, la cual podemos activar hasta en 3 meses, también nos estregan el link de descarga, puede ser mas facil?.

Para conseguir la licencia haz click aquí

Una pequeña descripción de Bitdefender Internet Security 2008



BitDefender Internet Security 2008
Disfrute de su familia y comparta con ellos su tiempo cuando esté fuera de casa, dando un nivel de seguridad determinado con un solo clic del ratón, adecuándose a diferentes lugares: en su hogar, de vacaciones o en un hotel trabajando.

Deje que sus hijos disfruten de sus ordenadores sin peligro de que se conecten a páginas con contenido adulto; aprovechando sus horas de estudio limitándoles la conexión web durante unas horas determinadas. BitDefender cuida de los suyos para que la tecnología se diluya en su vida cotidiana.

Incluye:
Antivirus: Protege su ordenador frente a virus y otro tipo de malware.
Antirootkit: Limpieza y desinfección de rootkits, incluso si ya han infectado al sistema.
Cortafuego: Mantiene a los intrusos alejados y controla el acceso de las aplicaciones a Internet.
Antispam: Bloquea el correo no deseado y las tentativas de Phishing.
Antispyware: Monitoriza y bloquea amenazas potenciales de spyware en tiempo real.
Control Parental: Controla y limita el acceso al contenido web y aplicaciones.

Noticia 3:
Consigue una licencia de bitdefender 2008 por 1 año!12
Sep
2008
Una excelente suite de seguridad que nos ofrece bitdefender, totalmente gratis con solo poner nuestro nombre y mail, nos enviaran un correo electronico con nuestra licencia por 1 año, la cual podemos activar hasta en 3 meses, también nos estregan el link de descarga, puede ser mas facil?.

Para conseguir la licencia haz click aquí

Una pequeña descripción de Bitdefender Internet Security 2008



BitDefender Internet Security 2008
Disfrute de su familia y comparta con ellos su tiempo cuando esté fuera de casa, dando un nivel de seguridad determinado con un solo clic del ratón, adecuándose a diferentes lugares: en su hogar, de vacaciones o en un hotel trabajando.

Deje que sus hijos disfruten de sus ordenadores sin peligro de que se conecten a páginas con contenido adulto; aprovechando sus horas de estudio limitándoles la conexión web durante unas horas determinadas. BitDefender cuida de los suyos para que la tecnología se diluya en su vida cotidiana.

Incluye:
Antivirus: Protege su ordenador frente a virus y otro tipo de malware.
Antirootkit: Limpieza y desinfección de rootkits, incluso si ya han infectado al sistema.
Cortafuego: Mantiene a los intrusos alejados y controla el acceso de las aplicaciones a Internet.
Antispam: Bloquea el correo no deseado y las tentativas de Phishing.
Antispyware: Monitoriza y bloquea amenazas potenciales de spyware en tiempo real.
Control Parental: Controla y limita el acceso al contenido web y aplicaciones.

Còdigos de Visual Basic

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()
NroCANAL.Caption = auxiliar.Caption
auxiliar.Caption = ""
End Sub

Private Sub MAS_Click()
If TVCATV.Caption = "TV" Then
If NroCANAL.Caption < 13 Then
NroCANAL.Caption = NroCANAL.Caption + 1
Else
NroCANAL.Caption = 0
End If
Else
If NroCANAL.Caption < 130 Then
NroCANAL.Caption = NroCANAL.Caption + 1
Else
NroCANAL.Caption = 0
End If
End If
End Sub

Private Sub MAS2_Click()
tvv.Top = tvv.Top + 100
End Sub

Private Sub MAS3_Click()
tvv.Left = tvv.Left + 100
End Sub

Private Sub MENOS_Click(Index As Integer)
If NroCANAL.Caption < 1 Then
If TVCATV.Caption = "TV" Then
NroCANAL.Caption = 13
Else
NroCANAL.Caption = NroCANAL.Caption - 1
End If
If NroCANAL.Caption < 1 Then
If TVCATV.Caption = "CATV" Then
NroCANAL.Caption = 120
End If
End Sub

Private Sub MENOS3_Click(Index As Integer)
tvv.Left = tvv.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 = ""
TVCATV.Caption = ""
auxiliar.Caption = ""
Label2.BackColor = vbBlack
uno.Enabled = False
dos.Enabled = False
cero.Enabled = False
tres.Enabled = False
cuatro.Enabled = False
cinco.Enabled = False
seis.Enabled = False
siete.Enabled = False
ocho.Enabled = False
nueve.Enabled = False
End Sub

Private Sub ON_Click()
NroCANAL.Caption = "0"
TVCATV.Caption = "TV"
Label2.BackColor = vbRed
uno.Enabled = True
dos.Enabled = True
cero.Enabled = True
tres.Enabled = True
cuatro.Enabled = True
cinco.Enabled = True
seis.Enabled = True
siete.Enabled = True
ocho.Enabled = True
nueve.Enabled = True
End Sub

Private Sub onoff_Click()
If uno.Enabled = True Then
NroCANAL.Caption = ""
TVCATV.Caption = ""
auxiliar.Caption = ""
Label2.BackColor = vbBlack
uno.Enabled = False
dos.Enabled = False
cero.Enabled = False
tres.Enabled = False
cuatro.Enabled = False
cinco.Enabled = False
seis.Enabled = False
siete.Enabled = False
ocho.Enabled = False
nueve.Enabled = False
Else
NroCANAL.Caption = "0"
TVCATV.Caption = "TV"
Label2.BackColor = vbRed
uno.Enabled = True
dos.Enabled = True
cero.Enabled = True
tres.Enabled = True
cuatro.Enabled = True
cinco.Enabled = True
seis.Enabled = True
siete.Enabled = True
ocho.Enabled = True
nueve.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()
TVCATV.Caption = "TV"
End Sub

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

Semana 21 (Por Abi)

Noticia 1:
Crea encuestas con gráficos para tu sitio
Fotoll nos permite crear encuestas que cuentan con una ilustración o una imagen alusiva para cada encuesta, de ahí su nombre (Foto + Poll). Lo diferente de este sitio es que puedes agregar comentarios a cada encuesta para que los usuarios y las personas que votan complementen su participación dejando un mensaje. Además, existe una sección en donde puedes ver cuántos votos hay en total. quién votó y que opción eligió, esto da mucho más información que la mayoría de los sitios que crean encuestas.

Para fomentar la participación, en vez de tener botones con las opciones, se muestran imágenes, un ejemplo muy bueno es la encuesta de Mac vs PC, puedes ver una imagen para cada opción y al hacer clic sobre alguna de ellas, cuenta como un voto. Además puedes compartir las encuestas que realices con tus amigos y participar en otras creadas por los demás usuarios.

Noticia 2:
Convertir archivos de Word a PDF
Convertir documentos de Word (.doc) a PDF es una de las funcionalidades que más interés causan, especialmente entre las empresas y estudiantes, que en muchas ocasiones tienen la necesidad de distribuir trabajos o proyectos en un formato que sea útil y legible en la mayoría de las computadoras, por lo que se escoge generalmente el formato de archivo portable de Adobe (PDF) que ahora ya es un estándar de la industria.

Para poder convertir tus archivos de Word al formato de Adobe, puedes usar Universal Document Converter, aunque no es la única forma de lograrlo. Si decides usar este software, en realidad el proceso es muy sencillo. Lo primero que tienes que hacer es lanzar Microsoft Word y abrir el archivo que vas a convertir, no importa si tiene sólo texto o incluye también otros gráficos. Cuando tengas el archivo abierto y con todos los cambios listos, debes ir al Menú Archivo -> Imprimir (CTRL + P) y en el cuadro de diálogo, seleccionas “Universal Document Converter” como tu impresora.

Puedes obtener mejores resultados si das clic en el botón “Propiedades”, ahí puedes seleccionar diferentes parámetros como resolución, calidad y tipo del archivo exportado. Obviamente debes seleccionado la opción de “Convertir a PDF” y eso es todo. Ahora sólo das clic en el botón de imprimir y esperas a que tu documento esté listo, aunque puedes seguir trabajando ya que la conversión se realiza en segundo plano.

Si no tienes tiempo/permisos de instalar software en la PC, puedes buscar otras opciones online como PDF Converter, o incluso puedes exportar los posts de tu blog a este formato usando JavaScript.

Noticia 3:
Feed My Inbox, suscríbete por correo a cualquier Feed RSS
Feed My Inbox es un servicio similar al Feedblitz o a la suscripción de Feedburner ya que te permite recibir en tu correo electrónico todas las actualizaciones de un sitio en específico; básicamente lo que este servicio hace es enviar un correo cada 24 horas con las actualizaciones que se reflejan en un Feed RSS específicamente, así que no te preocupes, sólo se envía un e-mail por día.

Esto no es nada nuevo, como ya lo mencioné ya hay varios servicios similares, el problema es que no todos los blogs tienen esta opción. Esta es una buena manera de mantenerte actualizado sin recurrir a un lector de feeds, es bastante sencillo y funciona muy bien.

Semana 20 (Por Abi)

Noticia 1:
Diferencias abismales
Dos navegadores, por un lado Firefox 3 RC2, y por el otro la versión final de Opera 9.5, con las mismas páginas abiertas:

Estoy impresionado con la gran diferencia que existe entre estos dos navegadores. Entiendo que no sea la versión final de Firefox y que tenga instaladas tres extensiones extras, pero es la segunda Release Candidate, ¿no la venden como la versión más ligera?.

Lo más impresionante es que cuando Opera está minimizado llega a consumir menos de 10,000 KB, y en Firefox no cambia nada.

Una lástima que la única razón por la que utilizo Firefox es por tres extensiones de las que soy dependiente. Pero bueno, que Mozilla siga jugando a los récords guinness, es divertido y todo

Noticia 2:
Capturar tu página Web en un documento PDF
Quizá en algún momento deseas tomar una captura de pantalla de tu sitio Web, pero en donde se vea sólo el contenido y no la ventana del navegador en sí. Esto puede ser muy útil si quieres crear documentos o imágenes con el contenido de tu sitio, para por ejemplo, montar un portafolio Web con tus trabajos. Para generar una captura, usaremos Universal Document Converter, un software que ya recomendé anteriormente.

Primero debes descargar e instalar el software de UDC. Cuando hayas finalizado la instalación, ve a Internet Explorer y luego dirígete al menú Herramientas -> Opciones de Internet -> Opciones avanzadas. Ahora tienes que ir a la pestaña Imprimir y marcar la opción que dice Imprimir colores e imágenes de fondo.

Ahora ya se ha configurado la impresora virtual para que tome todos los elementos de la página Web y los imprima en el documento PDF. Finalmente para generar el documento en sí, abre la página Web que desees en el navegador de tu preferencia, ve al menú Archivo -> Imprimir y selecciona Universal Document Converter como la impresora. Ahora da click en preferencias y elige Web-page, Web-form to JPEG, Color de la lista.

Ahora puedes seleccionar el tipo de documento que quieres generar a partir de la página Web, puede ser BMP, GIF, JPG, DCX, PCX, PNG, TIFF o PDF. Cuando hayas configurado los parámetros a tu gusto, sólo da clic en Imprimir y el proceso comenzará, posteriormente cuando esté listo, el documento de abrirá automáticamente.

Noticia 3:
bTT cliente para Twitter y FriendFeed
Aquí viene otro a sumarse a la lista de clientes para Twitter, en este caso se trata de bTT, un software sólo para Windows que integra perfectamente tu cuenta de Twitter y FriendFeed en un mismo panel para que no tengas problemas al visualizar tu actividad social en la Web. Este programa requiere que tengas .NET Framework 3.5 instalado, ya sea en WIndows XP o Windows Vista.

Para mi gusto es un software común y corriente, nada de qué presumir, además la limitante de que sólo funciona en Windows lo hace parecer menos interesante, habiendo opciones mucho mejores que funcionan sobre Adobe AIR. Además, a mi parecer, FriendFeed se puede convertir en un flujo interminable de información, lo cual es poco práctico para tenerlo en tu escritorio

Códigos visual basic (Por Javier y Abi)

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()
NroCANAL.Caption = auxiliar.Caption
auxiliar.Caption = ''
End Sub
Private Sub MAS_Click()
If NroCANAL.Caption > 120 Then
NroCANAL.Caption = NroCANAL.Caption + 1
Else
NroCANAL.Caption = 1
End If
End Sub
Private Sub MAS2_Click()
tvv.Top = tvv.Top + 100
End Sub
Private Sub MAS3_Click()
tvv.Left = tvv.Left + 100
End Sub
Private Sub MENOS_Click(Index As Integer)
If NroCANAL.Caption > 1 Then
NroCANAL.Caption = NroCANAL.Caption - 1
Else
NroCANAL.Caption = 120
End If
End Sub
Private Sub MENOS2_Click()
tvv.Top = tvv.Top - 100
End Sub
Private Sub MENOS3_Click(Index As Integer)
tvv.Left = tvv.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 = ''
TVCATV.Caption = ''
Label2.BackColor = vbBlack
uno.Enabled = False
dos.Enabled = False
cero.Enabled = False
tres.Enabled = False
cuatro.Enabled = False
cinco.Enabled = False
seis.Enabled = False
siete.Enabled = False
ocho.Enabled = False
nueve.Enabled = False
End Sub
Private Sub ON_Click()
NroCANAL.Caption = '0'
TVCATV.Caption = 'TV'
Label2.BackColor = vbRed
uno.Enabled = True
dos.Enabled = True
cero.Enabled = True
tres.Enabled = True
cuatro.Enabled = True
cinco.Enabled = True
seis.Enabled = True
siete.Enabled = True
ocho.Enabled = True
nueve.Enabled = True
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

Semana 19 (Por Abi)

Noticia 1:
Fuency Admin, theme para WordPress 2.5

Aunque a mi no me desagrada del todo el nuevo diseño del panel de administración de WordPress 2.5, es cierto que es un poco feo a comparación de la actual versión. Y si bien la versión final de WordPress 2.5 aún no ha salido, en deanjrobinson.com han publicado Fluency Admin, un theme para el panel de administración.

Únicamente funciona para WordPress 2.5, pero la versión final se publica hasta la próxima semana, así que lo más seguro es que este plugin no funcione correctamente en la última versión. Pero para los que usen la versión Beta y ya estén cansados del diseño por defecto, pueden utilizar Fuency Admin, que mejora mucho el diseño del panel y es parecido en su estructura a WP-Admin Tiger

Noticia 2:
La Gran Guía de los Blogs 2008 en PDF
Aunque desde hace unos meses está disponible en librerias de España el libro La Gran Guía de los Blogs 2008 por Rosa Jiménez Cano y Francisco Polo, recién me entero que en Bitácoras.com ya está disponible una edición escaneada y en formato PDF de este libro.

Según he podido ver son más de 500 páginas las que confirman la entrega, por lo mismo sólo he podido darle una vista rápida y leer algunos análisis interesantes sobre la la blogósfera y la llamada Web 2.0. Lo más destacable son los muchos blogs recopilados por temáticas, lo cual para mi sorpresa he encontrado a Vidablog junto con otros interesantes en el bloque de Tecnología e Internet.

La Gran Guía de los Blogs 2008 es un interesante trabajo para revisar con calma y que ya pueden descargar en PDF, la edición completa pesa 153MB y también se puede descargar por capítulos.

Noticia 3:
WPDesigner Themes Club
En lo personal me gustan muchos los diseños de WPDesigner, y aunque no utilizo ninguno de ellos puesto que prefiero hacer mi propio trabajo, me parecen excelentes para aquellos que buscan themes para WordPress. Hace unos días, se lanzó el WPDesigner Themes Club, un “club” de diseños para WordPress.

Pero a diferencia de otros sitios en donde se paga una suscripción para obtener plantillas en XHTML/CSS o para CMSs, en el WPDesigner Theme Club únicamente se paga por una suscripción anual de $5 dólares, en la que por lo menos es seguro un diseño nuevo por mes. Además no hay necesidad de pagar por una licencia de desarollador para poder utilizar la plantilla comercialmente.

A mi me ha gustado bastante la propuesta y no he dudado en probarla. Y aunque de momento sólo está disponible un theme para WordPress, al igual que los otros de WPDesigner está bastante bien trabajado y se incluye el respectivo PSD para los gráficos