ascensor (cami)

Private Sub cinco_Click()
asce.Top = 480
a.Caption = "5"
b.Caption = "5"
c.Caption = "5"
d.Caption = "5"
e.Caption = "5"
f.Caption = "5"
g.Caption = "5"

If asce.Top = 480 Then
h.Caption = Val(h.Caption) + 1
End If

asce.Top = 480
cinco.Enabled = False

Command6.Enabled = True
Command5.Enabled = True
Command4.Enabled = True
Command3.Enabled = True
Command2.Enabled = True
Command1.Enabled = True
SSS.Enabled = True
pb.Enabled = True
ss.Enabled = True
uno.Enabled = True
dos.Enabled = True
tres.Enabled = True
cuatro.Enabled = True

End Sub

Private Sub Command1_Click()
asce.Top = 480
a.Caption = "5"
b.Caption = "5"
c.Caption = "5"
d.Caption = "5"
e.Caption = "5"
f.Caption = "5"
g.Caption = "5"

If asce.Top = 480 Then
h.Caption = Val(h.Caption) + 1
End If

asce.Top = 480
Command1.Enabled = False

Command6.Enabled = True
Command5.Enabled = True
Command4.Enabled = True
Command3.Enabled = True
Command2.Enabled = True
cinco.Enabled = True
SSS.Enabled = True
pb.Enabled = True
ss.Enabled = True
uno.Enabled = True
dos.Enabled = True
tres.Enabled = True
cuatro.Enabled = True
End Sub

Private Sub Command2_Click()
asce.Top = 1080
a.Caption = "4"
b.Caption = "4"
c.Caption = "4"
d.Caption = "4"
e.Caption = "4"
f.Caption = "4"
g.Caption = "4"
If asce.Top = 1080 Then
i.Caption = Val(i.Caption) + 1
End If

asce.Top = 1080
Command2.Enabled = False
Command6.Enabled = True
Command5.Enabled = True
Command4.Enabled = True
Command3.Enabled = True
cinco.Enabled = True
Command1.Enabled = True
SSS.Enabled = True
pb.Enabled = True
ss.Enabled = True
uno.Enabled = True
dos.Enabled = True
tres.Enabled = True
cuatro.Enabled = True
End Sub

Private Sub Command3_Click()
asce.Top = 1680
a.Caption = "3"
b.Caption = "3"
c.Caption = "3"
d.Caption = "3"
e.Caption = "3"
f.Caption = "3"
g.Caption = "3"
If asce.Top = 1680 Then
j.Caption = Val(j.Caption) + 1
End If

asce.Top = 1680
Command3.Enabled = False
Command6.Enabled = True
Command5.Enabled = True
Command4.Enabled = True
cinco.Enabled = True
Command2.Enabled = True
Command1.Enabled = True
SSS.Enabled = True
pb.Enabled = True
ss.Enabled = True
uno.Enabled = True
dos.Enabled = True
tres.Enabled = True
cuatro.Enabled = True
End Sub

Private Sub Command4_Click()
asce.Top = 2280
a.Caption = "2"
b.Caption = "2"
c.Caption = "2"
d.Caption = "2"
e.Caption = "2"
f.Caption = "2"
g.Caption = "2"
If asce.Top = 2280 Then
k.Caption = Val(k.Caption) + 1
End If

asce.Top = 2280
Command4.Enabled = False

Command6.Enabled = True
Command5.Enabled = True
cinco.Enabled = True
Command3.Enabled = True
Command2.Enabled = True
Command1.Enabled = True
SSS.Enabled = True
pb.Enabled = True
ss.Enabled = True
uno.Enabled = True
dos.Enabled = True
tres.Enabled = True
cuatro.Enabled = True
End Sub

Private Sub Command5_Click()
asce.Top = 2880
a.Caption = "1"
b.Caption = "1"
c.Caption = "1"
d.Caption = "1"
e.Caption = "1"
f.Caption = "1"
g.Caption = "1"
If asce.Top = 2880 Then
l.Caption = Val(l.Caption) + 1
End If
asce.Top = 2280
Command5.Enabled = False

Command6.Enabled = True
cinco.Enabled = True
Command4.Enabled = True
Command3.Enabled = True
Command2.Enabled = True
Command1.Enabled = True
SSS.Enabled = True
pb.Enabled = True
ss.Enabled = True
uno.Enabled = True
dos.Enabled = True
tres.Enabled = True
cuatro.Enabled = True
End Sub

Private Sub Command6_Click()
asce.Top = 3480
a.Caption = "PB"
b.Caption = "PB"
c.Caption = "PB"
d.Caption = "PB"
e.Caption = "PB"
f.Caption = "PB"
g.Caption = "PB"
If asce.Top = 3480 Then
m.Caption = Val(m.Caption) + 1
End If

asce.Top = 3480
cinco.Enabled = False
Command6.Enabled = True
Command5.Enabled = True
Command4.Enabled = True
Command3.Enabled = True
Command2.Enabled = True
Command1.Enabled = True
SSS.Enabled = True
pb.Enabled = True
ss.Enabled = True
uno.Enabled = True
dos.Enabled = True
tres.Enabled = True
cuatro.Enabled = True
End Sub

Private Sub contra_Change()
If contra.Text = "CAMEL" Then
asce.Top = 480
Else
contra.Text = ""
End If

End Sub

Private Sub cuatro_Click()
asce.Top = 1080
a.Caption = "4"
b.Caption = "4"
c.Caption = "4"
d.Caption = "4"
e.Caption = "4"
f.Caption = "4"
g.Caption = "4"

If asce.Top = 1080 Then
i.Caption = Val(i.Caption) + 1
End If

asce.Top = 1080
cuatro.Enabled = False
Command6.Enabled = True
Command5.Enabled = True
Command4.Enabled = True
Command3.Enabled = True
Command2.Enabled = True
Command1.Enabled = True
SSS.Enabled = True
pb.Enabled = True
ss.Enabled = True
uno.Enabled = True
dos.Enabled = True
tres.Enabled = True
cinco.Enabled = True
End Sub



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

Private Sub pb_Click()
asce.Top = 3480
a.Caption = "PB"
b.Caption = "PB"
c.Caption = "PB"
d.Caption = "PB"
e.Caption = "PB"
f.Caption = "PB"
g.Caption = "PB"
If asce.Top = 3480 Then
m.Caption = Val(m.Caption) + 1
End If

