Boa noite, André.
Ao invés de vc usar o FormatFloat() para valores de moeda use FormatCurr().
Quanto ao splash, outro dia apanhei um bocado pq precisava dar um splash antes
de exibir tela de login e a tela principal do programa.
Faz tempo que usei um progress bar em um projeto meu para fazer abertura de um
programa, não me lembro agora mas assim que lembrar te dou um toque, ok?
Só me lembro que tratei em outro arquivo e não no .DPR
Uma sugestão, só pra adiantar, veja se resolve o seu caso... (usei neste último
projeto meu)
..
Application.Initialize;
Application.ShowMainForm := false ; //=> aqui é para esconder o formulário
// principal, no seu
caso, frmJuros
Application.CreateForm(TfrmJuros, frmJuros);
frmJuros.Hide;
Application.Run;
..
No evento OnHide do frmJuros:
..
if Application.FindComponent( 'frmSplash' ) = nil then
Application.CreateForm(TfrmSplash, frmSplash);
..
E no evento OnCreate do frmSplash:
..
// delimite o tempo da progressBar e
// depois que esgotar o tempo vc dá um show() no
// frmJuros e dá um close() no frmSplash
..
[]'s
Sheila
----- Original Message -----
From: Andre de Souza Ferreira
To: delphi-br@yahoogrupos.com.br
Sent: Wednesday, June 22, 2005 10:09 AM
Subject: RES: [delphi-br] Classe em Delphi - Calcular Juros - Help "Erro no
código!!!!" - Todos, Especial Sheila Dúvida de Splash e Format
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
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]
<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
