Часы-будильник-таймер-секундомер

Федеральное агентство по образованию ГОУ ВПО Рыбинская государственная авиационная технологическая академия имени П. А. СОЛОВЬЕВА Факультет радиотехники, электроники и информатики Кафедра вычислительных систем

КУРСОВАЯ РАБОТА

по дисциплине Системное программное обеспечение на тему

«Часы-будильник-таймер-секундомер»

Пояснительная записка ТА 230 101.01.89.000 П3

Студент группы ВС — 07 Хохонов Д.А.

Руководитель канд. техн. наук, доцент Тонкий Л. В.

Нормоконтролер канд. техн. наук, доцент (Тонкий Л. В.)

Рыбинск 2010

• Введение
• 1 Анализ технического задания
• 2 Разработка блок-схем алгоритма
• 3 Разработка и описание программы
• 4 Руководство пользователя
• 4.1 Назначение программы
• 4.2 Условие работы с программой
• 4.3 Описание функционирования программы
• 5 Текст программы
• Вывод
• Список использованных источников

Требуется разработать программу «Часы-будильник-таймер-секундомер». Заданы ряд требований по выполнению работы. Программа будет написана на языке Delphi 7. Delphi обеспечивает быстроту работы, легкость компиляции, совместимость, интеграционную способность и т. д.

1. Анализ требований технического задания

Программа «Часы — будильник — таймер — секундомер», которую необходимо написать в данной работе, предназначена для отображения времени в цифровой.

Программа имеет доступ к системному времени. Так же имеется возможность выбора звукового сигнала для таймера и будильника. Все что требуется пользователю, это выбрать мелодию и установить нужное время. Как только наступит тот момент времени, который установил пользователь, программа автоматически запустит выбранную им мелодию.

Все функции установки будильника и таймера достаточно просты и удобны, тоже самое касается и секундомера. Часы имеют удобную форму и красивый фон. При необходимости их можно переместить по экрану. Они всегда будут на рабочем столе и пользователь всегда будет знать время.

Для наглядности работы алгоритма программы построим блок-схему.

2. Разработка блок-схем алгоритмов

Блок-схема поясняет весь алгоритм работы программы. При запуске программы появляется диалоговое окно, которое предлагает вам выбрать мелодию, которая будет проигрываться в сигнале будильника и таймера. Одновременно с запуском программы запускается секундомер, который будет показывать сколько времени вы используете эту программу. Так же имеется и другой секундомер, который можно запустить при желании пользователя. Выбрать секундомер, таймер или будильник можно нажав на окне, в котором располагаются часы, правую кнопку мыши. Установка параметров устанавливается вручную. Чтобы подтвердить запуск, необходимо нажать кнопку «Установить». Имеется возможность сброса. Для этого нужно нажать соответствующую кнопку. Блок-схема алгоритма работы программы представлена на рисунке 2.1.

Рисунок 2.1 — Блок-схема алгоритма работы органайзера

3. Разработка и описание программы

В данной программе реализовано отображение времени в цифровой форме с секундомером, имеющим точность 10 знаков, а так же присутствует дизайнерская проработка.

Рассмотрим более детально реализованные в программе функции. Главная функция программы — отображение времени, эта возможность реализована в цифровой форме. Цифровая форма более удобна, так как отображается точное время в формате чч — мм — сс.

Для получения времени используется системная функция Time, а для отображения ее на экране функция Timetostr.

При перемещении часов изменяется задний фон, а так же цвет отображения времени.

Возможность установить будильник на нужное время реализована с помощью стандартного компонента изменения даты и времени.

Возможность активации будильника представлена в цифровой форме. Используются кнопки типа Button, для включения будильника и установки времени, для изменения времени звонка.

Каждый элемент задания (часы, секундомер, таймер) располагаются на отдельной форме. Звуковой сигнал воспроизводится с общего музыкального проигрывателя.

