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

semana 24 (por brian)

Estafas mas comunes en interenet

por lo que es un buen momento para centrarnos en aquellas estafas más comunes en Internet, para concienciar al usuario y que tenga presente que navegar por Internet es divertido pero hay que saber diferenciar lo bueno de lo malo, para no caer en los muchos engaños que hay ocultos en la red.

elegi este articulo por que me parece interesante avisar sobre el tema

disco duro online

hemos descubierto un disco duro online, algo que puede soliviantar el problema de espacio enn nuestro ordenador que todos hemos sufrido alguna vez, cuando guardamos todo lo que “cae” en el Pc.

elegi este articulo porque me parece interesante la tecnologia

detectar olores de formas digital

detectar olores de forma digital. Sin duda alguna, se trata de una cuestión que pilla por sorpresa a más de una. El caso es que no es más que una muestra del imparable poder que tiene la tecnología:

yo elegi este articulo porque me parece interesante la tecnologia

semana 23 (por brian)

Tv bravia z4500

La nueva generación de televisores viene pegando fuerte. La tecnología se ha instalado de forma definitiva en nuestras pantallas para ofrecernos imágenes nítidas y con todo lujo de detalles

elegi este articulo porque me gusta la television de lcd

Altavoces portatiles

La tecnología sin cables, el sistema wifi o el Bluetooth, han irrumpido con fuerza en el mundo de la tecnología y de los aparatos electrónicos, desarrollando gadgets completos y dotándolos de nuevos manejos y más funcionalidad.

yo elegi este articulo por que me interesa la tecnologia movil.

Software para contar personas o objetos

Las nuevas ideas tecnológicas están inundando el mundo virtual con avances que te permiten hacer actividades que hasta hace bien poco parecían imposibles, ahora un software para contar objetos y personas, un novedoso sistema que, más que servirte como herramienta realmente útil, puede ayudarte en algún aspecto curioso.

elegi este articulo porque me parece muy practico este software

semana21(Brian)

Testeando Google Chrome

En primer lugar lo he notado bastante liviano, incluso mas liviano que Firefox, note que se abre de manera rápida la primera vez, te carga en la home los sitios que mas visitas, es decir te muestra los 9 sitios que mas usas con un screen de la pagina, bastante parecido a lo que hace Opera, pero que resulta comodo utilizarlo y esta bien que se haya implementado.
Puedes arrastras favoritos o marcadores a la barra principal para un acceso rapido, con un solo click entras a los sitios webs que mas usas

para ver mas

Google Chrome, el navegador de Google

La pelea de los navegadores no es nueva y Google no se quiere quedar afuera y por eso lanza al mercado el Google Chrome siguiente el estilo, es un navegador simple con una interfaz limpia ( a mi gusto demasiado limpia, diria fea), que pretende competir seguramente con Opera, Firefox e Internet Explorer

para ver mas

Administrar mails en gmail, tips

Existen diferentes maneras de manejar nuestros correos en Gmail, ya que posee un buscador muy potente en el cual podremos filtrar diferentes tipos de mailsPodremos ver por ejemplo los correos no leidos, asi como tambien solo los que esten en la inbox, o quizas solo deseamos ver los spams, o los que tengan adjunto, aqui dejare una pequeña guia con diferentes tipos de busquedas recomendadas:

para ver mas

seman21(Brian)

Google interesado en comprar Valve

Creo haber repetido más de una vez que Google se está expandiendo rápidamente, cubriendo todos los flancos de la informática y tecnología. Cada vez se leen más noticias sobre la adquisión de compañías por parte de Google, empresas relacionadas con la telefonía, las fotografías, publicidad, microblogging o sistemas de gestión de contenidos, ahora veremos una posible adquisión en el mundo de los videojuegos.

Para ver mas

HP lanza teclado con la tecla Ctrl + Alt + Supr

Hewlett-Packard ha lanzado el primer teclado que hace honor a Windows incluye en una sola tecla la función Ctrl + Alt + Supr. Esta combinación es muy conocida, sabemos que se utiliza para acceder al Administrador de Tareas generalmente para cerrar aplicaciones que se han colgado

para ver mas

El iPod Nano de 4GB es real

En el evento “Lets Rock” de Apple, en donde se presentaron los nuevos iPod Nano disponibles en 9 diferentes colores y con capacidades de 8/16GB. Sin embargo, recientemente aparecieron una serie de fotografías de unos de los iPod Nano de 4ta generación de 4GB donde las fuentes dicen que a pesar de no ser anunciados oficialmente, estos están disponibles en Europa. Las imágenes estuvieron siendo regadas por toda la blogósfera como un rumor, hasta que al final se ha confirmado su existencia

para ver mas

visual3(Brian)

Private Sub enter_Click()
If auxiliar.Caption < 130 Then
auxiliar3.Caption = nrocanal.Caption
auxiliar2.Caption = nrocanal.Caption
nrocanal.Caption = auxiliar.Caption
auxiliar.Caption = ""
Else
auxiliar.Caption = ""
End If
End Sub

Private Sub masbrillo_Click()
base.Top = base.Top + 100
tvcatv.Top = tvcatv.Top + 100
onof.Top = onof.Top + 100
nrocanal.Top = nrocanal.Top + 100
auxiliar.Top = auxiliar.Top + 100
pantalla.Top = pantalla.Top + 100
End Sub

Private Sub masvolumen_Click()
base.Left = base.Left + 100
tvcatv.Left = tvcatv.Left + 100
onof.Left = onof.Left + 100
nrocanal.Left = nrocanal.Left + 100
auxiliar.Left = auxiliar.Left + 100
pantalla.Left = pantalla.Left + 100
End Sub

Private Sub menosbrillo_Click()
base.Top = base.Top - 100
tvcatv.Top = tvcatv.Top - 100
onof.Top = onof.Top - 100
auxiliar.Top = auxiliar.Top - 100
pantalla.Top = pantalla.Top - 100
nrocanal.Top = nrocanal.Top - 100
End Sub

Private Sub menosvolumen_Click()
tvcatv.Left = tvcatv.Left - 100
onof.Left = onof.Left - 100
nrocanal.Left = nrocanal.Left - 100
pantalla.Left = pantalla.Left - 100
auxiliar.Left = auxiliar.Left - 100
base.Left = base.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 of1_Click()
nrocanal.Caption = ""
tvcatv.Caption = ""
onof.BackColor = vbBlack
tvcatv.Enabled = False
uno.Enabled = False
dos.Enabled = False
cuatro.Enabled = False
tres.Enabled = False
seis.Enabled = False
cinco.Enabled = False
ocho.Enabled = False
siete.Enabled = False
cero.Enabled = False
nueve.Enabled = False
tv1.Enabled = False
catv1.Enabled = False
enter.Enabled = False
canalmas.Enabled = False
canalmenos.Enabled = False
masbrillo.Enabled = False
menosbrillo.Enabled = False
masvolumen.Enabled = False
menosvolumen.Enabled = False
End Sub

Private Sub ofon_Click()
If onof.BackColor = vbRed Then
onof.BackColor = vbBlack
nrocanal.Caption = ""
tvcatv.Caption = ""
uno.Enabled = False
dos.Enabled = False
tvcatv.Enabled = False
cuatro.Enabled = False
tres.Enabled = False
auxiliar.BackColor = vbgrey
seis.Enabled = False
cinco.Enabled = False
ocho.Enabled = False
siete.Enabled = False
cero.Enabled = False
nueve.Enabled = False
tv1.Enabled = False
catv1.Enabled = False
enter.Enabled = False
canalmas.Enabled = False
canalmenos.Enabled = False
masbrillo.Enabled = False
menosbrillo.Enabled = False
masvolumen.Enabled = False
menosvolumen.Enabled = False
catvtv.Enabled = False
Else
enter.Enabled = True
uno.Enabled = True
dos.Enabled = True
nrocanal.Caption = "0"
tvcatv.Caption = "tv"
cuatro.Enabled = True
tres.Enabled = True
catvtv.Enabled = True
tvcatv.Enabled = True
seis.Enabled = True
cinco.Enabled = True
ocho.Enabled = True
siete.Enabled = True
cero.Enabled = True
nueve.Enabled = True
auxiliar.BackColor = vbGreen
tv1.Enabled = True
catv1.Enabled = True
canalmas.Enabled = True
canalmenos.Enabled = True
masbrillo.Enabled = True
menosbrillo.Enabled = True
masvolumen.Enabled = True
menosvolumen.Enabled = True
onof.BackColor = vbRed
End If
End Sub

Private Sub on1_Click()
enter.Enabled = True
uno.Enabled = True
dos.Enabled = True
nrocanal.Caption = "0"
tvcatv.Caption = "tv"
onof.BackColor = vbRed
cuatro.Enabled = True
tres.Enabled = True
seis.Enabled = True
cinco.Enabled = True
ocho.Enabled = True
siete.Enabled = True
cero.Enabled = True
nueve.Enabled = True
tv1.Enabled = True
catv1.Enabled = True
canalmas.Enabled = True
canalmenos.Enabled = True
masbrillo.Enabled = True
menosbrillo.Enabled = True
masvolumen.Enabled = True
menosvolumen.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 tv1_Click()
tvcatv.Caption = "tv"
End Sub

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

visual 2 (Brian)

Private Sub canalmas_Click()
If tvcatv.Caption = "catv" Then
If nrocanal.Caption < caption =" nrocanal.Caption" caption =" 0" caption = "tv" caption =" nrocanal.Caption" caption =" 0"> 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 catv1_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 Command1_Click()

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 auxiliar.Caption < 130 Then
nrocanal.Caption = auxiliar.Caption
auxiliar.Caption = ""
Else
auxiliar.Caption = ""
End If
End Sub

Private Sub masbrillo_Click()
base.Top = base.Top + 100
tvcatv.Top = tvcatv.Top + 100
onof.Top = onof.Top + 100
nrocanal.Top = nrocanal.Top + 100
auxiliar.Top = auxiliar.Top + 100
pantalla.Top = pantalla.Top + 100
End Sub

Private Sub masvolumen_Click()
base.Left = base.Left + 100
tvcatv.Left = tvcatv.Left + 100
onof.Left = onof.Left + 100
nrocanal.Left = nrocanal.Left + 100
auxiliar.Left = auxiliar.Left + 100
pantalla.Left = pantalla.Left + 100
End Sub

Private Sub menosbrillo_Click()
base.Top = base.Top - 100
tvcatv.Top = tvcatv.Top - 100
onof.Top = onof.Top - 100
auxiliar.Top = auxiliar.Top - 100
pantalla.Top = pantalla.Top - 100
nrocanal.Top = nrocanal.Top - 100
End Sub

Private Sub menosvolumen_Click()
tvcatv.Left = tvcatv.Left - 100
onof.Left = onof.Left - 100
nrocanal.Left = nrocanal.Left - 100
pantalla.Left = pantalla.Left - 100
auxiliar.Left = auxiliar.Left - 100
base.Left = base.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 of1_Click()
nrocanal.Caption = ""
tvcatv.Caption = ""
onof.BackColor = vbBlack
tvcatv.Enabled = False
uno.Enabled = False
dos.Enabled = False
cuatro.Enabled = False
tres.Enabled = False
seis.Enabled = False
cinco.Enabled = False
ocho.Enabled = False
siete.Enabled = False
cero.Enabled = False
nueve.Enabled = False
tv1.Enabled = False
catv1.Enabled = False
enter.Enabled = False
canalmas.Enabled = False
canalmenos.Enabled = False
masbrillo.Enabled = False
menosbrillo.Enabled = False
masvolumen.Enabled = False
menosvolumen.Enabled = False
End Sub

Private Sub ofon_Click()
If onof.BackColor = vbRed Then
onof.BackColor = vbBlack
nrocanal.Caption = ""
tvcatv.Caption = ""
uno.Enabled = False
dos.Enabled = False
tvcatv.Enabled = False
cuatro.Enabled = False
tres.Enabled = False
auxiliar.BackColor = vbgrey
seis.Enabled = False
cinco.Enabled = False
ocho.Enabled = False
siete.Enabled = False
cero.Enabled = False
nueve.Enabled = False
tv1.Enabled = False
catv1.Enabled = False
enter.Enabled = False
canalmas.Enabled = False
canalmenos.Enabled = False
masbrillo.Enabled = False
menosbrillo.Enabled = False
masvolumen.Enabled = False
menosvolumen.Enabled = False
catvtv.Enabled = False
Else
enter.Enabled = True
uno.Enabled = True
dos.Enabled = True
nrocanal.Caption = "0"
tvcatv.Caption = "tv"
cuatro.Enabled = True
tres.Enabled = True
catvtv.Enabled = True
tvcatv.Enabled = True
seis.Enabled = True
cinco.Enabled = True
ocho.Enabled = True
siete.Enabled = True
cero.Enabled = True
nueve.Enabled = True
auxiliar.BackColor = vbGreen
tv1.Enabled = True
catv1.Enabled = True
canalmas.Enabled = True
canalmenos.Enabled = True
masbrillo.Enabled = True
menosbrillo.Enabled = True
masvolumen.Enabled = True
menosvolumen.Enabled = True
onof.BackColor = vbRed
End If
End Sub

