viernes, 4 de junio de 2010

domingo, 16 de noviembre de 2008

Semana 29 (por Fabi)

Facebook Destroys Lucrative Birthday Reminder Industry
Facebook just added another extremely useful feature for users, and in doing so took out a slew of applications that do that same thing. You can now get a weekly email telling you, simply, which friends have birthdays coming up.
November 16, 2008
para más info
Elegí esta noticia porque me interesa mucho Facebook.


Obama to Address the Nation Each Week on YouTube

President elect Obama will bring the President's weekly "fireside chat" into the 21st century by offering it not just on the radio, but in video on YouTube as well. It's as if the new populist President really cares whether the next generation has a connection to what he's doing. That's where the people are - on YouTube, on MySpace and on Facebook.
November 14
para más info
Elegí esta noticia porque muestra el avance de la tecnología en los medios de comunicación.


Don't Leave Home Without a Charged Cell Phone

If you're flying out of Los Angeles or Orange County airports next week, make sure your mobile phone is charged and ready to go - especially if you've purchased a new mobile boarding pass from American Airlines. AA, following in the footsteps of Continental and Delta Airlines, last week announced the option to have your boarding pass sent directly to your mobile phone or PDA, in an attempt to save paper and money, and speed things up for travelers.
November 15, 2008
para más info
Elegí esta noticia porque muestra el avance de la tecnología.

Semana 28 (por Fabi)

Gmail brings Voice and Video Chat
The team behind Gmail have done it again. Just a few days ago, they introduced the ability to send emails as text messages on mobile devices. Though the service is still available to select users, it would soon be coming to the general public.
2008/11/13
para más info
Elegí esta noticia porque muestra el avance de la tecnología, y me parece que va a ser muy útil.

iPhone OS 2.2 Update Coming on November 21?
The rumors are high in the air today that Apple plans to release the iPhone OS 2.2 update on Friday, November 21, 2008. The beta for the update has been around in two flavors for some time now, and unlike the previous update, there are a number of new features coming our ways.
2008/11/13
para más info
Elegí esta noticia porque muestra lo rápido que avanza la tecnología.

Antivirus Gratis y con licencia Genuina
Cuando me inicie en esto de la Internet, me fue muy complicado encontrar un antivirus que fuera, bueno, gratis y estable, además de tener una licencia que no fuera de prueba, es por eso que publico esta excelente oportunidad de que puedan obtener un excelente Antivirus Gratis y con una licencia genuina y avalada por la empresa creadora, se trata de Trend Micro Internet Security 2008 (PC- Cillin) que es un software antivirus disponible para Windows XP y Vista.
Elegí esta noticia porque me parece muy práctico que haya antivirus gratis.

viernes, 14 de noviembre de 2008

Calculadora


Private Sub c_Click()
visor.Text = ""
punto.Enabled = True
End Sub


Private Sub cero_Click()
visor.Text = visor.Text + "0"
End Sub


Private Sub cinco_Click()
visor.Text = visor.Text + "5"
End Sub


Private Sub Command2_Click()


End Sub


Private Sub cuatro_Click()
visor.Text = visor.Text + "4"
End Sub


Private Sub div_Click()
punto.Enabled = True
If visor.Text = "0" Then
visor.Text = "Error: división por cero"
Else
aux.Caption = visor.Text
visor.Text = ""
aux1.Caption = "/"
End If
End Sub


Private Sub dos_Click()
visor.Text = visor.Text + "2"
End Sub


Private Sub igual_Click()
If aux1.Caption = "+" Then
visor.Text = Val(aux.Caption) + Val(visor.Text)
aux1.Caption = ""
End If
If aux1.Caption = "-" Then
visor.Text = Val(aux.Caption) - Val(visor.Text)
End If
If aux1.Caption = "x" Then
visor.Text = Val(aux.Caption) * Val(visor.Text)
End If
If aux1.Caption = "%" Then
visor.Text = 100 * Val(aux.Caption) / Val(visor.Text)
End If
If aux1.Caption = "/" And visor.Text = "0" Then
visor.Text = "Error: división por cero"
Else
If aux1.Caption = "/" Then
visor.Text = Val(aux.Caption) / Val(visor.Text)
End If
End If


End Sub


Private Sub mas_Click()
aux.Caption = visor.Text
visor.Text = ""
aux1.Caption = "+"
punto.Enabled = True
End Sub


Private Sub maso_Click()
visor.Text = Val(visor.Text) * -1
End Sub


Private Sub menos_Click()
aux.Caption = visor.Text
visor.Text = ""
aux1.Caption = "-"
punto.Enabled = True
End Sub


