Suma de dos numero en Fox en una ventana
aki les dejo este codigo es igual al posteado hace unos dias con la diferencia d que ahora los resutados salen en una ventana tipo form
* PROGRAMA DE PRUEBA POR MOYO
SET TALK OFF
CLEAR
* DECLARACION DE VARIABLE
STORE 0 TO NUM1, NUM2, TOTAL
*VENTANA PARA WINDOW
DEFINE WINDOW ENTRADA FROM 2,1 TO 15,80 TITLE 'PROGRAMA PARA SUMAR' ;
CLOSE FLOAT GROW SHADOW ZOOM
ACTIVATE WINDOW ENTRADA
* ENTRDA DE DATO
@ 2,2 SAY "ESCRIBA UN NUMERO:" GET NUM1
READ
* BUCLE
DO WHILE NUM1<=0 THEN
=MESSAGEBOX ("NO SE ACEPTAN NUMEROS MENORES QUE CERO")
@ 2,2 SAY "ESCRIBA UN NUMERO:" GET NUM1
READ
ENDDO
* ENTRADA DEL SEGUNDO DATO
@ 4,3 SAY "ESCRIBA OTRO NUMERO:" GET NUM2
READ
*BUCLE
DO WHILE NUM2<=0 THEN
=MESSAGEBOX ("NO SE ACEPTAN NUMEROS MENORES QUE CERO")
@ 4,3 SAY "ESCRIBA OTRO NUMERO:" GET NUM2
READ
ENDDO
* SUMATORIA
TOTAL = NUM1 + NUM2
* RESPUESTA
CLEAR
@ 2,3 SAY "LA RESPUESTA ES:" +STR(TOTAL)
No hay comentarios.:
Publicar un comentario