***PROGAMA DE PROCESO DE CALCULADORA
***VISUAL FOXPRO 9.0
SET SCORE OFF
SET STATUS OFF
SET TALK OFF
DO WHILE .T.
CLEAR
A=0
B=0
OP=0
OP2=SPACE(1)
CLEAR
@2,30 SAY "PROCESO DE CALCULADORA "FONT"",18 COLOR RGB(0,0,225)
@5,15 SAY "INGRESE LOS NUMEROS A CALCULAR "FONT"",16
@8,10 SAY "INGRSE EL PRIMER NUMERO" GET A COLOR RGB(0,0,225)
@10,10 SAY "INGRESE EL SEGUNDO NUMERO" GET B COLOR RGB(0,0,225)
READ
@14,10 SAY "MENU DE OPCIONES "FONT"",16
@16,10 SAY "1.SUMAR" COLOR RGB(0,0,225)
@18,10 SAY "2.RESTAR" COLOR RGB(0,0,225)
@20,10 SAY "3.DIVIDIR" COLOR RGB(0,0,225)
@22,10 SAY "4.MULTIPLICAR" COLOR RGB(0,0,225)
@24,10 SAY "ELIJA SU OPCION A REALIZAR" GET OP COLOR RGB(0,0,225)
READ
C= A+B
D= A-B
E= A/B
F= A*B
IF OP=1
@28,10 SAY "EL RESULTADO ES ==>" +STR(C) COLOR RGB(0,0,225)
ELSE
IF OP=2
@28,10 SAY "EL RESULTADO ES ==>" +STR(D) COLOR RGB(0,0,225)
ELSE
IF OP=3
@28,10 SAY "EL RESULTADO ES ==>" +STR(E) COLOR RGB(0,0,225)
ELSE
IF OP=4
@28,10 SAY "EL RESULTADO ES ==>" +STR(F) COLOR RGB(0,0,225)
ENDIF
ENDIF
ENDIF
ENDIF
READ
@34,10 SAY "DESEA CONTINUAR CALCULANDO S/N: "FONT"",14 COLOR RGB(0,0,225) GET OP2 PICT "!"FONT"",12
READ
IF OP2="S"
LOOP
ELSE
EXIT
ENDIF
ENDDO
No hay comentarios:
Publicar un comentario