Ejercicios De Visual Foxpro

Ejemplo7.prg

***** LINEA DE SET *****
SET STATUS OFF
SET TALK OFF
SET BELL ON
***** DECLARAR VARIABLE *****
VNOMBRE= SPACE (20)
VAPELLIDO= SPACE (20) VN1= (0)
***** DISEÑO DE INTERFAZ *****
DEFINE WINDOW VENTANA FROM 0,0 TO 22,65 TITLE "CEJPII : EJEMPLO7" NOCLOSE NOZOOM NOGROW FLOAT MINIMIZE
MOVE WINDOW VENTANA CENTER
ACTIVATE WINDOW VENTANA
***** INGRESO DE INFORMACION*****
@2,2 SAY "INGRESE SU NOMBRE" GET VNOMBRE PICTURE "@X20"
@5,2 SAY "INGRESE SU APELLIDO" GET VAPELLIDO PICTURE "@X20"
@8,2 SAY "INGRESE SU EDAD" GET VN1 PICTURE "99" READ @11,2 SAY "USTED INGRESO" GET VNOMBRE @14,2 SAY "USTED INGRESO" GET VAPELLIDO
@17,2 SAY "USTED INGRESO" GET VN1
CLEAR GETS
WAIT "PULSE ENTER PARA SALIR" WINDOW
DEACTIVATE WINDOW VENTANA
RELEASE ALL
CLEARRETURN
(lo siguiente es casi lo mismo guiense por eso)
Suma.prg

***** LINEA DE SET ***** SET STATUS OFF SET TALK OFF SET BELL ON ***** DECLARAR VARIABLE ***** VN1= 0 VN2= 0 Vsuma= 0 ***** DISEÑO DE INTERFAZ ***** DEFINE WINDOW SUMA FROM 0,0 TO 13,60 TITLE "CEJPII:SUMA" NOCLOSE NOZOOM NOGROW FLOAT MINIMIZE MOVE WINDOW SUMA CENTER ACTIVATE WINDOW SUMA ***** INGRESO DE INFORMACION ***** @2,2 SAY"INGRESE EL PRIMER VALOR" GET VN1 PICTURE "99999" @5,2 SAY "INGRESE EL SEGUNDO VALOR" GET VN2 PICTURE "99999" READ vsuma= vn1+vn2 @7,2 SAY "EL RESULTADO ES" GET Vsuma PICTURE "99999" CLEAR GETS WAIT "PULSE ENTER PARA SALIR" WINDOW DEACTIVATE WINDOW SUMA RELEASE ALL CLEAR RETURN

Resta.prg

***** LINEA DE SET ***** SET STATUS OFF SET TALK OFF SET BELL ON ***** DECLARAR VARIABLE ***** VN1=0VN2=0 VRESTA= 0 ***** DISEÑO DE INTERFAZ ***** DEFINE WINDOW EJER FROM 0,0 TO 12,60 TITLE "CEJPII-RESTA" NOCLOSE NOZOOM NOGROW FLOAT MINIMIZE MOVE WINDOW EJER CENTER ACTIVATE WINDOW EJER ***** INGRESO DEW INFORMACION ***** @2,2 SAY "INGRESE EL PRIMER VALOR" GET VN1 PICTURE "99999" @5,2 SAY "INGRESE EL SEGUNDO VALOR" GET VN2 PICTURE "99999" READ VRESTA= VN1-VN2 @7,2 SAY "EL RESULTADO ES" GET VRESTAPICTURE "99999" CLEAR GETS WAIT "PULSE ENTER PARA SALIR" WINDOW DEACTIVATE WINDOW EJER RELEASE ALL CLEAR RETURN

Multiplicación.prg

***** LINEA DE SET ***** SET STATUS OFF SET TALK OFF SET BELL ON ***** DECLARAR VARIABLE ***** VN1=0 VN2=0 VMULTIPLICACION=0 ***** DISEÑO DE INTERFAZ ***** DEFINE WINDOW VENTANA FROM 0,0 TO 12,60 TITLE "CEJPIIMULTIPLICACION" NOCLOSE NOZOOM NOGROW FLOAT MINIMIZEMOVE WINDOW VENTANA CENTER ACTIVATE WINDOW VENTANA ***** INGRESO DE INFORMACION ***** @2,2 SAY "INGRESE EL PRIMER VALOR" GET VN1 PICTURE "99999" @5,2 SAY "INGRESE EL SEGUNDO VALOR" GET VN2 PICTURE "99999" READ VMULTIPLICACION= VN1*VN2 @7,2 SAY "EL RESULTADO ES" GET VMULTIPLICACION PICTURE "99999" CLEAR GETS WAIT "PULSE ENTER PARA SALIR" WINDOW DEACTIVATE WINDOW VENTANA RELEASE ALL CLEAR RETURNDivisión.prg

**** LINEA DE SET **** SET STATUS OFF SET TALK OFF SET BELL ON **** DECLARAR VARIABLE **** STORE 0 TO VN1, VN2, VDIVISION **** DISEÑO DE INTERFAZ **** DEFINE WINDOW VENTANA FROM 0,0 TO 13,65 TITLE "CEJPII-DIVISION" NOCLOSE NOZOOM NOGROW FLOAT MINIMIZE MOVE WINDOW VENTANA CENTER ACTIVATE WINDOW VENTANA **** INGRESO DE INFORMACION **** @2,2 SAY "EL PRIMER VALOR" GET VN1 PICTURE"99999" READ DO WHILE VN2 = 0 @4,2 SAY "SEGUNDO VALOR" GET VN2 PICTURE "99999" READ WAIT "EL DIVISOR NO PUEDE SER CERO, INGRESE OTRO NUMERO" WINDOW NOWAIT LOOP EXIT ENDDO VDIVISION= VN1/VN2 @8,5 SAY "LA DIVISION ES" GET VDIVISION CLEAR GETS WAIT "PULSE ENTER PARA SALIR" WINDOW RELEASE ALL DEACTIVATE WINDOW VENTANA CLEAR RETURN

Edad.prg

**** linea de set **** SET STATUS OFF SET TALK OFF SET BELLon **** declarar variaible **** STORE 0 TO VEDAD **** diseño de interfaz **** DEFINE WINDOW usuario FROM 0,0 TO 13,65 TITLE "CEJPII-EDAD" NOCLOSE NOZOOM NOGROW FLOAT MINIMIZE MOVE WINDOW usuario CENTER ACTIVATE WINDOW usuario **** ingreso de informacion **** @2,2 SAY "INGRESE SU EDAD" GET VEDAD PICTURE "99" READ DO WHILE VEDAD = 0 @4,2 SAY "INGRESE SU EDAD" GET NEDAD PICTURE "99" READ WAIT "LA...