Private Sub nueve_Click()
visor.Text = visor.Text + "9"
End Sub


Private Sub ocho_Click()
visor.Text = visor.Text + "8"
End Sub


Private Sub por_Click()
aux.Caption = visor.Text
visor.Text = ""
aux1.Caption = "x"
punto.Enabled = True
End Sub


Private Sub porcentaje_Click()
aux.Caption = visor.Text
visor.Text = ""
aux1.Caption = "%"
punto.Enabled = True
End Sub


Private Sub punto_Click()
visor.Text = visor.Text + "."
punto.Enabled = False
End Sub


Private Sub raiz_Click()
If visor.Text = "0" Then
visor.Text = "Error: raíz cudrada de cero"
Else
visor.Text = Sqr(visor.Text)
End If
End Sub


Private Sub seis_Click()
visor.Text = visor.Text + "6"
End Sub


Private Sub siete_Click()
visor.Text = visor.Text + "7"
End Sub


Private Sub tres_Click()
visor.Text = visor.Text + "3"
End Sub


Private Sub uno_Click()
visor.Text = visor.Text + "1"
End Sub


Private Sub unodivx_Click()
visor.Text = 1 / Val(visor.Text)
End Sub

viernes, 7 de noviembre de 2008

Ascensor



Private Sub cinco_Click()

If contra.Text = "123" Then
cuenta.Caption = Val(cuenta.Caption) + Sqr(((Val(ascen.Top) - 480) / 840) ^ 2)

ascen.Top = 480
numero.Caption = "5"
nrito(0) = "5"
nrito(1) = "5"
nrito(2) = "5"
nrito(3) = "5"
nrito(5) = "5"
nrito(6) = "5"
nrito(7) = "5"
ccinco(0).Caption = Val(ccinco(0).Caption) + 1
Else
contra.Text = ""
End If
contra.Text = ""



End Sub

Private Sub cincoo_Click(Index As Integer)
cuenta.Caption = Val(cuenta.Caption) + Sqr(((Val(ascen.Top) - 480) / 840) ^ 2)
ascen.Top = 480
numero.Caption = "5"
nrito(0) = "5"
nrito(1) = "5"
nrito(2) = "5"
nrito(3) = "5"
nrito(5) = "5"
nrito(6) = "5"
nrito(7) = "5"
ccinco(0).Caption = Val(ccinco(0).Caption) + 1

End Sub

Private Sub cuatro_Click()
cuenta.Caption = Val(cuenta.Caption) + Sqr(((Val(ascen.Top) - 1320) / 840) ^ 2)
ascen.Top = 1320
nrito(0) = "4"
numero.Caption = "4"
nrito(1) = "4"
nrito(2) = "4"
nrito(3) = "4"
nrito(5) = "4"
nrito(6) = "4"
nrito(7) = "4"
ccuatro(8).Caption = Val(ccuatro(8).Caption) + 1

End Sub

Private Sub cuatroo_Click(Index As Integer)
cuenta.Caption = Val(cuenta.Caption) + Sqr(((Val(ascen.Top) - 1320) / 840) ^ 2)
ascen.Top = 1320
nrito(0) = "4"
numero.Caption = "4"
nrito(1) = "4"
nrito(2) = "4"
nrito(3) = "4"
nrito(5) = "4"
nrito(6) = "4"
nrito(7) = "4"
ccuatro(8).Caption = Val(ccuatro(8).Caption) + 1

End Sub

Private Sub dos_Click()
cuenta.Caption = Val(cuenta.Caption) + Sqr(((Val(ascen.Top) - 3000) / 840) ^ 2)
ascen.Top = 3000
numero.Caption = "2"
nrito(0) = "2"
nrito(1) = "2"
nrito(2) = "2"
nrito(3) = "2"
nrito(5) = "2"
nrito(6) = "2"
nrito(7) = "2"
cdos(6).Caption = Val(cdos(6).Caption) + 1

End Sub

Private Sub doss_Click(Index As Integer)
cuenta.Caption = Val(cuenta.Caption) + Sqr(((Val(ascen.Top) - 3000) / 840) ^ 2)
ascen.Top = 3000
numero.Caption = "2"
nrito(0) = "2"
nrito(1) = "2"
nrito(2) = "2"
nrito(3) = "2"
nrito(5) = "2"
nrito(6) = "2"
nrito(7) = "2"
cdos(6).Caption = Val(cdos(6).Caption) + 1

End Sub

