Программирование

     Оглавление 

Введение2

Условие задачи2

Содержание программы2

Алгоритм решения  задачи3

Код программы4

Библиографический список7

 

            Введение

     Borland Delphi 7 – это среда быстрой разработки, в которой в качестве языка программирования используется язык Delphi.

     Язык  Delphi — язык программирования, строго типизированный на объектно-ориентированном программировании (ООП), в основе которого лежит язык Object Pascal.

     Преимущества:

- быстрота разработки  приложения;

- высокая производительность  приложения;

- низкие требования  разработанных приложения;

- огромное количество  доступных компонентов;

- возможность  встраивания новых компонентов,  написание своих компонентов;

- и др. 

           Условие задачи

     Написать  программу Таймер. Для ввода интервала использовать компоненты UpDown.  

           Содержание  программы

     Программа состоит из одной формы и одного модуля, содержащего описание всех компонентов формы и 2 процедуры.  

     

     Форма. Интерфейс программы. 
 

Список компонентов: 

Тип	Наименование	Описание
TLabel	Label1, Label2	Предназначен  для отображения статического текста, то есть надписей и меток на Форме, которые можно изменить только программно
TTimer	Timer1	Позволяет задавать в приложении интервалы времени
TUpDown	UpDown1, UpDown2	Дает возможность изменять числовые значения (например, в текстовом поле) с помощью кнопок со стрелками и курсорных клавиш
TGroupBox	GroupBox1	Необходим для объединения нескольких компонентов и представляет собой стандартный групповой блок Windows.
TEdit	Edit1, Edit1	Однострочное  текстовое поле, служащее для ввода  данных пользователем.
TButton	Button1	Командная кнопка используется для реализации в программе команд.

 

           Алгоритм  решения задачи

1. С помощью UpDown1 и UpDown2 изменяем числовые на необходимое время
2. Нажатие на кнопку «Пуск»
3. Компонент Timer1 начинает отсчет
4. По завершению выходит сообщение «Заданный интервал истек!»

 
 
 
 
 
 
 
 
 

Код программы

type

  TForm1 = class(TForm)

    Timer1: TTimer;

    Button1: TButton;

    Edit1: TEdit;

    UpDown1: TUpDown;

    Edit2: TEdit;

    UpDown2: TUpDown;

    GroupBox1: TGroupBox;

    Label1: TLabel;

    Label2: TLabel;

    procedure Timer1Timer(Sender: TObject);

    procedure Button1Click(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end; 

var

  Form1: TForm1; 

implementation 

{$R *.dfm} 
 

var

  // интервал

  min: integer;  // минут

  sec: integer;  // секунд 

// в заголовок окна программы 
// выводится, сколько времени осталось 

procedure ShowTime;

var

    buf: string[20];

begin

  buf := ' Таймер ';

  // минуты и секунды выводим двумя цифрами

  if min < 10 then

     buf := buf + '0' + IntToStr(min) + ' : '

  else

     buf := buf + IntToStr(min) + ' : '; 

  if sec < 10 then

    buf := buf + '0' + IntToStr(sec)

  else

    buf := buf + IntToStr(sec); 

  Form1.Caption := buf;

end; 

// сигнал от таймера

procedure TForm1.Timer1Timer(Sender: TObject);

begin

  sec := sec - 1;

  if (min = 0) and (sec = 0) then

    // заданный интервал истек

    begin

      Timer1.Enabled := False; // остановить таймер

      UpDown1.Enabled := True;

      UpDown2.Enabled := True;

      Edit1.Enabled := True;

      Edit2.Enabled := True;

      Button1.Caption := 'Пуск ';

      ShowMessage(' Заданный интервал истек!');

      exit;

    end; 

  if (sec = 0) and (min > 0) then

     begin

         sec := 60;

         min := min - 1;

     end; 

  ShowTime; // показать, сколько времени осталось

end; 

// щелчок на кнопке Пуск

procedure TForm1.Button1Click(Sender: TObject);

begin

  if Form1.Timer1.Enabled then

    // таймер работает, надо остановить

    begin

      Timer1.Enabled := False;   // Стоп

      Form1.Caption := 'Таймер ';

      Button1.Caption := 'Пуск ';

      // Разрешить ввод интервала

      UpDown1.Enabled:= True;

      UpDown2.Enabled:= True;

      Edit1.Enabled := True;

      Edit2.Enabled := True;

    end 

  else

    // Таймер стоит, надо запустить

    begin

      min := UpDown1.Position;

      sec := UpDown2.Position;

      if (sec = 0) and (min = 0) then

      begin

        ShowMessage('Надо задать интервал!');

        exit;

      end; 

      Edit1.Enabled := False;

      Edit2.Enabled := False;

      UpDown1.Enabled:= False;

      UpDown2.Enabled:= False;

      Button1.Caption := 'Стоп';

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

      ShowTime;

    end;

end; 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 

Библиографический список 

   

1. Культин Н.Б. «Delphi в задачах и примерах – 2003» / Н.Б. Культин – Санкт-Петербург, издательство: «БВХ-Петербург» 2003г, 285стр.

 
   

2. Иллюстрированный  самоучитель по Delphi 7 для начинающих / Библиотека глюка - http://lib.xost.ru/