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
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
1 respuesta
Respuesta de ricardofo
1