algoritmo como sumar, restar, multiplicar, dividir y sumar los reulstaos ciclo while

Private Sub CommandButton1_Click()
dan = 2
While (dan <= 5)
Cells(dan, 3) = Cells(dan, 1) + Cells(dan, 2)
dan = dan + 1
Wend
End Sub


Private Sub CommandButton2_Click()
n = 2
While (n <= 5)
Cells(n, 4) = Cells(n, 1) - Cells(n, 2)
n = n + 1
Wend
End Sub


Private Sub CommandButton3_Click()
v = 2
While (v <= 5)
Cells(v, 5) = Cells(v, 1) * Cells(v, 2)
v = v + 1
Wend
End Sub


Private Sub CommandButton4_Click()
r = 2
While (r <= 5)
Cells(r, 6) = Cells(r, 1) - Cells(r, 2)
r = r + 1
Wend
End Sub


Private Sub CommandButton5_Click()
e = 2
While (e <= 6)
Cells(e, 3) = Clear
Cells(e, 4) = Clear
Cells(e, 5) = Clear
Cells(e, 6) = Clear
e = e + 1
Wend


End Sub


Private Sub CommandButton6_Click()
m = 2
While (m <= 6)
Cells(6, m) = Cells(6, m) + Cells(m, m)
m = m + 1
Wend
End Sub

algoritmo como sumar, restar, multiplicar, dividir y sumar los reulstaos ciclo for

Private Sub CommandButton1_Click()
For r = 2 To 5
Cells(r, 3) = Cells(r, 1) + Cells(r, 2)
Next
End Sub


Private Sub CommandButton2_Click()
For k = 2 To 5
Cells(k, 4) = Cells(k, 1) - Cells(k, 2)
Next
End Sub


Private Sub CommandButton3_Click()
For m = 2 To 5
Cells(m, 5) = Cells(m, 1) * Cells(m, 2)
Next
End Sub


Private Sub CommandButton4_Click()
For d = 2 To 5
Cells(d, 6) = Cells(d, 1) / Cells(d, 2)
Next
End Sub


Private Sub CommandButton5_Click()
For c = 2 To 5
Cells(c, 3) = Clear
Cells(c, 4) = Clear
Cells(c, 5) = Clear
Cells(c, 6) = Clear
Next




End Sub


Private Sub CommandButton6_Click()
For i = 3 To 6
Cells(6, i) = Cells(6, i) + Cells(i, i)
Next
End Sub

windows ahora se puede tocar

El ordenador ha terminado por salir de la trinchera. El buque insignia de Microsoft ya no volverá a ser lo que era. Ante el empuje de los nuevos dispositivos, el gigante de la informática ha presentado hoy en Barcelona Windows 8, la nueva entrega de su sistema operativo que mueve más de 500 millones de estas máquinas en todo el mundo. Y lo ha hecho pensando tanto en los 'pecés' de toda la vida como en dar el salto a las tabletas, gracias a una transformación total de la forma de trabajar y del escritorio que será completamente táctil a partir de ahora. El que quiera puede descargarse el paquete de instalación para juguetear ya con las novedades. La versión definitiva se espera para finales de este año, momento en el que varios fabricantes lanzarán probablemente equipos que ya lo incluyan.

Al igual que hizo con sus móviles, Microsoft ha diseñado una interfaz basada en 'azulejos' completamente personalizables por el usuario que podrá disponer en cada uno de estos cuadros el acceso a las aplicaciones o la información que desee. Mandan los dedos. Está pensando para que se toque pero también para pincharlo, ya que será compatible con los ratones. "Esto es mejor para hacer algo con más detalle. Lo táctil son mejores para grandes gestos", ha afirmado Antoni Leblond, uno de los conductores de la presentación. A los cambios no ha sobrevivido todo un decano de la informática doméstica, el botón de inicio, y con él también desaparecen las míticas ventanas.