asce.Top = 3480
pb.Enabled = False

Command6.Enabled = True
Command5.Enabled = True
Command4.Enabled = True
Command3.Enabled = True
Command2.Enabled = True
Command1.Enabled = True
SSS.Enabled = True
cinco.Enabled = True
ss.Enabled = True
uno.Enabled = True
dos.Enabled = True
tres.Enabled = True
cuatro.Enabled = True
End Sub

Private Sub ss_Click()
asce.Top = 4080
a.Caption = "SS"
b.Caption = "SS"
c.Caption = "SS"
d.Caption = "SS"
e.Caption = "SS"
f.Caption = "SS"
g.Caption = "SS"
If asce.Top = 4080 Then
n.Caption = Val(n.Caption) + 1
End If

asce.Top = 4080
ss.Enabled = False

Command6.Enabled = True
Command5.Enabled = True
Command4.Enabled = True
Command3.Enabled = True
Command2.Enabled = True
Command1.Enabled = True
SSS.Enabled = True
pb.Enabled = True
cinco.Enabled = True
uno.Enabled = True
dos.Enabled = True
tres.Enabled = True
cuatro.Enabled = True
End Sub

Private Sub dos_Click()
asce.Top = 2280
a.Caption = "2"
b.Caption = "2"
c.Caption = "2"
d.Caption = "2"
e.Caption = "2"
f.Caption = "2"
g.Caption = "2"
If asce.Top = 2280 Then
k.Caption = Val(k.Caption) + 1
End If

asce.Top = 2280
dos.Enabled = False

Command6.Enabled = True
Command5.Enabled = True
Command4.Enabled = True
Command3.Enabled = True
Command2.Enabled = True
Command1.Enabled = True
SSS.Enabled = True
pb.Enabled = True
ss.Enabled = True
uno.Enabled = True
cinco.Enabled = True
tres.Enabled = True
cuatro.Enabled = True
End Sub

Private Sub SSS_Click()
asce.Top = 4080
a.Caption = "SS"
b.Caption = "SS"
c.Caption = "SS"
d.Caption = "SS"
e.Caption = "SS"
f.Caption = "SS"
g.Caption = "SS"
If asce.Top = 4080 Then
n.Caption = Val(n.Caption) + 1
End If

asce.Top = 4080
SSS.Enabled = False

Command6.Enabled = True
Command5.Enabled = True
Command4.Enabled = True
Command3.Enabled = True
Command2.Enabled = True
Command1.Enabled = True
cinco.Enabled = True
pb.Enabled = True
ss.Enabled = True
uno.Enabled = True
dos.Enabled = True
tres.Enabled = True
cuatro.Enabled = True
End Sub

Private Sub stop_Click()
If uno.Enabled = True Then
uno.Enabled = False
Else
uno.Enabled = True
End If

If dos.Enabled = True Then
dos.Enabled = False
Else
dos.Enabled = True
End If

If tres.Enabled = True Then
tres.Enabled = False
Else
tres.Enabled = True
End If

If cuatro.Enabled = True Then
cuatro.Enabled = False
Else
cuatro.Enabled = True
End If

If cinco.Enabled = True Then
cinco.Enabled = False
Else
cinco.Enabled = True
End If

If pb.Enabled = True Then
pb.Enabled = False
Else
pb.Enabled = True
End If

If ss.Enabled = True Then
ss.Enabled = False
Else
ss.Enabled = True
End If

If luz.Enabled = True Then
luz.Enabled = False
Else
luz.Enabled = True
End If

If Command1.Enabled = True Then
Command1.Enabled = False
Else
Command1.Enabled = True
End If

If Command2.Enabled = True Then
Command2.Enabled = False
Else
Command2.Enabled = True
End If

If Command3.Enabled = True Then
Command3.Enabled = False
Else
Command3.Enabled = True
End If

If Command4.Enabled = True Then
Command4.Enabled = False
Else
Command4.Enabled = True
End If

If Command5.Enabled = True Then
Command5.Enabled = False
Else
Command5.Enabled = True
End If

If Command6.Enabled = True Then
Command6.Enabled = False
Else
Command6.Enabled = True
End If

If SSS.Enabled = True Then
SSS.Enabled = False
Else
SSS.Enabled = True
End If


End Sub

Private Sub tres_Click()
asce.Top = 1680
a.Caption = "3"
b.Caption = "3"
c.Caption = "3"
d.Caption = "3"
e.Caption = "3"
f.Caption = "3"
g.Caption = "3"
If asce.Top = 1680 Then
j.Caption = Val(j.Caption) + 1
End If


asce.Top = 1680
tres.Enabled = False

Command6.Enabled = True
Command5.Enabled = True
Command4.Enabled = True
Command3.Enabled = True
Command2.Enabled = True
Command1.Enabled = True
SSS.Enabled = True
pb.Enabled = True
ss.Enabled = True
uno.Enabled = True
dos.Enabled = True
cinco.Enabled = True
cuatro.Enabled = True
End Sub

Private Sub uno_Click()
asce.Top = 2880
a.Caption = "1"
b.Caption = "1"
c.Caption = "1"
d.Caption = "1"
e.Caption = "1"
f.Caption = "1"
g.Caption = "1"
If asce.Top = 2880 Then
l.Caption = Val(l.Caption) + 1
End If

asce.Top = 2280
uno.Enabled = False

Command6.Enabled = True
Command5.Enabled = True
Command4.Enabled = True
Command3.Enabled = True
Command2.Enabled = True
Command1.Enabled = True
SSS.Enabled = True
pb.Enabled = True
ss.Enabled = True
cinco.Enabled = True
dos.Enabled = True
tres.Enabled = True
cuatro.Enabled = True
End Sub

semana 29 (Por Cami)

viernes 31 de octubre 2008

Noticia 1:PORTUGAL ESTRENARÁ SU PROPIA FERIA TECNOLÓGICA.

La feria se basará fundamentalmente en el desarrollo tecnológico de los sectores verticales lusos, como la Administración Pública; las obras públicas y transportes; el turismo; la seguridad; la salud; y el medio ambiente....

para mas información

Noticia 2: Intel y Asus ofrecen sitio de diseño para la “PC de tus sueños..

