calculadora (por marto)

Private Sub Borrrar_Click()
pantalla.Caption = ""
aux.Caption = ""
aux2.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 dividido_Click()
aux.Caption = pantalla.Caption
aux2.Caption = "/"
pantalla.Caption = ""
End Sub
Private Sub dos_Click()
pantalla.Caption = pantalla.Caption + "2"
End Sub
Private Sub igual_Click()
If aux2.Caption = "+" Then
pantalla.Caption = Val(aux.Caption) + Val(pantalla.Caption)
End If
If aux2.Caption = "-" Then
pantalla.Caption = Val(aux.Caption) - Val(pantalla.Caption)
End If
If aux2.Caption = "*" Then
pantalla.Caption = Val(aux.Caption) * Val(pantalla.Caption)
End If
If aux2.Caption = "/" Then
pantalla.Caption = Val(aux.Caption) / Val(pantalla.Caption)
End If
aux.Caption = ""
aux2.Caption = ""
End Sub
Private Sub mas_Click()
aux.Caption = pantalla.Caption
pantalla.Caption = ""
End Sub
Private Sub menos_Click()
aux.Caption = pantalla.Caption
aux2.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 por_Click()
aux.Caption = pantalla.Caption
aux2.Caption = "*"
pantalla.Caption = ""
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 23 (por marto)

Flee, una cámara de fotos arrojadiza

Publicado el 6 de Agosto del 2008

Parece una pelota de badminton, pero Flee es en realidad una cámara de fotos arrojadiza. Ideada por el diseñador turco Hakan Bogazpinar, este concepto incluiría un sensor CCD, una pequeña lente, una batería, un dispositivo de almacenamiento para las fotos y un módulo Bluetooth para enviarlas instantáneamente y sin cables al móvil. Sólo habría que programarla con su mando a distancia para disparar el número de fotos deseado durante el número de segundos deseado y arrojarla en la dirección deseada.

elegi este ariculo por que es un buen imvento
para saber mas

iPig, un cerdito para cargar la batería y amplificar la música del iPod

Publicado el 20 de Septiembre del 2008

Los cerditos son animales muy graciosos que ya han pegado fuerte en casi todos los gadgets tecnológicos. Desde auriculares hasta el Pig Phone, pasando por unos geniales altavoces. Hoy queremos poner otra nota porcina presentando iPig, una base para amplificar el iPod, que no tiene desperdicio. Creada por la firma Speakal, posiblemente sea el dock más divertido que hemos presentado hasta el momento, especialmente indicado para amantes de la granja y del jamón

elegi este articulo por que es un diseño muy bueno

para saber mas

iStik, para llevar pegado el iPod al cuerpo

Publicado el 12 de Septiembre del 2008

Este iStik es el invento típico para los adictos al iPod. Una inganiosa placa con imanes que nos permite llevarlo siempre pegado a la ropa. El dispositivo usa ocho imanes Neodynium de extrema acción magnética para mantener el iPod adherido a tu ropa. No se cae aunque balemos, hagamos deporte o peqguemos unos saltos increíbles…

elegi este articulo por que es muy practico
para saber mas

semana 22 (por marto)

Vodafone lanza una oferta que combina ADSL con Internet móvil

Publicado por Borja Gil el 25 de Septiembre del 2008

La operadora Vodafone acaba de anunciar su propio servicio de ADSL para particulares, precisamente bajo el nombre de Vodafone ADSL. Una oferta que llama la atención por incluir tanto un router Wi-Fi como un módem USB en el paquete inicial. Y es gracias a ese módem que el usuario podrá disfrutar de Internet móvil cuando se encuentre fuera de casa, a un coste bastante razonable.

elegi este ariculo por que es una gran conbinacion
para saber mas

Samsung Armani Night Effect, un móvil musical y juvenil - A fondo

Publicado por Lucas Laó el 24 de Septiembre del 2008

Samsung y Armani siguen llevándose bien. Al menos en lo que a lanzar móviles como marca conjunta se refiere. Pero en esta ocasión cambian de registro y de público. Tras el Samsung Giorgio Armani, una “pitillera táctil” destinada a un público más bien elitista, ahora se decantan por seducir a un sector más joven. Hablamos del Samsung Armani Night Effect M7500, un teléfono de tipo tableta, delgado, colorido y con efectos de iluminación inspirados, según Armani, en las luces nocturnas de Tokyo.

elegi este articulo por que me gusto el diseño
para saber mas

Compact Fashion, una cámara de bolsillo muy enrollada

Publicado por Redacción el 18 de Septiembre del 2008

