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

Введение

1. Этапы разработки программы

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

1.2 Язык программирования Delphi

1.3 Пользовательский интерфейс

2. Описание исходных текстов программы

2.1 Создание простейшей кнопки

2.2 Опции окна редактирования

2.3 Функции

3. Процедуры

3.1 Процедура работы таймера времени

Заключение

Глоссарий

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

Введение

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

Сейчас компьютер является неотъемлемой частью работы людей и не только. Они помогают систематизации полученные данных, как в рабочих целях, так и в учебных.

В данном курсовом проекте была создана “Программа Будильник”. Она представляет собой интерфейс с 5-ю будильниками, с разными вариантами подачи сигнала.

1. Этапы разработки программы

программа будильник таймер delphi

Простейшей и, пожалуй, наиболее часто используемой кнопкой является кнопка Button расположенная на странице библиотеки Standard.

Основное с точки зрения внешнего вида свойство кнопки -- Caption (надпись). В надписях кнопок можно предусматривать использование клавиш ускоренного доступа, выделяя для этого один из символов надписи. Перед символом, который должен соответствовать клавише ускоренного доступа, ставится символ амперсанта «&». Этот символ не появляется в надписи, а следующий за ним символ оказывается подчеркнутым. Тогда пользователь может вместо щелчка на кнопке нажать в любой момент клавишу Alt совместно с клавишей выделенного символа.

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

Свойство Cancel, если его установить в true, определяет, что нажатие пользователем клавиши Esc будет эквивалентно нажатию на данную кнопку. Это свойство целесообразно задавать равным true для кнопок «Отменить» в различных диалоговых окнах, чтобы можно было выйти из диалога, нажав на эту кнопку или нажав клавишу Esc. Свойство Default, если его установить в true, определяет, что нажатие пользователем клавиши ввода Enter будет эквивалентно нажатию на данную кнопку, даже если данная кнопка в этот момент не находится в фокусе. Правда, если в момент нажатия Enter в фокусе находится другая кнопка, то все-таки сработает именно кнопка в фокусе.

Из методов, присущих кнопкам, имеет смысл отметить один -- Click. Выполнение этого метода эквивалентно щелчку на кнопке, т.е. вызывает событие кнопки OnClick. Этим можно воспользоваться, чтобы продублировать какими-то другими действиями пользователя щелчок на кнопке. Пусть, например, вы хотите, чтобы при нажатии пользователем клавиши с символом «С» или «с» в любой момент работы с приложением выполнялись операции, предусмотренные в обработчике события OnClick кнопки Button1. Поскольку неизвестно, какой компонент будет находиться в фокусе в момент этого события, надо перехватить его на уровне формы. Такой перехват осуществляется, если установить свойство формы KeyPreview в true. Тогда в обработчике события формы OnKeyPress можно написать оператор

if (key='C' or key='c') then Button1.Click;

Если пользователь ввел символ «С» или «с», то в результате будет выполнен обработчик щелчка кнопки Button1.

Аналогичные параметры могут быть применены и к другим компонентам из пользовательского интерфейса Delphi.

2.2. Опции окна редактирования

В компоненте Edit вводимый и выводимый текст содержится в свойстве Text. Это свойство можно устанавливать в процессе проектирования или задавать программно. Выравнивание текста, как это имело место в метках и панелях, невозможно. Перенос строк тоже невозможен. Текст, не помещающийся по длине в окно, просто сдвигается, и пользователь может перемещаться по нему с помощью курсора. Свойство AutoSize в окнах редактирования имеет смысл, отличный от смысла аналогичного свойства меток: автоматически подстраивается под размер текста только высота, но не ширина окна.

Окна редактирования снабжены многими функциями, свойственными большинству редакторов. Например, в них предусмотрены типичные комбинации «горячих» клавиш: Ctrl-C -- копирование выделенного текста в буфер обмена Clipboard (команда Copy), Ctrl-X -- вырезание выделенного текста в буфер Clipboard (команда Cut), Ctrl-V -- вставка текста из буфера Clipboard в позицию курсора (команда Paste), Ctrl-Z -- отмена последней команды редактирования.

Edit можно использовать и просто как компоненты отображения текста. Для этого надо установить в true его свойство ReadOnly и целесообразно установить AutoSelect в false. В этом случае пользователь не сможет изменять отображаемый текст, и окно редактирования становится подобным меткам. При использовании окон редактирования для вывода, ввода и редактирования чисел необходимо использовать функции взаимного преобразования строк и чисел. Для вывода это описанные при рассмотрении меток функции FloatToStr и IntToStr. При вводе это функции StrToFloat -- преобразование строки в значение с плавающей запятой, и StrToInt -- преобразование строки в целое значение. Если вводимый текст не соответствует числу (например, содержит недопустимые символы), то функции преобразования генерируют исключение EConvertError.

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

if not (Key in ['0'..'9', ',']) then Key:= #0;

Этот оператор подменит все символы, кроме цифр и запятой, нулевым символом, который не занесется в текст окна Edit.

Внешний вид формы в дизайнере форм. Иерархия расположения компонентов на форме приведена на рис.1

Рис. 9 - Иерархия расположения компонентов на форме

2.3 Функции

Ниже приводится описание функций:

// Процедуры чтения времени и дня недели.

Function Time_F: String;

Function Day_F: Integer;

// Процедуры проверки дня недели на каждом будильнике.

Function Day_F1: Boolean;

Function Day_F2: Boolean;

Function Day_F3: Boolean;

Function Day_F4: Boolean;

Function Day_F5: Boolean;

Первые из них читают и форматируют данные времени и дня недели.

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

3. Процедуры

Ниже приводится описание функций:

// Процедуры активации шэлементов будильников.

Procedure Budilnic1(X: Integer);

Procedure Budilnic2(X: Integer);

Procedure Budilnic3(X: Integer);

Procedure Budilnic4(X: Integer);

Procedure Budilnic5(X: Integer);

// Процедуры проверок подачи звукового сигнала.

Procedure Proverka_B1;

Procedure Proverka_B2;

Procedure Proverka_B3;

Procedure Proverka_B4;

Procedure Proverka_B5;

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

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

3.1 Процедура работы таймера времени

procedure TMy_PForm1.Timer1Timer(Sender: TObject);

Производит сравнение данных будильников и текущего времени раз в 1 секунду.

Рис. 10

Заключение