Si tú podrías diseñar tu propio equipo, ¿qué características lo convertirían en la máquina de tus sueños?. Eso justamente es lo que Intel y Asus esperan saber a través de WePC.com, un sitio web puesto en marcha conjuntamente por las dos empresas en el que solicitan ideas de los consumidores con el objetivo de producir lo que ellos llaman "la primera comunidad de diseño de PC en el mundo......

para mas información

Noticia 3: Memristor: Otra alternativa para la MRAM.

Parece ser que, por fin, tendremos ordenadores y gadgets que podamos utilizar inmediatamente después de encenderlos, sin necesidad de esperar 5 minutos a que se inicien. Los investigadores de HP Labs han puesto a punto los primeros prototipos funcionales de un nuevo e importante componente electrónico conocido como memristor, que puede hacer posible eso, y mucho más...

para mas información

semana 28 (por cami)

viernes, 24 de octubre de 2008

Noticia 1: Circuitos construidos con células cerebrales

Mientras que varios especialistas consumen sus días intentando imitar el comportamiento de una neurona mediante circuitos electrónicos, los científicos del Instituto Weizmann de Ciencias en Rehovot, Israel, siguen el camino contrario: han logrado construir compuertas lógicas perfectamente funcionales utilizando para ello neuronas.

para mas información

Noticia 2: Panasonic revela sensor 3D para funcionar con la luz del día

Panasonic ha introducido un sensor 3D que se dice ser el uno de los primeros en funcionar correctamente con la luz regular del día.

para mas información

Noticia 3: El INTECO presenta el 'Catálogo de seguridad' de las empresas ...

Las Tecnologías de la Información (TIC) cuentan ya con un catálogo de seguridad que ha sido aprobado en la "cumbre" sobre seguridad cibernética que se ha celebrado en León, organizada por el Instituto Nacional de Tecnologías de la Información.

para mas información

ascensor (por cami)

Private Sub cinco_Click()
asce.Top = 480
a.Caption = "5"
b.Caption = "5"
c.Caption = "5"
d.Caption = "5"
e.Caption = "5"
f.Caption = "5"
g.Caption = "5"
End Sub
Private Sub Command1_Click()
asce.Top = 480
a.Caption = "5"
b.Caption = "5"
c.Caption = "5"
d.Caption = "5"
e.Caption = "5"
f.Caption = "5"
g.Caption = "5"
End Sub
Private Sub Command2_Click()
asce.Top = 1080
a.Caption = "4"
b.Caption = "4"
c.Caption = "4"
d.Caption = "4"
e.Caption = "4"
f.Caption = "4"
g.Caption = "4"
End Sub
Private Sub Command3_Click()
asce.Top = 1680
a.Caption = "3"
b.Caption = "3"
c.Caption = "3"
d.Caption = "3"
e.Caption = "3"
f.Caption = "3"
g.Caption = "3"
End Sub
Private Sub Command4_Click()
asce.Top = 2280
a.Caption = "2"
b.Caption = "2"
c.Caption = "2"
d.Caption = "2"
e.Caption = "2"
f.Caption = "2"
g.Caption = "2"
End Sub
Private Sub Command5_Click()
asce.Top = 2880
a.Caption = "1"
b.Caption = "1"
c.Caption = "1"
d.Caption = "1"
e.Caption = "1"
f.Caption = "1"
g.Caption = "1"
End Sub
Private Sub Command6_Click()
asce.Top = 3480
a.Caption = "PB"
b.Caption = "PB"
c.Caption = "PB"
d.Caption = "PB"
e.Caption = "PB"
f.Caption = "PB"
g.Caption = "PB"
End Sub
Private Sub cuatro_Click()
asce.Top = 1080
a.Caption = "4"
b.Caption = "4"
c.Caption = "4"
d.Caption = "4"
e.Caption = "4"
f.Caption = "4"
g.Caption = "4"
End Sub
Private Sub luz_Click()
If asce.FillColor = vbWhite Then
asce.FillColor = vbBlack
Else
If asce.FillColor = vbBlack Then
asce.FillColor = vbWhite
End If
End If
End Sub
Private Sub pb_Click()
asce.Top = 3480
a.Caption = "PB"
b.Caption = "PB"
c.Caption = "PB"
d.Caption = "PB"
e.Caption = "PB"
f.Caption = "PB"
g.Caption = "PB"
End Sub
Private Sub ss_Click()
asce.Top = 4080
a.Caption = "SS"
b.Caption = "SS"
c.Caption = "SS"
d.Caption = "SS"
e.Caption = "SS"
f.Caption = "SS"
g.Caption = "SS"
End Sub
Private Sub dos_Click()
asce.Top = 2280
a.Caption = "2"
b.Caption = "2"
c.Caption = "2"
d.Caption = "2"
e.Caption = "2"
f.Caption = "2"
g.Caption = "2"
End Sub
Private Sub SSS_Click()
asce.Top = 4080
a.Caption = "SS"
b.Caption = "SS"
c.Caption = "SS"
d.Caption = "SS"
e.Caption = "SS"
f.Caption = "SS"
g.Caption = "SS"
End Sub
Private Sub stop_Click()

uno.Enabled = False
dos.Enabled = False
tres.Enabled = False
cuatro.Enabled = False
cinco.Enabled = False
ss.Enabled = False
pb.Enabled = False
luz.Enabled = False
Command1.Enabled = False
Command2.Enabled = False
Command3.Enabled = False
Command4.Enabled = False
Command5.Enabled = False
Command6.Enabled = False
SSS.Enabled = False
End Sub
Private Sub tres_Click()
asce.Top = 1680
a.Caption = "3"
b.Caption = "3"
c.Caption = "3"
d.Caption = "3"
e.Caption = "3"
f.Caption = "3"
g.Caption = "3"
End Sub
Private Sub uno_Click()
asce.Top = 2880
a.Caption = "1"
b.Caption = "1"
c.Caption = "1"
d.Caption = "1"
e.Caption = "1"
f.Caption = "1"
g.Caption = "1"
End Sub

semana 27 (por cami)

viernes 17 de octubre de 2008

Noticia 1: Medion Akoya S2211, el mejor regalo de Navidad para la mujer tecnológica con estilo

El nuevo portátil, disponible en varios colores: blanco y negro, es la mejor opción para las mujeres que buscan altas prestaciones tecnológicas, sin renunciar por ello al diseño.

