Описание функционирования программы
МИНИСТЕРСТВО ОБРАЗОВАНИЯ И НАУКИ
РОССИЙСКОЙ ФЕДЕРАЦИИ
ФЕДЕРАЛЬНОЕ АГЕНСТВО ПО ОБРАЗОВАНИЮ
МОСКОВСКИЙ ГОСУДАРСТВЕННЫЙ КОЛЛЕДЖ
ЭЛЕКТРОМЕХАНИКИ И ИНФОМАЦИОННЫХ ТЕХНОЛОГИЙ
Курсовая работа
по дисциплине "Технология Разработки Программных Продуктов"
на тему "Программа Таймер"
Разработал:
Студент IV курса группы П2-09
Куранов Александр Владимирович
Проверил:
Асоскова Галина Алексеевна
МОСКВА
2013
Содержание
Введение
1 Анализ технического задания
2 Разработка блок-схем алгоритма
3 Разработка и описание программы
4 Руководство пользователя
4.1 Назначение программы
4.2 Условие работы с программой
4.3 Описание функционирования программы
5 Исходный код программы
Вывод
Список использованных источников
Введение
Требуется разработать программу «Таймер». Заданы ряд требований по выполнению работы. Программа будет написана на языке Delphi 7. Delphi обеспечивает быстроту работы, легкость компиляции, совместимость, интеграционную способность и т.д.
Анализ требований технического задания
|
|
Программа «Таймер», которую необходимо написать в данной работе, предназначена для отображения сообщения и воспроизведения звукового сигнала по истечению заданного времени.
Основным компонентом программы является Timer. Так же имеется возможность изменения звукового сигнала в исходном коде. Все что требуется пользователю, это выбрать интервал времени. Как только пройдет тот интервал времени, который установил пользователь, программа автоматически запустит мелодию и покажет сообщение.
Все функции установки таймера достаточно просты и удобны. Таймер имеет красивую иконку и спокойный фон.
Для наглядности работы алгоритма программы построим блок-схему.
Разработка блок-схем алгоритмов
Блок-схема поясняет весь алгоритм работы программы. При запуске программы появляется диалоговое окно, которое предлагает вам ввести интервал. После нажатия кнопки "Пуск" запускается таймер и одновременно выводится оставшееся время. Во время работы программы таймер можно остановить с помощью кнопки "Стоп". После окончания времени интервала вам будет выведено сообщение "Заданный интервал истек" и будет включен звуковой сигнал.
|
|
Блок-схема алгоритма работы программы представлена на рисунке 2.1.
Рисунок 2.1 – Блок-схема алгоритма работы таймера
Разработка и описание программы
Рассмотрим более детально реализованные в программе функции. Главная функция программы - счет оставшегося времени, эта возможность реализована в цифровой форме. Цифровая форма более удобна, так как отображается точное время в формате мм – сс.
Для получения остатка времени используется системная функция Timer.
Возможность установить время реализована с помощью стандартных компонентов Edit и UpDown.
Используются кнопки типа Button, для включения и выключения таймера.
Основные процедуры, используемые для реализации часов:
procedure ShowTime - выводит сколько времени осталось.
procedure TForm1.FormCreate(Sender: TObject) - процедура создания формы.
procedure TForm1.Timer1Timer(Sender: TObject) - процедура счета оставшегося времени.
procedure TForm1.Button1Click(Sender: TObject) - процедура включения, выключения таймера.
Руководство пользователя
Назначение программы
Назначение программы – отображение сообщения и воспроизведение звукового сигнала по истечению заданного времени.
|
|
Условие работы с программой
Для работы программы необходимы:
- процессор с частотой 100 МГц(при использовании совместно с Windows 98) и не менее 400МГц (для использования совместно с Windows 2000/ME/2003 Server/XP/Vista/7 или альтернативной системой при использовании программ эмулирования работы Windows)
- операционная система Windows 98/2000/ME/2003Server/XP/Vista/7 или альтернативная система с использованием программ эмулирования работы Windows
- манипулятор мышь и клавиатура
- объем дискового пространства 5 Мб
- оперативная память 64 Мб и более.
Описание функционирования программы
Чтобы начать работу с программой, необходимо запустить файл Timer.exe.
Запуск программы сопровождается появлением диалогового главного окна:
Указываем количество минут и секунд в интервале с помощью компонентов UpDown, либо вводом значений в поля:
После ввода интервала нажимаем кнопку "Пуск":
И сразу открывается окно с количеством оставшегося времени и кнопкой "Стоп", для досрочной остановки таймера:
При нажатии на кнопку "Стоп" таймер возвращается в исходную позицию с формой для повторного ввода интервала.
|
|
По истечению времени будет показано сообщение о завершении, воспроизведен звуковой сигнал и форма вернется в исходную позицию:
Исходный код программы
unit Unit 1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls, StdCtrls, MPlayer, ComCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
Edit1: TEdit;
Edit2: TEdit;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Timer1: TTimer;
MediaPlayer1: TMediaPlayer;
UpDown1: TUpDown;
UpDown2: TUpDown;
procedure FormCreate(Sender: TObject);
procedure Timer1Timer(Sender: TObject);
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
const
SOUND = 'tada.wav';
var
MediaPlayer : TMediaPlayer;
min: integer;
sec: integer;
procedure ShowTime;
var
buf: string[20];
begin
if min < 10 then
buf:='0'+IntToStr(min) + ':'
else
buf:=IntToStr(min) + ':';
if sec < 10 then
buf:=buf + '0' + IntToStr(sec)
else
buf:=buf + IntToStr(sec);
Form1.Label3.Caption:=buf;
end;
procedure TForm1.FormCreate(Sender: TObject);
var
pWinDir: PChar;
sWinDir: String[80];
begin
Form1.Label3.Visible:=false;
MediaPlayer:= TMediaPlayer.Create(self);
MediaPlayer.ParentWindow:=Form1.Handle;
MediaPlayer.Visible:=False;
GetMem(pWinDir, 80);
GetWindowsDirectory(pWinDir, 80);
sWinDir:=pWinDir;
MediaPlayer.FileName:=sWinDir + '\media\' + SOUND;
try
MediaPlayer.Open;
except
on EMCIDeviceError do;
end;
end;
procedure TForm1.Timer1Timer(Sender: TObject);
begin
sec:=sec-1;
ShowTime;
if (min = 0) and (sec = 0) then
begin
try
MediaPlayer.Play;
except
on EMCIDeviceError do;
end;
Timer1.Enabled:=False;
ShowMessage('Заданный интервал истек');
Button1.Caption:='Пуск';
Label3.Visible:=False;
Label1.Visible:=True;
Edit1.Visible:=True;
Label2.Visible:=True;
Edit2.Visible:=True;
UpDown1.Visible:=True;
UpDown2.Visible:=True;
exit;
end;
if (sec = 0) and (min > 0) then
begin
sec:=60;
min:=min-1;
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
if Form1.Timer1.Enabled then
begin
Timer1.Enabled:=False;
Button1.Caption:='Пуск';
Label3.Visible:=False;
Label1.Visible:=True;
Edit1.Visible:=True;
Label2.Visible:=True;
Edit2.Visible:=True;
UpDown1.Visible:=True;
UpDown2.Visible:=True;
end
else
begin
min:=StrToInt(Edit1.Text);
Sec:=StrToInt(Edit2.Text);
if (sec = 0) and (min = 0) then
begin
ShowMessage ('Надо задать интервал!');
exit;
end;
Timer1.Enabled:=True;
Label1.Visible:=False;
Edit1.Visible:=False;
Label2.Visible:=False;
Edit2.Visible:=False;
UpDown1.Visible:=False;
UpDown2.Visible:=False;
Label3.Visible:=True;
Button1.Caption:='Стоп';
ShowTime ;
end ;
end ;
end .
Вывод
В ходе выполнения курсовой работы была разработана программа «Таймер», которая предназначена для уведомления пользователя об окончании указанного промежутка времени. Реализация программы удовлетворяет условию технического задания и имеет дружественный пользователю интерфейс.
Список использованных источников
1. Кучеренко, В. П. Тонкости программирования на Delphi [Текст]: Учебное пособие / В. П. Кучеренко. – М.: «Познавательная книга плюс», 2000. – 192 с.: ил. – 4100 экз. – ISBN 5-8321-0066-2 (в пер.).
2. Архангельский, А. Я. Приемы программирования в Delphi [Текст]: Учебное пособие / А.Я. Архангельский. – М.: ООО «Бином-Пресс», 2004. – 848 с.: ил.
3. Вирт Н. Алгоритмы + структуры = программы. [Текст]: М.: Мир, 1985.
4. Касьянов В.Н. Графы в программировании: обработка, визуализация и применение. / В.А. Евстигнеев – СПб.: БХВ-Петербург, 2003. – 1104 с.
Дата добавления: 2018-10-26; просмотров: 695; Мы поможем в написании вашей работы! |
Мы поможем в написании ваших работ!