hmmmm, ich muss leider sagen, dass mir die antworten nur sehr begrenz weitergeholfen haben...
jemand der wirklich plan vom programmieren hat, der kann damit sicher einiges anfangen, aber da ich ziemlicher rookie bin......
vielleicht erbarmt sich irgendein großherziger mensch einen auf meinen code angepassten teil für mich zu posten?! ich leg einfach mal den rest vom code mit offen:
Delphi-Quellcode:
function TicksToTime(TickCount: cardinal): string;
begin
result := Format('%.2d:%.2d:%.2d',
[TickCount div 1000 div 60, // Minuten
TickCount div 1000 mod 60, // Sekunden
TickCount mod 1000 div 10]); // Hundertstel
end;
procedure TForm1.SpeedButton1Click(Sender: TObject);
begin
if ClockStarted then
StoppClock
else
StartClock;
end;
procedure TForm1.SpeedButton3Click(Sender: TObject);
begin
ResetClock;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
ClockStarted := False;
TimeStarted := 0;
TimeStopped := 0;
end;
procedure TForm1.ResetClock;
begin
StoppClock;
TimeStopped := 0;
Label1.Caption := TicksToTime(0); // = '00:00:00'
end;
procedure TForm1.StartClock;
begin
ClockStarted := True;
TimeStarted := GetTickCount;
repeat
TimeElapsed := GetTickCount-TimeStarted;
Label1.Caption := TicksToTime(TimeStopped+TimeElapsed);
application.ProcessMessages; // damit sich das Programm nicht "aufhängt"
if application.Terminated then // Falls die Anwendung inzwischen beendet wurde
exit;
sleep(1); // 100% CPU-Auslastung vermeiden
until not ClockStarted;
end;
procedure TForm1.StoppClock;
begin
ClockStarted := False;
TimeStopped := getTickcount-TimeStarted + TimeStopped;
Label1.Caption:= TicksToTime(TimeStopped);
end;
die abfrage sollte nun sein: wenn checkbox aktiv, dann.... variablen der reihe nach füllen und gleichzeitig den durchschnitt ermitteln. andernfalls variablen nicht belegen, bzw. sobald unchecked, dann leeren. (die abfrage schaff ich grade noch selbst^^ nur den darin enthaltenen inhalt dann leider nicht mehr so ganz :/ )
danke schon mal für alle weiterführenden antworten!