Este ordenador incorpora un procesador Intel© Core 2 Duo T9600, con una velocidad de hasta 2,8Ghz; y hasta 4 GB de memoria RAM DDR2. Incluye además una tarjeta gráfica Intel® Graphics Media Accelerator X3100 que asegura la experiencia multimedia en su pantalla TFT de 12,1”.

para mas información

Noticia 2: Buenos Juegos Viejos: Análisis de GOG

Los viejos juegos clásicos son difíciles de olvidar. Y con razón: ¡Son inmortales! Por eso, nunca es tarde para volver a jugarlos. Hasta el día de hoy, no teníamos muchas opciones. O los comprábamos de segunda mano o los descargábamos como abandonware, DOSBox de por medio. Pero ya no más. Good Old Games, sitio del que te hablamos hace un tiempo, vino al rescate de los nostálgicos con un sistema de distribución digital de videojuegos clásicos, con un enfoque diferente a lo que estamos acostumbrados. No solo ofrecen sus juegos a excelentes precios, sino que lo hacen sin DRM, ni limitaciones. Tuvimos la oportunidad de probar la BETA y aquí está nuestro apasionado análisis.

Para mas información

Noticia 3: Adobe hace frente a sus rivales con Flash Player 10

Adobe Systems ha anunciado el lanzamiento de una importante actualización de su tecnología Flash para dotar a los sitios Web con el mejor vídeo, audio y gráficos. La nueva versión 10, cuyo nombre en código es Astro, ha llegado apenas unos días después de que Microsoft publicara la versión 2.0 de Silverlight, su software rival

Para mas información

ascensor 2 (por cami)

Private Sub cinco_Click()
asce.Top = 480
End Sub
Private Sub cuatro_Click()
asce.Top = 1080
End Sub
Private Sub luz_Click()
If asce.BackColor = vbBlack Then
asce.BackColor = vbWhite
End If
End Sub
Private Sub pb_Click()
asce.Top = 3480
End Sub
Private Sub ss_Click()
asce.Top = 4080
End Sub
Private Sub dos_Click()
asce.Top = 2280
End Sub
Private Sub tres_Click()
asce.Top = 1680
End Sub
Private Sub uno_Click()
asce.Top = 2880
End Sub

ascensor (por cami)

semana 26 (por cami)

Viernes 10 de Octubre 2008

MySpace y HP lanzan servicio de impresión en línea

MySpace y HP han anunciado sus planes de integrar la tecnología de impresión HP a través de múltiples zonas de MySpace, incluyendo todas las secciones de fotos. Esta relación está destinada a mejorar la experiencia de MySpace y permitir que millones de consumidores puedan imprimir las secciones de fotos, perfiles personales, entradas de blog, los comentarios y los mensajes almacenados en los perfiles MySpace y así compartirlos fuera de línea.

para mas información

Encriptación cuántica: ¿Seguridad impenetrable?

Parece que si queremos mantener nuestros datos en secreto deberemos confiar en la criptografía cuántica. A diferencia de los sistemas de protección tradicionales, la encriptación cuántica se basa en el famoso principio de incertidumbre de Heisenberg, que introduce variables físicas que hacen del sistema algo intrínsecamente irrompible.

para mas información

Las firmas tecnológicas no escapan al derrumbe

Las acciones de las empresas del sector se encuentran en los mínimos de años atrás. Google, que al inicio de 2008 valía cerca de u$s750 el papel, hoy cotiza u$s329.

La crisis financiera que se desató en los EEUU se siente con fuerza entre las empresas del sector informático, sin distinción entre las fabricantes de equipos como en aquellas que basan sus ingresos en la publicidad online, como Google.

Para mas información

semana 25 (por cami)

Coltán: El verdadero precio del consumismo

Existe un componente que forma parte de casi todos los circuitos electrónicos que puedas imaginar. Se trata de los condensadores de tantalio, una variación muy popular del condensador común y corriente. Si te tomaras el trabajo de desarmar tu ordenador, receptor GPS, teléfono móvil, netbook, reproductor de medios o cualquier otro gadget que tengas a mano, seguramente encontrarías unos cuantos de estos chismes en su interior. De hecho, se han convertido en una pieza prácticamente indispensable en la fabricación de equipos electrónicos.

para mas información

Nokia presenta su primer teléfono táctil

El fabricante de teléfonos finlandés Nokia ha lanzado su primer teléfono con pantalla táctil con la intención de igualar al iPhone de Apple en características y ofrecer precios competitivos. Nokia ha claramente tomado el ejemplo de Apple para el diseño del 5800 Xpress Music, anteriormente conocido como "Tube". El dispositivo, que será lanzado para fin de año, es bastante similar al iPhone de Apple en características y ofrecer precios competitivos.

para mas información

Endesa y AT4 presentan los primeros proyectos que optan al Fondo Tecnológico.

La carrera para acceder a la financiación que llegará a Andalucía procedente del Fondo

Tecnológico de la UE -2.000 mil millones para España, de los que 868 se asignan para la comunidad- va a estar más concurrida de lo que pudiera imaginarse. Según detalló ayer Francisco Vallejo, consejero de Innovación, hay un total de 64 proyectos de I+D+I en distintas fases de desarrollo que podrían optar a recibir apoyo económico y cuyo presupuesto total es de 624 millones de euros.

para mas información

calculadora,( por cami)

Private Sub C_Click()
auxiliar.Caption = ""
aux2.Caption = ""
aux.Caption = ""
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 coma_Click()
auxiliar.Caption = auxiliar.Caption + ","
End Sub
Private Sub Command_Click()
aux2.Caption = auxiliar.Caption
auxiliar.Caption = ""
aux.Caption = Command.Caption
End Sub
Private Sub cuatro_Click()
auxiliar.Caption = auxiliar.Caption + "4"
End Sub
Private Sub dividir_Click()
aux2.Caption = auxiliar.Caption
aux.Caption = "/"
auxiliar.Caption = ""
End Sub
Private Sub dos_Click()
auxiliar.Caption = auxiliar.Caption + "2"
End Sub
Private Sub igual_Click()
If aux.Caption = "+" Then
auxilar.Caption = Val(aux2.Caption) + Val(auxiliar.Caption)
aux2.Caption = ""
aux.Caption = ""
End If
If aux.Caption = "-" Then
auxilar.Caption = Val(aux2.Caption) - Val(auxiliar.Caption)
aux2.Caption = ""
aux.Caption = ""
End If
If aux.Caption = "/" Then
auxilar.Caption = Val(aux2.Caption) / Val(auxiliar.Caption)
aux2.Caption = ""
aux.Caption = ""
End If
If aux.Caption = "*" Then
auxilar.Caption = Val(aux2.Caption) * Val(auxiliar.Caption)
aux2.Caption = ""
aux.Caption = ""
End If
If aux.Caption = "%" Then
auxiliar.Caption = Val(auxiliar.Caption) / Val(aux.Caption)
End If
auxiliar.Caption = ""
End Sub
Private Sub mas_Click()
aux2.Caption = auxiliar.Caption
aux.Caption = "+"
auxiliar.Caption = ""
End Sub
Private Sub menos_Click()
aux2.Caption = auxiliar.Caption
aux.Caption = "--"
auxiliar.Caption = ""
End Sub

