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