Размещено на http://www.allbest.ru/

Размещено на http://www.allbest.ru/

Федеральное агентство по образованию

ГОУ ВПО Рыбинская государственная авиационная технологическая академия имени П. А. СОЛОВЬЕВА

Факультет радиотехники, электроники и информатики

Кафедра вычислительных систем

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

по дисциплине

Системное программное обеспечение

на тему

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

Пояснительная записка

ТА 230101.01.89.000 П3

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

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

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

Рыбинск 2010

Содержание

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

Введение

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

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

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

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

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

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

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

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

Размещено на http://www.allbest.ru/

Размещено на http://www.allbest.ru/

Рисунок 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 с.

Размещено на Allbest.ru