Private Sub luz_Click()
If ascen.FillColor = vbBlack Then
ascen.FillColor = vbWhite
Else
ascen.FillColor = vbBlack
End If
End Sub

Private Sub pb_Click()
cuenta.Caption = Val(cuenta.Caption) + Sqr(((Val(ascen.Top) - 4680) / 840) ^ 2)
ascen.Top = 4680
nrito(0) = "PB"
nrito(1) = "PB"
nrito(2) = "PB"
nrito(3) = "PB"
nrito(5) = "PB"
nrito(6) = "PB"
nrito(7) = "PB"
numero.Caption = "PB"
cpb(4).Caption = Val(cpb(4).Caption) + 1

End Sub

Private Sub pbb_Click(Index As Integer)
cuenta.Caption = Val(cuenta.Caption) + Sqr(((Val(ascen.Top) - 4680) / 840) ^ 2)
ascen.Top = 4680
nrito(0) = "PB"
nrito(1) = "PB"
nrito(2) = "PB"
nrito(3) = "PB"
nrito(5) = "PB"
nrito(6) = "PB"
nrito(7) = "PB"
numero.Caption = "PB"
cpb(4).Caption = Val(cpb(4).Caption) + 1

End Sub

Private Sub sss_Click(Index As Integer)
cuenta.Caption = Val(cuenta.Caption) + Sqr(((Val(ascen.Top) - 5520) / 840) ^ 2)
ascen.Top = 5520
nrito(0) = "SS"
nrito(1) = "SS"
nrito(2) = "SS"
nrito(3) = "SS"
nrito(5) = "SS"
nrito(6) = "SS"
nrito(7) = "SS"
numero.Caption = "SS"
css(3).Caption = Val(css(3).Caption) + 1

End Sub


Private Sub stop_Click()
If cuatro.Enabled = True Then
cinco.Enabled = False
cuatro.Enabled = False
tres.Enabled = False
dos.Enabled = False
uno.Enabled = False
pb.Enabled = False
subsuelo.Enabled = False
cincoo(0).Enabled = False
cuatroo(9).Enabled = False
tress(8).Enabled = False
doss(7).Enabled = False
unoo(6).Enabled = False
pbb(5).Enabled = False
sss(4).Enabled = False
luz.Enabled = False
Else
cinco.Enabled = True
cuatro.Enabled = True
tres.Enabled = True
dos.Enabled = True
uno.Enabled = True
pb.Enabled = True
subsuelo.Enabled = True
cincoo(0).Enabled = True
cuatroo(9).Enabled = True
tress(8).Enabled = True
doss(7).Enabled = True
unoo(6).Enabled = True
pbb(5).Enabled = True
sss(4).Enabled = True
luz.Enabled = True
End If
End Sub


Private Sub subsuelo_Click()
cuenta.Caption = Val(cuenta.Caption) + Sqr(((Val(ascen.Top) - 5520) / 840) ^ 2)
ascen.Top = 5520
nrito(0) = "SS"
nrito(1) = "SS"
nrito(2) = "SS"
nrito(3) = "SS"
nrito(5) = "SS"
nrito(6) = "SS"
nrito(7) = "SS"
numero.Caption = "SS"
css(3).Caption = Val(css(3).Caption) + 1

End Sub

Private Sub Text1_Change()

End Sub

Private Sub tres_Click()
cuenta.Caption = Val(cuenta.Caption) + Sqr(((Val(ascen.Top) - 2160) / 840) ^ 2)
ascen.Top = 2160
numero.Caption = "3"
nrito(0) = "3"
nrito(1) = "3"
nrito(2) = "3"
nrito(3) = "3"
nrito(5) = "3"
nrito(6) = "3"
nrito(7) = "3"
ctres(7).Caption = Val(ctres(7).Caption) + 1

End Sub

Private Sub tress_Click(Index As Integer)
cuenta.Caption = Val(cuenta.Caption) + Sqr(((Val(ascen.Top) - 2160) / 840) ^ 2)
ascen.Top = 2160
numero.Caption = "3"
nrito(0) = "3"
nrito(1) = "3"
nrito(2) = "3"
nrito(3) = "3"
nrito(5) = "3"
nrito(6) = "3"
nrito(7) = "3"
ctres(7).Caption = Val(ctres(7).Caption) + 1

End Sub

Private Sub uno_Click()
cuenta.Caption = Val(cuenta.Caption) + Sqr(((Val(ascen.Top) - 3840) / 840) ^ 2)
ascen.Top = 3840
nrito(0) = "1"
nrito(1) = "1"
nrito(2) = "1"
nrito(3) = "1"
nrito(5) = "1" ^ 2


