Zinsrechner

[Durg]

Ich habe folgendes Problem ich wollte ein Zinsrechner programmieren, ich weiß aber nicht wie ich das mache das er wenn ich auf Berechnen klicke, der wenn ich beispielsweise die Dauer sieben Jahre angegeben habe in einem Memo feld die Jahre aufzählt, also

• 1
• 2
• 3
• 4
• 5
• 6
• 7

Nur halt ohne die Punkte wie kriege ich das hin??
Das selbe müsste ich für ein Zinsfeld machen in dem die Ausgerechneten Zinsen drin stehen und eines mit den Zinsen + den Startbetrag.
Das sollte dann so aussehen das ich drei Felder zum eingeben habe: Dauer in Jahren, Zins in% und Betrag der Angelegt wird.
Und dann halt noch die drei felder in denen das oben angegebene ausgegeben wird.

Hab jetzt mal angehängt wie das so aussehen sollte.

[glkgereon]

Delphi-Quellcode:

for i:=1 to 7 do
  Memo1.Lines.Add(inttostr(i)+': '+floattostr(gibwert(i)));

gibwert guibt dir den entsprechenden wert zurück

aber wo war das problem dabei?
habbich was übersehen?

[Durg]

kann man für die sieben auch eine Variable einsetzen??

Ich wusste nicht wie man Lines added auch wenns scheinbar ziemlich offensichtlich war.

[glkgereon]

klar

[FURT]

He
ich bin neu hier im forum und ich soll das mim zinsrechner auch erstellen nur mit einer listbox, die das kapital nach jedem jahr anzeigen soll.........und ich komm einfach nicht weiter. wie kann ich es so programmieren das es mir in der listbix angezeigt wir........
wär schön wenn ihr helfen könntet

[FURT]

he
bei mir klaapt das schon soweit nur zeigt er an : For loop control variable must have original type
ich weiß net was ich machen soll....komm niucht weiter

[Fussball-Robby]

Zitat:

Zitat von FURT

For loop control variable must have original type

Zunächst einmal: Fehlermeldung richtig lesen! Dort steht must have ordinal type. Ordinale Typen sind zum Beispiel Integer, Byte, Char, [..]. Gleitkommazahlen(Real, Extended, Single) und Int64 zählen nicht dazu.

[FURT]

he
es fubktioniert dann aber immer noch nicht.......kp was ich falsch mach
hier ist mal mein code:

