codigos de calculadora 1 (por Abi)

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

2do Codigo de Visual Basic TV (Por Abi)

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

1era animación (Por Abi)

[Upload your own video]

Semana 2 (por Abi)

Noticia 1:

Crea páginas Web en minutos con Synthaiste

SynthaSite es una herramienta que nos ayuda a crear páginas Web en menos de cinco minutos, sin la necesidad de saber diseñar o escribir código HTML, ya que todo se hace a través de un editor visual con el que sólo tenemos que arrastrar y soltar elementos en nuestro sitio. Es muy similar a programas como Dreamweaver así que el esfuerzo es mínimo y podemos obtener resultados muy bonitos en muy poco tiempo.
Lo primero que hay que hacer es registrarse y obtener una cuenta, la cual es gratis; en seguida, podemos acceder al editor de sitios. Se trata de una interfaz muy completa en donde podemos encontrar widgets, una barra de herramientas de edición de texto, pestañas para gestionar más de un sitio y una barra de menús desde la cual podemos controlar aspectos del sitio como la publicación del mismo. La edición es muy fácil, basta con dar clic sobre un elemento y podremos ver las propiedades que se pueden modificar, todo es muy intuitivo y muy fácil de entender.


Dentro de los widgets disponibles, podemos encontrar cuadros de texto, interfaz a dos columnas, Google Maps, formularios de contacto, Google AdSense, fotografías, videos y mucho más, así que podemos crear una página rica en contenido multimedia sin complicaciones; el manejador de imágenes es muy similar al de WordPress 2.5, basado en Ajax y con muchas opciones para manipular los archivos. Existe un límite de 5 MB por foto que queramos subir.
Finalmente, podemos publicar el sitio, ya sea usando un subdominio que nos ofrece Synthaiste (tusitio.synthasite.com), usando nuestro propio dominio, o descargando la página a nuestra computadora para que la podamos editar en local. Pueden ver la página de ejemplo que publiqué.

http://www.bitperbit.com/

Noticia 2:

Microsoft compra Yahoo para hacer frente a GooglePosted by Javier Publicado en Noticias

Todo el mundo se esta haciendo eco de la operacion que quiere realizar Microsoft para adquirir Yahoo. De esta forma Microsoft intenta mejorar su posicion en cuanto a los productos web se refiere, sector que acutalmente esta liderado por Google.
Tendremos que esperar para ver que quiere conseguir Microsoft con esta adquisición ya que no solo basta con realizar compras multimillonarias, porque aunque compren Yahoo actualmete Google sigue siendo lider en buscadores por encima de Yahoo y Microsoft. Quizas con esta compra lo único que conseguirá es quitarse un competidor mas y todo quedara en una lucha entre Microsoft y Google.
Puedes ampliar mas información acerca de la compra en la noticia publicada por El mundo

http://www.dataland.es/

Noticia 3:

19 Programas de Recuperación de Datos

Martes 15 de abril de 2008 por jlr Programas
El otro día publicaba un artículo con consejos para recuperar la información de una tarjeta de memoria aparentemente dañada. Uno de los consejos consistía en utilizar un programa de recuperación de datos. En este apunte recojo no uno, sino un total de diecinueve programas para que podais recuperar los datos de vuestra tarjeta de memoria. (Seguir leyendo...)

semana 1 (Por Abi)

Noticia 1:

370 wallpapers para el iPhone y iPod Touch

Aunque en una anterior anotación ya había publicado un par de sitios dónde encontrar Wallpapers para el iPhone/Touch, en deviantArt me encontré con un interesante pack publicado por manicho con 370 wallpapers. La mayoría son del tipo abstracto y otros con vectores bastante guapos, todos con mucha calidad.
Lo más cómodo es sincronizarlos con iTunes, pero yo que soy muy nenaza quisquilloso con esto me parece que baja algo la calidad. Mejor pasarlos directamente al iPhone/Touch con Jailbreak
http://www.vidablog.com/

Noticia 2:

Inserta gráficos en tus webs con una nueva API sencillísima de googlePosted by Javier Publicado en Webmasters, Google

Desde el blog oficial para desarrolladores de google leemos que lanzan una nueva herramienta para insertar gráficos de forma realmente sencilla e insertarlos en páginas web.
Simplemete tienes que insertar una url en el parámetro src de una imagen del siguiente tipo:http://chart.apis.google.com/chart?cht=p3&chd=s:hW&chs=250×100&chl=HelloWorld

Y el resultado es el siguiente:

Sólo tienes que enviar los datos como parámetros en una petición http y obtendrás de vuelta un gráfico en formato png. Actualmente, el API soporta gráficos de líneas, histogramas, diagramas de sectores, diagramas de puntos y sparklines.
En un principio se construyo para uso interno pero ahora la ponen a disposición de los desarrolladores. Toda la información en la página del API y un grupo de asistencia para atender las dudas
Aqui os dejo un enlace a una pequeña explicacion en español de como usarla.

Noticia 3:

Generador de códigos QR

¿Sabes qué es un código QR ?. Es una especie de código de barras, bidimensional que puede guardar una gran cantidad de información, y que actualmente empieza a utilizarse en la industria. Se puede identificar fácilmente porque es un cuadrado con una serie de cuadrados dentro del mismo, y es imposible leer la información guardada sin un dispositivo especial. Desde este sitio puedes generar tu propio código QR, ya sea una URL, un mensaje SMS, un número de teléfono o texto plano. Aquí un ejemplo:

Ese código corresponde a la frase, “Gracias por visitar Bitperbit”, y si tuvieran un programa para leer este tipo de códigos, lo podrían verificar. Actualmente muchos teléfonos móviles y PDAs tienen un lector incorporado, así que es probable que en el futuro, este tipo de códigos se empiecen a usar más. Aquí tienen un lector de QR por si quieren curosear un rato.

Blogs elegidos de Netvibes (por Abi)

Los blogs sobre internet los busqué en el Google. Los elegí porque coincidian con la consigna dada: Internet y tecnología aplicada a Internet. El contenido es bastante interesante, hay muchisima información, se puede aprender de esos blogs.

1. http://tupsx.com/
Blog con las ultimas novedades en Internet con el fin de compartir e intercambiar comentarios y recursos.

2. http://5lineas.com/
Blog sobre internet, tecnología, desarrollo web y algunas otras cosas más.

3. http://www.vidablog.com/
vidablog es un blog personal en el que se escribe sobre diversos temas como Internet, tecnología, diseño, blogs, videojuegos y recursos web.

4. http://www.directorio-blogs.com/
Es un directorio de españa con más de 6000 blogs sobre Tecnología e Internet

5. http://www.bitperbit.com/
Se especializa en Internet y Web 2.0

6. http://www.dataland.es/
Dataland es un blog que nace con la intención de hablar acerca de todo lo que tenga que ver con internet y la teconologia especialmente en España.

Mi blog, personalización, Abi

Mi blog, personalización, Abi :

Yo cambie los colores de las letras para que quede mas lindo y aparte para darle un tono diferente.

Canción (por Abi)

EL FANTASMA

(Arbol)
Ver página de Arbol

Salgo volando

por la ventana,

y tantos días

quedan atrás.

Ya no me duelen

todas las cosas

que ayer

me podían molestar.

Son cajones que se cierran

para que nadie los vea.

Son palabras que no

pude decir.

Pero ya no me importa,

porque nada me toca,

y no hay nada vivo

dentro de mi.

Floto en el aire

desde esta tarde,

cuando mi cabeza

explotó.

Ahora el piso es de nubes

y me asomo cada tanto

a espiarte desde

donde estoy.

Y veo, y vuelo.

Y veo, y vuelo.

El barrio se ilumina

y la noche se hace día.

Brilla como un árbol

de navidad.

Y estoy alto muy alto,

y las luces de los autos

que se frenan cada tanto,

y vuelven a arrancar.

Y veo, a la gente corriendo

como una coreografía sin fin.

Y vuelo como en una avioneta,

el olor a fugazeta que cocina mamá.

Y me acuerdo de aquél día

en que decías:

"Si pudieras ser

un pájaro ¿Qué harías...?"

Ahora que floto

y no siento lo que toco

y la gente no me ve pasar.

Voy a aprovechar

para ir a buscarte,

y contarte para contarte

como es todo por aca.

Algunas mañanas pasa

la abuela Yolanda

y nos vamos juntos

a pasear.

Y te manda un saludo

el marido de Pocha.

Que me juega al ajedrez

y no le puedo ganar.

Y dale para adelante

con el pibe de a la vuelta,

que a la tarde te pasó a visitar.

Yo te sigo esperando,

porque nada me apura

y algún día todos vienen para aca.

Y veo (y veo), y vuelo (y vuelo).

Y veo (y veo), y vuelo (y vuelo).

Y veo (y veo), y vuelo (y vuelo).

Y lloro (y lloro) un poco (un poco).