calculadora (por brian)

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

ascensor (por brian)

Private Sub boton1_Click()
asensor.Top = 6360
conteo.Caption = conteo.Caption + 1
c1.Caption = c1.Caption + 1
If asensor.Top = 6360 Then
boton1.Enabled = False
llamar1.Enabled = False
End If
If asensor.Top = 5040 And 3600 And 2400 And 1080 Then
boton1.Enabled = True
llamar1.Enabled = True
End If
End Sub
Private Sub boton2_Click()
asensor.Top = 5040
conteo.Caption = conteo.Caption + 1
c2.Caption = c2.Caption + 1
End Sub
Private Sub boton3_Click()
asensor.Top = 3600
conteo.Caption = conteo.Caption + 1
c3.Caption = c3.Caption + 1
End Sub
Private Sub boton4_Click()
asensor.Top = 2400
conteo.Caption = conteo.Caption + 1
c4.Caption = c4.Caption + 1
End Sub
Private Sub boton5_Click()
asensor.Top = 1080
conteo.Caption = conteo.Caption + 1
c5.Caption = c5.Caption + 1
End Sub
Private Sub enter_Click()
If tclave = "text2" Then
boton5.Enabled = True
Else
boton5.Enabled = False
End If
End Sub
Private Sub llamar1_Click()
asensor.Top = 7560
conteo.Caption = conteo.Caption + 1
c1.Caption = c1.Caption + 1
End Sub
Private Sub llamar2_Click()
asensor.Top = 5040
conteo.Caption = conteo.Caption + 1
c2.Caption = c2.Caption + 1
End Sub
Private Sub llamar3_Click()
asensor.Top = 3600
conteo.Caption = conteo.Caption + 1
c3.Caption = c3.Caption + 1
End Sub
Private Sub llamar4_Click()
asensor.Top = 2400
conteo.Caption = conteo.Caption + 1
c4.Caption = c4.Caption + 1
End Sub
Private Sub llamar5_Click()
asensor.Top = 1080
conteo.Caption = conteo.Caption + 1
c5.Caption = c5.Caption + 1
End Sub
Private Sub llamarpb_Click()
asensor.Top = 7800
conteo.Caption = conteo.Caption + 1
cpb.Caption = cpb.Caption + 1
End Sub
Private Sub llamarss_Click()
asensor.Top = 8880
conteo.Caption = conteo.Caption + 1
css.Caption = css.Caption + 1
End Sub
Private Sub luz_Click()
If asensor.BackColor = vbBlack Then
asensor.BackColor = vbYellow
Else
asensor.BackColor = vbBlack
End If
End Sub
Private Sub plantab_Click()
asensor.Top = 7800
conteo.Caption = conteo.Caption + 1
cpb.Caption = cpb.Caption + 1
End Sub
Private Sub play_Click()
boton1.Enabled = True
boton2.Enabled = True
boton3.Enabled = True
boton4.Enabled = True
plantab.Enabled = True
ss.Enabled = True
luz.Enabled = True
enter.Enabled = True
llamar1.Enabled = True
llamar2.Enabled = True
llamar3.Enabled = True
llamar4.Enabled = True
llamar5.Enabled = True
llamarpb.Enabled = True
llamarss.Enabled = True
End Sub
Private Sub ss_Click()
asensor.Top = 8880
conteo.Caption = conteo.Caption + 1
css.Caption = css.Caption + 1
End Sub
Private Sub stop_Click()
boton1.Enabled = False
boton2.Enabled = False
boton3.Enabled = False
boton4.Enabled = False
boton5.Enabled = False
plantab.Enabled = False
ss.Enabled = False
luz.Enabled = False
enter.Enabled = False
llamar1.Enabled = False
llamar2.Enabled = False
llamar3.Enabled = False
llamar4.Enabled = False
llamar5.Enabled = False
llamarpb.Enabled = False
llamarss.Enabled = False
End Sub

semana 29 ( por brian)

PSP vs nintendo DS, renovarse o morir

Las consolas portátiles mantienen su lucha particular. Sony ha anunciado las mejoras que va a incorporar a la Play Station Portable (PSP 3000) mientras Nintendo hace lo propio para su DS -o al menos eso se dice en Japón. El resultado de esta competencia, como siempre, es el beneficio para los usuarios y, con un poco de suerte, la bajada de los precios.

yo lo elegi porque me interesa los videojuegos

G1, el telefono de google

la marca Google ya es una realidad, y se llama G1. Realmente lo que pone Google es el software, ya que el fabricante será HTC y el operador T-Mobile. Hablamos, por supuesto, de Estados Unidos, que es donde verá la luz en octubre. En Europa, como siempre, a esperar: en Reino Unido en noviembre, el resto en 2009

elegi porque me gustan los celulares

top movil high tech

los últimos gadgets que salen al mercado para elaborar listas con los mejores en cada sector. Una opción es hablar del Top móviles High Tech, ya que la tecnología se ha convertido en una garantía de éxito para los fabricantes de móviles.

