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

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

высшего образования

«Уфимский государственный нефтяной технический университет»

Кафедра «Цифровые технологии и моделирование»

РАЗРАБОТКА ПРИЛОЖЕНИЯ В СРЕДЕ DELPHI

Пояснительная записка к курсовой работе по дисциплине

Информатика и программирование

Выполнил(а) студент(ка) группы

БПИ-17-01 Хисамутдинова Р.Ф.

Принял преподавателькаф. ЦТиМ Сидоров М.Е.

Уфа 2018



Содержание

приложение программный время дата

Отчет по курсовой работе

Постановка задачи

Функции манипулирования датами и временем

Блок-схема программы

Создание формы

Листинг программы

Результат тестирование

Вывод по выполненной работе

Список литературы



Отчет по курсовой работе

Разработать приложения электронные часы с сохранением настроек в реестреWindous Delphi

Главная форма проекта

Данный проект реализует функциональность электронных часов и разработан с целью демонстрации применении реестра Windous для сохранения настроек и данных приложения.

Использование Delphi позволяет создавать как самые простые приложений, на разработку которых требуется 2-3 часа, так и серьезные корпоративные проекты, предназначенных для работы десятков и сотен пользователей. Вследствие чего Delphi предназначен не только для программистов-профессионалов, им также могут пользоваться и учителя, и врачи, и преподаватели ВУЗов, и бизнесмены, все те, кто используют компьютер с чисто прикладной целью, то есть для того, чтобы быстро решить какие-то свои задачи, не привлекая для этого программистов со стороны.

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

Как же все-таки увидеть данные реестра? Очень просто. Надо нажать на кнопку "Пуск", выбрать пункт "Выполнить" и ввести название программы REGEDIT, которая отображает реестр для чтения и редактирования. Эта программа находится в каталоге windows. Помните, что некорректное изменение некоторых системных ключей в реестре может привести к постоянным сбоям в системе, может привести даже к полному краху операционной системы, поэтому изменения и удаление следует производить очень осторожно.

Внешний вид этой программы состоит из двух панелей. Левая древовидная и правая, в которой отображаются параметры ключей. Ключ - это элемент реестра, который может содержать некоторые данные или содержать другие ключи. Это древовидная структура, которая хранит в себе вложенные параметры, объединенные общей тематикой. Не буду рассказывать назначение отдельных ключей, это может занять не одну книгу, скажу только, что программы, которые работают с реестром в качестве ini файла, автоматически записывают и читают данные из глобального ключа HKEY_CURRENT_USER. Он же дублируется в ключе HKEY_USERS\ИМЯ_ТЕКУЩЕГО_ПОЛЬЗОВАТЕЛЯ.

Часы -- это устройство для отсчета времени. Существует много разных видов часов: солнечные, песочные, водяные, механические, кварцевые и электронные.

Электронные часы показывают время не при помощи стрелок и циферблата, а обозначают его цифрами на экране. Механизм таких часов представляет собой соединение различных электронных деталей -- диодов, транзисторов и т.п., плюс жидкокристаллический экран. На экране высвечиваются цифры, обозначающие время, а иногда и день недели, число и месяц, а также обозначения многочисленных функций, которые могут выполнять часы: будильник, таймер, секундомер и т.п.



Постановка задачи

Целью данной курсовой работы является разработка приложение в среде Delphi.

Задача курсовой работы - разработка приложение, которое должно выполнять следующие функции:

1. Показ точного времени (часы, минуты, секунды)

2. Пока точной даты (день, месяц, год)

Дополнительно были добавлены другие функции:

1. Регулирование часового пояса в зависимости от места нахождение.

2. Изменение стиля часов: стрелочные или цифровой.

3. Изменение формата времени, представлен как двенадцатичасовой или двадцать четыре часа.

4. Добавлено изменение стиля в четыре цвета: темный, светлый, яркий и стандартный.

5. Добавлено в само функционирующие приложение сведение о программном обеспечение

Описание технологии выполнения поставленной задачи.

Этапы создание программного продукта.

