Progamm das sekündlich einen Wert multipliziert

shift · Hält's aus hier Beiträge: 2

Hallo!

Ich brauche etwas Hilfe beim Programmieren und hoffe dass mir jemand ein paar Tips geben kann...
Undzwar benötige ich ein Programm, welches einen festen Wert, der über ein edit-Feld eingegeben werden soll, dann intern mit dem wert 0,27777777... (etwa 10 Stellen nach dem Komma) multipliziert werden soll. Bis dahin ja kein Problem aber dieser Wert sollte sekündlich mit sich selbst addiert werden und auf 2 Stellen hinter dem Komma in einem Label ausgegeben werden.
Noch mal anschaulich:

TForm1.button.click (oder wie das genau auch immer heißen mag)

x:= StrToInt (edit1.text);
y:= x*0.27777777777;

begin

y1:= y;
label1.caption:= IntToStr (y1 auf 2 Kommastellen gerundet);
dann genau 1s warten...;

y2:= y+y // oder 2 mal y;
label1.caption:= IntToStr (y2 auf 2 Kommastellen gerundet);
wieder 1s warten....;

usw. usw. bis zu einem beliebigen Zeitpunkt sollte die Prozedur immer wiederholt werden..

Ich habe es immer mit einer Schleife versucht hab aber jedes mal delphi zum Abstürtzen gebracht und bin dann irgendwann auf ein if-Befehl in einer Schleife gekommen, welches aber genau den selben Effekt hatte... Irgendwie komm ich nicht mehr weiter... vielleicht sollte ich mal mit dem Timer arbeiten... leider hab ich jedoch nicht so viel Erfahrung mit dem Programmieren...

Ich hoff dass mir hier jemand weiterhelfen kann und würde mich sehr über Tips und Vorschläge freuen...

Shift

Ehemaliges Mitglied Erhaltene Danke: 1

brauchst jetzt ein programm oder 'n code?

der code säh ungefähr so aus...

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:

procedure TForm1.Button1Click(Sender: TObject);
begin
 timer1.Enabled := true;
 mul := 0;
 if trystrtofloat(edit1.Text, mul) then
  mul := mul * 0.27777777777;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
 timer1.Enabled := false;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
 edit1.Text := '4';
 edit2.text := '';
 timer1.Enabled := false;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
 mul := mul + mul;
 edit2.Text := format('%.2f', [mul]);
 application.ProcessMessages;
end;

shift · Hält's aus hier Beiträge: 2

Danke dir schon mal... es soll schon ein programm sein...

Ehemaliges Mitglied Erhaltene Danke: 1

gut, dann bekommst 'n programm

Einloggen, um Attachments anzusehen!

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme