// Forma bir timer, ,iki buton ve 3 tanede label ekleyin
var
zaman, zaman1, zaman2 : integer ;
durdur : boolean = false ;
procedure TMainForm.Button3Click(Sender: TObject);
begin
if durdur = false then
begin
Button3.Caption := 'Durdur' ;
timer1.Enabled := true ;
durdur := true ;
Button4.Enabled := false ;
end else
begin
Button3.Caption := 'Devam et' ;
Button4.Enabled := True ;
timer1.Enabled := true ;
durdur := false ;
end ;
end;
procedure TMainForm.Timer1Timer(Sender: TObject);
begin
if durdur then
begin
inc(zaman) ;
Label7.Caption := SifirEkle(IntToStr(zaman)) ;
if zaman = 100 then
begin
Label7.Caption := '00' ;
zaman := 00 ;
inc(zaman1) ;
Label8.Caption := SifirEkle(IntToStr(zaman1)) ;
if zaman1 = 60 then
begin
Label8.Caption := '00' ;
zaman1 := 00 ;
inc(zaman2) ;
Label9.Caption := SifirEkle(IntToStr(zaman2)) ;
if zaman2 = 60 then
begin
Label7.Caption := '00' ;
; Label8.Caption := '00' ;
Label9.Caption := '00' ;
zaman2 := 00 ;
end ;
end ;
end ;
end ;
end;
Function TMainForm.SifirEkle(Sayi : String) : String;
var
a:Integer;
begin
//" 1" yerine "01" olmasını sağlıyor.
result := sayi;
for a := 1 downto Length(Sayi) Do Result :='0'+Result;
end;
procedure TMainForm.Button4Click(Sender: TObject);
begin
Button3.Caption := 'Başla' ;
label7.Caption := '00';
label8.Caption := '00';
label9.Caption := '00';
zaman := 00 ;
zaman1 := 00 ;
zaman2 := 00 ;
end; |