1. Постановка задачи - точная формулировка решения задачи на компьютере с описанием входной и выходной информации;

2. Разработка интерфейса - создание экранной формы (окна программы);

3. Алгоритм - полное и точное описание на некотором языке программирования конечной последовательности действий, которое должен выполнить исполнитель, чтобы за конечное время перейти от исходных данных к искомому результату;

4. Откладка - этап разработки компьютерной программы, на котором обнаруживают, локализует и устраняют ошибки;

5. Тестирование - процесс исследование программы с целью получения информации о качестве работы программы;

6. Документирование - включает разработку и выпуск тех отчета, содержащего постановку задачи, техническое задание, алгоритмическое решение задачи, листинг программы, примеры исходных данных и результата, а также подробную инструкцию пользования как для просто пользователя, так и для системного администратора.

Функции манипулирования датами и временем

Большинству функций манипулирования датами в качестве параметра передается переменная типа TDateTime, которая хранит информацию о дате и времени.

Для того чтобы в программе были доступны функции DayOf, WeekOf, MonthOf и некоторые другие, например, CompareTime, в ее текст надо включить ссылку на модуль DateUtils (указать имя модуля в директиве uses).

Функция	Значение
Now()	Системная дата и время -- значение типа TDateTime
DateToStr(dt)	Строка символов, изображающая дату в формате dd.mm.yyyy
TimeToStr(dt)	Строка символов, изображающая время в формате hh:mm:ss
FormatDateTime(s,dt)	Строка символов, представляющая собой дату или время. Способ представления задает строка s. Например, строка dd.mm.yyyyзадает, что значением функции является дата, а строка hh:mm -- время. Помимо символов формата, в строке s могут быть и другие символы, например, если необходимо отобразить текущее время, то строка форматирования может выглядеть так: Сейчас hh:mm. Форматы: d -- число, одна или две цифры; dd -- число, две цифры; ddd -- сокращенное название дня недели; dddd-- полное название дня недели; m -- месяц, одна или две цифры; mm -- месяц, две цифры; mmm-- сокращенное название месяца; mmmm -- полное название
DayOf(dt)	День (номер дня в месяце), соответствующий дате, указанной в качестве параметра функции
MonthOf(dt)	Номер месяца, соответствующий дате, указанной в качестве параметра функции
WeekOf(dt)	Номер недели, соответствующий дате, указанной в качестве параметра функции
YearOf(dt)	Год, соответствующий указанной дате
DayOfWeek(dt)	Номер дня недели, соответствующий указан- ной дате: 1 -- воскресенье, 2 -- понедельник, 3 -- вторник и т. д.
StartOfWeek(w)	Дата первого дня указанной недели (w -- номер недели, отсчитываемый от начала года)
HourOf(dt)	Количество часов
MinuteOf(dt)	Количество минут
SecondOf(dt)	Количество секунд
DecodeDate(dt,y,m,d)	Возвращает год, месяц и день, представленные отдельными числами
DecodeTime(dt,h,m,s,ms)	Возвращает время (часы, минуты, секунды и миллисекунды), представленное отдельными числами
EncodeDate(y,m,d)	Значение типа TDateTime, соответствующее указанной дате (y -- год, m -- месяц, d -- день)
EncodeTime(h,m,s,ms)	Значение типа TDateTime, соответствующее указанному времени (h -- часы; m -- минуты; s -- секунды; ms -- миллисекунды)
CompareDate(d1,d2)	Сравнивает две даты (значения типа TDateTime). Если даты совпадают, значение функции равно нулю, если d1 < d2 (например, d1 = 01.06.2012, a d2 = 05.06.2012), то значение функции -- "минус один", если d2 < d1, то значение функции -- "единица"
CompareTime(t1,t2)	Сравнивает два временных значения (значения типа TDateTime). Если времена совпадают, значение функции равно нулю, если t1 < t2 (например, t1 = 10:00, a t2 = 10:30), то зна- чение функции -- "минус один", если t2 < t1, то значение функции -- "единица"

Блок-схема программы

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

Создание формы

1. Создаем форму и задаем значение.

2. Устанавливаем TimeUpdateTimers.

3. Добавляем TimeInputForm и его значение.

4. Добавляем Image1

5. В Label1 задаём новые значения.



6. Добавляем Button1.

7. Далее добавляем Button2 и его значение.



8. Создаем PageControl1 и изменяем значение.

Во вкладыше «Дополнительно» значение остаются те же.

9. В Label2, Label3, Label4 меняем название «Часовой пояс», «стиль часов», «Формат».

10. Создаем ComboBox1 и присваиваем значение.

11. Так же с ComboBox2.



12. ComboBox3 задаем другие значения.

13. Во вкладыше дополнительно создается Label5 «Стиль оформления».

14. Рядом с ним устанавливается ComboBox4.

15. Создаем Button3 и задаем значения

16. Повторяем то же самое с Button4.

17. Форма выглядит следующим образом.



Листинг программы

unit Unit1;

interface

uses

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

Dialogs, ExtCtrls, StdCtrls, Menus, ComCtrls, jpeg;

type

TForm1 = class(TForm)

TimeInputForm: TLabel;

TimeUpdateTimers: TTimer;

Button1: TButton;

Button2: TButton;

Label1: TLabel;

PageControl1: TPageControl;

TabSheet1: TTabSheet;

TabSheet2: TTabSheet;

ComboBox1: TComboBox;

Label2: TLabel;

ComboBox2: TComboBox;

ComboBox3: TComboBox;

Label3: TLabel;

Label4: TLabel;

Image1: TImage;

Button3: TButton;

Label5: TLabel;

ComboBox4: TComboBox;

Button4: TButton;

Label6: TLabel;

procedure FormCreate(Sender: TObject);

procedure Vector(x0,y0,a,l: integer);

procedure DrawClock;

procedure TimeTyping;

procedure DeleteStr;

procedure TimeTypingColor (color1, color2: TColor);

procedure TimeUpdateTimersTimer(Sender: TObject);

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

procedure ComboBox2Select(Sender: TObject);

procedure ComboBox1Change(Sender: TObject);

procedure ComboBox3Change(Sender: TObject);

procedure Button3Click(Sender: TObject);

procedure ComboBox4Change(Sender: TObject);

procedure Button4Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

{$R *.dfm}

uses

DateUtils, // для доступа к SecondOf, MinuteOf и HourOf

Registry, Unit2;

const

R = 75 ; // радиус циферблата часов

var

timemexanik: Boolean; // Используется для определения типа часов

timezona: integer; // Используется для определения часового пояса

timehour: integer; // Используется для определения количества часов

timetype: integer; // Используется для определения темы часов

x0, y0: integer; // центр циферблата

ahr,amin,asec: integer; // положение стрелок (угол)

procedure TForm1.FormCreate(Sender: TObject); // инициализация формы или то что выпол

-няется в первую очередь

var

t: TDateTime;

reg: tregistry;

timemexaniktext: Integer;

begin

timezona:= 5; // Человек зашел впервые - настройки будут

по умолчанию, так как в регистре ничего

нет, зона екатеренбург, +5

timehour:= 24; // Формат 24 часовой

timemexanik:= true; // Стрелочные часы

reg:= tregistry.create; // Начинаем работать с реестром

try

reg.RootKey:= HKEY_LOCAL_MACHINE; // Выбираем папку в реестре

reg.OpenKey('Software\Quick_Time',true); // Проверяем доступность записи

if (StrToInt(reg.ReadString('timezona')) <> 0) then // Проверяем есть ли записи в реестре

begin

timezona:= StrToInt(reg.ReadString('timezona')); //Выгружаем все сохраненные параметры

timehour:= StrToInt(reg.ReadString('timehour'));

timemexanik:= StrToBool(reg.ReadString('timemexanik'));

timetype:= StrToInt(reg.ReadString('timetype'));

ComboBox1.ItemIndex:= timezona-2; // Заполняем поля как было

сохранено, -2 используется так как разница

между часовым поясом и местом нахождения

в 2 единицы

timemexaniktext:= 0;

if (timemexanik = true) then