lo elegi porque me gustan los celulares

semana 28 (por brian)

manhunt2, por fin a la venta en españa

Manhunt 2 es un videojuego que pasará a la historia por ser el único que ha sido prohibido en el Reino Unido por el Consejo Británico de Clasificación Cinematográfica (BBFC) que es el organismo que se encarga de calificar por edades los productos audiovisuales. Funcionaba en EEUU pero su lanzamiento en Europa se vio interrumpido por la negativa inglesa.

lo elegi porque me gustan los juegos

movil samsung omnia i900

NO HAY IMAGEN

El Samsung Omnia i900 destaca por ser un móvil iTouch, es decir, de esos en los que puedes tocar la pantalla. Esto lo convierte en un modelo práctico y manejable

elegi este articulo porque me gustan los celulares

10 notas sober el nuevo nokia 5800 xpressmusic

Desde que Apple se lanzara a la creación y distribución del iPhone podría decirse que se ha producido una revolución en el mundo de los dispositivos móviles. Si bien cada marca iba mejorando sus teléfonos móviles no puede decirse que hubiera una línea clara de por dónde iban a ir los tiros hasta que se abrió una brecha tan grande que los demás han tenido que seguirla. Nokia no podía quedarse atrás, y como ya no había prisa, los suecos han pulido un aparato que bien merece un poco de atención, el Nokia 5800 XpressMusic.

elegi porque me gustan los celulares

semana 27 (por brian)

peligros online para niños

Internet es una herramienta muy utilizada hoy en día por todos, pequeños y mayores. Esto, al margen de tener muchos beneficios para una sociedad, tiene también una serie de inconvenientes orientados a los peligros online para niños.

lo elegi porque me parece que hay q avisar sobre el tema

Tomb raider: underworld en noviembre de 2008

Vuelve Lara Croft. A pesar de los altibajos, de la caída y recuperación, de sus cambios de humor y de las nefastas películas, la nueva entrega de Tomb Raider supone una alegría para sus incondicionales. El problema era saber si podríamos jugarlo en nuestra consola o maldecir al destino. Tranquilos. Tomb Raider: Underwold se podrá jugar en todas las plataformas habituales: Xbox 360, PlayStation 3, Wii, PlayStaton 2, Nintendo DS y PC. Eso sí, si la tuya es la consola de Microsoft estás de enhorabuena.

yo elegi este articulo porque me gustan los juegos.

planificar rutas online

planteamos una opción muy interesante, y a veces, incluso, necesaria para poder hacer un viaje en buenas condiciones: planificar rutas online. Se trata de una alternativa cada vez más habitual cuando queremos hacer un viaje.

elegi este articulo porque me parece intereasnte y practico

semana 26 (por brian)

el iphone con simyo

el iPhone con Simyo, una idea que a más de uno puede pillar por sorpresa y que al fin al cabo, es bueno para paliar el monopolio de Movistar con un dispositivo que ha causado furor en el mundo, y no es otro que el iPhone.

lo elegi porque me interesan los celulares

camara de vigilancia en red

Cuando sale un nuevo gadget al mercado, siempre esperamos que sea mejor que lo que hay, o por lo menos, que aporte algo distinto, nuevo, original o curioso.

yo elegi este articulo porque me interesa la tecnologia

blackberry storm 9500

Si algo ha marcado un punto de inflexión en el mercado de los teléfonos móviles ha sido el iPhone 3G de Apple. Después de este modelo, la industria ha cambiado por completo. La calidad, los componentes, y el diseño han entrado en una guerra en la que el usuario es el más beneficiado, que no es poco. En este contexto se sitúa la nueva Blackberry Storm 9500 que viene a tapar algunas de las deficiendias del teléfono de la manzana.

yo elegi este articulo porque me interesa la tecnologia

semana25 (por brian)

Widget marketing:herramienta de comunicacion

El mundo tecnológico parece destinado a innovar constantemente, hasta el punto de que como no estés al día, es fácil que te pierdas con tantos avances y novedades que salen al mercado. Un buen ejemplo de esto es el widget marketing: herramienta de comunicación.

yo elegi este articulo porque me parece interesante la tecnologia

alternativas al iphone

Corría el mes de julio del presente año (2008), cuando salió a la venta uno de los modelos de móvil más esperados de la historia. Largas colas desde días antes de su puesta a la venta, daban muestra de lo distinto que era el iPhone de Apple. Unos meses después, hay mucha gente que duda de su utilidad y se plantea otras alternativas al iPhone,

yo elegi este articulo porque me gustan los celulares

cargador philips para portatiles

No cabe que uno de los aspectos más molestos de la tecnología es la duración de la batería, que cada dos por tres hay que estar conectándola al enchufe para cargarla. Los ordenadores portátiles son los grandes perjudicados por el uso de la batería, que ven cómo se desgasta rápidamente. Una alternativa es usar el cargador Philips para portátiles,

yo elegi este articulo porque me parece interesante la tecnologia movil