Hilfe Zinseszins

[foerster7892]

Hallo ich habe da ein Problem und dachte mir das jemand mir vielleicht helfen kann ich brauche zu morgen für die Schule (10. Klasse) ein Zinsrechner und wollte euch fragen ob ihr wisst wie man diese Gleichung (http://de.wikipedia.org/wiki/Zinseszins) die auch für Zinsiszins ist hier einbaut (ich hoffe ihr könnt mir helfen)

Danke im vorraus

Delphi-Quellcode:

unit Zinsen1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm3 = class(TForm)
    Button1: TButton;
    Label1: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Label2: TLabel;
    Label3: TLabel;
    Edit3: TEdit;
    Label4: TLabel;
    Label5: TLabel;
    procedure Edit1Change(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Edit2Change(Sender: TObject);
    procedure Edit3Change(Sender: TObject);
     private
    { Private declarations }
  public
    { Public declarations }
  end;

var
Form3: TForm3;
Guthaben, ZinsenInProzent, Laufzeit: real;

implementation

{$R *.dfm}

procedure TForm3.Button1Click(Sender: TObject);
begin
Label1.Caption := FloatToStr ((Guthaben * ZinsenInProzent *Laufzeit)/100 + Guthaben);
Label5.Caption := FloatToStr ((Guthaben * ZinsenInProzent *Laufzeit)/100);
end;

procedure TForm3.Edit1Change(Sender: TObject);
begin
Guthaben := StrToFloat(Edit1.Text);
end;

procedure TForm3.Edit2Change(Sender: TObject);
begin
ZinsenInProzent := StrToFloat(Edit2.Text);
end;

procedure TForm3.Edit3Change(Sender: TObject);
begin
Laufzeit := StrToFloat(Edit3.Text)
end;

end.

[edit=Matze][delphi]-Tags gesetzt. Zukünftig bitte selbst machen. MfG, Matze[/edit]

[shmia]

Die Funktion für "X hoch Y" heisst im Delphi Power(x,y).
Damit der Compiler die Funktion kennt, musst du folgende Erweiterung vornehmen:

Delphi-Quellcode:

implementation 
uses Math;   // <== das hinzu
{$R *.dfm}

Der Rest ist deine Hausaufgabe!

[foerster7892]

Danke erstmal
aber ich muss ja irgendwie noch was bei Button1 dazufügen und ich hatte das noch nicht gemacht und auch im Unterricht hatten wir das noch nicht behandelt
ich wollte das praktisch als kleinen Zusatz machen
bitte kleinen Tipp noch

[foerster7892]

Delphi-Quellcode:

var
Form3: TForm3;
Guthaben, ZinsenInProzent, Laufzeit: real;

implementation
uses Math;
{$R *.dfm}

procedure TForm3.Button1Click(Sender: TObject);
begin
Label1.Caption := FloatToStr (Power(Guthaben * (1 + ZinsenInProzent)/100,Laufzeit));
Label5.Caption := FloatToStr ((Guthaben * ZinsenInProzent *Laufzeit)/100);
end;

procedure TForm3.Edit1Change(Sender: TObject);
begin
Guthaben := StrToFloat(Edit1.Text);
end;

procedure TForm3.Edit2Change(Sender: TObject);
begin
ZinsenInProzent := StrToFloat(Edit2.Text);
end;

procedure TForm3.Edit3Change(Sender: TObject);
begin
Laufzeit := StrToFloat(Edit3.Text)
end;

end.

Ich hab das jetzt so geändert aber es läuft trotzdem nicht(nur so wie zuvor)


[edit=Matze]Bitte zukünftig die [delphi]-Tags selbst setzen! MfG, Matze[/edit]

[Astartes]

Hi,

Kuck Dir bitte nochmal die Formel zur Zinseszinsberechnung an!

Mfg Tom

[shmia]

Einen Tip kriegst du noch; dann ist aber genug!
Die OnChange-Events werden nur ausgelöst, wenn du auch wirklich Werte von Hand eingetragen hast
ansonsten bleiben Guthaben, ZinsenInProzent und Laufzeit gleich 0.
Also sollten die Zuweisungen Guthaben := ... im Button1click vorgenommen werden.

[foerster7892]

Danke funktioniert super (vielen vielen Dank) :-D :-D :-D :-D :-D :-D :-D :-D :hello: :hello: :hello:

[foerster7892]

achso kennt noch jemand eine Formel für ne Zinsstaffel benötige ich jetzt auch noch????? :roll:

[Klaus01]

Zitat:

Zitat von foerster7891

achso kennt noch jemand eine Formel für ne Zinsstaffel benötige ich jetzt auch noch????? :roll:

Vielleicht kannst Du sie Dir aus dem Beispiel herleiten.

Grüße
Klaus