Como limpiar

Buenas, tengo un pequeño problema, estoy comenzando a trabajr con visual fox pro, es decir que soy nuevo en lo que a programación se refiere.. Mi problema es hacer que en el ciclo DO WHILE después de tomar todos los datos y obtener la respuesta, cuando va a entrar de nuevo en el ciclo, ¿cómo hago para que los campos donde se introducen los datos me queden de nuevo en blanco para introducir los 2dos datos? Aquí pongo lo que hice.. Me funciona.. Pero no borra dichos campos.. E intentado colocar el clear en todas partes.. Pero no funciona. Si me pueden ayudar lo agradezco por favor, gracias.
SET BELL off
SET TALK OFF
clear
DEFINE WINDOW v1 DOUBLE FROM 1,1 TO 50,100 TITLE 'notas' COLOR RGB(148,156,123,85,46,36)
MOVE windows v1 center
ACTIVATE WINDOW v1
@2,10 say 'Notas del Estudiante en base a 20Pts'
Estudiante=space(20)
Cedula=space(10)
n=0
cn=0
cont1=0
cont2=0
res='s'
DO WHILE res='s'
@6,10 say 'Introduzca el nombre del estudiante'
@6,65 get Estudiante
@8,10 say 'Cedula'
@8,65 get Cedula
@10,10 say 'introduzaca la nota del estudiante'
@10,65 get n
read
if n>=10 then
@12,10 say 'Esta nota esta aprobada'
cont1=cont1+1
endif
if n<10 then
@13,10 say 'esta nota no esta aprobada'
cont2=cont2+1
Endif
@¿14,10 say 'desea continuar? ' get res
enddo
cn=cont1+cont2
@15,10 say 'la cantidad de notas aprobadas son:'
@15,65 say cont1
@16,10 say 'la cantidad de notas reprobadas son:'
@16,65 say cont2
@17,10 say 'la cantidad de notas fueron:'
@17,65 say cn
read
wait windows 'presione cualquier tecla'
deactivate windows v1
return
Respuesta
1
Solo cambia estas lineas así..
***Asi lo tienes...
n=0
cn=0
cont1=0
cont2=0
res='s'
DO WHILE res='s'
Asi debe quedar
cont1=0
cont2=0
res='s'
DO WHILE res='s'
n=0
cn=0
Bueno la verdad no me ah funcionado.. pregunte a varias personas yme dicen que es con el clear.. lo que pasa es que no se sime explique bien en la pregunta.. si tienes la oportunidad pon a correr el programa y veras de lo que hablo.. igualagradesco tu ayuda.. pero si tienes la respuesta a mi duda te lo agradeceré aunmas.
Perdona.. me ofusque.. la regué en la lectura de tu programa..
Si deseas limpiar los valore que estas capturando debes limpiarlos justo antes de hacer uso de la función GET.
Ahí te va el fragmento de tu programa que debes modificar
DO WHILE res='s'
Estudiante = " "
Cedula= " "
n=0
@6,10 say 'Introduzca el nombre del estudiante'
@6,65 get Estudiante
@8,10 say 'Cedula'
@8,65 get Cedula
@10,10 say 'introduzaca la nota del estudiante'
@10,65 get n
Read
Creo que con eso no tendrás problemas.

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas