*USO DE LA ESTRUCTURA DO CASE
*PROGRAMACION ESTRUCTURADA

CLEARR="S"
WAIT "PULSAR UN NUMERO ENTERO ENTRE EL 1-4" TO Opcion
DO CASE
CASE Opcion ="1"
? "HA PULSADO EL NUMERO 1"
CASE Opcion ="2"
? "HA PULSADO EL NUMERO 2"
CASE Opcion ="3"
? "HA PULSADO EL NUMERO 3"
CASE Opcion ="4"
? "HA PULSADO EL NUMERO 4"
OTHER WISE
? "OPCION INCORRECTA"
ENDCASE

PROGRAMA QUE PERMITE CALCULAR
LA VELOCIDAD FINAL

STORE 0 TO VF,VO,A,T
RESP="S"
DO WHILE (RESP="S")
CLEAR
@5,5 SAY "INTRODUCE EL VALOR DE LA VELOCIDAD INICIAL" GET VO
READ
@6,5 SAY "INTRODUCE EL VALOR DE LA ACELERACION" GET A
READ
@7,5 SAY "INTRODUCE EL VALOR DE TIEMPO" GET T
READ
VF=VO+A*T
@8,5 SAY "VELOCIDAD FINAL="
@8,12 SAY VF
@8,30 SAY "M/SEG2"
WAIT "DECEA OTROS CALCULOS/N?" TO RESP
RESP=UPPER(RESP)
ENDDO
WAIT WINDOW "FIN DEL PROGRAMA"

COMO CAMBIAR UN CICLO DO Y UNA INSTRUCCION IF/ELSE


use c:\learnfox\emplist
CLEAR
?
WAIT"do you want the names capitalized (y/n)"to yes no
?
do while.not.eof()
IF UPPER (yes no)="y"
?UPPER (TRIM(f name)+""I name)
ELSE
?PROPER(TRIM(f name)+""I name)
EWD IF
SKIP
END DO ()
?
USE
WAIT

PROGRAMA PARA HACER UN CICLO DE DATOS

USE C:\BENJA\PRODUCTO
CLEAR
?
?
DO WHILE. NOT. EOF()
? PROPER (TRIM(F NAME)+""+I NAME)
SKIP
END DO
?
USE
WAIT

PROGRAMA PARA ACCESAR A LA INFORMACION DE UNA BASE DE DATOS

PARA LA TABLA PRODUCTOS

Store space (30) to producto
Store space (4) to codigo
Store 0 to precio
Store 0 to cantidad, t
Cod=space (4)
Use=producto

Clear
@5, 5 say "Introduzca el codigo" get cod
Read
Locate for cod=codigo
@7, 5 say "¿Que cantidad compro?" get cantidad
read

t=cantidad*precio
@9, 5 say "Producto:"
@9, 20 say producto
@10,5 say "Total:"
@10,15 say t
Wait

PROGRAMA PARA CALCULAR
EL VOLUMEN DE UN CILINDRO

PROGRAMA PARA CALCULAR EL VOLUMEN
DE UN CILINDRO EN FOX PRO


store 0 to r,h
store 3.1416 to pi
clear
@10,10 say "Introduzca el radio" get r
read
@11,10 say "Introduzca la altura" get h
read
V=pi*r*r*h
@14,10 say"V="
@14,13 say V
@14,30 say"unidades cubicas"
WAIT