Código fonte:
procedure TForm1.Button2Click(Sender: TObject);
begin
edit1.clear;
edit2.Clear;
combobox1.text:='';
edit3.Clear;
edit4.Clear;
edit5.Clear;
edit6.Clear;
edit1.SetFocus
end;
end.
procedure TForm1.Button1Click(Sender: TObject);
var
valor_emprestimo, juros_mes, total_juros, valor_juros, valor_parcela, valor_pagar: double;
parcelas: integer;
begin
if (edit1.text<>'') and (edit2.text<>'') and (combobox1.text<>'') then
begin
valor_emprestimo:=strtofloat(edit1.text);
juros_mes:=strtofloat(edit2.text);
parcelas:=strtoint(combobox1.Text);
total_juros:=parcelas * juros_mes;
edit3.text:=floattostr(total_juros);
valor_juros:=(valor_emprestimo * juros_mes * parcelas)/100;
edit4.text:=formatfloat('R$ #,##0.00',valor_juros);
valor_parcela:=(valor_emprestimo + valor_juros) / parcelas;
edit5.text:=formatfloat('R$ #,##0.00',valor_parcela);
valor_pagar:=valor_emprestimo + valor_juros;
edit6.text:=formatfloat('R$ #,##0.00',valor_pagar);
end
else
begin
showmessage('Por favor preencha todos os campos.');
edit1.SetFocus
end;
end;
Print da Tela de Como Seria o Programa:
Espero que gostem e até a próxima...
0 comentários:
Postar um comentário