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:
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