Private Sub mult_Click()
aux2.Caption = auxiliar.Caption
aux.Caption = "x"
auxiliar.Caption = ""
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 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 uno_Click()
auxiliar.Caption = auxiliar.Caption + "1"
End Sub

semana 24 (por cami)

Viernes 26 de Septiembre de 2008

Yves Rossy cruzó el Canal de la Mancha

Yves Rossy, más conocido como FusionMan, cruzó hoy el Canal de la Mancha “a bordo” de un ala impulsada por turbinas (conocida como JetWing, un ingenio volador creado él mismo). Luego de lanzarse de un avión a 2.500 kilómetros de altura, durante 12 minutos sobrevoló el canal, a una velocidad de 190 kilómetros por hora, completando con éxito su objetivo. Fueron 37 kilómetros de puro vuelo a chorro, hasta que cruzó el famoso canal. Y la cuenta nos da perfecta (y hasta nos sobra un kilómetro): (12 x 190) / 60 = 38.

para mas información

Los desarrolladores obtendrán versión alfa de Windows 7 en el evento de Micrososoft

Microsoft ha confirmado que una versión funcional de Windows 7 estará lista para los desarrolladores en el evento “Professional Developers Conference” que la empresa llevará a cabo el 28 de octubre. Esta versión pre-beta será entregada a los asistentes del evento por Vicepresidente Senior de Windows de la empresa Steven Sinofsky. Si bien no han sido mencionados los detalles específicos de lo............

para mas información

Nokia presentará en octubre su teléfono táctil

Lo táctil está de moda. Nokia presentará su apuesta para competir con el iPhone el próximo 2 de octubre en Londres. Éste será el primer móvil con pantalla táctil del líder en telefonía móvil. LG, Samsung y hasta Google han lanzado ya sus terminales con esta tecnología.

Calculadora 2 (por cami)

Private Sub C_Click()
auxiliar.Caption = ""
aux2.Caption = ""
aux.Caption = ""
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 dividir_Click()
aux2.Caption = auxiliar.Caption
aux.Caption = "/"
auxiliar.Caption = ""
End Sub

Private Sub dos_Click()
auxiliar.Caption = auxiliar.Caption + "2"
End Sub

Private Sub igual_Click()
If aux.Caption = "+" Then
auxilar.Caption = Val(aux2.Caption) + Val(auxiliar.Caption)
aux2.Caption = ""
Else
aux.Caption = "-"
auxilar.Caption = Val(aux2.Caption) - Val(auxiliar.Caption)
aux2.Caption = ""
End If
If aux.Caption = "/" Then
auxilar.Caption = Val(aux2.Caption) / Val(auxiliar.Caption)
aux2.Caption = ""
Else
aux.Caption = "*"
auxilar.Caption = Val(aux2.Caption) * Val(auxiliar.Caption)
aux2.Caption = ""
End If
End Sub

Private Sub mas_Click()
aux2.Caption = auxiliar.Caption
aux.Caption = "+"
auxiliar.Caption = ""
End Sub

Private Sub menos_Click()
aux2.Caption = auxiliar.Caption
aux.Caption = "--"
auxiliar.Caption = ""
End Sub


Private Sub mult_Click()
aux2.Caption = auxiliar.Caption
aux.Caption = "x"
auxiliar.Caption = ""
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 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 uno_Click()
auxiliar.Caption = auxiliar.Caption + "1"
End Sub

Calculadora (por cami)

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 igual_Click()
auxilar.Caption = Val(aux2.Caption) + Val(auxiliar.Caption)
aux2.Caption = ""
auxilar.Caption = Val(aux2.Caption) - Val(auxiliar.Caption)
aux2.Caption = ""
auxilar.Caption = Val(aux2.Caption) / Val(auxiliar.Caption)
aux2.Caption = ""
auxilar.Caption = Val(aux2.Caption) * Val(auxiliar.Caption)
aux2.Caption = ""

End Sub

Private Sub mas_Click()
aux2.Caption = auxiliar.Caption
auxiliar.Caption = ""
End Sub

Private Sub menos_Click()
aux2.Caption = auxiliar.Caption
auxiliar.Caption = ""
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 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 uno_Click()
auxiliar.Caption = auxiliar.Caption + "1"
End Sub

semana 23 (por cami)

viernes 19 de septiembre, 2008


Las escuelas del futuro

Las pantallas multitáctiles están de moda y ni la escuela se salva de ellas. Tal y como hemos visto en todas las series de ciencia ficción, desde que el ordenador es un instrumento conocido por las masas, la idea es llevarlas al colegio para utilizarlas como elemento de aprendizaje. ¿Cómo? Haciendo escritorios interactivos, multitáctiles, como los que mostró la Universidad de Durham, creadora de la primera aula interactiva en el mundo.




para mas información







Nielsen: 20 millones de hogares en EE.UU. son solamente inalámbricos.

De acuerdo con la compañía Nielsen más de 20 millones de hogares en los Estados Unidos, aproximadamente el 17%, utilizan ahora exclusivamente teléfonos móviles. La empresa de investigación indica que a finales de 2008, 1 de cada 5 hogares en este país podrían ser inalámbricos solamente.

para mas información



Se concreta la Feria de Ciencias y Tecnología


