algoritmo de notas nivel estado de alumnos con while

definitiva
i=2
while(i<=4)
cells(i,5)=celles(i,2)*0,3+cells(i,,3)*0,3+cells(i,4)*0,4 
i=i+1
wend


estado
i=2
while(i<=4)
if cells(i,5)<60 then
cells(i,6)="perdio"
else
cells(i,6)="gsno"
end if 
i=i+1
wend




nivel
i=2


while(i<=4)


if cells(i,5)<60 then
cells(i,7)=" bajo"
end if
if cells(i,5)<80 then
cells(i,7)=" basico"
end if
if cells(i,5)<98 then
cells(i,7)=" alto"
end if
i=i+1
wend


nivel
i=2
while(i<=4) 
if cells(i,5)<60 then
cells(i,7)=" bajo"
else
if cells(i,5)<80 then
cells(i,7)=" basico"
else
if cells(i,5)<98 then
cells(i,7)=" alto"
else
cells(i,7)="superior"
end if
end if
end if
i=i+1
wend

algoritmo con for notas nivel

 DEFINITIVA


for i=2 to 4
cells(i,5)=celles(i,2)*0,3+cells(i,,3)*0,3+cells(i,4)*0,4
next


ESTADO



for i=2 to 4

if cells(i,5)<60 then
cells(i,6)="perdio"
else
cells(i,6)="gsno"
end if
next

nivel
for i=2 to 4
if cells(i,5)<60 then
cells(i,7)=" bajo"
end if
if cells(i,5)<80 then
cells(i,7)=" basico"
end if
if cells(i,5)<98 then
cells(i,7)=" alto"
end if
if cells(i,5)<=100 then
cells(i,7)=" superior"
end if
next


nivel

for i=2 to 4
if cells(i,5)<60 then
cells(i,7)=" bajo"
else
if cells(i,5)<80 then
cells(i,7)=" basico"
else
if cells(i,5)<98 then
cells(i,7)=" alto"
else
cells(i,7)="superior"
end if
end if
end if
next

noticia# 8

La NASA desarrolla lentes para ver en la niebla y facilitar los vuelos de los pilotos

La niebla es un problema climático importante para los pilotos de aviones que deben realizar viajes, y todo un inconveniente para los pasajeros que deben realizar viajes importantes con la mayor prisa posible, por lo que la NASA comenzó a desarrollar unos nuevos lentes que sacarán provecho de la realidad aumentada.

Así, estos nuevos lentes desarrollados por la NASApermitirán que los pilotos sean capaces de tener una visibilidad óptima en situaciones climatológicas adversas en casos como lluvia o neblina, permitiéndoles así conducir y aterrizar debidamente las aeronaves.

Los lentes serán capaces de detectar movimientos de la cabeza producidos por el propio piloto, permitiéndoles detectar aviones u objetos ubicados en su camino.

Además, estos lentes incluirán una serie de mapas que permitirán al piloto reconocer su ubicación en aeropuertos que no sean conocidos por él o que no sepa en cuál se encuentra, de esta forma se podrían reducir los riesgos que implica el acercarse a aeropuertos muy congestionados por el tráfico aéreo.

De todas formas, el principal objetivo de estos lentes basados en la realidad aumentada, es reducir lo más posible los accidentes aéreos ocasionados por culpa de los problemas meteorológicos, o por dificultades en el aterrizaje originadas por la densa niebla que suele aparecer cuando el clima no es favorable.

Incluso debemos decir que esta tecnología ya se encuentra disponible, e incluso ha sido probada por la NASA con algunos pilotos, los cuales le han dado una calificación considerablemente mayor por sobre otros instrumentos empleados en aviones actualmente, tanto es así que ya le han ofrecido este producto a algunos operadores de vuelos.

noticia #7

nokia lanzara  tablet con windows 8 a finales de este año.

Sin lugar a dudas que a la hora de hablar de tablets, hoy en día todos lo relacionamos rápidamente con los iPad de Apple, y en menor medida con los Tablets con sistema operativo Android.

Pues esto seguramente irá cambiando con el lanzamiento de Windows 8, recordemos que se trata de un sistema operativo con total compatibilidad para pantallas táctiles, por lo cual se espera que tenga una gran aceptación en el mercado de los tablets.

Una de las compañías que pretende apostar fuerte por los tablets con Windows 8, es Nokia, a la cual, podríamos decir que no le queda otra opción debido a su enemistad con Android.