Основные процедуры, используемые для реализации часов:

procedure FormCreate (Sender: TObject) — процедура создания формы.

procedure Timer1Timer (Sender: TObject) — процедура работы таймера, который получает время.

procedure N1Click (Sender: TObject) — процедура вызова таймера.

procedure C1Click (Sender: TObject) — процедура вызова секундомера.

procedure N2Click (Sender: TObject) — процедура выхода из программы.

procedure N3Click (Sender: TObject) — процедура вызова будильника.

procedure N4Click (Sender: TObject) — процедура вызова перемещения часов.

procedure Button1Click (Sender: TObject) — процедура установления.

procedure Button2Click (Sender: TObject) — процедура сброса.

procedure Button3Click (Sender: TObject) — процедура выхода из окна.

4. Руководство пользователя

4.1 Назначение программы

Назначение программы — отображение времени в цифровой форме с возможностью вызова секундомера.

4.2 Условие работы с программой

Для работы программы необходимы:

- процессор с частотой 100 МГц (при использовании совместно с Windows 98) и не менее 400МГц (для использования совместно с Windows 2000/ME/2003 Server/XP или альтернативной системой при использовании программ эмулирования работы Windows)

— операционная система Windows 98/2000/ME/2003Server/XP или альтернативная система с использованием программ эмулирования работы Windows

— манипулятор мышь и клавиатура

— объем дискового пространства 5 Мб

— оперативная память 64 Мб и более.

4.3 Описание функционирования программы

Чтобы начать работу с программой, необходимо запустить файл Taim.exe.

Запуск программы сопровождается появлением диалогового главного окна:

Выбираем в этом окне мелодию, которая будет звучать в будильнике и таймере и жмем кнопку «Открыть». Появится главная форма программы:

После этого для совершения каких-либо действий необходимо на главной форме нажать правой кнопкой мыши:

Затем можно выбрать соответствующие действия. Т. е. вызвать секундомер, таймер, будильник, перемещение формы с часами или завершить работу с программой и выйти.

Допустим, выбран секундомер, тогда появится следующее окно:

Нажав кнопку «Показать», запустится секундомер. Остановить его можно нажав кнопку «Стоп». Обнулить секундомер позволяет кнопка «Остановить».

Допустим, выбран Таймер, тогда появится окно:

Таймер выставляется вручную и активизируется кнопкой «Установить». После отсчета таймера запускается мелодия. Остановить таймер можно кнопкой «Остановить"ю

Допустим, выбран будильник, тогда появится следующее окно:

Будильник устанавливается вручную. Запуск будильника осуществляется кнопкой «Установить», чтобы сбросить будильник необходимо нажать кнопку «Сбросить».

Допустим, выбрано перемещение, тогда появится окно:

Нажав соответствующие кнопки форма с часами переместится в указанные места.

5. Текст программы

unit Unit1;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, XPMan, ExtCtrls, StdCtrls, Menus, ImgList;

type

TForm1 = class (TForm)

Label1: TLabel;

Timer1: TTimer;

Timer2: TTimer;

Timer3: TTimer;

XPManifest1: TXPManifest;

Image1: TImage;

PopupMenu1: TPopupMenu;

C1: TMenuItem;

N1: TMenuItem;

N2: TMenuItem;

N3: TMenuItem;

N4: TMenuItem;

Edit1: TEdit;

Edit2: TEdit;

Edit3: TEdit;

Edit4: TEdit;

Edit5: TEdit;

Edit6: TEdit;

Timer4: TTimer;

procedure FormCreate (Sender: TObject);

procedure Timer1Timer (Sender: TObject);

procedure N1Click (Sender: TObject);

procedure C1Click (Sender: TObject);

procedure N2Click (Sender: TObject);

procedure N3Click (Sender: TObject);

procedure N4Click (Sender: TObject);

procedure Timer2Timer (Sender: TObject);