La Feria Regional de Ciencias y Tecnologías Juveniles tendrá lugar hoy en la sede ubicada en avenida Rivadavia 514, con la organización de la ESB Nº 7 y la Coordinación de Actividades Científicas y Tecnológicas Juveniles de la Región 21. En tanto, brindan colaboración la EPB Nº 3 y el CENS Nº 451. En la oportunidad se presentarán proyectos de investigación de alumnos pertenecientes a distintos niveles de enseñanza, desde Inicial a Polimodal, de nuestra ciudad, Orense, Reta, Coronel Pringles, Coronel Dorrego y Benito Juárez. Estos proyectos han sido desarrollados en distintas áreas de las Ciencias Naturales, Ciencias Sociales y Tecnología, con el asesoramiento de docentes de dichas disciplinas, y los mejores (a partir de 6º año de la EPB) podrán seleccionarse para participar en la Feria Provincial de Ciencias y Tecnología que se desarrollará en octubre en San Bernardo, partido de la Costa.

para mas información

visual basic 3(por cami)

Private Sub canalmas_Click()
If tvcatv.Caption = "TV" Then
If nrocanal.Caption < caption =" nrocanal.Caption" caption =" 0" caption =" nrocanal.Caption" caption =" 0"> 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 CATVTV_Click()
If tvcatv.Caption = "TV" Then
tvcatv.Caption = "CATV"
Else
tvcatv.Caption = "TV"
End If
End Sub

Private Sub cero_Click()
nrocanal.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 Auxiliar.Caption < 129 Then
aux2.Caption = nrocanal.Caption
nrocanal.Caption = Auxiliar.Caption
Auxiliar.Caption = ""
Else
Auxiliar.Caption = ""
End If
End Sub

Private Sub mas_Click(Index As Integer)
pantalla.Left = pantalla.Left + 100
nrocanal.Left = nrocanal.Left + 100
onoff.Left = onoff.Left + 100
tvcatv.Left = tvcatv.Left + 100
pantalla2.Left = pantalla2.Left + 100
Auxiliar.Left = Auxiliar.Left + 100
End Sub

Private Sub masbrillo_Click()
pantalla.Top = pantalla.Top + 100
nrocanal.Top = nrocanal.Top + 100
onoff.Top = onoff.Top + 100
tvcatv.Top = tvcatv.Top + 100
pantalla2.Top = pantalla2.Top + 100
Auxiliar.Top = Auxiliar.Top + 100
End Sub

Private Sub menos_Click()
pantalla.Left = pantalla.Left - 100
nrocanal.Left = nrocanal.Left - 100
onoff.Left = onoff.Left - 100
tvcatv.Left = tvcatv.Left - 100
pantalla2.Left = pantalla2.Left - 100
Auxiliar.Left = Auxiliar.Left - 100
End Sub
Private Sub menosbrillo_Click()
pantalla.Top = pantalla.Top - 100
nrocanal.Top = nrocanal.Top - 100
onoff.Top = onoff.Top - 100
tvcatv.Top = tvcatv.Top - 100
pantalla2.Top = pantalla2.Top - 100
Auxiliar.Top = Auxiliar.Top - 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
End Sub

Private Sub offon_Click()
nrocanal.Caption = ""
tvcatv.Caption = ""
aux2.Caption = ""
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
Else
aux2.Caption = "0"
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
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

semana 22 (por cami)

viernes 12 de septiembre 2008

Noticia 1: Internet Galáctica: Chateando con ET

John Learned, un científico de la Universidad de Hawái en Honolulu, asegura que el simple acto de observar las estrellas estaría proporcionándonos datos emitidos por civilizaciones extraterrestres. Learned, cuya especialidad es la física de neutrinos, cree que si los astrónomos trabajasen en este tema, solo les tomaría unos meses de búsqueda para encontrar pruebas de esta exótica Internet Galáctica.


para mas información




Noticia 2:
Google adquiere proveedor de plataforma de blog de Corea del Sur

La unidad coreana de Google ha adquirido el proveedor de plataforma de blogs de Corea del Sur Tatter Co (TNC). TNC provee Textcube, que es una plataforma de publicación de blogs de la misma línea que Wordpress. Google ha intensificado su presencia en Corea del Sur en el último par de años, ya que intenta poder superar a portales de servicios dominantes tales como Daum. Tanto


Para mas información





Noticia 3: NEC Electronics se une a IBM y otras tecnológicas en proyecto de chips

La japonesa NEC Electronics Corp, 12ª mayor productora de chips del mundo, anunció el jueves que se asociará varias firmas tecnológicas para producir microprocesadores de nueva generación a menores costos.

para mas información

semana 21 (por cami)

lunes 8 de septiembre 2008

Noticia 1: Large Helical Device

El Large Helical Device es un dispositivo que se está construyendo en Japón, básicamente diseñado para hacer pruebas relacionas con el plasma de fusión. El LHD es capaz de confinar el plasma para poder realizar experimentos y conocer a fondo como se comporta cuando se encuentra en un estado estacionario.



para mas información

Noticia 2:Microsoft copiará la estrategia “Genios de Apple”

De acuerdo al gerente general de comunicaciones corporativas de Microsoft, Tom Pilla, la compañía, la campaña de marketing de Microsoft de 300 millones de dólares ahora implicará tener representantes en las tiendas para promover la marca. Efectivamente imitando a "los genios de Apple", así como a su planta de especialistas, Microsoft llevará a cabo una prueba a finales de este año en que 155





para mas información



Noticia 3: La NASA elige tecnología Hitachi

En respuesta a la necesidad de mayor escalabilidad y acceso a datos archivados, Hitachi Data Systems Corporation, único proveedor de Soluciones de Almacenamiento Orientadas a los Servicios, anunció que los investigadores de la NASA (National Aeronautics and Space Administration) utilizan la Content Archive Platform para buscar y recuperar con mayor rapidez, datos científicos archivados relacionados con la atmósfera.

para mas información

visual basic 2 (por cami)

Private Sub canalmas_Click()
If tvcatv.Caption = "tv" Then
If nrocanal.Caption < 13 Then
nrocanal.Caption = nrocanal.Caption + 1
Else
nrocanal.Caption = 0
nrocanal.Caption = nrocanal.Caption + 1
End If
Else
nrocanal.Caption = 0
End If
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()
nrocanal.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 Auxiliar.Caption < 129 Then
nrocanal.Caption = Auxiliar.Caption
Auxiliar.Caption = ""
Else
Auxiliar.Caption = ""
End If
End Sub

Private Sub mas_Click(Index As Integer)
pantalla.Left = pantalla.Left + 100
nrocanal.Left = nrocanal.Left + 100
onoff.Left = onoff.Left + 100
tvcatv.Left = tvcatv.Left + 100
pantalla2.Left = pantalla2.Left + 100
Auxiliar.Left = Auxiliar.Left + 100
End Sub

Private Sub masbrillo_Click()
pantalla.Top = pantalla.Top + 100
nrocanal.Top = nrocanal.Top + 100
onoff.Top = onoff.Top + 100
tvcatv.Top = tvcatv.Top + 100
pantalla2.Top = pantalla2.Top + 100
Auxiliar.Top = Auxiliar.Top + 100
End Sub

Private Sub menos_Click()
pantalla.Left = pantalla.Left - 100
nrocanal.Left = nrocanal.Left - 100
onoff.Left = onoff.Left - 100
tvcatv.Left = tvcatv.Left - 100
pantalla2.Left = pantalla2.Left - 100
Auxiliar.Left = Auxiliar.Left - 100
End Sub

Private Sub menosbrillo_Click()
pantalla.Top = pantalla.Top - 100
nrocanal.Top = nrocanal.Top - 100
onoff.Top = onoff.Top - 100
tvcatv.Top = tvcatv.Top - 100
pantalla2.Top = pantalla2.Top - 100
Auxiliar.Top = Auxiliar.Top - 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
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
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
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
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 uno_Click()
Auxiliar.Caption = Auxiliar.Caption + "1"
End Sub

Visual Basic (por cami)

Private Sub arriba_Click()
If nrocanal.Caption > 0 Then
nrocanal.Caption = nrocanal.Caption + 1
Else
nrocanal.Caption = 129
End If

End Sub

Private Sub cero_Click()
nrocanal.Caption = "0"
End Sub

Private Sub cinco_Click()
Auxiliar.Caption = Auxiliar.Caption + "5"
End Sub

Private Sub Command1_Click()
If nrocanal.Caption > 0 Then
nrocanal.Caption = nrocanal.Caption - 1
Else
nrocanal.Caption = 129
End If

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 mas_Click(Index As Integer)
pantalla.Left = pantalla.Left + 100
nrocanal.Left = nrocanal.Left + 100
onoff.Left = onoff.Left + 100
tvcatv.Left = tvcatv.Left + 100
pantalla2.Left = pantalla2.Left + 100
Auxiliar.Left = Auxiliar.Left + 100
End Sub

Private Sub masbrillo_Click()
pantalla.Top = pantalla.Top + 100
nrocanal.Top = nrocanal.Top + 100
onoff.Top = onoff.Top + 100
tvcatv.Top = tvcatv.Top + 100
pantalla2.Top = pantalla2.Top + 100
Auxiliar.Top = Auxiliar.Top + 100
End Sub

Private Sub menos_Click()
pantalla.Left = pantalla.Left - 100
nrocanal.Left = nrocanal.Left - 100
onoff.Left = onoff.Left - 100
tvcatv.Left = tvcatv.Left - 100
pantalla2.Left = pantalla2.Left - 100
Auxiliar.Left = Auxiliar.Left - 100
End Sub

Private Sub menosbrillo_Click()
pantalla.Top = pantalla.Top - 100
nrocanal.Top = nrocanal.Top - 100
onoff.Top = onoff.Top - 100
tvcatv.Top = tvcatv.Top - 100
pantalla2.Top = pantalla2.Top - 100
Auxiliar.Top = Auxiliar.Top - 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
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
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 uno_Click()
Auxiliar.Caption = Auxiliar.Caption + "1"
End Sub

semana 20 (por cami)

29de agosto del 2008

Noticia 1: Comenzó la feria regional de ciencia y tecnología juvenil

El secretario de Estado de Ciencia, Tecnología e Innovación, David Asteggiano, participó del acto de apertura de la Feria Regional de Ciencia y Tecnología Juvenil de Santa Fe, en la escuela de Educación Técnica N°447 "Dr. Nicolás Avellaneda" –Pasaje Calcena 955– de la capital provincial.Organizadas conjuntamente por la Secretaría de Estado de Ciencia, Tecnología e Innovación y el Ministerio de Educación, a través de sus regionales, las ferias son un espacio en donde los alumnos de las escuelas de la provincia –niños, jóvenes y adultos–, asesorados por docentes, exponen al público sus proyectos y trabajos científicos y tecnológicos inéditos, con aportes originales.

para mas información





Noticia 2: iPhone: Hack permite tomar fotos macro

A muchos usuarios de gadgets de última tecnología no les tiembla el pulso a la hora de desarmarlos y analizar de qué manera pueden mejorar sus prestaciones. El hack que te comentamos en este artículo permite, de una forma sencilla y rápida, modificar un teléfono iPhone para permitirle tomar fotos macro. ¿Algún valiente lector se anima a intentarlo?
Ya hemos comentado algunos hacks verdaderamente sorprendentes, como aquel que permitía instalar una pantalla táctil en un eeePC 701. Pero la inventiva de los usuarios no descansa y alguien se animó a desarmar su nuevo (y caro) iPhone para trastear con su cámara para que sea capaz de sacar fotos macro. Luego, como corresponde publicó una guía fotografias, , para que aquellos que estén lo suficientemente interesados en este tipo de y lo suficientemente locos como para desarmar un iPhone, puedan seguir sus pasos.






para mas información

Noticia 3 : Google introduce tienda de Aplicaciones para el Android
Google ha dado a conocer sus planes para una tienda donde los usuarios móviles pueden encontrar aplicaciones para el Android, un concepto similar a la tienda de Apps para el iPhone.



para mas información

Mis vacaciones, mapa (cami)

Ver mapa más grande

semana 19(por cami)

viernes 22 de agosto del 2008

Noticia 1: IBM invierte 300 millones de dólares para la continuidad de sus centros de negocios

IBM anunció que está invirtiendo 300 millones de dólares para ampliar su continuidad del negocio y recuperación ante desastres de negocio, añadiendo 13 instalaciones en todo el mundo para hacer frente a lo que describió como un aumento de la demanda de las empresas y los gobiernos.


Para mas información




Noticia 2: Como aprovechar el agua de Marte

