carguz30

Estos son programas que todo aprendiz de Visual Fox Pro debe dominar, simplemente tienen que crear un nuevo PRG e introducir el código correspondiente a cada programa. Bueno, sin más que decir, aqui les van: PROGRAMA 1 - SUMA Este programa solicita 2 números al usuario y los suma, para luego mostrar el resultado en pantalla, este es el código: * SE DECLARAN LAS VARIABLES NUM1 = 0 NUM2 = 0 RESULTADO = 0 * SE LIMPIA LA PANTALLA CLEAR * SE OBTIENEN LAS ENTRADAS @ 5,5 SAY "INGRESE NUMERO 1" GET NUM1 @ 6,5 SAY "INGRESE NUMERO 2" GET NUM2 READ * SE REALIZA EL PROCESO RESULTADO = NUM1+NUM2 * SE MUESTRAN EN PANTALLA LAS SALIDAS @ 8,5 SAY "EL RESULTDO ES:" GET RESULTADO * SE LIMPIA EL BUFFER CLEAR GETS PROGRAMA 2 - CALCULADORA SENCILLA Programa que recibe 2 números, y luego despliega un menú en el que solicita al usuario el número de operación que desea realizar, este es el código: * SE CIERRAN TODAS LAS VENTANAS CLOSE ALL * SE LIMPPIA LA PANTALLA CLEAR * SE DECLARAN LAS VARIABLES opcion1 = 0 STORE 0.00 TO a,b,c * SE ESCRIBE EL MENU EN PANTALLA @ 5,5 say "Calculadora 2" @ 7,5 say "1. Suma" @ 8,5 say "2. Resta" @ 9,5 say "3. Multiplicacion" @ 10,5 say "4. Division" @ 11,5 say "5. Raiz" * SE OBTIENEN LOS NUMEROS A OPERAR Y LA OPERACION @ 13,5 say "Ingrese A:" get a @ 14,5 say "Ingrese B:" get b @ 15,5 say "¿Que desea hacer?" get opcion1 range 1,5 READ * SE EVALUA EL NÚMERO INGRESADO EN LA OPCION DO CASE CASE opcion1 = 1 c = a+b @ 17,5 say "El resultado es" get c CASE opcion1 = 2 c = a-b @ 17,5 say "El resultado es" get c CASE opcion1 = 3 c = a*b @ 17,5 say "El resultado es" get c CASE opcion1 = 4 c = a/b @ 17,5 say "El resultado es" get c CASE opcion1 = 5 c = SQRT(a) @ 17,5 say "El resultado es" get c ENDCASE * SE LIMPIA EL BUFFER CLEAR GETS

Aqui les van otro dos programa básico en Visual Fox Pro, simplemente tienene que copiar y pegar en un nuevo programa dentro de Visual Fox, se trata de un conversor de monedas. CONVERSOR DE MONEDAS * SE LIMPIA LA PANTALLA CLEAR *SE CIERRAN TODAS LAS VENTANAS CLOSE ALL * SE DECLARAN LAS VARIABLES STORE 0.00 TO cd, ce, cantidad, dq, qd, eq, qe @ 3,5 say "CONVERSOR DE MONEDAS" * SE OBTIENEN LAS ENTRADAS @ 5,5 say "Ingrese el cambio del Dolar:" get cd read @ 6,5 say "Ingrese el cambio del Euro:" get ce read @ 7,5 say "Ingrese la cantidad de dinero:" get cantidad READ * SE REALIZA EL PROCESO dq = cantidad * cd qd = cantidad / cd eq = cantidad * ce qe = cantidad / ce * SE MUESTRAN EN PANTALLA LOS RESULTADOS O SALIDAS @ 10,5 say "De Dolares a Quetzales:" get dq @ 11,5 say "De Quetzales a Dólares:" get qd @ 12,5 say "De Euros a Quetzales:" get eq @ 13,5 say "De Quetzales a Euros:" get qe * SE LIMPIA EL BUFFER CLEAR gets

Sólo quería compartir con todos los taringueros mi experiencia en un experimento que me autoimpuse, el cual consistía en dejar de tomar gaseosas por 1 mes. Antes que todo quiero comentarles que yo consumía aproximadamente 2 gaseosas de 12 oz al día, y yo era una persona de complexión delgada, sin embargo después de algún tiempo noté que había empezado a subir muy rápido de peso. Todos le atribuían eso a que como mucho, pero toda mi vida había sido así, entonces decidí por un mes limitarme de tomar Pepsi, Coca-cola, 7up, y cualquier tipo de gaseosa normal o light. ¿Cuáles fueron los resultados? Pues hoy un mes después le puedo decir que he bajado 5 libras de peso, sin cambiar nada en mi rutina normal, simplemente haciendo lo que arriba les comenté. Es increíble como una bebida puede hacerte subir de peso tan rápido. Me pregunto que ¿pasaría si hiciera ejercicio de vez en cuando? Eso por el momento será un misterio jajaja esto es gradual XD. Si eres de esos aficionados a las gaseosas como yo te insto a que cambies eso al menos por 30 días, creeme que los resultados serán sorprendentes y te motivan a seguir con esa dieta. Les dejo un link que encontré relativo al tema, alli dice que uno puede perder entre 16 hasta 42 libras al año de una manera que no entiendo mucho jaja pero siempre relativo al tema de las gasesosas. Clic aquí para ver el artículo/