Con tanto gadget tecnológico, ya no cabe nada más en nuestros bolsillos. Y es que con el móvil, la PDA, la cámara y el MP3, no hay sitio para nada. Es por eso que alguien tuvo la brillante idea de reducir el tamaño de los aparatos y empezó por la cámara fotográfica. La han llamado Compact Fashion Camera, es casi tan fina como un trozo de papel y puede enrollarse hasta parecer un pintalabios. Aunque todavía es un concepto, es muy probable que la firma Curventa se atreva a ponerla a danzar en el mercado tecnológico.

elegi este articulo por que me gusto el diseño
para saber mas

semana 21 (por marto)

Nokia N96, ya está en las tiendas el buque insignia de Nokia

Publicado el 25 de Septiembre del 2008
Al igual que hiciera con el iPhone, Telefónica se ha reservado la exclusiva del lanzamiento del Nokia N96 en España. Mucho se habla y se escribe sobre el terminal táctil de Apple, pero a este móvil “todo en uno” que llega el 1 de octubre a nuestro país tampoco le van a faltar novias. No olvidemos que se trata de un terminal que lleva todas las funciones pero con unas características técnicas mucho mejores que el terminal de Apple. Basta decir que lleva una cámara de fotos de muy buena calidad (5 megapíxeles y óptica Karl Zeiss) mientras que la del iPhone apenas tiene 2 megapíxeles. O, por ejemplo, el N96 lleva GPS completo mientras que el móvil de Apple sólo muestra mapas. De cualquier forma, con este modelo de la firma finlandesa Movistar sigue la política de precios controlados a cambio de cuotas mensuales y lanzan el Nokia N96 a 310 euros.

elegi este articulo por que me gusto el diseño
para saber mas

Unas gafas de sol muy multimedia

Publicado el 25 de Septiembre del 2008

Estas gafas de sol que venden en ThinkGeek reúnen en un sólo producto prestaciones parecidas a las de otros dos modelos de los que ya os hemos hablado. Como las gafas espía, llevan una cámara incorporada en la montura, aunque en este caso sólo sirve para hacer fotos. Y al igual que las gafas de Chinavasion, incluyen dos auriculares para escuchar música, pero en lugar de recibir las canciones sin cables, tiene un reproductor MP3 integrado con 1 GB de capacidad.

elegi este articulo por que tiene mucha ecnologuia estas gafas
para sabe mas

El 35% de los usuarios sustituye Windows Vista por Windows XP

Publicado por Borja Gil el 25 de Septiembre del 2008

Windows Vista sigue abriéndose paso, pero a marchas forzadas. Ahora es un nuevo estudio, realizado por Devil Mountain Software, el que afirma que hasta un 35% de los ordenadores con Windows Vista se sustituyen por el anterior Windows XP. Para realizar este sondeo, que se ha llevado a cabo a través de la comunidad de xpnet, se han analizado más de 3.000 ordenadores.

elegi este articulo por que es un gran porsentaje

para saber mas

Private Sub Label1_Click()

Private Sub Anterior_Click()
NroCanal.Caption = Auxiliar2.Caption
Auxiliar2.Caption = auxiliar3.Caption
Auxiliar2.Caption = NroCanal.Caption
auxiliar3.Caption = Auxiliar2.Caption
NroCanal.Caption = Auxiliar2.Caption

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 Enter_Click()

If Tvcatv.Caption = "TV" Then
If auxiliar.Caption < caption =" NroCanal.Caption" caption =" auxiliar.Caption" caption = "" caption =" NroCanal.Caption" caption =" auxiliar.Caption" caption = "" caption = "TV" caption =" NroCanal.Caption" caption =" 0" caption =" NroCanal.Caption" caption =" 0" top =" Pantalla.Top" top =" auxiliar.Top" top =" Shape2.Top" top =" Tvcatv.Top" top =" onoff.Top" top =" NroCanal.Top" left =" Pantalla.Left" left =" auxiliar.Left" left =" Shape2.Left" left =" Tvcatv.Left" left =" onoff.Left" left =" NroCanal.Left"> 0 Then
NroCanal.Caption = NroCanal.Caption - 1
Else
If Tvcatv.Caption = "CATV" Then
NroCanal.Caption = 129
Else
NroCanal.Caption = 13
End If
End If
End Sub

Private Sub Menos1_Click()
Pantalla.Top = Pantalla.Top - 100
auxiliar.Top = auxiliar.Top - 100
Shape2.Top = Shape2.Top - 100
Tvcatv.Top = Tvcatv.Top - 100
onoff.Top = onoff.Top - 100
NroCanal.Top = NroCanal.Top - 100
End Sub

Private Sub Menos2_Click()
Pantalla.Left = Pantalla.Left - 100
auxiliar.Left = auxiliar.Left - 100
Shape2.Left = Shape2.Left - 100
Tvcatv.Left = Tvcatv.Left - 100
onoff.Left = onoff.Left - 100
NroCanal.Left = NroCanal.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
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
catvtv.Enabled = False
auxiliar.Caption = ""
Mas.Enabled = False
Mas1.Enabled = False
Mas2.Enabled = False
Menos.Enabled = False
Menos1.Enabled = False
Menos2.Enabled = False
Enter.Enabled = False
Else
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
catvtv.Enabled = True
Mas.Enabled = True
Mas1.Enabled = True
Mas2.Enabled = True
Menos.Enabled = True
Menos1.Enabled = True
Menos2.Enabled = True
Enter.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
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

Visual Basic (por marto)

Private Sub Label1_Click()

End Sub

Private Sub CATV_Click()
tvcatv.Caption = "CATV"
End Sub

Private Sub catvtv_Click()
Numerocanal.Caption = "0"
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 Enter_Click()
If tvcatv.Caption = "TV" Then
If Auxiliar.Caption < caption =" Auxiliar.Caption" caption = "" caption =" 0" caption = "" caption = "CATV" caption =" Auxiliar.Caption" caption = "" caption =" 0" caption = "" caption =" Numerocanal.Caption" caption = "TV" caption =" 0" caption =" 0" top =" Pantalla.Top" left =" Pantalla.Left"> 0 Then
Numerocanal.Caption = Numerocanal.Caption - 1
Else
If tvcatv.Caption = "CATV" Then
Numerocanal.Caption = 129
Else
Numerocanal.Caption = 13
End If
End If
End Sub

Private Sub menos1_Click()
Pantalla.Top = Pantalla.Top - 100
End Sub

Private Sub menos2_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()
Numerocanal.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
Enter.Enabled = False
Auxiliar.Caption = ""
mas.Enabled = False
mas1.Enabled = False
mas2.Enabled = False
menos1.Enabled = False
menos.Enabled = False
menos2.Enabled = False
catvtv.Enabled = False

End Sub

Private Sub offon_Click()
If onoff.BackColor = vbRed Then
Numerocanal.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
Enter.Enabled = False
Auxiliar.Caption = ""
mas.Enabled = False
mas1.Enabled = False
mas2.Enabled = False
menos1.Enabled = False
menos.Enabled = False
menos2.Enabled = False
catvtv.Enabled = False
Else
Numerocanal.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
Enter.Enabled = True
mas.Enabled = True
mas1.Enabled = True
mas2.Enabled = True
menos1.Enabled = True
menos.Enabled = True
menos2.Enabled = True
catvtv.Enabled = True

End If

End Sub

Private Sub On_Click()
Numerocanal.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
Enter.Enabled = True
mas.Enabled = True
mas1.Enabled = True
mas2.Enabled = True
menos1.Enabled = True
menos.Enabled = True
menos2.Enabled = True
catvtv.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 marto)

Greencore 10200, aire acondicionado solar

Publicado por Cecilia Hill el 5 de Septiembre del 2008 En los momentos de más calor, es cuando necesitamos más energía para hacer funcionar nuestros aires acondicionados. Pues bien, en esta evidencia se basaron los chicos de GreenCore Air, para diseñar su aire acondicionado Greencore 10200. Usa los rayos del sol para alimentarse y produce aire fresco para los hogares, como cualquier otro aparato eléctrico.

elegi este articulo por que me parecio impresionante la cifra

para saber mas

Microsoft intenta contraatacar a Apple con un nuevo Zune

Publicado el 11 de Septiembre del 2008

Probablemente a muchos os suene la palabra Zune. La mayoría de los que estén interesados en equipos electrónicos sabrán que es, por así decirlo, el iPod de Microsoft. Lo que ya es mucho menos probable es que hayáis visto uno alguna vez con vuestros propios ojos, pues sólo se vende en Estados Unidos y Canadá. Pues bien, un día antes de que Apple presentase sus nuevos iPods, la compañía de las ventanas hizo lo propio con su MP3 de bolsillo.
elegi este ariculo por que me parecio intersante
para saber mas

Giant Digital Clock, un reloj-librería que deja bien claro qué hora es

Publicado por Redacción el 10 de Septiembre del 2008

¿Eres de los que siempre llega tarde a todas partes? Quizás no te baste con tu reloj de muñeca y necesites ver la hora de una manera más contundente. Igual te iría bien con este Giant Digital Clock fabricado por la firma Anka. Un reloj-estantería aprovecha su estructura para mostrar la hora en formato digital a través de luces LED.

Así podrás colocar tus libros, revistas, CDs y DVDs en un mueble que te permite saber la hora desde la otra punta de la habitación. Tiene unas unas dimensiones de 73cm x 13cm x 36 cm, pero si te gustan los muebles más discretos, también existe una versión más pequeña (23,8cm x 10,5cm x 6,5 cm) que viene con alarma incorporada. A gusto del consumidor.

elegi este articulo, por que me gustaria enerlo en mi casa
para saber mas