begin

timemexaniktext:= 1;

end;

ComboBox2.ItemIndex:= timemexaniktext;

ComboBox3.Text:= IntToStr(timehour) + '-часовой формат';

TimeTyping; // Выбираем сохраненное оформление

end;

finally

reg.free;

end;

if (timemexanik = false) then // Если вдруг выбраны цифровые часы то удаляем стрелки

begin

DeleteStr;

end;

x0:= 229; // Место расположения по горизонтали центра стрелки

y0:= 89; // Место расположения по вертикали центра стрелки

t:= IncHour(IncHour(Now(),-5),timezona); // Текущее время

ahr:= 90 - HourOf(t)*30-(MinuteOf(Today)div 12)*6; // Положение стрелки часов

amin:= 90 - MinuteOf(t)*6; // Положение стрелки минут

asec:= 90 - SecondOf(Today)*6; // Положение стрелки секунд

TimeUpdateTimers.Interval:= 1000; // таймер обновления времени 1 сек

TimeUpdateTimers.Enabled:= True; // пуск таймера

end;

procedure TForm1.Vector(x0,y0: integer; a, l: integer); //функция рисования -вычерчивает

вектор заданной длины из точки

(x0,y0), x0,y0 - начало вектора, a -

угол между осью x и вектором, l

длина вектора

const

GRAD = 0.0174532; // коэффициент пересчета угла из градусов в радианы

var

x,y: integer; // координаты конца вектора

begin

Canvas.MoveTo(x0,y0);

x:= Round(x0 + l*cos(a*GRAD));

y:= Round(y0 - l*sin(a*GRAD));

Canvas.LineTo(x,y);

end;

procedure TForm1.DrawClock; // рисуем стрелки

var // шаг секундной и минутной стрелок 6 градусов

t: TDateTime; // часовой - 30

begin

if (timemexanik = true) Then

begin

Canvas.Pen.Color:= clWhite; // стераем изображения стрелок

Canvas.Pen.Width:=3;

Vector(x0,y0, ahr, R-28);

Vector(x0,y0, amin, R-23);

Vector(x0,y0, asec, R-15);

t:= Now(); //Запоминаем в переменную текущее время

ahr:= 90 - HourOf(t)*30-(MinuteOf(t)div 12)*6; // новое положение стрелок

amin:= 90 - MinuteOf(t)*6;

asec:= 90 - SecondOf(t)*6;

Canvas.Pen.Width:= 3; // Рисуем стрелки снова

Canvas.Pen.Color:= clBlack; // Часовая

Vector(x0,y0, ahr, R-28);

Canvas.Pen.Width:= 2; // Минутная

Canvas.Pen.Color:= clBlack;

Vector(x0,y0, amin, R-23);

Canvas.Pen.Width:= 1; // Секундная

Canvas.Pen.Color:= $00FF8000;

Vector(x0,y0, asec, R-15);

end;

end;

procedure TForm1.TimeUpdateTimersTimer(Sender: TObject); // Обновление параметров часов

var

dlavremeni: String;

stringtimes: String;

myHour, myMin, mySec, myMilli: Word;

begin

DecodeTime(time, myHour, myMin, mySec, myMilli); // раскладываем время по частям,

на часы, минуты и секунды

if (timehour = 12) then // Проверяем какие настройки стоят в параметрах

begin

if (myHour > 12) then // Если стоит 12 часов то проверяем какое сейчас

время РМ или АМ

begin

dlavremeni:= timetostr(IncHour(IncHour(IncHour(time,-5),timezona), -12));

stringtimes:= ' PM';

end

else

begin

dlavremeni:= timetostr(IncHour(IncHour(time,-5),timezona));

stringtimes:= ' AM';

end

end

else // Если время остается 24 часовом формате то не

меняем и выводим обычное время

begin

dlavremeni:= timetostr(IncHour(IncHour(time,-5),timezona));

stringtimes:= '';

end;

TimeInputForm.Caption:=dlavremeni;

Label6.Caption:= stringtimes;

