Guia de visual fox pro

MICROSOFT VISUAL FOXPRO

[pic]

NIVEL I
INTRODUCCIÓN A LA PROGRAMACIÓN

Elaborado por
CARLOS CASTILLO PERALTA
cc_peralta@hotmail.com

INTRODUCCIÓN

La presente Guía de Laboratorio, se elaboró con la finalidad de complementar la parte teórica con la parte práctica del curso. Contiene una gran variedad de ejemplos prácticos recopilados a lo largo de varios años como docente yprogramador en diversas instituciones.
Si desean compartirla con otros colegas, me agradaría mucho que lo hicieran, con la única condición de que siempre se respete el derecho del autor.
Desde ya les deseo la mejor de las suertes en el aprendizaje de Microsoft Visual FoxPro.

Lima, Abril del 2001

Carlos Castillo Peralta
Profesor de
Lenguajes de Programación

Microsoft Visual FoxPro
GUÍA DELABORATORIO Nº 1

Objetivos
Luego de completar este laboratorio, el estudiante será capaz de:

• Identificar los elementos del entorno integrado de desarrollo de Microsoft Visual FoxPro 6.0.
• Implementar soluciones mediante programación clásica.
• Declarar y asignar valores tanto a las variables de memoria como a los arreglos.
• Analizar como es el flujo de control de un programa.
•Crear funciones y procedimientos definidos por el usuario.

Consideraciones
Para el desarrollo del presente laboratorio Ud. deberá crear una carpeta C:\FundVFP\Lab1, para guardar sus trabajos correspondientes a este laboratorio.

Aplicación Nº 1
En este primer ejercicio vamos a escribir un programa que lea tres números enteros y determine el número mayor, el número central y el númeromenor. Debemos asumir que los tres números son siempre distintos.

Para el desarrollo de la presente aplicación ingresar a Microsoft Visual FoxPro. En la Ventana de Comandos digite la siguiente orden:

Modify Command Aplica01

A continuación se debe presentar el Editor de programas. En dicha ventana proceda a ingresar el código que se indica:

Close All
Clear
Input “Ingrese elvalor de A?” To nA
Input “Ingrese el valor de B?” To nB
Input “Ingrese el valor de C?” To nC
If nA > nB Then
nMay = nA
nMen = nB
Else
nMay = nB
nMen = nA
EndIf
If nC > nMay Then
nCen = nMay
nMay = nC
Else
If nC > nMen Then
nCen = nC
Else
nCen = nMen
nMen = nC
EndIf
EndIf
? “Mayor =” + Str(nMay)
? “Central =” + Str(nCen)? “Menor =” + Str(nMen)

Para ejecutar su programa dar click en el botón Ejecutar (!) de la Barra de herramientas Estándar.

Para volver a ejecutar su programa digitar la siguiente orden desde la Ventana de Comandos:

Do Aplica01

Aplicación Nº 2
Un restaurante ofrece un descuento del 10% para consumos entre S/. 30.00 y S/. 50.00; un descuento del 20% para consumos mayoresa S/. 50.00 nuevos soles; para todos los demás casos no se aplica ningún tipo de descuento. El ejercicio consiste en elaborar una programa que permita determinar el importe a pagar por el consumidor.

Para el desarrollo de la presente aplicación abrir una nueva ventana de edición e ingresar el siguiente código:

Close All
Clear
Do While .T.
Input “Consumo S/.” To nConsumo
If Type(“nConsumo”) = “N”
Exit
EndIf
EndDo
Do Case
Case nConsumo >= 30 And nConsumo 50
nImporte = nConsumo * 0.8
Otherwise
nImporte = nConsumo
EndCase
? “Importe a pagar S/.” + Str(nImporte)
Aplicación Nº 3
El ejercicio consiste en escribir un programa que lea “[pic]” enteros y calcule la suma total, la media aritmética, el máximo y el mínimo de los datos.

Para el desarrollo dela presente aplicación, de manera análoga que para los casos anteriores abrir una nueva ventana de edición e ingresar el siguiente código:

Close All
Clear
Input “Ingrese cantidad de números?” To nN
Declare aVector(nN)
For nI = 1 To nN
Input “Número [” + Str(nI) + “]?” To aVector(nI)
Next
nMax = aVector[1]
nMin = aVector[1]
nSuma = 0
For nI = 1 To nN
nSuma = nSuma +...