nrito(6) = "1"
nrito(7) = "1"
numero.Caption = "1"
cuno(5).Caption = Val(cuno(5).Caption) + 1

End Sub

Private Sub unoo_Click(Index As Integer)
cuenta.Caption = Val(cuenta.Caption) + Sqr(((Val(ascen.Top) - 3840) / 840) ^ 2)
ascen.Top = 3840
nrito(0) = "1"
nrito(1) = "1"
nrito(2) = "1"
nrito(3) = "1"
nrito(5) = "1"
nrito(6) = "1"
nrito(7) = "1"
numero.Caption = "1"
cuno(5).Caption = Val(cuno(5).Caption) + 1

End Sub

sábado, 1 de noviembre de 2008

Semana 27 (por Fabi)

AT&T Hotspots Now Free for iPhone Owners

That's right folks! After months of speculation and rumors, iPhone owners can now use the Wi-Fi available at their local AT&T Hotspot at no additional charge. We thought it was ridiculous that this didn't come pre-packaged with the iPhone considering that most iPhone owners are using the web more than their minutes. If you haven't received this golden text message on your iPhone yet, we've got the scoop on how you can get access to free AT&T Wi-Fi on your iPhone.
November 1, 2008
para más info
Elegí esta noticia porque muestra el avance de la tecnología.



Memiary Reminds You What You’re Doing With Your Life

For all the complexity of the human mind, when it comes down to remembering what we’ve been up to for the last few weeks our memories are pretty pitiful - you might remember a few notable events, but your day-to-day activities barely make a dent. And while some of us are not prone to such bouts of mental inadequacy, the vast majority of the population probably can’t remember what they were up to last weekend, much less a month ago.
October 31, 2008
para más info
Elegí esta noticia porque es muy útil para no olvidar cosas.




Datz Music Lounge: Gimmick or the Future of Digital Music?

If you live in the U.K. and you have 100 British pounds to spare, you can now subscribe to the Datz Music Lounge, where those 100 pounds can buy you unlimited access to DRM-free MP3s for one year. According to Music Week, Datz features about 2 million tracks from EMI, Warner, Beggars Group, and The Orchard. While the service is encumbered by technical problems like having to use a USB dongle, as well as a relatively limited selection of songs, we can't help but wonder whether this all-you-can-eat plan for DRM-free MP3s points towards the future of the digital music business.
October 31, 2008
para más info
elegí esta noticia porque así podés elegir toda la música que quieras.

Semana 26 (por Fabi)

Get Auto Reply Feature in Gmail

Gmail Labs has got another new feature named as Canned Responses. Using Canned Responses you can save any message/reply you are writing and can use it later in the future with just one click. So, now you don’t have to write same response again and again and Canned Responses feature will do this for you on the fly.
You can activate Canned Responses by going in to Labs from your Gmail settings. After activating this feature whenever you are composing a message, you can save that message by clicking on Canned responses link right below the Subject field, for your future use.
2008/10/23
para más info
Elegí esta noticia porque así es más cómodo y rápido escribir los emails.



Empieza a traer coletazos la crisis mundial en la web 2.0, el primero Yahoo!

Esta noticia que quizás pueda pasar inadvertida es mas importante de lo que se puede decifrar a primeras, se trata del Despido masivo de personal de Yahoo a partir del 10 de diciembre de 2008, esto marcaría el comienzo de la ola de golpetazos económicos por culpa de la crisis económica en el mundo y en especial en los Estados Unidos, ya sabemos bien que en las economías y en los mercados a los primeros que afecta una crisis de este tipo es a los que están mas débiles y este es el caso de Yahoo, que dejaría a 3.500 empleados sin trabajo, Los recortes del personal serían de un 50% en el área de Finanzas, 10% en Ingeniería y de 25% en Generales y Administrativos.
17/10/08
para más info
Elegí esta noticia porque la crisis económica mundial nos afecta a todos.




Realiza Busquedas en forma de tridimensional con searchcube

Una forma diferente de realizar búsquedas con el motor de Google es lo que nos permite hacer SearchCube que es un genial buscador que arroja los resultados en forma tridimensional, se basa en enlaces, imagenes y vídeos para arrojarte los resultados.
No es precisamente un buscador que sea muy rápido, de hecho es bastante lento para arrojar los resultados, pero para experimentar esta bastante interesante, para poder usarlo debemos tener Javascript activado y la versión 9 de Flash Player como mínimo.
18/10/08
para más info
Elegí esta noticia porque muestra el avance de la tecnología.