La nueva apuesta, que ha recibido casi 100.000 mejoras después de que se entregara a los desarrolladores en septiembre, puede parecer arriesgada si se tiene en cuenta que reinventa por completo los hábitos de casi toda una generación acostumbrada a esa forma de manejarse ante el ordenador. No en vano, Steven Sinosfsky, otro de los maestros de ceremonias en ausencia de Steve Ballmer y presidente de Windows Live, ha asegurado que con esto obliga a "reimaginar" el ordenador personal. También ha afirmado que esto está pensado para todas las pantallas, sin importar su tamaño. Para demostrarlo, hizo una prueba en un portátil minúsculo y en una gigantesca pantalla de 80 pulgadas. "Mezclamos lo mejor de la portabilidad y del PC sin obligar al usuario a elegir lo que quiere usar", ha añadido el directivo.

Sin versión para móviles

Microsoft también ha decidido subir a la nube su nuevo sistema operativo, donde se almacenarán los archivos o las aplicaciones, entre otras cosas. Las búsquedas se realizarán tanto en la memoria local como en 'Skydrive', el servicio de 'cloud computing' de la factoría norteamericana. Otra de las novedades es la integración con su videoconsola Xbox, anunciando que se lanzarán juegos compatibles con ambos soportes. Windows 8 tenderá puentes pero no funcionará finalmente en móviles, con lo que da un voto de confianza a su alianza con Nokia. Sobre las redes sociales, han ideado una sencilla forma de compartir contenido con los contactos de Facebook y Twitter. Solo habrá que arrastrar la foto o el vídeo desde un lateral de la pantalla.

Con este lanzamiento, suenan notas fúnebres para los CD, las cajas de cartón y los embalajes de plástico cada vez que uno quería un nuevo programa, ahora rebautizados como aplicaciones. Utilizando un modelo que ha triunfado gracias a los móviles y las tabletas, el W8 contará con una 'Windows Store', similar en concepto y uso a las tiendas de Apple y Android, de la que todavía quedan por conocer detalles como la forma de pago y el coste de las diferentes descargas una vez se lance la versión estable (de momento son gratuitas). Pensando en impresoras o teclados, también se ha simplificado la búsqueda y descarga de controladores para estos periféricos, una labor que históricamente acaparaba un buen número de críticas por parte de los usuarios.

Este es, probablemente, el lanzamiento más revolucionario al que se ha enfrentado el sistema operativo desde hace 17 años. Lejos queda la estampa del estreno del Windows 95, cuando cientos de miles de personas hicieron cola para comprarlo, imagen de la que ahora se ha apropiado Apple gracias a esos 'mitómanos' que acampan a las puertas de sus tiendas oficiales cada vez que se anuncia un estreno. Los de Redmond reutilizaron la fórmula mientras funcionó, versionando el modelo en mayor o menor medida hasta que dio de sí. Después de eso llegó el fracaso de Windows Vista que aceleró el alumbramiento del WP 7, que ya tiene revolucionario y ambicioso sucesor, aunque todavía esté en periodo de pruebas

ciclo VB aplicacion

voy a aplicar el ciclo for creando una lista del 1 al 20:

Private Sub CommandButton1_Click()
For m = 1 To 20
Cells(m, 1) = m
Next
End Sub

ahora voy hacer que la lista de numeros se sumen:




Private Sub CommandButton2_Click()
For n = 1 To 20
Cells(21, 1) = Cells(21, 1) + Cells(n, 1)
Next
End Sub

para que este se aga una cadena de 2 en 2

Private Sub CommandButton3_Click()

For t = 1 To 20

Cells(t, 2) = t * 2

Next

End Sub

para que 15 sea constante y y se multipliquwe por los numeros del 1 to 20

Private Sub CommandButton4_Click()

For p = 1 To 20

Cells(p, 3) = 15

netx

For d = 1 To 20

Cells(d, 4) = Cells(m, 1) * Cells(p, 3)

Next

Cells(21, 4) = Cells(21, 4) + Cells(d, 4)

Next

End Sub

para hacer que 

ciclo for, ciclo mq y hasta= whie, aga hasta = do while

 ciclo for:
este cico es uno de los instrucciones, sobre todo cuando se conoce la cantidad de las quiere que se repita

---

ciclo mq:

este ciclo repite una operacion siempre y cuando la condicion sea verdadera este lo podra repetir.

hasta= while

esta es una instruccion  condicional el cual esta sugete a una condicion para poderse desarrollarse es decir para poder activar la accion deben cumplir unas normas. 

f =Si, con eso podes hacer comparaciones esto es que por ejemplo 
If 4=4 then 
Writeln('son iguales'); 
El for=Para 
Este recorre ciertos datos por ejemplo de 
For i:=1 to 10 do 
readln(a);ejecuta 9 veces 
el while es mientras...esto es mientras no se cumpla la condicion no entra 
While Num<> 0 do Mientras el numero sea distinto de 0 se siga ejecutando

ejemplo:

Private Sub Form_Load() 
For x = 1 To 100 
For y = 1 To 100 
Print "@"; 
Next: Print 
Next 
End Sub

Do while= aga hasta:

 Este tipo de ciclo es muy similar al de While, excepto que las condiciones se comprueban al final, de cada interacción en vez de al principio como lo hace el ciclo while. Esta garantiza el desarrollo de la primera interacción, de un bucle while.

noticia # 4

Diminutas Biocomputadoras Implantables

Investigadores de las Universidades de Harvard y Princeton han dado un paso crucial hacia las computadoras biológicas, construyendo diminutos dispositivos implantables, calificables como biocomputadores, que pueden supervisar las actividades y características de las células humanas. La información proporcionada por estos "doctores moleculares", construidos completamente de ADN, ARN y proteínas, podría revolucionar la medicina del futuro dirigiendo las terapias sólo a las células o tejidos enfermos.

"Cada célula humana ya posee todas las herramientas requeridas para construir por sí misma estas biocomputadoras", explica Yaakov "Kobi" Benenson, del Centro para la Biología de Sistemas en la Universidad de Harvard. "Todo lo que debe proporcionarse es un plano genético de la máquina, y nuestra propia biología hará el resto. Sus células literalmente construirán estas biocomputadoras para usted".

Trabajando con ecuaciones de lógica booleana dentro de las células, estos autómatas moleculares lo detectarán todo, desde la presencia de un gen mutado, hasta la actividad de los genes dentro de la célula. Las señales de entrada o "input" de las biocomputadoras son el ARN, y proteínas y sustancias químicas presentes en el citoplasma. Las señales de salida u "output" son las moléculas que indican la presencia de señales delatoras, fácilmente discernibles con equipamiento básico de laboratorio.

Hoy día no existen herramientas viables para leer las señales celulares. Así que estas biocomputadoras pueden ser muy importantes porque son capaces de traducir complejas firmas celulares, como las dejadas por la actividad de múltiples genes, en un "output" fácilmente observable. Incluso pueden programarse para traducir automáticamente en una acción concreta estos datos de salida, por lo que podrían ser utilizadas en el etiquetaje de células para su posterior localización con fines analíticos o terapéuticos, e incluso serían capaces de realizar por sí mismas la acción terapéutica.

Benenson y su equipo demuestran en el estudio que las biocomputadoras pueden funcionar en un cultivo de células humanas de riñón. Todavía se encuentra en marcha la investigación sobre la capacidad que posee el sistema para monitorizar señales intracelulares tales como mutaciones y niveles anormales de los genes, e interactuar con ellas.

Benenson y sus colegas, entre quienes figura Ron Weiss, profesor de ingeniería electrónica de la Universidad de Princeton, también han desarrollado un esquema conceptual por medio del cual pueden representarse lógicamente varios fenotipos.

Los cálculos de una biocomputadora, si bien matemáticamente simples, podrían permitir a los investigadores construir biosensores, así como sistemas para aplicación precisa de medicamentos, con el denominador común de ser capaces de distinguir entre tipos o grupos muy específicos de células en el cuerpo humano. Los autómatas moleculares podrían permitir a los médicos actuar sólo sobre las células cancerosas o enfermas a través de una sofisticada integración con las señales intracelulares de la enfermedad, dejando intactas a las células sanas.

Benenson y Weiss han estado trabajando en colaboración con Keller Rinaudo, Leonidas Bleris, Rohan Maddamsetti y Sairam Subramanian.

