martes, 6 de marzo de 2007

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.:

 

Visitante número:
ContactosPensionesTiendasCampingPracticas