Реферат: Записная книжка на Delphi 7

Кнопку BitBtn1 подпишем: ‘Аудио-файл’, так как при нажатие на кнопку будем выбирать аудио-файл.

Кнопку BitBtn2 подпишем: ‘Остан.таймер’, так как при нажатие на кнопку будет выключаться таймер.

Кнопку BitBtn4 подпишем: ‘Ok’, так как при нажатие на кнопку программа начнёт свою работу.

Кнопку BitBtn4 подпишем: ‘Закрыть’, так как при нажатие на кнопку будет закрываться программа, но таймер не перестанет работать.

В свойстве Items компонента ComboBox1 нужно вставить названия часов, например, введём, в столбик, без запятых, в столбик: ‘0 часов,1 час,2 часа,3 часа,4 часа,5 часов’. А в ComboBox2 можно вставить, без запятых, в столбик: ‘0 мин.,1 мин.,2 мин.,3 мин.,4 мин.,5 мин.,10 мин.,15 мин.,20 мин.,25 мин.,30 мин.,35 мин.,40 мин.,45 мин.,50 мин.,55 мин.’.

- 18 -

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

Описание процедур и функций

1. Нам нужно глобально объявить несколько переменных, то есть чтобы можно было использовать эти переменные в любой процедуре или функции. Для этого Окне редактора Кода находим оператор VAR и после него пишем:

Hour,Sec,min,a,b:longint;

Переменная Hour и Min будут использоваться для отображение счётчика, а переменны A и B для вычисления общего времени (нужно для Timer ).

2.Компонент Timer1 будет использоваться, если аудио файл не выбран. Когда пройдёт заданное время, то выводиться сообщение без звукового сигнала. В свойство OnTimer нужно вставить следующий код:

timer4.Enabled:=false; // выключить таймер 3

timer1.Enabled:=false;// выключить таймер 1

BitBtn4.Click;//нажать кнопку

ShowMessage('Напоменание о:"'+ edit1.Text +'"');// вывести сообщение

BitBtn3.Enabled:=true ;//можно нажимать на кнопку

BitBtn2.Enabled:=false; //нельзя нажимать на кнопку

3.Компонент Timer2 будет использоваться, если аудио файл должен воспроизвестись. Когда пройдёт заданное время, то выводиться сообщение с звуковым сигналом. В свойство OnTimer нужно вставить следующий код:

mediaplayer1.Open;// Открыть аудио-файл

mediaplayer1.Play;// Воспроизвести файл

timer4.Enabled:=false; //выключить таймер3

timer2.Enabled:=false;// выключить таймер2

BitBtn4.Click;// нажать кнопку

ShowMessage('Напоменание о:"'+ edit1.Text +'"');// вывести сообщение

mediaplayer1.Stop;// выкличить аудио-файл

BitBtn2.Enabled:=true;// на кнопку можно нажимать

4.Компонент Timer3 будет использоваться для показа счётчика. В свойство OnTimer нужно вставить следующий код:

Label1.Caption:='Осталось: '+IntToStr(hour)+' час.'+IntToStr(min-1)+' мин.'+IntToStr(sec-1)+' сек.';// надпись на метке

sec:=sec-1;// переменную sec уменьшить на 1

if sec = 0 then begin // если sec = 0 то