Codigo calculadora (Por Dani B.)

Private Sub borrar_Click()
cuenta.Caption = ""
auxiliar.Caption = ""
auxiliar2.Caption = ""
End Sub
Private Sub cero_Click()
cuenta.Caption = cuenta.Caption + "0"
End Sub
Private Sub cinco_Click()
cuenta.Caption = cuenta.Caption + "5"
End Sub
Private Sub cuatro_Click()
cuenta.Caption = cuenta.Caption + "4"
End Sub
Private Sub dos_Click()
cuenta.Caption = cuenta.Caption + "2"
End Sub
Private Sub igual_Click()
If auxiliar2.Caption = "+" Then
cuenta.Caption = Val(auxiliar.Caption) + Val(cuenta.Caption)
auxiliar.Caption = ""
auxiliar2.Caption = ""
End If
If auxiliar2.Caption = "-" Then
cuenta.Caption = Val(auxiliar.Caption) - Val(cuenta.Caption)
auxiliar.Caption = ""
auxiliar2.Caption = ""
End If
If auxiliar2.Caption = "*" Then
cuenta.Caption = Val(auxiliar.Caption) * Val(cuenta.Caption)
auxiliar.Caption = ""
auxiliar2.Caption = ""
End If
End Sub
Private Sub multiplicar_Click()
auxiliar.Caption = cuenta.Caption
cuenta.Caption = ""
auxiliar2.Caption = "*"
End Sub
Private Sub nueve_Click()
cuenta.Caption = cuenta.Caption + "9"
End Sub
Private Sub ocho_Click()
cuenta.Caption = cuenta.Caption + "8"
End Sub
Private Sub restar_Click()
auxiliar.Caption = cuenta.Caption
cuenta.Caption = ""
auxiliar2.Caption = "-"
End Sub
Private Sub seis_Click()
cuenta.Caption = cuenta.Caption + "6"
End Sub
Private Sub siete_Click()
cuenta.Caption = cuenta.Caption + "7"
End Sub
Private Sub sumar_Click()
auxiliar.Caption = cuenta.Caption
cuenta.Caption = ""
auxiliar2.Caption = "+"
End Sub
Private Sub tres_Click()
cuenta.Caption = cuenta.Caption + "3"
End Sub
Private Sub uno_Click()
cuenta.Caption = cuenta.Caption + "1"
End Sub

Semana 23 (Por Dani B.)

Canon G10: poderosa cámara digital de 14.7MP

Les presentamos la nueva serie G de Canon, la G10 incluye lentes con ángulos periféricos de 28mm y zoom óptico 5x, en cuanto a su resolución, posee 14.7 megapíxeles y una pantalla LCD de 3 pulgadas.

Para más información

Elegí este artículo porque me sorprendió que una camara tenga 14.7 megapixeles que es un monton.

Proyector en la palma de tu mano

Por fin!! Todos los que de vez en cuando hacemos presentaciones con un proyector esperábamos este momento con ansia.
El día 30 de Septiembre lanzan el 3M Mpro110, un picoproyector que apenas pesa 150 gramos y permite proyectar imágenes con una resolución de 640 x 480 a un tamaño máximo de 50 pulgadas. Disponiendo de entradas VGA y de vídeo compuesto.

Para más información

Elegí este artículo porque no sabía que existía un poryector tan chico.

Nuevo LG KB770: con televisión DVB-T

Es un teléfono de tecnología 3.5G con Bluetooth stereo y con la capacidad de capturar vídeos en 320 x 240 píxeles de resolución a 15 fps. Pero lo más interesante aún de este aparato es su televisión móvil, con una amplia pantalla táctil de 3 pulgadas.

Para más información

Elegí este artículo porque me encantaría tener un celular en el que se pueda ver la tele.

Semana 22 (Por Dani B.)

AOC V17: lo último de AOC en monitores LCD

AOC ha anunciado su nuevo monitor LCD, el AOC V17, que tiene tan sólo 12mm de profundidad. Con sus 17 pulgadas, ofrece resoluciones de hasta 1440 x 900 con una relación de contraste de 5000:1 y tiempo de respuesta de 10ms. Además de tener dimensiones compactas, también incluye una cámara web VGA, una carcasa transparente, base de vidrio y altavoces estéreo integrados (aunque de tan sólo 1W cada uno). Como si fuera poco, tiene micrófono digital incorporado y también incluye software de videoconferencia.

Para mas información

Elegí este artículo porque me gusto mucho el diseño de este monitor.

Philips te ayuda a despertar por las mañanas con su nuevo gadget

Philips es famoso por sus electrodomésticos en general, esta vez no es un electrodoméstico, sino que es un gadget muy simple para ayudarnos a despertar por las mañanas. Se trata de una luz-alarma que nos despertará por las mañanas, ofrece sonidos naturales que incluyen por ejemplo cantos de pájaros, sonidos de insectos, etc. La luz por su parte, ofrece una luminisidad gradual a medida que pasan los minutos para hacer que el shock de levantarse no sea tan grande si eres muy perezoso.

Para más información Elegí este artículo porque me parecio original este despertador, y a la vez, mas tranquilo que los demas.

Samsung E215, Nuevo Samsung E215

Entre las caracteristicas del Samsung E215 tenemos:
Tarjeta MicroSD de 1GB.
Bluetooth.
Samsung E215 trae conexión USB para trasmitir datos.
Cámara VGA.
Grabador de video.

Para más información

Elegí este artículo porque me gustó el color de este celular.

semana 21 (Por Dani B.)

Motorola MOTOJEWEL, un motorola para chicas

