BIENVENIDOS A MI BLOG

Translate

sábado, 14 de junio de 2014

PROGAMA DE PROCESO DE CALCULADORA

***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