Aktien simulieren

**ByStones2**

Hi,
ich hätte da mal eine Frage:
Wie kann man in d2005 am besten aktien simulieren.
Ich habs mal probiert, doch es war ein totaler reinfal:

zusammenfalten · markieren

Delphi-Quellcode:

			procedure TForm1.AktienKTimer(Sender: TObject);

var akte, plus_m, wert :double;

begin

if wert = 0 then

wert := 100;

akte := random(1) +1;

plus_m := random(10);

if akte = 1 then

wert := wert + akte

else

wert := wert- akte;

Panel23.Caption := floattostr(wert)+' €';

end;

Ich hoffe ihr habt eine idee die funktionert,
wenn ja schreibt sie bitte hin.

Schon mal jetzt danke

ByStones

EDIT:
zur erläuterung:
akte heißt, ob die aktie steigt oder sinkt
plus_m heißt um wie viel sie steigt bzw. sinkt
wert ist der wert der aktie nach sinken, steigen

Der Timer hat den interval 1000

Aktien simulieren

Aktien simulieren

Forumregeln