Pues bien, recientemente desde Digitimes nos llegan nuevos rumores sobre el primerTablet de Nokia que correrá Windows 8, dispositivo que sería lanzado al mercado en el último trimestre de este año.

No es mucho lo que se sabe al respecto, solo que se trataría de un Tablet con pantalla de 10 pulgadas de tamaño, en el cual nokia ya se encontraría trabajando.

Se espera que el primer tablet de Nokia cuente con un diseño similar a su nueva serie Lumia, aunque no podemos confirmarlo. ¿Comprarías un tablet Nokia con Windows 8?

notias # 6

Microaviones con forma de colibrí: ¿Tiene el Pentágono pájaros en la cabeza

El nuevo diseño de los aviones no tripulados estadounidenses despierta inquietudes entre los defensores de derechos humanos. Estas naves de tamaño diminuto serían capaces no sólo de matar sino de espiar a sus víctimas.

Los artefactos han sido diseñados para emular los movimientos de insectos y aves rapaces. Algunos de ellos ya fueron presentados en el país y podrían convertirse en la siguiente generación de este tipo de armamento. El Pentágono ha solicitado al Congreso unos 5.000 millones de dólares para desarrollar una flotilla.
El pasado mes de febrero la compañía estadounidense AeroVironment presentó un nanovehículo aéreo denominado 'nanocolibrí'. Gracias a una precisa imitación biológica, el nuevo 'agente de inteligencia de nueva generación' tiene la misma apariencia y coloración que un colibrí vivo, y emula sus mismos movimientos, tanto en tierra firme como en vuelo. Sus alas miden 16 centímetros de envergadura y tiene un peso de 19 gramos -la masa de los pájaros vivos puede variar entre 1,6 gramos y 20 gramos, dependiendo de la especie-.

Sin embargo, varios analistas opinan que esta tecnología podría ser presa fácil de usos irresponsables y convertirse en un nuevo foco de violaciones de los derechos humanos.

"El hecho de que haya una potencia, Estados Unidos, que dispone de una tecnología tan tremendamente intrusiva, de tan fácil uso para ellos que les permite llevar a cabo ataques, espionaje e incluso lanzar bombas y misiles en cualquier parte del mundo sin un verdadero riesgo físico para su propia tropa representa claramente un grave peligro para toda la raza humana en todo el mundo", asegura el experto en geopolítica Adrián Salbuchi.

Según Sabuchi, en los últimos tiempos EE. UU. estaría entrenando a más pilotos para que manejen estas aeronaves no tripuladas de forma virtual desde centros electrónicos que a pilotos que vuelan en aviones reales. Para este experto, el hecho de que los combatientes puedan operar y llevar a cabo una guerra como si fuera un videojuego "aumenta indudablemente la probabilidad de que esta tecnología de guerra sea usada de forma irresponsable".

"Estos elementos permiten  que una estructura de poder dentro de EE. UU. pueda llevar a cabo sus planes en cualquier parte del mundo y siguiendo aquella doctrina de Colin Powell, según la cual EE. UU. debe librar aquellas guerras donde su poder sea tan abrumador que tenga la victoria garantizada, lo cual desde un punto de vista ético es una doctrina de una total cobardía y ayuda a explicar por qué EE. UU sólamente se mete con adversarios infinitamente más débiles que ellos: Libia,  Afganistán, Pakistán, Irak o Palestina a través de Israel. Sin embargo EE. UU. no se enfrenta a adversarios realmente poderosos como podrían ser Rusia y China", opina Salbuchi

promedio de estudiantes con for y con while

 Private Sub CommandButton1_Click()
for k= 2 to 11
cells(13,2)=cells(13,2)+(k,2)
next
for L= 14 to 14
cells(13,2)=cells(13,2)/(2,L)
next
end sub

rivate Sub CommandButton2_Click()
For r = 2 To 11
If Cells(r, 2) >= Cells(14, 2) Then
r = r + 1
End If
Next
MsgBox ("EL total de alumnos por encima del promedio es: ") + Str(r)
End Sub

Private Sub CommandButton1_Click()

p = 2

While (c <= 11)

k= k + Cells(c, 2)

p= p + 1

Wend

Cells(14, 2) = k / Cells(13, 2)

End Sub

Private Sub CommandButton2_Click()

d = 2

While (d <= 11)

If Cells(d, 11) >= Cells(14, 2) Then

po = po + 1

End If

Wend

MsgBox ("El total de alumnos encima del promedio es : ") + Str(g)

End Sub