Wie in einem vorhergehende Thread schon geschrieben habe ich eine Stoppuhr programmiert, zu der ich jetzt noch einen Funktion eingebaut habe um eine extra Rundenzeit in eine Listbox zu schreiben.
Mein Problem ist jetzt, das die Zeit quasi im Hintergrund weiterläuft und mein "go on" / "weiter" button nich die funktion erfüllt die er soll. Ich komme leider auf keine gute Lösung :/ ,
Das ganze Programm kann ich nicht hochladen, das heißt nicht das Project, da es eh niemand kompilieren könnte (hab ne extra Komoponente, die XButtons, und ohne die wirds wohl nix
)
Deswegen kopier ich hier mal den QT rein:
Ich füge hier nochmal die Hauptprozeduren mit hinzu und die exe, vielleicht kann mir so jemand helfen.
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:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
| procedure TForm1.XButton2click(Sender: TObject);
begin
inc(count);
Listbox1.items.Add(formatdatetime('hh:mm:ss:zzz',zeit2)+' Lap ' + IntToStr(Count));
Listbox1.ItemIndex:=Count;
temp2:=Time;
end;
procedure TForm1.timerTimer(Sender: TObject);
begin
zeit := last + temp - time;
XPanel1.Caption:= formatdatetime('hh:mm:ss:zzz',zeit);
end;
procedure TForm1.Timer1Timer(Sender: TObject);
begin
zeit2 := last2 + temp2 - time;
XPanel2.Caption:= formatdatetime('hh:mm:ss:zzz',zeit2);
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
count:=0;
end;
procedure TForm1.XBtn_Pauseclick(Sender: TObject);
begin
XButton1.click;
end;
procedure TForm1.XBtn_go_onclick(Sender: TObject);
begin
temp2:=time;
Timer.Enabled:=True;
Timer1.Enabled:=True;
end;
procedure TForm1.XButton1click(Sender: TObject);
begin
if not(timer.enabled) then begin temp:= time;zeit := last end else last := zeit;
timer.enabled := not(timer.enabled);
if not(timer1.enabled) then begin temp2:= time;zeit2 := last2 end else last2 := zeit2;
timer1.enabled := not(timer1.enabled);
XButton1.Visible:=False;
XBtn_Pause.Visible:=True;
end; |
Falls ich noch was vergessen habe sollte, bitte im vorhergehenden thread nachlunzen