Private Sub on1_Click()
enter.Enabled = True
uno.Enabled = True
dos.Enabled = True
nrocanal.Caption = "0"
tvcatv.Caption = "tv"
onof.BackColor = vbRed
cuatro.Enabled = True
tres.Enabled = True
seis.Enabled = True
cinco.Enabled = True
ocho.Enabled = True
siete.Enabled = True
cero.Enabled = True
nueve.Enabled = True
tv1.Enabled = True
catv1.Enabled = True
canalmas.Enabled = True
canalmenos.Enabled = True
masbrillo.Enabled = True
menosbrillo.Enabled = True
masvolumen.Enabled = True
menosvolumen.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 tv1_Click()
tvcatv.Caption = "tv"
End Sub

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

semana20(Brian)

Cochesito de juguete USB: La memoria preferida por los niño

sí, el diseño no es muy agradable que digamos, pero los 8GB de almacenamiento máximo. Está disponible en Gadget4all por un precio de 49 dólares

Bala USB: Para los fanáticos de la acciónSi eres fanático de algún juego de acción, defintivamente la Bala USB te vendra

“como anillo al dedo”. Esta memoria cuenta con una espacio de almacenamiento máximo de 1GB y aunque no he podido encontrar el precio, creo que sería de gran ayuda para invertarte alguna historia mientras la llevas en tu cuello.

Estadísticas agosto 2008

Visitas y páginas vistas

• 194.717 visitas únicas | 56.395 más que el mes de agosto.
• 334.475 páginas vistas | 95.578 más que el mes de agosto.

Rankings generales

Alexa (Mundial): 86.997

Alianzo (Venezuela): 10

semana 8(Brian)

Lo tenia echo en el blog de 2d y me olvide de postearlo aca


Bits PR supera los 500 comunicadores
Bits PR cumple 2 meses de vida. En tan sólo 8 semanas ya se han apuntado más de 500 profesionales de la comunicación y el marketing.bits te permite chatear y verte la cara con el otro.Bits PR se ha transformado en tan sólo 2 meses en uno de los mejores lugares para mantenerse informado de las nuevas tendencias que afectan a nuestra profesión
para ver mas

Firefox 3..ya queda menos
En su presentación en el BDigital, Nitot comentó que los navegadores del futuro estarán integrados en el sistema operativo, serán mucho más customizables ya que guardarán nuestros hábitos de navegación y nos permitirán hacer muchas más cosas. De momento, según Nitot, Firefox 3 gestionará mucho mejor la memoria de nuestro equipo, como lo han podido comprobar los que ya hemos testado Firefox 3 beta 5.
para ver mas
Tristan Nitot: en el futuro cercano tendremos navegadores mucho más customizables
Durante su ponencia Nitot ha explicado cómo se gestiona el Mozilla a un proyecto de código abierto como es Firefox, de manera que miles de colaboradores de todo del mundo puedan trabajar juntos para desarrollar un producto complejo pero fácil de usar como Firefox, utilizado por 175 millones de personas en más de 47 idiomas. Ninot ha comentado que cuentan con una organización modular, la cual les permite llevar a adelante el proceso colaborativo de desarrollo de las nuevas versiones del producto. Este o es el que les está permitiendo que la innovación esté al alcance de todos los usuarios.
para ver mas

semana 9(Brian)

Lo tenia echo y me lvide de postearlo en este blog lo postie en el de 2d

Sony pone publicidad dentro de los juegos para PS3

Las propagandas publicitarias dinámicas dentro de los juegos no son nada nuevo para las personas con un Xbox 360 o PC, pero Sony acaba de anunciar que entrará en este mercado gracias a una alianza con IGA Worldwide para integrar avisos publicitarios a diferentes juegos desarrollados para la plataforma PlayStation 3.

