geliştirilmiş kronometre programı Kod: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls; type TForm1 = class Edit1: TEdit; Button1: TButton; Button2: TButton; Button3: TButton; Button4: TButton; Edit2: TEdit; Edit3: TEdit; Label2: TLabel; Label1: TLabel; Label3: TLabel; Label4: TLabel; Button5: TButton; Label5: TLabel; Timer1: TTimer; Timer3: TTimer; procedure Button1Click ; procedure Button2Click ; procedure Timer1Timer ; procedure FormCreate ; procedure Button4Click ; procedure Button3Click ; procedure Button5Click ; procedure FormShow ; procedure Timer3Timer ; private c, b, a, i:integer; public end; var Form1: TForm1; adim:integer; implementation procedure TForm1. Button1Click ; begin timer1. Enabled:=true; button1. Enabled :=false; button2. Enabled :=true; end; procedure TForm1. Button2Click ; begin timer1. Enabled:=false; button2. Enabled :=false; button3. Enabled :=true; button4. Enabled :=true; end; procedure TForm1. Timer1Timer ; begin edit3. Text:="+inttostr ; i:=i+1; if i=99 then begin i:=0; edit2. Text:=" + inttostr(a+1); a:=a+1; end; if a=60 then begin a:=0; i:=0; edit1. Text:=" +inttostr(b+1); b:=b+1; end; end; procedure TForm1. FormCreate ; var region: HRgn; begin region:=CreateEllipticRgn(30,30,230,230); SetWindowRgn ; timer1. Enabled:=false; i:=0; a:=0; b:=0; c:=0; end; procedure TForm1. Button4Click ; begin button1. Enabled:=true; button2. Enabled:=false; button3. Enabled:=false; button4. Enabled:=false; timer1. Enabled:=false; edit1. Text:='00'; edit2. Text:='00'; edit3. Text:='00'; timer1. Enabled:=false; i:=0; a:=0; b:=0; c:=0; end; procedure TForm1. Button3Click ; begin timer1. Enabled:=true; button1. Enabled:=false; button2. Enabled:=true; button3. Enabled:=false; button4. Enabled:=false; end; procedure TForm1. Button5Click ; begin close; end; procedure TForm1. FormShow ; begin adim:=0; end; procedure TForm1. Timer3Timer ; begin adim:=adim+1; case adim of 1:label5. Caption:=label5. Caption+'B'; 2:label5. Caption:=label5. Caption+'E'; 3:label5. Caption:=label5. Caption+'K'; 4:label5. Caption:=label5. Caption+'H'; 5:label5. Caption:=label5. Caption+'A'; 6:label5. Caption:=label5. Caption+'C'; 7:label5. Caption:=label5. Caption+'K'; end; end; end. Yıldızlı olan yerler niye öyle çıkmış anlamadım Yıldızla işaretli yerlerde s-e-n-d-e-r yazıyor. Her ihtimale karşı belirtiyim. -