Реферат Годинник-будильник-таймер-секундомір

(Sender: TObject); N2Click ( Sender: TObject); N3Click (Sender: TObject); N4Click (Sender: TObject); Timer2Timer (Sender: TObject); Timer3Timer (Sender: TObject); Timer4Timer (Sender: TObject);

{Private declarations}

{Public declarations};

: TForm1;: TDateTime;

hour, min, sec, msec: word;// для перетворення

sectime, sectime1: TDateTime;, msrealcount, msreal: integer;, m, s, ms, mks: word;, m1, s1, ms1: word;, m2, s2, ms2: integer; : boolean;

Unit2, Unit3, Unit4, Unit5;

{$ R *. dfm}

TForm1.FormCreate (Sender: TObject);: Cardinal;: = True;. Timer2.Enabled: = true;: = CreateEllipticRgn (0,0, Width, Height); (Handle, hRgn, false);: = Time;// отримуємо

Label1.Caption: = TimeToStr (Time) {ф-ція, кіт повертає поточний системний час}

end;

TForm1.Timer1Timer (Sender: TObject);. Caption: = TimeToStr (Time) {ф-ція, кіт повертає поточний системний час};

TForm1.N1Click (Sender: TObject);. show;; TForm1.C1Click (Sender: TObject);. show;;

TForm1.N2Click (Sender: TObject);. Close;;

TForm1.N3Click (Sender: TObject);. show;;

TForm1.N4Click (Sender: TObject);. show;;

TForm1.Timer2Timer (Sender: mod (60 * 60 * 1000);: = msreal div (60 * 60 * 1000);: = m2 mod (60 * 1000);: = m2 div (60 * 1000);: = s2 mod 1000;: = s2 div

TForm1.Timer3Timer (Sender: mod (60 * 60 * 1000);: = msreal div (60 * 60 * 1000);: = m2 mod (60 * 1000);: = m2 div (60 * 1000);: = s2 mod 1000;: = s2 div 1000;: = ms2 * 2;. Edit5.Text: = Copy (IntToStr (mks), 1,3);;

TForm1.Timer4Timer (Sender: mod (60 * 60 * 1000);: = msreal div (60 * 60 * 1000);: = m2 mod (60 * 1000);: = m2 div (60 * 1000);: = s2 mod 1000;: = s2 div 1000;: = ms2 * 3;. Edit6.Text: = Copy (IntToStr (mks), 1,3);;

.

Unit2;

, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, StdCtrls, ExtCtrls, MPlayer;

= class (TForm): TEdit;: TEdit;: TEdit;: TEdit;: TEdit;: TEdit;: TTimer;: TLabel;: TLabel;: TLabel;: TButton;: TButton;: TButton;: TTimer;: TTimer; Timer1Timer (Sender: TObject); Button1Click (Sender: TObject); Button3Click (Sender: TObject); Button2Click (Sender: TObject); FormCreate (Sender: TObject); Timer2Timer (Sender: TObject); Timer3Timer (Sender: TObject);

{Private declarations}

{Public declarations};

: TForm2;

, sectime1: TDateTime;, msrealcount, msreal: integer;, m, s, ms: word;, m1, s1, ms1: word;, m2, s2, ms2: integer;: boolean;

...