La elegí porque me la quiero comprar (la ps3).

Mozilla quiere batir records con Firefox 3
El equipo de Mozilla anunció hace poco que buscan que el lanzamiento de Firefox 3 imponga una nueva marca de descargas. La meta es que durante las primeras 24 horas después de su lanzamiento esta versión de Firefox tenga más descargas que cualquier otra versión anterior.

lo elegui porque cumple con la consigna.

Corea del Sur multa a Intel con $25,4 millones
Las agencias encargadas de hacer respetar las leyes anti-monopolio de Corea del Sur le han impuesto a Intel una multa de $25,4 millones por supuestamente abusar del poder dominante que posee en el mercado de procesadores.

semana 10(Brian)

Lo tenia echo y me lvide de postearlo en este blog lo postie en el de 2d


Google celebra el Día del Padre con su logotipo
Google celebra días festivos ya sean nacionales o a nivel mundial, mostrando en su logotipo una imagen conmemorativa para dicha efeméride


para ver mas

iPhone 3G: Nueva versión oficial del iPhone


Incluye GPS y tecnología 3G.
Cámara con geotagging (geoposicionamiento).
Diseño 2 gramos más ligero, pero 5 milímetros más largo, 1.1 mm más ancho y 0.7 mm más ancho.
Autnomía de la batería aumentada en 50 horas en espera, 10 horas de conversación en 2G y 5 en 3G.
Firmware 2.0: Appstore, mapas con GPS, sincronización de correo electrónico, calendario y contacos mediante Microsoft Exchange, y Mobile Me.
Soporta más tipos de documentos


Hoy 14 de Junio: ¡Feliz día del Blogger!
Publicado el 14 June 2008 Escrito por conker
Gracias a PuntoGeek por recordar que hoy 14 de Junio es el Día Internacional del Blogger, donde el objetivo y conmemoración del evento, consite en CAMBIAR, es decir, debemos decir como ha cambiado nuestra vida este año y como queremos que sea el próximo año.
Mi vida ha cambiado muchísimo, definitivamente el blogging me ha converitdo en una persona diferente, cada vez esto se convierte en una pasión que espero nunca se extinga.
¡Feliz día del Blogger

trabajo final flash

visual(Brian)

tarea visual (Brian)

Private Sub canalmas_Click()
If nrocanal.Caption < caption =" nrocanal.Caption" caption =" 0"> 0 Then
nrocanal.Caption = nrocanal.Caption - 1
Else
nrocanal.Caption = 129
End If
End Sub
Private Sub catv1_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 Command1_Click()
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 masbrillo_Click()
base.Top = base.Top + 100
tvcatv.Top = tvcatv.Top + 100
onof.Top = onof.Top + 100
nrocanal.Top = nrocanal.Top + 100
auxiliar.Top = auxiliar.Top + 100
pantalla.Top = pantalla.Top + 100
End Sub
Private Sub masvolumen_Click()
base.Left = base.Left + 100
tvcatv.Left = tvcatv.Left + 100
onof.Left = onof.Left + 100
nrocanal.Left = nrocanal.Left + 100
auxiliar.Left = auxiliar.Left + 100
pantalla.Left = pantalla.Left + 100
End Sub
Private Sub menosbrillo_Click()
base.Top = base.Top - 100
tvcatv.Top = tvcatv.Top - 100
onof.Top = onof.Top - 100
auxiliar.Top = auxiliar.Top - 100
pantalla.Top = pantalla.Top - 100
nrocanal.Top = nrocanal.Top - 100
End Sub
Private Sub menosvolumen_Click()
tvcatv.Left = tvcatv.Left - 100
onof.Left = onof.Left - 100
nrocanal.Left = nrocanal.Left - 100
pantalla.Left = pantalla.Left - 100
auxiliar.Left = auxiliar.Left - 100
base.Left = base.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 of1_Click()
nrocanal.Caption = ""
tvcatv.Caption = ""
onof.BackColor = vbBlack
uno.Enabled = False
dos.Enabled = False
cuatro.Enabled = False
tres.Enabled = False
seis.Enabled = False
cinco.Enabled = False
ocho.Enabled = False
siete.Enabled = False
cero.Enabled = False
nueve.Enabled = False
tv1.Enabled = False
catv1.Enabled = False
enter.Enabled = False
End Sub
Private Sub on1_Click()
enter.Enabled = True
uno.Enabled = True
dos.Enabled = True
nrocanal.Caption = "0"
tvcatv.Caption = "tv"
onof.BackColor = vbRed
cuatro.Enabled = True
tres.Enabled = True
seis.Enabled = True
cinco.Enabled = True
ocho.Enabled = True
siete.Enabled = True
cero.Enabled = True
nueve.Enabled = True
tv1.Enabled = True
catv1.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 tv1_Click()
tvcatv.Caption = "tv"
End Sub
Private Sub uno_Click()
auxiliar.Caption = auxiliar.Caption + "1"
End Sub