procedure Timer3Timer (Sender: TObject);

procedure Timer4Timer (Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

Now: TDateTime;

hour, min, sec, msec: word; //для преобразования

sectime, sectime1: TDateTime;

mscount, msrealcount, msreal: integer;

h, m, s, ms, mks: word;

h1, m1, s1, ms1: word;

h2, m2, s2, ms2: integer;

start: boolean;

implementation

uses Unit2, Unit3, Unit4, Unit5;

{$R *.dfm}

procedure TForm1. FormCreate (Sender: TObject);

var

hRgn: Cardinal;

begin

start:=True;

form1.Timer2.Enabled:=true;

hRgn := CreateEllipticRgn (0,0,Width, Height);

SetWindowRgn (Handle, hRgn, false);

Now := Time; // получаем время

DecodeTime (Now, hour, min, sec, msec);

mscount:=hour*60*60*1000+min*60*1000+sec*1000+msec;

form1.Image1.Picture.LoadFromFile ('top15.bmp');

Label1.Caption := TimeToStr (Time) {ф-ция, кот возвращает текущее системное время}

end;

procedure TForm1. Timer1Timer (Sender: TObject);

begin

Label1.Caption := TimeToStr (Time) {ф-ция, кот возвращает текущее системное время}

end;

procedure TForm1. N1Click (Sender: TObject);

begin

Form3.show;

end;

procedure TForm1. C1Click (Sender: TObject);

begin

form2.show;

end;

procedure TForm1. N2Click (Sender: TObject);

begin

Form1.Close;

end;

procedure TForm1. N3Click (Sender: TObject);

begin

Form4.show;

end;

procedure TForm1. N4Click (Sender: TObject);

begin

Form5.show;

end;

procedure TForm1. Timer2Timer (Sender: TObject);

begin

Sectime1:=time;

DecodeTime (sectime1,h1,m1,s1,ms1);

msrealcount:=h1*60*60*1000+m1*60*1000+s1*1000+ms1;

msreal:=msrealcount-mscount;

m2:=msreal mod (60*60*1000);

h2:=msreal div (60*60*1000);

s2:=m2 mod (60*1000);

m2:=m2 div (60*1000);

ms2:=s2 mod 1000;

s2:=s2 div 1000;

form1.Edit1.Text:=inttostr (h2);

form1.Edit2.Text:=inttostr (m2);

form1.Edit3.Text:=inttostr (s2);

form1.Edit4.Text:=inttostr (ms2);

end;

procedure TForm1. Timer3Timer (Sender: TObject);

begin

Sectime1:=time;

DecodeTime (sectime1,h1,m1,s1,ms1);

msrealcount:=h1*60*60*1000+m1*60*1000+s1*1000+ms1;

msreal:=msrealcount-mscount;

m2:=msreal mod (60*60*1000);

h2:=msreal div (60*60*1000);

s2:=m2 mod (60*1000);

m2:=m2 div (60*1000);

ms2:=s2 mod 1000;

s2:=s2 div 1000;

mks:=ms2*2;

form1.Edit5.Text:=Copy (IntToStr (mks), 1,3);

end;

procedure TForm1. Timer4Timer (Sender: TObject);

begin

Sectime1:=time;

DecodeTime (sectime1,h1,m1,s1,ms1);

msrealcount:=h1*60*60*1000+m1*60*1000+s1*1000+ms1;

msreal:=msrealcount-mscount;

m2:=msreal mod (60*60*1000);

h2:=msreal div (60*60*1000);

s2:=m2 mod (60*1000);

m2:=m2 div (60*1000);

ms2:=s2 mod 1000;

s2:=s2 div 1000;

mks:=ms2*3;

form1.Edit6.Text:=Copy (IntToStr (mks), 1,3);

end;

end.

unit Unit2;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls, ExtCtrls, MPlayer;

type

TForm2 = class (TForm)

Edit1: TEdit;

Edit2: TEdit;

Edit3: TEdit;

Edit4: TEdit;

Edit5: TEdit;

Edit6: TEdit;

Timer1: TTimer;

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

Button1: TButton;

Button2: TButton;

Button3: TButton;

Timer2: TTimer;

Timer3: TTimer;

procedure Timer1Timer (Sender: TObject);

procedure Button1Click (Sender: TObject);

procedure Button3Click (Sender: TObject);

procedure Button2Click (Sender: TObject);

procedure FormCreate (Sender: TObject);

procedure Timer2Timer (Sender: TObject);

procedure Timer3Timer (Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form2: TForm2;

implementation

var

sectime, sectime1: TDateTime;

mscount, msrealcount, msreal: integer;

h, m, s, ms: word;

h1, m1, s1, ms1: word;

h2, m2, s2, ms2: integer;

start: boolean;

{$R *.dfm}

procedure TForm2. Timer1Timer (Sender: TObject);

begin

Sectime1:=time;

DecodeTime (sectime1,h1,m1,s1,ms1);

msrealcount:=h1*60*60*1000+m1*60*1000+s1*1000+ms1;

msreal:=msrealcount-mscount;

m2:=msreal mod (60*60*1000);

h2:=msreal div (60*60*1000);

s2:=m2 mod (60*1000);

m2:=m2 div (60*1000);

ms2:=s2 mod 1000;

s2:=s2 div 1000;

form2.Edit1.Text:=inttostr (h2);

form2.Edit2.Text:=inttostr (m2);

form2.Edit3.Text:=inttostr (s2);

form2.Edit4.Text:=inttostr (ms2);

start:=false;

end;

procedure TForm2. Button1Click (Sender: TObject);

begin

form2.Edit1.Visible:=true;

form2.Edit2.Visible:=true;

form2.Edit3.Visible:=true;

form2.Edit4.Visible:=true;

form2.Edit5.Visible:=true;

Sectime:=time;

DecodeTime (sectime, h, m, s, ms);

if start then

begin

form2.Button1.caption:='Стоп';

form2.Timer1.Enabled:=true ;

form2.Timer2.Enabled:=true;

form2.Timer3.Enabled:=true;

mscount:=h*60*60*1000+m*60*1000+s*1000+ms;

end

else

begin

form2.Button1.caption:='Старт';

form2.Timer1.Enabled:=false;

form2.Timer2.Enabled:=false;

form2.Timer3.Enabled:=false;

end ;

start:=True;

end;

procedure TForm2. Button3Click (Sender: TObject);

begin

form2.Hide;

end;

procedure TForm2. Button2Click (Sender: TObject);

begin

form2.Edit1.Text:=('0');

form2.Edit2.Text:=('0');

form2.Edit3.Text:=('0');

form2.Edit4.Text:=('000');

form2.Edit5.Text:=('000');

form2.Edit6.Text:=('000');

end;

procedure TForm2. FormCreate (Sender: TObject);

begin

form2.Timer1.Enabled:=false;

form2.Timer2.Enabled:=false;

form2.Timer3.Enabled:=false;

end;

procedure TForm2. Timer2Timer (Sender: TObject);

var

mks: integer;

begin

Sectime1:=time;

DecodeTime (sectime1,h1,m1,s1,ms1);

msrealcount:=h1*60*60*1000+m1*60*1000+s1*1000+ms1;

msreal:=msrealcount-mscount;

m2:=msreal mod (60*60*1000);

h2:=msreal div (60*60*1000);

s2:=m2 mod (60*1000);

m2:=m2 div (60*1000);

ms2:=s2 mod 1000;

s2:=s2 div 1000;

mks:=ms2*2;

form2.Edit5.Text:=Copy (IntToStr (mks), 1,3);

start:=false;

end;

procedure TForm2. Timer3Timer (Sender: TObject);

var mks: integer;

begin

Sectime1:=time;

DecodeTime (sectime1,h1,m1,s1,ms1);

msrealcount:=h1*60*60*1000+m1*60*1000+s1*1000+ms1;

msreal:=msrealcount-mscount;

m2:=msreal mod (60*60*1000);

h2:=msreal div (60*60*1000);

s2:=m2 mod (60*1000);

m2:=m2 div (60*1000);

ms2:=s2 mod 1000;

s2:=s2 div 1000;

mks:=ms2*3;

form2.Edit6.Text:=Copy (IntToStr (mks), 1,3);

start:=false;

end;

begin

Start:=True;

end.

unit Unit3;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls, Buttons, MPlayer, ExtCtrls, XPMan;

type

TForm3 = class (TForm)

Timer1: TTimer;

MediaPlayer1: TMediaPlayer;

BitBtn1: TBitBtn;

BitBtn2: TBitBtn;

BitBtn3: TBitBtn;

Edit1: TEdit;

Edit2: TEdit;

Edit3: TEdit;

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

XPManifest1: TXPManifest;

OpenDialog1: TOpenDialog;

procedure BitBtn3Click (Sender: TObject);

procedure BitBtn1Click (Sender: TObject);

procedure BitBtn2Click (Sender: TObject);

procedure Timer1Timer (Sender: TObject);

procedure FormCreate (Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form3: TForm3;

TotalTaim, sreal, taimer: longint;

timeTiam:Tdatetime;

h, m, s, ms, i: word;

h1,m1,s1:longint;

TaimHour, TaimMin, TaimSec: word;

taimerF:boolean;

implementation

uses Unit2;

{$R *.dfm}

procedure TForm3. BitBtn3Click (Sender: TObject);

begin

Form3.Close;

end;

procedure TForm3. BitBtn1Click (Sender: TObject);

begin

TaimHour:=StrToInt (edit1.Text);

TaimMin:=StrToInt (edit2.Text);

TaimSec:=StrToInt (edit3.Text);

timeTiam:=time;

DecodeTime (timeTiam, h, m, s, ms);

TotalTaim:=TaimHour*60*60+TaimMin*60+TaimSec+h*60*60+m*60+s;

form3.Timer1.Enabled:=true;

end;

procedure TForm3. BitBtn2Click (Sender: TObject);

begin

form3.Timer1.Enabled:=FALSE;

form3.Edit1.Text:='0';

form3.Edit2.Text:='0';

form3.Edit3.Text:='0';

form3.MediaPlayer1.Stop;

end;

procedure TForm3. Timer1Timer (Sender: TObject);

begin

timeTiam:=time;

DecodeTime (timeTiam, h, m, s, ms);

SReal:=h*60*60+m*60+s;

taimer:=TotalTaim-Sreal;

m1:=taimer mod (60*60);

h1:=taimer div (60*60);

s1:=m1 mod (60);

m1:=m1 div (60);

if taimer<=0 then

begin

form3.Timer1.Enabled:=false;

end;

form3.Edit1.Text:=inttostr (h1);

form3.Edit2.Text:=inttostr (m1);

if s1>=0 then form3. Edit3.Text:=inttostr (s1);

if ((h1=0) and (s1=0) and (m1=0)) then

begin

form3.MediaPlayer1.Enabled:=true;

form3.MediaPlayer1.open;

form3.MediaPlayer1.Play;

end;

end;

procedure TForm3. FormCreate (Sender: TObject);

begin

if OpenDialog1. Execute then {если диалог состоялся}

begin

form3.MediaPlayer1.FileName := form3. OpenDialog1.FileName;

end;

form3.MediaPlayer1.Enabled:=false;

form3.Edit1.Text:='0';

form3.Edit2.Text:='0';

form3.Edit3.Text:='1';

end;

end.

unit Unit4;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls, MPlayer, ExtCtrls, XPMan, ComCtrls;

type

TForm4 = class (TForm)

XPManifest1: TXPManifest;

Timer1: TTimer;

Edit1: TEdit;

Edit2: TEdit;

Edit3: TEdit;

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

Button1: TButton;

Button2: TButton;

Button3: TButton;

procedure Button1Click (Sender: TObject);

procedure Button2Click (Sender: TObject);

procedure Button3Click (Sender: TObject);

procedure Timer1Timer (Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form4: TForm4;

bh, bm, bs: word;

h1, m1, s1, ms1: word;

sectime, sectime1: TDateTime;

hour, min, sec, msec: word;

//bm, bh, bs: word;

Now: TDateTime;

Time1: TTime;

TaimHour, TaimMin, TaimSec: word;

TotalTaim1, TotalTaim: longint;

signal: boolean;

implementation

uses Unit3;

{$R *.dfm}

procedure TForm4. Button1Click (Sender: TObject);

begin

signal:=true;

bh:=strtoint (form4.Edit1.Text);

bm:=strtoint (form4.Edit2.Text);

bs:=strtoint (form4.Edit3.Text);

end;

procedure TForm4. Button2Click (Sender: TObject);

begin

signal:=false;

form4.Edit1.Text:='0';

form4.Edit2.Text:='0';

form4.Edit3.Text:='0';

form3.MediaPlayer1.stop;

end;

procedure TForm4. Button3Click (Sender: TObject);

begin

form4.close;

end;

procedure TForm4. Timer1Timer (Sender: TObject);

begin

Now := Time;

DecodeTime (Now, hour, min, sec, msec);

if (signal=true)and ((hour=bh)and (min=bm)and (sec=bs)) then

begin

form3.MediaPlayer1.Enabled:=true;

form3.MediaPlayer1.Open;

form3.MediaPlayer1.Play;

end;

end;

end.

unit Unit5;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls;

type

TForm5 = class (TForm)

Button1: TButton;

Button2: TButton;

Button3: TButton;

procedure Button1Click (Sender: TObject);

procedure Button2Click (Sender: TObject);

procedure Button3Click (Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form5: TForm5;

implementation

uses Unit1;

{$R *.dfm}

procedure TForm5. Button1Click (Sender: TObject);

begin

form1.Align:=alleft;

form1.Image1.Picture.LoadFromFile ('1.bmp');

form1.Label1.Font.Color:=clblue;

end;

procedure TForm5. Button2Click (Sender: TObject);

begin

form1.Align:=alright;

form1.Image1.Picture.LoadFromFile ('2.bmp');

form1.Label1.Font.Color:=clred;

end;

procedure TForm5. Button3Click (Sender: TObject);

begin

form1.Align:=albottom;

form1.Image1.Picture.LoadFromFile ('3.bmp');

form1.Label1.Font.Color:=clgreen;

end;

end.

Вывод

В ходе выполнения курсовой работы была разработана программа «Часы — будильник — таймер — секундомер», которая предназначена для вывода времени в цифровой форме. Реализация программы удовлетворяет условию технического задания и имеет дружественный пользователю интерфейс.

программирование delphi часовой

Список использованных источников

1. Кучеренко, В. П. Тонкости программирования на Delphi [Текст]: Учебное пособие / В. П. Кучеренко. — М.: «Познавательная книга плюс», 2000. — 192 с.: ил. — 4100 экз. — ISBN 5−8321−0066−2 (в пер.).

2. Архангельский, А. Я. Приемы программирования в Delphi [Текст]: Учебное пособие / А. Я. Архангельский. — М.: ООО «Бином-Пресс», 2004. — 848 с.: ил.

3. Вирт Н. Алгоритмы + структуры = программы. [Текст]: М.: Мир, 1985.

4. Касьянов В. Н. Графы в программировании: обработка, визуализация и применение. / В. А. Евстигнеев — СПб.: БХВ-Петербург, 2003. — 1104 с.