exemplo de calculadora e progress
379 palavras
2 páginas
DEF VAR c-nome AS CHARACTER NO-UNDO LABEL ":CALCULADORA EM PROGRESS".DEF VAR c-num1 AS DECIMAL NO-UNDO LABEL "1º Valor ".
DEF VAR c-num2 AS DECIMAL NO-UNDO LABEL "2º Valor ".
DEF VAR c-resultado AS DECIMAL NO-UNDO LABEL "Resultado".
FORM c-resultado WITH FRAME c-resultado.
FORM c-num1 WITH FRAME c-num1.
FORM c-num2 WITH FRAME c-num2.
FUNCTION somar RETURNS DECIMAL (INPUT c-num1 AS DECIMAL , INPUT c-num2 AS DECIMAL). c-resultado = c-num1 + c-num2. RETURN c-resultado.
END FUNCTION.
FUNCTION subtrair RETURN DECIMAL (INPUT c-num1 AS DECIMAL, INPUT c-num2 AS DECIMAL). c-resultado = c-num1 - c-num2. RETURN c-resultado.
END FUNCTION.
FUNCTION multiplicar RETURN DECIMAL (INPUT c-num1 AS DECIMAL , INPUT c-num2 AS DECIMAL). c-resultado = c-num1 * c-num2. RETURN c-resultado.
END FUNCTION.
FUNCTION dividir RETURN DECIMAL (INPUT c-num1 AS DECIMAL , INPUT c-num2 AS DECIMAL). c-resultado = c-num1 / c-num2. RETURN c-resultado.
END FUNCTION.
PROCEDURE calculadora: DEF BUTTON soma LABEL '+' SIZE 7 BY 1.4. DEF BUTTON sub LABEL '--' SIZE 7 BY 1.4. DEF BUTTON mul LABEL '*' SIZE 7 BY 1.4. DEF BUTTON div LABEL '/' SIZE 7 BY 1.4. DEF BUTTON limpar LABEL 'C' SIZE 7 BY 1.4. DEF BUTTON sair LABEL 'Sair' SIZE 7 BY 1.4 AUTO-ENDKEY. FORM soma at row 2 column 27 colon-aligned sub at row 4 column 27 colon-aligned mul at row 6 column 27 colon-aligned div at row 2 column 36 colon-aligned limpar at row 4 column 36 colon-aligned sair at row 6 column 36 colon-aligned c-num1 at row 2 column 10 colon-aligned c-num2 at row 4 column 10 colon-aligned c-resultado at row 6 column 10 colon-aligned
/* FORM soma sub mul div limpar sair WITH FRAME escolha. FORM