Label1.Caption:= FormatDateTime('dd.mm.yyyy', IncHour(IncHour(Now,-5),timezona));

DrawClock;

end;

procedure TForm1.Button1Click(Sender: TObject); // Нажатие на клавишу настройки

begin

if (PageControl1.Visible = false) then // Если было скрыто

begin

Form1.Height:= 433; // Увеличиваем длину формы

PageControl1.Visible:= true; // Отображаем настройки

end

else // Иначе если было открыто

begin

Form1.Height:= 295; // Уменьшаем форму

PageControl1.Visible:= false; // Скрываем настройки

end;

end;

procedure TForm1.Button2Click(Sender: TObject); // Кнопка закрытия программы

begin

Form1.close;

end;

procedure TForm1.ComboBox2Select(Sender: TObject); // Изменение типа часов

var

i: integer;

begin

i:= ComboBox2.ItemIndex;

case i of

0: // Если выбрали цифровые часы

begin

DeleteStr;

end;

1: // Если выбрали стрелочные часы

begin

timemexanik:= true; // Присваиваем глобальной переменной значение

истина, что бы понимать, что используются

стрелочные часы

Image1.Visible:= true; // Отображаем изображение с цифрами на

которых расположены часы

TimeInputForm.Visible:= false; // Скрываем цифровые часы

end;

end;

end;

procedure TForm1.ComboBox1Change(Sender: TObject); // Выбор часового пояса из

выпадающего списка и присвоение

значения глобальной переменной

var

i: integer;

begin

i:= ComboBox1.ItemIndex;

timezona:= ComboBox1.ItemIndex + 2;

end;

procedure TForm1.ComboBox3Change(Sender: TObject); // Выбор типа часов 12 часов или 24

var

i: integer;

begin

i:= ComboBox3.ItemIndex;

case i of

0: timehour:= 12;

1: timehour:= 24;

end;

end;

procedure TForm1.Button3Click(Sender: TObject); // Кнопка сохранения в реестр, работает

аналогично чтению, только записывает

и создает данные

var

reg: tregistry;

begin

reg:= tregistry.create;

try

reg.RootKey:= HKEY_LOCAL_MACHINE;

reg.OpenKey('Software\Quick_Time',true);

reg.WriteString('timezona', IntToStr(timezona));

reg.WriteString('timehour', IntToStr(timehour));

reg.WriteString('timemexanik', BoolToStr(timemexanik));

reg.WriteString('timetype', IntToStr(timetype));

finally

reg.free;

end;

end;

procedure TForm1.ComboBox4Change(Sender: TObject); // Выбираем стиль оформления

формы часов

var

i: integer;

begin

i:= ComboBox4.ItemIndex;

timetype:= i + 1;

TimeTyping;

end;

procedure TForm1.TimeTyping; // Процедура которая работает с оформлениями

begin

case timetype of // В зависимости от выбранного типа выбирает

оттенки и обращается к функции которая уже меняет цвета

1: TimeTypingColor(clWindowText, clWindow);

2: TimeTypingColor(clWindow, clWindowText);

3: TimeTypingColor($0080FF80, $00FF8000);

4: TimeTypingColor(clAqua, clWindowText);

end;

ComboBox4.ItemIndex:= timetype-1; // При первом входе возможно поле выбора будет

пустым, поэтому мы заполняем ее данными из переменной

if PageControl1.Visible = tr // при запуске программы нам нужно оставить

скрытыми настройки, поэтому дополнительная проверка

begin

PageControl1.Visible:= false; // Сначала скрываем панель, потом снова

отображаем, это необходима для корректного

отображения цвета

PageControl1.Visible:= true;

end;

end;

procedure TForm1.TimeTypingColor(color1, color2: TColor); // Тут происходит смена цветов,

на входе 2 цвета, 1-й цвет фона,

2-й цвет шрифтов

begin

Form1.Color:= color1; // Цвет основной формы

TimeInputForm.Color:= color1; // Цвет фона часов

Label1.Color:= color1; // Цвет фона даты

TimeInputForm.Font.Color:= color2; // Цвет текста часов

Label1.Font.Color:= color2; // Цвет текста даты