noticias #1,2y3 1er. P.

Impresoras 3D: más útiles, más baratas, ¿más piratas?

Facebook

Twitter

Google

La idea es sencilla, pero revolucionaria: poder fabricar objetos tridimensionales a partir de un modelo elaborado en un computador. Hace algún tiempo que se está llevando a cabo, y a medida que se populariza sus aplicaciones son cada vez más impresionantes: muñecos de acción de cualquier persona, impresoras que podrían fabricar clones de sí mismas y, ahora, huesos de remplazo para seres humanos impresos en 3D.

Básicamente, lo que hacen es construir un objeto elaborando y juntando capas o partes de algún material. Eso se puede lograr de varias maneras: cortando láminas de metal y apilándolas,moldeando y ‘horneando’ una sustancia líquida hasta que se solidifique o fundiendo varios materiales en polvo hasta llegar a la forma deseada.

Hay signos de que su popularidad se disparará. Ya está siendo adoptada cada vez más en campos como el diseño industrial, la joyería y la fabricación de aeronaves. Según The Economist, su adopción ha seguido la misma curva de crecimiento que los computadores personales en la década de los 70, que entonces ”eran patrimonio de aficionados y miembros de unos pocos nichos académicos”. La revista dice que la impresión en 3D “se está expandiendo rápidamente a medida que los costos bajan”: hoy, los equipos tienen el mismo costo de una impresora láser en 1970.

A la par de las impresoras también han comenzado a popularizarse los escáneres en 3D, lo que ahorraría el proceso de modelado y aceleraría enormemente el copiado de objetos. No solo se trata de poder imprimir platos, pisapapeles o baratijas en casa; también es un avance que podría cambiar profundamente la economía y la industria mundial. Dice The Economist que esta tecnología “hace que sea tan barato crear objetos sencillos como lo es producir miles de ellos, minando así las economías de escala” que se basan en el principio de que producir un objeto en masa es más barato que fabricarlo uno a la vez.

Por otra parte, existe preocupación por las posibilidades que la impresión 3D ofrecería para la piratería y la falsificación. El mes pasado, The Pirate Bay abrió una sección de intercambio de archivos ‘fisibles’, que contienen instrucciones que le permitirían a una impresora 3D crear un objeto. Existe la posibilidad de que, en lugar de comprar unos zapatos de marca o un reloj, un usuario descargue los ‘planos’ e imprima en su propia casa un objeto idéntico al original.

Esa no es una posibilidad actual, pero pronto podría serlo. Hoy, muchos de los archivos disponibles en The Pirate Bay solo permiten imprimir cosas genéricas y experimentales. Pero hay quienes creen, como afirma ExtremeTech que “podemos dar por hecho que esa sección pronto estará llena de objetos protegidos por derechos de autor”.

Para salvarse, Kodak mata sus cámaras digitales

Después de haberse declarado en bancarrota para tratar de encontrar interesados en comprar algunas de sus 1.100 patentes digitales y para poder continuar con su compañía, Kodak anunció que se retira del negocio de las cámaras para concentrarse en el revelado de fotos y los servicios de impresión para empresas.

Como parte de su nueva estrategia, la empresa legendaria de 133 años de edad, que fue fundada por George Eastman a finales de 1800, dejará de fabricar cámaras digitales, cámaras de video de bolsillo y marcos fotográficos digitales como resultado de un proceso de revisión estratégica y sucompromiso de impulsar una rentabilidad sostenible basada en sus líneas de negocio más valiosas, según informó la compañía en un comunicado oficial.

Para conocer más de la historia de esta legendaria compañía visite esta infografía en el ElTiempo.com.

 ”Hace tiempo que la estrategia de Kodak ha sido mejorar los márgenes en el negocio de los dispositivos de captura de imágenes al reducir nuestra participación en términos de producción”, dijo Pradeep Jotwani, director de marketing de Kodak, quien además calificó la decisión como una extensión lógica de ese proceso.

