{$ R *. dfm}
TForm2.Timer1Timer (Sender: mod (60 * 60 * 1000);: = msreal div (60 * 60 * 1000);: = m2 mod (60 * 1000);: = m2 div (60 * 1000);: = s2 mod 1000;: = s2 div
TForm2.Button1Click (Sender: then.Button1.caption: = 'Стоп';. Timer1.Enabled: = true
TForm2.Button3Click (Sender: TObject);. Hide;;
TForm2.Button2Click (Sender:
TForm2.FormCreate (Sender: TObject);. Timer1.Enabled: = false;. Timer2.Enabled: = false;. Timer3.Enabled: = false;;
TForm2.Timer2Timer (Sender: TObject);: 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);: = false;; TForm2.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 * 3;. Edit6.Text: = Copy (IntToStr (mks), 1,3);: = false;;: = True;.
Unit3;
, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, StdCtrls, Buttons, MPlayer, ExtCtrls, XPMan;
= class (TForm): TTimer;: TMediaPlayer;: TBitBtn;: TBitBtn;: TBitBtn;: TEdit;: TEdit;: TEdit;: TLabel;: TLabel;: TLabel;: TXPManifest;: TOpenDialog; BitBtn3Click (Sender: TObject); BitBtn1Click (Sender: TObject); BitBtn2Click (Sender: TObject); Timer1Timer (Sender: TObject); FormCreate (Sender: TObject);
{Private declarations}
{Public declarations};
:
Unit2;
{$ R *. dfm}
TForm3.BitBtn3Click (Sender: TObject);. Close;;
TForm3.BitBtn1Click (Sender:
TForm3.BitBtn2Click (Sender:
TForm3.Timer1Timer (Sender: TObject);: = time; (timeTiam, h, m, s, ms);: = h * 60 * 60 + m * 60 + s;: = TotalTaim -Sreal;: = taimer mod (60 * 60);: = taimer div (60 * 60);: = m1 mod (60);: = m1 div (60); taimer <= 0 then.Timer1.Enabled: = false;;. Edit1.Text: = inttostr (h1);. Edit2.Text: = inttostr (m1); s1> = 0 then form3.Edit3.Text: = inttostr (s1); ((h1 = 0) and ( s1 = 0) and (m1 = 0)) then.MediaPlayer1.Enabled: = true;. MediaPlayer1.open;. MediaPlayer1.Play;;; TForm3.FormCreate (Sender: TObject); OpenDialog1.Execute then {якщо діалог відбувся} . MediaPlayer1.FileName: =
.
Unit4;
, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, StdCtrls, MPlayer, ExtCtrls, XPMan, ComCtrls;
= class (TForm): TXPManifest;: TTimer;: TEdit;: TEdit;: TEdit;: TLabel;: TLabel;: TLabel;: TButton;: TButton;: TButton; Button1Click (Sender: TObject); Button2Click (Sender: TObject); Button3Click (Sender: TObject); Tim...
