Tilgung

[flac]

Hey Leute! Ich brauche driiiingend eure HILFE..
Ich muss für Info einen Tilgungsprogramm bei Delphi erstellen,
formal hab ich es schon aber mein Problem liegt beim Programmieren , und
zwar müssen wir mit StringGrid arbeiten; dies enthält das Jahr;die Tilgung;den Zinssatz und
den Kontostand.. + 3 Editierfelder für Kredit, Zinssatz und die monatliche
Tilgungsrate + 1 Button "Rechnen"...
Ich danke jetzt schon allen, die mir hierbei behilflich sein werden...@ flac

[Nikolas]

Und wo liegt dein Problem? Wie weit kommst du? Kannst du die Werte aus den edits auslesen? Kennst du die Gleichungen um alle gesuchten Werte zu berechnen?

[flac]

Hallo! Ich weiß gar nicht wie ich vorgehen muss...
auf jeden Fall muss im StringGrid etwas erscheinen was ich in die Edit felder eingebe...
und wenn ich auf rechnen drücke, muss der Kontostand am Ende 0€ betragen....Ich hoffe ich konnte das
jetzt so einigermaßen erklären..

[dominikkv]

hmm...sollen wir für dich die hausaufgaben machen?
wie wärs wenn du uns mal konkret schilderst was dein problem ist... und vllt mal postest was du schon hast

[flac]

das sind keine HA... wir machen das zurzeit im Unterricht und ich verstehe es nicht
normalerweise fragt man den Lehrer aber das interessiert ihn gar nicht...
Meinen Problem habe ich ja schon geschildert; was Ich bisher habe ist nur Formales und
nun muss ich das ganze zum laufen bringen.. ABER WIE???

[dominikkv]

also...ich versteh nicht so ganz dein problem^^
hast du schon dein button und stringgrid und edits auf der Form?
dann kannst du dir überlegen..."wann soll er was machen"?
richtig, wenn ich auf den button klicke...
also erstellst du eine onKlick-procedure für den button.
dort kannst du zuerst prüfen ob der user richtige eingaben gemacht hat (also nur zahlen in den edits stehen), dann kannst du diese in variablen speichern und damit rechnen.
nach jedem jahr einfach den aktuellen stand in das stringgrid schreiben:
StringGrid1.Cells[1,1] := '545,50 €';

[flac]

Delphi-Quellcode:

unit Tilgung;

interface

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

type
  TForm1 = class(TForm)
    StringGrid: TStringGrid;
    Off_BitBtn1: TBitBtn;
    Kredit_Edit: TEdit;
    Zinssatz_Edit: TEdit;
    Tilgungsrate_Edit: TEdit;
    Kredit_Label1: TLabel;
    Zinssatz_Label1: TLabel;
    Tilgungsrate_Label2: TLabel;
    Rechnen_BitBtn1: TBitBtn;
    procedure FormCreate(Sender: TObject);
    procedure Off_BitBtn1Click(Sender: TObject);
    procedure Rechnen_BitBtn1Click(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;
  Rate, Kredit, Zinsen: Real;

implementation

{$R *.DFM}

procedure TForm1.FormCreate(Sender: TObject);
begin
   StringGrid.Cells[0,0]:= 'Jahr';
   StringGrid.Cells[1,0]:= 'Tilgung';
   StringGrid.Cells[2,0]:= 'Zinsen';
   StringGrid.Cells[3,0]:= 'Kontostand';
end;


procedure TForm1.Off_BitBtn1Click(Sender: TObject);
begin
  close
end;


procedure TForm1.Rechnen_BitBtn1Click(Sender: TObject);
begin
  Kredit:= StrToFloat (Kredit_Edit.Text);
  Zinsen:= StrToFloat (Zinssatz_Edit.Text);
  Rate:= StrToFloat (Tilgungsrate_Edit.Text);
  //???

end;

end.

SO SIEHT ES BISHER AUS UND NUN MÜSSEN AN STELLE DER FRAGEZEICHEN DIE ANWEISUNGEN
UM DAS ALLES ZUM LAUFEN ZU BRINGEN... ICH WEIß NICHT WIE ICH DAS NOCH ERKLÄREN SOLL
ICH WÄRE EUCH WIRKLICH SEHR DANKBAR WENN ICH WENIGSTENS EIN SCHRITT WEITER KOMME

[edit=SirThornberry]Delphi-Tags gesetzt - nächstes mal bitte unnötige Großschreibung weg lassen außer es ist beabsichtigt das wir das als anschreien auffassen sollen - Mfg, SirThornberry[/edit]

[Jürgen Thomas]

Hallo flac,

das ist doch schon einiges! Jetzt können wir auch erkennen, wo Deine Probleme liegen.

Zunächst einmal: Markiere Deinen Code und drücke oben den Button "Delphi-Code"; dann ist es besser lesbar. Das kannst Du auch noch nachträglich machen!

Dein Problem besteht also offensichtlich in der eigentlichen Rechnung. Dann schlage ich vor, dass Du als nächstes die Formeln als "Pseudo-Code" formulierst. Ganz am Anfang hattest Du geschrieben, dass Du das "formal" schon hättest; also solltest Du das können. Anschließend müssen daraus Pascal-Anweisungen werden. Das Ergebnis dieser Berechnungen wird dann mit FormatFloat in die StringGrid-Zellen geschrieben.

Viel Erfolg! Jürgen

[flac]

Hallo Jürgen!
Du hast es zwar gut beschrieben, aber ich habe Info seit einem halben Jahr
und Pseudo- Code und Pascal- Anweisungen höre Ich zum ersten Mal
Wir sollen mit Zählschleifen arbeiten wie if, while und else usw.
Trotzdem danke für deine Hilfe