Реферат Розробка програми "Будильник"

Тема: Курсовые обзорные

gn="justify"> Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, StdCtrls, ExtCtrls, DateUtils, ComCtrls,, MPlayer; = class (TForm): TEdit;: TTimer;: TButton; : TLabel;: TUpDown;: TUpDown;: TLabel;: TLabel;: TLabel; FormCreate (Sender: TObject); CreateTrayIcon (n: integer; Tip: String); DeleteTrayIcon (n: integer); Button1Click (Sender: TObject); Timer1Tick (Sender: TObject); SetSound; UpDown1Click (Sender: TObject; Button: TUDBtnType); UpDown2Click (Sender: TObject; Button: TUDBtnType);

{Private declarations}

{Public declarations}; = WM_USER + 123;: TForm1;, AlarmMin: Word;// час встановлене на будильнику

AlarmSet: Boolean;// прапор: чи встановлений будильник

MediaPlayer: TMediaPlayer;

{$ R *. dfm} TForm1.FormCreate (Sender: TObject);. Caption: = '00 ';. Caption: = '00';. Title: = 'Будильник';;: = false;; TForm1.CreateTrayIcon (n: integer; Tip: string);: TNotifyIconData;

// заповнимо структуру icondata,

// поля які визначає значок

// на System Tray

with icondata do: = SizeOf (TNotifyIconData);

Wnd: = Self.Handle;// вікно (додаток), яке представляє значок

uId: = n;// номер значка: = NIF_ICON or NIF_MESSAGE or NIF_TIP;// що треба зробити: = NOTIFY;: = Application.Icon.Handle; (szTip, Tip);// рядок підказки; _NotifyIcon (NIM_ADD, @ icondata);

end;

// видаляє картинку з System Tray

procedure TForm1.DeleteTrayIcon (n: integer);: TNotifyIconData;

// заповнимо структуру nidata,

// рядок якої визначають значок

// на System Tray

with icondata do: = SizeOf (TNotifyIconData);: = Self.Handle;: = n;; _NotifyIcon (NIM_DELETE, @ icondata);; TForm1.Button1Click (Sender: TObject);

// встановити будильник: = StrToInt (Label3.Caption);: = StrToInt (Label4.Caption);: = true; (1, 'Будильник' +. Caption + ':' + Label4.Caption );// помістити картинку в System Tray

// c підказкою про час спрацьовування будильника

Form1.Hide;; TForm1.Timer1Tick (Sender: TObject);, curMin: word;

// отримати поточний час: = HourOf (Now);: = MinuteOf (Now);

if AlarmSet// будильник установленbegin

// Якщо настав встановлений момент часу

if (curHour = AlarmHour) and (curMin = AlarmMin) begin.Show;: = false;

try.Play;// відтворити звуковий фрагмент

exceptEMCIDeviceError do;; (Edit1.Text);// вивести повідомлення (1);

end

// ...