Bom dia Sheila;
Desculpe-me não ter lhe respondido ontem, estava muito atarefado!!!! Em relação
ao código, por distração minha, estava colocando no lugar errado!!!!! Consegui
concertar o outro erro, o cálculo da taxa não estava saindo certo!!! Era um
detalhe simples e bobo!!! Veja só abaixo:
function TJuros.CalculaTaxa : real;
var
i, cont: integer;
somatax : real;
begin
somatax := 0;
for i:= 1 to temp do
begin
taxfinal := ((tax/100)+1) * i; // aqui a taxa é calculada ex:
10% é 10 / 100 + 1 => 1,1 (esse é o valor ao dia)
somatax := somatax * taxfinal; // aki tava somando!!! agora
vai multiplicar 1,1 * 1,1 * 1,1 * 1,1 até o tempo chevar ao final do tempo
!!!!! irgh!!!!!!! :-)
cont := cont + 1;
end;
result := somatax;
end;
Vc pode me ajudar em outra situação???? Ou alguém da lista!!!!! O problema é o
seguinte!!!! Coloquei uma Splash como abertura e um progressbar no mesmo. O
problema é que o compenente não está progredindo!!! Veja o código abaixo!!!
program Projeto_Calcular_Juros;
uses
Forms,
Main in 'Main.pas' {frmJuros},
clJuros in 'clJuros.pas',
USplash in 'USplash.pas' {frmSplash};
{$R *.res}
begin
Application.Initialize;
with TfrmSplash.Create(nil) do
try
ProgressBar1.Max := 100;
Show;
Update;
Application.Title := 'Projeto_Calcular_Juros';
ProgressBar1.StepBy(25); // AKI NÃO TÁ EXECUTANDO
Application.CreateForm(TfrmJuros, frmJuros);
ProgressBar1.StepBy(25); // NEM AKI !!!!!!
Application.CreateForm(TfrmSplash, frmSplash);
finally
Free;
end;
Application.Run;
end.
Pq não tá rolando????? Como o programa é pequeno, a Splash inicializava muito
rápida, em tão fiz o seguinte no oncreate do frmJuros (form principal):
Sleep (5000);
frmJuros.Show;
Será que isso tá implicando no progress não funcionar?????????????????
Outra questão simples e boba é esta!!!!!
Tirei da Net esse código da net!!!!!
Lista.Add(' O juros para o período é de: R$ ' + formatfloat('##0.00', (X2)) +
' reais' );
O problema é que os números estão aparecendo da segunte forma!!!
3,4588754545454e1
Alguém pode me dá uma dica!!!???????
Um abraço a todos!!!!!
-----Mensagem original-----
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] nome de Sheila
Enviada em: terça-feira, 21 de junho de 2005 11:12
Para: delphi-br@yahoogrupos.com.br
Assunto: Re: [delphi-br] Classe em Delphi - Calcular Juros - Help "Erro no
código!!!!"
Olá, André.
Deveria funcionar... o que vc fez????
Pq fiz o teste aqui com o seu código e funcionou...
Qual erro que deu????
[]'s
Sheila
----- Original Message -----
From: Andre de Souza Ferreira
To: delphi-br@yahoogrupos.com.br
Sent: Monday, June 20, 2005 8:32 AM
Subject: RES: [delphi-br] Classe em Delphi - Calcular Juros - Help "Erro no
código!!!!"
Sheila;
Não funcionou!!?? :-)
Help!!!
-----Mensagem original-----
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] nome de Sheila
Enviada em: domingo, 19 de junho de 2005 15:04
Para: delphi-br@yahoogrupos.com.br
Assunto: Re: [delphi-br] Classe em Delphi - Calcular Juros - Help "Erro no
código!!!!"
André,
faltou criar um objeto do tipo TStringList.
coloque :
lista := TstringList.Create;
antes de:
X1 := Capit * somatax;
[]'s
Sheila
----- Original Message -----
From: André Ferreira
To: [EMAIL PROTECTED] ; [EMAIL PROTECTED] ; delphi-br@yahoogrupos.com.br
Sent: Sunday, June 19, 2005 2:08 PM
Subject: [delphi-br] Classe em Delphi - Calcular Juros - Help "Erro no
código!!!!"
Boa tarde a todos;
Estou fazendo um projeto para o meu professor da faculdade e estou
desesperado pois não sai mais nada do tico e teco aki!!!!! Tô pedindo
arrego
aos mais experientes dos grupos pois tô com a corda no pescoço!!!!
A questão é a seguinte: preciso construir um objeto juros que possua três
propriedades, capital, tempo e taxa, e um método que calcule o juros
simples
desse capital!!!!
Instanciei o objeto Juros da seguinte forma:
unit clJuros;
interface
uses
Classes, Dialogs, SysUtils;
Type
TJuros = Class
Protected
tax : real;
capit: real;
temp : integer;
taxfinal : real;
somatax: real;
function CalculaTaxa: real;
public
constructor Construtor (taxa, capital, taxafinal, somataxa: real; tempo :
integer);
function CalculaJuros : TStringList;
end;
implementation
constructor TJuros.Construtor(taxa , capital, taxafinal, somataxa : real;
tempo : integer);
begin
tax := taxa;
capit := capital;
temp := tempo;
taxfinal := taxafinal;
somatax :=somataxa;
end;
function TJuros.CalculaTaxa : real;
var
i, cont: integer;
somatax : real;
begin
somatax := 0;
for i:= 1 to temp do
begin
taxfinal := ((tax/100)+1) * i; // aqui a taxa é calculada ex: 10% é 10 /
100
+ 1 => 1,1 (esse é o valor ao dia)
somatax := somatax + taxfinal; // depois ele é multiplicado por i, se for
10
dias ele vai multiplicar ex: 1,1 * 1,1 até chegar ao tempo final (10 dias)
cont := cont + 1; // não sei o que acontece aki !!! dá o seguinte erro
[Hint] clJuros.pas(42): Value assigned to 'cont' never used. Fala que não o
cont não é usado!!! não sei como resolver!!!
end;
result := somatax;
end;
function TJuros.CalculaJuros : TStringList;
var
lista : TstringList;
X1, X2 : Real;
begin
X1 := Capit * somatax;
X2 := X1 - Capit;
Lista.Add(' O juros para o período é de: ' + floattostr(X2) + ' reais' );
//
aki o erro é este : [Warning] clJuros.pas(57): Variable 'lista' might not
have been initialized, A VARIÁVEL LISTA TALVEZ NÃO FOI INICIALIZADA!!!
result := Lista;
end;
end.
Como vcs podem perceber, o principal erro está n função calculataxa, onde o
cont não é utilizado ???? e na calculajuros, onde a variável não foi
inicializada!!!
No evento click do Botão coloquei o seguinte cpodigo!!!
unit Main;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls, Buttons;
type
TfrmJuros = class(TForm)
pnJuros: TPanel;
StApresentacao: TStaticText;
lblCapital: TLabel;
lblTempo: TLabel;
lblTaxa: TLabel;
txtCapital: TEdit;
txtTempo: TEdit;
txtTaxa: TEdit;
btnCalcularJuros: TBitBtn;
mmoResultado: TMemo;
pnJuros2: TPanel;
Label1: TLabel;
procedure btnCalcularJurosClick(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
frmJuros: TfrmJuros;
implementation
uses clJuros;
{$R *.dfm}
procedure TfrmJuros.btnCalcularJurosClick(Sender: TObject);
var
ojuros, otaxa : TJuros;
taxa, capital, taxafinal, somataxa : real;
tempo : integer;
begin
mmoResultado.Clear;
taxa := strtofloat (txtCapital.text);
capital := strtofloat (txtCapital.text);
Tempo := strtoint (txtTempo.text);
otaxa := TJuros.Construtor(taxa,capital,taxafinal,somataxa,tempo); // NÃO
SEI SE OS PARÂMETROS ESTÃO SENDO PASSADOS CORRETAMENTE
ojuros := Tjuros.Construtor(taxa,capital,taxafinal,somataxa,tempo); // NÃO
SEI SE OS PARÂMETROS ESTÃO SENDO PASSADOS CORRETAMENTE
mmoResultado.Lines.AddStrings (ojuros.CalculaJuros);
otaxa.Free;
ojuros.Free;
end;
end.
Alguêm pode me socorrer!!!!!!!!! Posso enviar o código fonte se for
melhor!!!!!!
Me ajudem por favor!!!!!!!!!!!!
Um abraço a todos e obrigado!
André Ferreira
[As partes desta mensagem que não continham texto foram removidas]
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
------------------------------------------------------------------------------
Links do Yahoo! Grupos
a.. Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
b.. Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do
Serviço do Yahoo!.
[As partes desta mensagem que não continham texto foram removidas]
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
_____
Links do Yahoo! Grupos
* Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
* Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED] <mailto:[EMAIL PROTECTED]>
* O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço
do Yahoo! < http://br.yahoo.com/info/utos.html> .
[As partes desta mensagem que não continham texto foram removidas]
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
------------------------------------------------------------------------------
Links do Yahoo! Grupos
a.. Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
b.. Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço
do Yahoo!.
[As partes desta mensagem que não continham texto foram removidas]
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
_____
Links do Yahoo! Grupos
* Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
* Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED] <mailto:[EMAIL PROTECTED]>
* O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço
do Yahoo! <http://br.yahoo.com/info/utos.html> .
[As partes desta mensagem que não continham texto foram removidas]
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Links do Yahoo! Grupos
<*> Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
<*> Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