semana19(brian)

http://www.blogdeinformatica.com/convertir-la-particion-de-tu-pen-drive-en-ntfs.php

Herramientas para monitorear nuestro disco duro

Luego de un tiempo la mayoria de los discos duros comienzan a “comportarse” de manera inestable o lenta, es por esto que se recomienda realizar un monitoreo cada tanto del disco.
En esta oportunidad recomendaré un par de programas para analizar nuestros HDD para un correcto funcionamiento

No hay foto

para ver mas

Convertir la particion de tu PEN DRIVE en NTFS

Como sabemos Windows por defecto formatea los Pen-Drive en FAT32, pero con esta utilidad podras dar formato NTFS a tu Pen-Drive ó Memoria USB, facil y sencillo. Abre la utilidad y elige el tipo de particion acepta y listo.Tendras tu Pen-Drive con una nueva particion NTFS que es mas segura.Esta utilidad es propiedad de HP y sirve para todo tipo de Pen-Drive USB

Para ver mas

Desbloquear documentos PDF

Los documentos PDF son muy utilizados hoy en dia para crear presentaciones profesionales, crear libros electronicos, etc. Estos documentos pueden ser bloqueados para que un usuario no pueda por ejemplo copiar el contenido

Para aquellos que deseen desbloquear un documento PDF existe una aplicacion muy sencilla para realizar esto. Tambien los documentos en muchas ocaciones se bloquean para impedir su impresion asique aqui mostrare un programa que nos permitira utilizarlos sin problema.

Para ver mas

mis vacaciones(Brian)

Ver mapa más grande

vacaciones (brian)

Lunes 28
Fui a lo de mi abuelo













Martes 29
Me que estudiando sosciales en casa
Miercoles 30
Fui al abasto con los de maimonides

jueves 31

Fui al abasto con los de maimonides

Viernes 1
Fui a patinar sobre hielo
Sabado 2 y sabado 9 ,domingo 3 y 10

fui al club

Lunes 4

fui a la feria del libro

Martes 5

Fui a la casa de un amigo

Miercoles 6

fui al zoo

Jueves 7

fui al negosio de mi papa

Viernes 8

vino un amigo a mi casa

semana 18(brian)

Pesas Geek: Haciengo ejercicio a lo más friki

Estas pesas permiten a los Geek hacer ejercicios sin sentirse extraños, además de la manera más friki posible con un peso aproximado de 4.5 kilogramos. Algo si está claro, con estas pesas no te convertirás en Chuck Norris de la noche a la mañana, pero es un buen comienzo.

Lo elegui porque me encanto la noticia

Para ver mas

50+ iconos gratis de alta calidad de iMac y Macbook

Eso sí, ten en cuando que estos iconos son trabajo de distintos autores y la mayoría son para uso personal, por lo que no podrás utilizarlos en “proyectos comerciales”. Para ello, puedes contactar al autor o bien, leer el aviso que cada autor adhiere a sus iconos.

Lo elegui porque cumple con la materia

No hay foto

Paraver mas

5 + Sitios para crear tu avatar gratis:
DroppelMe: En esta sitio podemos crear un avatar al estilo de dibujo animado

Gaia Dream Avatar:el estilo de avatar de Gaia Dream Avatar está enfocado al juego GaiaOnline.com, un juego online ubicado en la edad mitológica

Face Your Manga: Como bien su nombre indica, nos da la posibilidad de crear nuestro avatar al puro estilo manga

Meez: Nos permite recrear nuestra persona en un avatar 3D y completamente animado

lo elegui porque apenas me entere me ise un avatar

Para ver mas