La confirmación de la existencia de agua en Marte por parte de la sonda Phoenix significa que el planeta resulta, al menos en teoría, apto para sostener una colonia humana. Sin embargo, queda por resolver el problema de transformar el hielo del permafrost marciano en agua lista para el consumo. Pero la NASA ya está trabajando en ello.




Para mas información

Ntocia 3: Cibermix llega el día 29 de agosto a Guadalupe para acercar a los ciudadanos las nuevas tecnologías

La feria tecnológica Cibermix se abre del 29 al 31 de agosto a la población de la localidad cacereña de Guadalupe para acerarle, de una forma entretenida, la utilidad de las herramientas tecnológicas y la banda ancha en la vida cotidiana.

Para mas información

Mis vacaciones (por cami)

Martes 29 vino una amiga a mi casa

Miércoles 30 vieneieron unos amigos a mi casa para hacer el trabajo de sociales.

Jueves 31 hoy fui al abasto

Viernes 1 vino una amiga de Italia a mi casa y fuimos al cine del abasto a ver la momia.

Lunes 4 vino anita a mi casa

Martes 5 fui al gran rex a ver casi Ángeles

Miércoles 6 fui al dentista

Jueves 7 me quede en mi casa

Viernes 8 fui a comprarme ropa y a la casa de mi tia

semana 18 (por cami)

jueves 21 de agosto del 2008

NOTICIA 1) Eee PC de 8,9 y 10 pulgadas llegan a españa


El Asus Eee PC 901 (con pantalla de 8,9 pulgadas y hasta 20 GB de almacenamiento SSD) saldrá a la venta el 25 de agosto, con un precio de 399 € IVA incluido (tanto la versión Linux como la versión XP). Si quieres el Eee PC 1000H (el que tiene una pantalla de 10 pulgadas y 160 GB de almacenamiento HDD), deberás esperar hasta septiembre. ¿El valor de venta? 449 € IVA incluido (versión Windows XP).


para mas información¨







NOTICIA 2) Después de 2 años juntos, Microsoft y Novell amplían su asociación

Microsoft ha dicho que compraría 100 millones de dólares más en cupones para el soporte Suse Linux de Novell, dando así un mayor empuje a la polémica asociación en 2006 destinada a los clientes que hacen funcionar Windows y Linux en los servidores. Las compañías han comunicado que además harán otras inversiones para mejorar las herramientas, apoyo y capacitación que Novell ofrece a los clientes




para mas información









NOTICIA 3) RETA crea 25 agrupaciones tecnológicas para ofrecer servicios de I+D+I en polígonos industriales20/08/2008

La Red de Espacios Tecnológicos de Andalucía (RETA), impulsada por la Consejería de Innovación, Ciencia y Empresa, creará este año un total de 25 nuevas Agrupaciones Tecnológicas para llevar y ofrecer servicios de I+D+i a todos los grandes polígonos industriales de la Comunidad Autónoma, que son aquellos que tienen más de 200 empresas.


para mas información

semana 17(por cami)

miercoles 13 de agosto del 2008


noticia 1: Yahoo! Fire Eagle: Geolocalización centralizada

Este nuevo servicio por parte de Yahoo! permite centralizar y manejar desde un solo lugar y de manera cómoda nuestros datos de geolocalización. Esto significa que podemos, por ejemplo, subir los datos de nuestro localizador GPS y “unirlos” con las fotos que hemos sacado para que las mismas sean marcadas automáticamente. O podemos compartir nuestra posición en redes sociales para buscar amigos o conocidos en nuestra área.


Para mas información

Lo eleji poruqe me parecio muy interesante



noticia 2: Dile adiós a las baterías: control remoto a viento EZ Power

Hoy en día hay un montón de controles remotos universales en el mercado, pero EZ Power ha lanzado un mando a distancia a viento que elimina la necesidad de baterías... para siempre. Este dispositivo tiene incorporado un generador que da poder al mando través del proceso de viento. 30 vueltas completas a la perilla son suficientes para una carga completa del mando a distancia, el cual tendrá una .




Para mas información


Lo eleji porque me parece muy buena esa idea, y que es mucho mas comoda.

noticia 3:

Cámara digital Fujifilm FinePix S2000HD


Fujifilm FinePix S2000HD es una de las nuevas cámaras digitales presentadas por Fujifilm recientemente, es una cámara compacta y liviana con 10 megapíxeles y zoom óptico de 15x, esta cámara tiene la particularidad de que puede grabar vídeo directamente al disco duro en formatos película (1280 x 720 píxeles) y wide screen (1920 x 1080 píxeles). La FinePix S2000HD es la primer cámara digital de Fujifilm que ofrece completa compatibilidad con televisores de alta definición (HDTV), también tiene la habilidad para disparar fotografías continuamente hasta 13.5 capas por segundo, trae consigo una memoria interna de 58 MBs y soporta tarjetas SD Y SD-HC.



para mas información

semana 16 (por cami)

noticia 1)
Anunciada la nueva línea Intel Pentium M EP80579 SoC

Intel ha anunciado una nueva línea de producto, basada en el procesador Pentium M, orientada a consumidores electrónicos y sobre todo dispositivos móviles. El procesador EP80579 SoC (System on Chip) será un chip integrado en la placa madre de las computadoras y tendrá 8 diferentes variantes, diferenciado por sobre tdoo en la velocidad del CPU (desde 800 a 1,200 MH) soportando memoria DDR (desde 400 a 800 MHz); tendrá 256KB de caché L2.



Para mas información



noticia 2)
Cómo duplicar fácilmente pestañas en Firefox 3

Muchas veces queremos duplicar una pestaña en Firefox, y la única opción que tenemos es abrir una nueva pestaña y escribir otra vez la dirección. Con Firefox 3 es mucho más fácil, Solo debemos presionar la tecla CTRL y arrastrar la pestaña que queremos duplicar hacia un espacio vacío. Un truco sencillo pero útil.




Para mas información







noticia3)
Juniper: Johnson tomará el cargo de director general en septiembre

Juniper Networks ha confirmado que Kevin Johnson de Microsoft se convertirá en su nuevo Presidente en septiembre, relevando así el cargo ocupado por Scott Kriens. Kriens seguirá siendo presidente de Juniper y desempeñará un papel activo en la dirección de la estrategia de la compañía, dijo Juniper en una declaración. Johnson también será miembro del consejo de administración de Juniper una vez.






Para mas información