Program v Delphi - uroky

JonathanDavi

prosim vas , potreboval by som pomoc s tymto programom .
takze mam zistit aka bude suma vzdy po po jednom roku na ucte ked sa na zaciatku vlozi suma do banky zada sa urok a vypise sumu s urokom nakonci a vypise este aj po kolkych rokoch sa ta dana suma nazbierala
1.label Vklad - Edit1 suma //napise sa suma ktoru vkladam
2.Label Urok - edit 2 percento // napise sa urok aky chcem
button ktorym vypocitam urok za jeden rok a vzdy ked stalcim tento button tak sa bude vzdy prippisovat jeden rok
Edit3 tam sa bude vypisovat rok cize ked raz stlacim button tak sa tam vypise po roku ked 2x button po 2 rokoch atd...
a potom bude asi dalsi edit 4 kde sa bude vypisovat vysledna suma po danych rokoch aj s urokmi

teda napr. vlozim 1000SK s urokom 5% -->stlacim button v edite3 sa vypise po 1 roku a v edite4 sa vypise suma 1050SK teda suma s urokom

Dufam ze som to vysvetlil dobre

morfeusko

A co takto ktomu pridat aj nejaky tvoj pokus to urobit...

JonathanDavi

no sak ja to skusam ale neviem ako spravit ked kliknem 2x na button aby mi zase pripocitalo urok a vypisalo po kolkych rokoch..inak by som sem nepisal o pomoc takze ak nevies tak sa zdrz komentara prosim

morfeusko

Tak sem skopiruj ten tvoj kod aj ked nefunguje a mozem sa pozret kde je chyba...cele ti to asi nikto robit nebude....ale tak to je len moja rada...

JonathanDavi

Kód: Vybrať všetko

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Label1: TLabel;
    Edit1: TEdit;
    Label2: TLabel;
    Label3: TLabel;
    Edit2: TEdit;
    Label4: TLabel;
    Edit3: TEdit;
    Label5: TLabel;
    Label6: TLabel;
    Edit4: TEdit;
    Button1: TButton;
    Label7: TLabel;
    Label8: TLabel;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var suma,urok,vysledok:real;
begin
suma:=StrToFloat(Edit1.Text);
urok:=StrToFloat(Edit2.Text);
vysledok:=suma*(urok/100)+suma;
Edit4.Text:=FloatToStr(vysledok);

end;

end.

ale ako hovorim neviem ako dalej