2 programas sencillos (microsoft visual foxpro)

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 quedecir, 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 LASVARIABLES
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 CIERRANTODAS 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 "Calculadora2"
@ 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 = 1c = 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 = 4c = 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

0
Enviar
0