Idem al Motorola U9, llega el Motorola MOTOJEWEL se presenta todavía más enfocado hacia un público femenino.
Entre las prestaciones este Motorola MOTOJEWEL trae:
Conectividad EDGE.
Cámara de fotos de 2 megapíxeles.
Reproductor de música, compatible con Windows Media Player.
Trae Bluetooth.
Como complementos del Motorola MOTOJEWEL se incluye un minibolso en el que caben el teléfono, una tarjeta de crédito y una barra de labios

Para mas información

Elegí este artículo porque me gusto la forma y el diseño de este celular.

iPod nano 4G

Pod nano 4G tiene nuevos diseños y en el el interior se añade un acelerómetro, de forma que la pantalla se rota automáticamente al girar el reproductor.
Con esto ahora con este 4g podemos ver Coverflow, ver los vídeos en panorámico y rotar las fotos automáticamente. Este acelerómetro también añade una nueva funcionalidad, Shake to Shuffle, con lo que al agitar el iPod nano 4G obtendremos una lista de reproducción aleatoria.

Para mas información

Elegí este artículo porque me gustó el cambio que tuvo desde la version anterior a esta.

Muwi: un robot que corta el césped por ti

Echa un vistazo a esta singular e innovadora cortadora de césped. A diferencia de la mayoría de las cortadoras de césped, Muwi es una cortadora-robot de última generación que ya que calcula el tamaño total del césped y automáticamente lo corta. A medida que el césped es cortado y se acumula dentro de Muwi, la máquina construye y comprime el césped en bloques cilíndricos, que pueden ser usados por niños o adultos para realizar diferentes cosas. Interesante máquina!

Para más información

Elegí este artículo porque cada vez existen mas robots que pueden hacer las tareas domesticas como cortar el pasto y así, no lo tenemos que hacer nosotros.

Visual Basic 2 (Por Dani B.)

Private Sub d_Click()
End Sub
Private Sub catv_Click()
Tvcatv.Caption = "CATV"
End Sub
Private Sub catvtv_Click()
If Tvcatv.Caption = "tv" Then
Tvcatv.Caption = "catv"
Else
Tvcatv.Caption = "tv"
End If
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 Label1_Click()
End Sub
Private Sub enter_Click()
If auxiliar.Caption < 120 Then
nrocanal.Caption = auxiliar.Caption
auxiliar.Caption = ""
Else
auxiliar.Caption = ""
End If
End Sub
Private Sub masbrillo_Click()
pantalla.Top = pantalla.Top - 100
End Sub
Private Sub mascanal_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 < 120 Then
nrocanal.Caption = nrocanal.Caption + 1
Else
nrocanal.Caption = 0
End If
End If
End Sub
Private Sub masvolumen_Click()
pantalla.Left = pantalla.Left - 100
End Sub
Private Sub menosbrillo_Click()
pantalla.Top = pantalla.Top + 100
End Sub
Private Sub menoscanal_Click()
If nrocanal.Caption > 0 Then
nrocanal.Caption = nrocanal.Caption - 1
Else
If Tvcatv.Caption = "catv" Then
nrocanal.Caption = 120
Else
nrocanal.Caption = 13
End If
End If
End Sub
Private Sub menosvolumen_Click()
pantalla.Left = pantalla.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 = ""
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
tv.Enabled = False
catv.Enabled = False
auxiliar.Caption = ""
End Sub
Private Sub offon_Click()
If onoff.BackColor = vbRed Then
onoff.BackColor = vbBlack
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
tv.Enabled = False
catv.Enabled = False
auxiliar.Caption = ""
catvtv.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
tv.Enabled = True
catv.Enabled = True
auxiliar.Enabled = True
End If
End Sub
Private Sub on_Click()
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
tv.Enabled = True
catv.Enabled = True
auxiliar.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 tv_Click()
Tvcatv.Caption = "TV"
End Sub
Private Sub uno_Click()
auxiliar.Caption = auxiliar.Caption + "1"
End Sub

Semana 20 (Por Dani B.)

Google Chrome, el navegador de Google

Google Chrome: el navegador web de Google. ¿Alguien creía que algo así no iba a llegar algún día? Es un paso más de la estrategia de Google por conquistar la web y le acerca aún más a un futurible Google OS, sobretodo por algunas de las características que implementa.

Para más información

Elegí este artículo para que todas las personas se enteren de que existe este nuevo navegador.

Las máquinas serán más inteligentes que los humanos en 2050

Durante el último día de la conferencia Intel Developer Forum en San Francisco, el director tecnológico de Intel, Justin Rattner, presentó su visión para las máquinas de futuro. Entre otras cosas, comentó que Intel investiga y desarrolla interfases entre seres humanos y máquinas, y que ya ha logrado grandes avances en sus investigaciones, que podrían resultar en que la brecha entre seres humanos y computadoras desaparezca antes del año 2050

Para más información

Elegí este artículo para mostrar que el hombre puede crear cosas que sean mas inteligentes que uno mismo.

Colas falsas para comprar el iPhone en Polonia

En la mayoría de países donde se lanzó el iPhone, la expectación generada por la prensa, los foros de internet y los propios consumidores, provocó un interés desmesurado por el terminal de Apple que se reflejó en las largas colas que se formaron para comprar el teléfono.

Sin embargo, como publica Reuters, esta actitud no ha sido igual de homogénea en todos los países del mundo. La operadora Orange, viendo la poca expectación que despertaba el lanzamiento del teléfono en Polonia, optó por contratar actores para que hiciesen cola delante de las tiendas. “Tenemos estas colas frente a 20 negocios en todo el país para incrementar el interés en el iPhone”, ha reconocido un portavoz de la compañía

Para más información

Elegí este artículo para mostrar que no en todo el mundo se esta interesando en comprar el Iphone.