Valeu Stock!!! Vou tentar!!!

-----Mensagem original-----
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED]
nome de Stock
Enviada em: quinta-feira, 16 de junho de 2005 14:44
Para: delphi-br@yahoogrupos.com.br
Assunto: RES: [delphi-br] Calcular Juros


veja abaixo no seu codigo as observações com ** 

 

[EMAIL PROTECTED]

600 modelos de sites profissionais - Imperdivel

http://www.kitsites.com/index.php?ref=50

 

-------Mensagem original-------

 

De: Andre de Souza Ferreira

Data: 06/16/05 14:38:49

Para: delphi-br@yahoogrupos.com.br

Assunto: RES: [delphi-br] Calcular Juros

 

Mas isso eu faço fora da classe!!! No evento click do botão. é isso?

 

-----Mensagem original-----

De: delphi-br@yahoogrupos.com.br [mailto:delphi-br@yahoogrupos.com.br
>mailto:delphi-br@yahoogrupos.com.br">delphi-br@yahoogrupos.com.br
[mailto:[EMAIL PROTECTED]

nome de Stock

Enviada em: quinta-feira, 16 de junho de 2005 14:24

Para: delphi-br@yahoogrupos.com.br

Assunto: Res: [delphi-br] Calcular Juros

 

 

kd o retorno da função?

 

 

 

função=resultado; ou

 

result resultado;

 

 

 

[EMAIL PROTECTED]

 

600 modelos de sites profissionais - Imperdivel

 

http://www.kitsites.com/index.php?ref=50

 

 

 

-------Mensagem original-------

 

 

 

De: Andre de Souza Ferreira

 

Data: 06/16/05 14:16:41

 

Para: Grupo Delphi \(E-mail\)

 

Assunto: [delphi-br] Calcular Juros

 

 

 

Boa tarde a todos;

 

 

 

Tenho um trabalho na faculdade sobre métodos, que para mim está super

difícil de resolver!!!! A questão é a seguinte:

 

 

 

construir um objeto juros que possua três propriedades, capital,tempo e taxa

  e um método que calcule o juros simples desse capital;

 

Comecei a fazer da seguinte forma:

 

interface

 

 

 

  uses

 

     classes, dialogs, sysutilys;

 

 

 

type

 

     TJuros = class

 

 

 

Protected

 

     capital : real;

 

     Taxa: real;

 

     tempo: integer;

 

     somataxa : real;

 

     taxa1: real;

 

     taxafinal: real;

 

     capital1: real;

 

 

 

Public

 

     constructor Construtor (cap, tax, somatax, tax1, taxfinal, cap1: real;

temp : integer);

 

     function CalculaJuros: Real;

 

End;

 

 

 

implementation

 

 

 

constructor Tjuros.construtor (cap, tax, somatax, tax1, taxfinal, cap1: real

  temp : integer);

 

 

 

  begin

 

   capital:=cap;

 

   taxa := tax;

 

   tempo := temp;

 

  end;

 

 

 

 

 

function TJuros.CalculaJuros: real;

 

 

 

  var

 

  i, j : integer;

 

  somataxa, taxa1, taxafinal, capital1: real;

 

 

 

begin

 

   j := tempo;

 

   taxa1:= (taxa / 100) + 1;

 

 

 

   for i := 1 to j do

 

    begin

 

     taxafinal := somataxa * taxa1; // Cálculo para saber a taxa final de

juros!!

 

     soma := somataxa + taxafinal; // Soma Taxa

 

    end;

 

   capital1 := somataxa * capital;

 

   juros := Capital - Capital1;



** aqui vc tem que passar o valor a ser retornado pela função

** suponhamos que o retorno seja o valor de juros 

** pode fazer assim:

   

CalculaJuros:=juros;



** ou



result:=juros;



** senao como vai saber o que retornar?

 

end;

 

 

 

Gostaria de ter a ajuda de vcs pois não estou sabendo terminar esta

função!!! simplesmente ela não roda!!!! O quê há de errado!!!

 

 

 

 

 

 

 

 

 

 

 

 

 

[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

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

[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

 

 

 

 

 

 

 

 

 

--

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

 

 

 

 

 

 

 

[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




 




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

 



Responder a