Entwickler-Ecke :: Thema anzeigen - Progamm das sekündlich einen Wert multipliziert

shift - Sa 27.01.07 00:14
Titel: Progamm das sekündlich einen Wert multipliziert

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

Delete - Sa 27.01.07 01:14

brauchst jetzt ein programm oder 'n code?

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

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;

Entwickler-Ecke.de based on phpBB
Copyright 2002 - 2011 by Tino Teuber, Copyright 2011 - 2025 by Christian Stelzmann Alle Rechte vorbehalten.
Alle Beiträge stammen von dritten Personen und dürfen geltendes Recht nicht verletzen.
Entwickler-Ecke und die zugehörigen Webseiten distanzieren sich ausdrücklich von Fremdinhalten jeglicher Art!