La compañía dejará de fabricar cámaras digitales para el primer semestre de 2012 pero mantendrá la garantía de sus productos, conservará su nombre y otorgará licencias para el uso de la marca mientras concentra su experiencia en el negocio tradicional del revelado.

Así mismo, además del segmento dedicado a los productos de consumo, Kodak cuenta con un segmento de productos comerciales que incluye impresión digital y funcional, soluciones y servicios para empresas, y películas para el sector comercial y las artes gráficas, por lo que la compañía dio a conocer un listado de las actividades y segmentos en los que continuarán trabajando luego de dejar las cámaras digitales.

Las ventas en tiendas y minilaboratorios digitales de impresión en seco, las impresoras de inyección de tinta, las aplicaciones para Facebook, que facilitan a los consumidores la creación de productos fotográficos a partir de fotos de sus álbumes de la red social, el servicio Kodak Gallery y los sectores de pilas, baterías y accesorios paras las cámaras, son algunos de los productos y segmentos en los que Kodak seguirá trabajando.

Grupo de hackers ataca a la polémica Foxconn

“No van a saber qué los golpeó (…) Su empresa va a desmoronarse, y se lo merecen”. Con estas incendiarias palabras, el colectivo hacker Swagg Security justificó el ataque que llevó a cabo este miércoles contra la compañía manufacturera china Foxconn.

Los hackers revelaron credenciales privadas y contraseñas de todos los empleados de la compañía, y las filtraron en redes P2P. Según ellos, esas claves “podrían permitirles a individuos hacer órdenes fraudulentas bajo el nombre de grandes compañías como Microsoft, Apple, Intel o Dell”.  Según pudo verificar el sitio 9to5Mac, algunas de ellas daban acceso a servidores internos de la compañía.

En su cuenta de Twitter, Swagg Security había advertido, sin nombrar a Foxconn, que uno de sus empleados tenía una versión desactualizada y vulnerable de Internet Explorer. Según CNET, esa falla de seguridad les habría permitido entrar a sus servidores y robar la información.

De acuerdo con CNET, la compañía no ha dado declaraciones oficiales sobre el ataque hasta ahora. Sin embargo, según 9to5Mac, sí canceló el acceso externo a varios de sus servidores tras la filtración.

Este es el ataque debut de este grupo de hackers. Al contrario de lo que podría parecer dadas las recientes polémicas de Foxconn, no se trata de un colectivo de ‘hacktivistas’ ni de unos piratas de información. Según su manifiesto, sus móviles son otros: “disfrutamos exponiendo a los gobiernos y las corporaciones, pero la razón más importante es la hilaridad que se produce cuando comprometemos y destruimos una infraestructura”.

ciclo for visual basic

15.- CICLO FOR VISUAL BASIC

---

Este ciclo es uno de los mas usados para repetir una secuencia de instrucciones, sobre todo cuando se conoce la cantidad exacta de veces que se quiere que se ejecute una instrucción simple o compuesta.

Su formato general es:

---

FOR VARCICLO=VALORINICIAL TO VALORFINAL [STEP INCR O DECR]

INSTRUCCION(ES)

NETX VARCICLO

---

EJEMPLO

Como se observa, instrucciones de ciclo, si ocuparan que se declaren variables de control de ciclo, ya sea de tipo byte,integer o long.

Casos Particulares;

1.- El ciclo comienza en uno y se incrementa de uno en uno, este es el caso mas general.

2.- Pero el valor inicial puede se diferente de uno, ejemplo;

DIM X AS INTEGER

FOR X=5 TO 28

LABEL4.CAPTION=X

NEXT X

3.- Incluso el valor inicial puede ser negativo, ejemplo;

DIM X AS INTEGER

FOR X= -5 TO 18

LABEL4.CAPTION=X

NEXT X

4.- Los incrementos también pueden ser diferentes al de uno en uno, ej.;

DIM X AS INTEGER

FOR X=1 TO 50 STEP 4

LABEL4.CAPTION=X

NEXT X

5.- Incluso pueden ser decrementos, solo que en este caso, recordar;

* el valor inicial de la variable debe ser mayor que el valor final.

DIM X AS INTEGER

FOR X=100 TO 20 STEP - 5

LABEL4.CAPTION = X

NEXT X

6.- Un ejemplo para usarlo en los problemas sugeridos mas adelante;

ejemplo;

Desplegar los números enteros, comprendidos entre el 1 y el 20.

Se ocupa ahora un componente que pueda almacenar y desplegar un conjunto de los 10 resultados, el único componente visto hasta ahora con esta capacidad es el componente ComboBox, sin embargo existe otro componente llamado ListBox muy similar a ComboBox, excepto que no tiene encabezado y todos sus elementos los mantiene a la vista del usuario, no ocultos como elComboBox, dicho componente ListBox se analiza a fondo en la siguiente UNIDAD VISUAL BASIC , pero de momento permite resolver el problema del for (desplegar un conjunto de resultados a la vez).

Tanto ComboBox como ListBox permiten cargar todos sus elementos o valores, dentro de un programa, usando un método llamado AddItem(valor), como se ve en el siguiente programa ejemplo;

Para este problema se ocupa poner en Form1, un componente Command1 OK que en su evento Click contiene el for y la carga del componente ListBox; Pantalla de diseño

B) Programa

la pantalla de salida es:

Este procedimiento y método igualmente trabaja con un componente ComboBox.

Practicar hasta conseguir tener esta pantalla de salida o de ejecución, cuando se consiga entonces ya se esta listo para lo siguiente;

TAREAS PROGRAMACION VISUAL BASIC

1.- CONSTRUIR UN PROGRAMA QUE DESPLIEGUE LOS NÚMEROS DEL 20 AL 30.

2.- DESPLEGAR LOS ENTEROS ENTRE 50 Y 30 ACOMPAÑADOS DE SU POTENCIA CUADRADA Y RAÍZ CUBICA RESPECTIVA ( OCUPA TRES ListBox).

3.- DESPLEGAR LOS MÚLTIPLOS DE 5, ENTRE 10 Y 50, ACOMPAÑADOS DE SU FACTORIAL Y LOGARITMO RESPECTIVO.

4.- DESPLEGAR LA TABLA DE MULTIPLICAR QUE EL USUARIO INDIQUE.

5.- EVALUAR LA FUNCION <m> Y=5X^2 + 3X + 8 </m> CUANDO X→ -3…10 (RANGO DE -3 HASTA 10)

para saber la edad al restar dos fechas

1) en excel realizamos una tabla con los datos

fecha hoy  fecha de nacimiento edad 2)hacemos un algoritmo con el  comman button cells(3,2)=(datevalue ( cells(2,1)) - datevalue(cells(2,2)))/365.

cambiar mensage de error al relizar una division 0

if cells (2,2)= then
msgbox("no se puede dividir el numero entre cero")
else
cells(1,6)= cells(1,1)/cells(1,2)
end if

clase#1

para hacer referencia a una celda se usa la palabra cells(la fila, la columna) para usar esto en un option button para vb.
 
la formula de un boton opttion button para sumar
cells(2,3)= cells (2,1) + cells (2,2)
cells(3,3)= cells (3,1) + cells (3,2)
cells(4,3)= cells (4,1) + cells (4,2)
cells(5,3)= cells (5,1) + cells (5,2)

la formula de un boton opttion button para restar

cells(2,3)= cells (2,1) - cells (2,2)
cells(3,3)= cells (3,1) - cells (3,2)
cells(4,3)= cells (4,1) - cells (4,2)
cells(5,3)= cells (5,1) - cells (5,2)



la formula de un boton opttion button para multiplicar.


cells(2,3)= cells (2,1) * cells (2,2)
cells(3,3)= cells (3,1) * cells (3,2)
cells(4,3)= cells (4,1) * cells (4,2)
cells(5,3)= cells (5,1) * cells (5,2)

la formula de un boton opttion button para dividir.

cells(2,3)= cells (2,1) / cells (2,2)
cells(3,3)= cells (3,1) / cells (3,2)
cells(4,3)= cells (4,1) / cells (4,2)
cells(5,3)= cells (5,1) / cells (5,2)