implementation
uses
math;

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
startkapital, zinssatz, laufzeit : Extended;
kapital : Integer;
begin
startkapital:= StrToFloat (Edit1.Text);
zinssatz:= StrToFloat (Edit2.Text);
laufzeit:= StrToFloat (Edit3.Text);
kapital:=startkapital*power(1+zinssatz/100 ,laufzeit);
Edit4.Text:= FloatToStrF (kapital, ffNumber, 15, 2);
ListBox1.Items.add('Jahr ' + #9 + ' Kapital ');
for
kapital := 1 to laufzeit do
ListBox1.AddItem(kapital);
das prog. soll den kontostand nach jedem jahr in der listbox anzeigen

auch wenn das für euch leicht und nervig is.........für mich is es neuland und ich komm net weiter

[rwachtel]

Du hast die Variable laufzeit als Extended deklariert. Wie Fussball-Robby schon richtig schrieb, musst Du einen ordinalen Variablentyp nehmen.

[FURT]

he
wenn ich die als integer deklarier dann zeigt er mir volgende fehlermeldung an:
Incompatible types : 'string' and 'extended'
kp was da abgeht

[DeddyH]

Das kommt jetzt von dieser Zeile:

Zitat:

Delphi-Quellcode:

kapital:=startkapital*power(1+zinssatz/100 ,laufzeit);

Die Multiplikation zweier Extended ergibt eine Extended, die passt nicht in eine Integer.

[rwachtel]

Zitat:

Zitat von FURT

wenn ich die als integer deklarier dann zeigt er mir volgende fehlermeldung an:
Incompatible types : 'string' and 'extended'

Das glaube ich nicht, Tim (oder Du sprichst von mir unbekannten Änderungen am Quellcode).

Hier Dein ursprünglicher Code:

Zitat:

Zitat von FURT

Code:

  var
    startkapital, zinssatz, laufzeit : Extended;
    kapital : Integer;
  begin
    [...]
    laufzeit:= StrToFloat (Edit3.Text);
    [...]

Änderst Du nur die Deklaration der Variablen laufzeit, aber nicht die Zuweisung:

Code:

  var
    startkapital, zinssatz : Extended;
    laufzeit : Integer;
    kapital : Integer;
  begin
    [...]
    laufzeit:= StrToFloat (Edit3.Text);
    [...]

erhältst Du einen Compilerfehler, da der Integer-Variablen laufzeit kein Fliesskommawert (StrToFloat) zugewiesen werden kann. Abhilfe würde hier die entsprechende Funktion für Integer-Werte schaffen (StrToInt):

Code:

  var
    startkapital, zinssatz : Extended;
    laufzeit : Integer;
    kapital : Integer;
  begin
    [...]
    laufzeit:= StrToInt (Edit3.Text);
    [...]

Zitat:

kp was da abgeht

Ja, wie wäre es mit einem Einsteigertutorial zum Erlernen der Grundlagen? http://www.delphi-treff.de/tutorials...-fange-ich-an/

[rwachtel]

Zitat:

Zitat von DeddyH

Die Multiplikation zweier Extended ergibt eine Extended, die passt nicht in eine Integer.

Und deswegen kommt

Zitat:

Incompatible types : 'string' and 'extended'

? :mrgreen:

[FURT]

he
das hab ich natürlich gemacht aber er zeigt den fehler bei der zeile an :

kapital:=startkapital*power(1+zinssatz/100 ,laufzeit);

und die fehlermeldung ist incompatible types integer and extended..

[taaktaak]

Kann es vielleicht an dieser Anweisung liegen?

Delphi-Quellcode:

ListBox1.AddItem(kapital);

Kapital ist doch 'ne Zahl, oder?
Und die geht so nicht in die Listbox!
Aber vielleicht so:

Delphi-Quellcode:

ListBox1.AddItem(IntToStr(kapital));

[FURT]

he
wenn ich die anderen variabelen auch in Integer deklarier dann zeigt er mir genau die selbe fehler meldung an.....ich verzweifel ich langsam

[rwachtel]

Zitat:

Zitat von FURT

das hab ich natürlich gemacht aber er zeigt den fehler bei der zeile an :

kapital:=startkapital*power(1+zinssatz/100 ,laufzeit);

und die fehlermeldung ist incompatible types integer and extended..

Dann beherzige doch bitte das Posting von DeddyH. Der Compiler sagt Dir doch schon, was falsch ist: Du weist einer Integer-Variablen (kapital) eine Fliesskommazahl zu.

[Fussball-Robby]

Zitat:

Zitat von FURT

he
wenn ich die anderen variabelen auch in Integer deklarier dann zeigt er mir genau die selbe fehler meldung an.....ich verzweifel ich langsam

Informiere dich lieber mal über Variablentypen und deren Zuweisungen und Umwandlungen, anstatt hier wie wild drauf los zu raten, mit welcher Änderung du die Fehler am schnellsten wegbekommst. Sorry für den scharfen Ton, aber so kommst du nun wirklich nicht weiter. Du lernst so gut wie nichts, wenn wir dir hier jeden einzelnen Fehler beseitigen.
Ich empfehle dir zum Beispiel die Grundlagentutorials vom dsdt.

[rwachtel]

Zitat:

Zitat von taaktaak

Kann es vielleicht an dieser Anweisung liegen?

Delphi-Quellcode:

ListBox1.AddItem(kapital);

Kapital ist doch 'ne Zahl, oder?
Und die geht so nicht in die Listbox!
Aber vielleicht so:

Delphi-Quellcode:

ListBox1.AddItem(IntToStr(kapital));

Soweit sind wir doch noch gar nicht... :mrgreen:

Wenn wir nämlich da sind, wird FURT feststellen, dass das Programm gar nicht so funktioniert, wie er sich das vorstellt... ;)

[FURT]

he das klappt auch nich der fehler liegt ja in der anderen zeile und als ich das geändert habe hat er einen anderen fehler zusätzlich angezeigt

not enough actual parameters

[rwachtel]

Zitat:

Zitat von FURT

he das klappt auch nich der fehler liegt ja in der anderen zeile und als ich das geändert habe hat er einen anderen fehler zusätzlich angezeigt

not enough actual parameters

Jetzt haben Dir doch schon zwei Leute unabhängig voneinander die Tutorials vom Delphi-Treff nahegelegt. Vielleicht sollte Dir das zu Denken geben?

[FURT]

ich hab mir das ding schon 2 mal komplett durchgelesen und blicks imemr noch net die ganzen fachbegriffe sin am anfang nich so leicht zu kapieren und umzusetzen