Label2.Font.Color:= color2; // Остальные текста, тоже необходимо поменять для улучшения читабельности

Label3.Font.Color:= color2;

Label4.Font.Color:= color2;

Label5.Font.Color:= color2;

end;

procedure TForm1.Button4Click(Sen // Открываем вторую форму со сведениями о ПО

begin

Form2.Show;

end;

procedure TForm1.DeleteStr(); // Тут происходит удаление стрелок

begin

Image1.Visible:= false; // Скрываем изображение на которой расположенны стрелочные часы

timemexanik:= false; // Присваиваем глобальной переменной значение

ложь, что бы понимать что используются цифровые часы

TimeInputForm.Visible:= true; // Отображаем цифровые часы

Canvas.Pen.Color:= clWhite; // Так как изменился тип часов нужно закрасить

стрелки, цвет = цвету фона, стрелки расположены

на изображении, сответственно цвет всегда белый

Canvas.Pen.Width:=3; // Ширина площади закрашиваемой

Vector(x0,y0, ahr, R-28); // Часовая стрелка часов

Vector(x0,y0, amin, R-23); // Минутная стрелка часов

Vector(x0,y0, asec, R-15); // Секундная стрелка часов

end;

end.

unit Unit2;

interface

uses

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

Dialogs, StdCtrls, jpeg, ExtCtrls;

type

TForm2 = class(TForm)

Image1: TImage;

Label1: TLabel;

Label2: TLabel;

private

{ Private declarations }

Public

{ Public declarations }

end;

var

Form2: TForm2;

implementation

{$R *.dfm}

end.

Результат тестирование

1. Запускаем приложение. После запуска, появляется окно, на котором можно увидеть горизонтальную форум, вместе с меню. На форме находятся электронные часы.

Снизу можем увидеть две кнопки «Настройки» и «Закрыть».

2. Нажимая на «Настройки» выходит вкладыш.

3. «Настройки» имеют три функции:

1) Изменение часового пояса.

2) Изменение стиль часов.

3) Изменение формата часов.

4. Меняем все стандартные настройки.

5. Заходим в раздел «Дополнительно».

6. Меняем стиль оформления. Представлены четыре варианта. При нажатии кнопки «Сохранить настройки», настройки сохраняются.

7. Нажимая на кнопку «О программном обеспечение», выходит сведение о приложение.

8. При нажатие кнопке «Закрыть», приложение зарывается.



Вывод по выполненной работе

В соответствие с вариантом из листа задания, было разработано приложение электронные часы. Для решения поставленной задачей была выбрана среда разработки Delphi7, в отчёт были описаны данной среды.

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

Основные задачи:

1. Показ точного времени (часы, минуты, секунды)

2. Пока точной даты (день, месяц, год)

Дополнительно были добавлены другие функции:

1. Регулирование часового пояса в зависимости от места нахождение.

2. Изменение стиля часов: стрелочные или цифровой.

3. Изменение формата времени, представлен как двенадцатичасовой или двадцать четыре часа.

4. Добавлено изменение стиля в четыре цвета: темный, светлый, яркий и стандартный.

5. Добавлено в само функционирующие приложение сведение о программном обеспечение

Перед разработкой была создана блок-схема процедур в соответствии с основным требованиями и дополнительными функциями.

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



Список литературы

1. Культин Н. Б. Delphi в задачах и примерах. 3-е изд., перераб. и доп. СПб.: БХВ-Петербург, 2012. 288 с.: ил.

2. Бакженова И.Ю. Delphi 7. Самоучитель программиста. 2003 год. 448 стр.

3. Фаронов, В. Система программирования Delphi: учебное пособие / В. Фаронов. СПб.: БХВ-Петербург, 2005. 912 с.

4. Малинин В.В. Delphi «Уроки для начинающих. Методические указания для студентов всех специальностей» - редактор электронной версии ©2003 ЦИТ СГГА - издатель «Все права защищены.»

5. Иллюстрированный самоучитель по Delphi 7 для начинающих http://samoychiteli.ru/document27136.html.

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