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

Табл1. Характеристики приводов NABCO

Рис1. Дверная конструкция автоматических дверей

3. Разработка проекта моделирования работы автоматическихраздвижных дверей с помощью системы объектно-ориентированного программирования «EmbarcaderoRADStudio 2010»

Разработанная программа позволяет моделировать работу автоматической раздвежной двери  в случайном потоке людей. При  приближении объектов(людей) к двери  срабатывает датчик движения и двери  открываются. При отсутствии людей  в зоне датчика движения двери  закрываются. Программа написана на языке objectpascal. Программа запускается файлом project1 формата  .exe

3.1 Внешний вид программы

3.2 Алгоритм работы программы

 

 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 

   3.3 Искодный код программы 

   unitUnit1; 

   interface 

   uses

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

     Dialogs, jpeg, ExtCtrls, StdCtrls; 

   type

     TForm1 = class(TForm)

       Image1: TImage;

       Image2: TImage;

       Image3: TImage;

       Image4: TImage;

       Timer1: TTimer;

       Panel1: TPanel;

       Image5: TImage;

       Timer2: TTimer;

       Label1: TLabel;

       Image6: TImage;

       Timer3: TTimer;

       Label2: TLabel;

       Image7: TImage;

       Timer4: TTimer;

       Label3: TLabel;

       Button1: TButton;

       Button2: TButton;

   procedure Timer1Timer(Sender: TObject);

   procedureFormCreate(Sender: TObject);

   procedure Timer2Timer(Sender: TObject);

   procedure Timer3Timer(Sender: TObject);

   procedure Timer4Timer(Sender: TObject);

   procedure Button1Click(Sender: TObject);

   procedure Button2Click(Sender: TObject);

   private

   { Private declarations }

   public

   { Public declarations }

   end; 

   var

     Form1: TForm1;

   l,l1,l2: integer; 

   implementation 

   {$R *.dfm} 

   procedure TForm1.Button1Click(Sender: TObject);

   begin

   Timer1.Enabled:=true;

   end; 

   procedure TForm1.Button2Click(Sender: TObject);

   begin

   timer1.Enabled:=false;

   end; 

   procedure TForm1.FormCreate(Sender: TObject);

   begin

   Form1.DoubleBuffered:=true;

   Image5.Top:=480;

   Image6.Top:=480;

   Image6.left:=176+random(200);

   Image5.left:=176+random(200);

   Image7.left:=176+random(200);

   l:=random(15);

   l1:=random(15);

   l2:=random(15);

   end; 

   procedure TForm1.Timer1Timer(Sender: TObject);

   begin

   ifStrtoint(label2.Caption)=l1 then

   begin

   Timer3.Enabled:=false;

   if Image6.Top> 100 then

   Image6.Top:=Image6.Top-2

   else begin l1:=0; Image6.Top:=480; Image6.left:=176+random(200); timer3.Enabled:=true; l1:=random(15); end;

   end; 

   ifStrtoint(label1.Caption)=l then

   begin

   Timer2.Enabled:=false;

   if Image5.Top> 100 then

   Image5.Top:=Image5.Top-2

   else begin l:=0; Image5.Top:=480; Image5.left:=176+random(200); timer2.Enabled:=true; l:=random(15); end;

   end; 

   ifStrtoint(label3.Caption)=l2 then

   begin

   Timer4.Enabled:=false;

   Image7.Visible:=true;

   if Image7.Top<480 then

   Image7.Top:=Image7.Top+2

   else begin Image7.visible:=false;  l2:=0; Image7.Top:=95; Image7.left:=176+random(200); timer4.Enabled:=true; l2:=random(15); end;

   end; 

   if (image5.Top<250) or (image6.Top<250) or ((image7.Top>100) and (image7.Top<250)) then

   begin

   if Image3.Left>31 then

   Image3.Left:=Image3.Left-3;

   if image4.left<457 then

   Image4.Left:=Image4.Left+3;

   end; 

   if (image5.Top>250) and (image6.Top>250) and ((image7.Top<100)or (image7.Top>250)) then

   begin

   if Image3.Left<176 then

   Image3.Left:=Image3.Left+3;

   if image4.left>320 then

   Image4.Left:=Image4.Left-3;

   end; 

   end; 

   procedure TForm1.Timer2Timer(Sender: TObject);

   begin      if strtoint(label1.caption)<15 then

   label1.Caption:=IntToStr(Strtoint(label1.Caption)+1) else label1.Caption:=IntToStr(0);

   end; 

   procedure TForm1.Timer3Timer(Sender: TObject);

   begin

   ifstrtoint(label2.caption)<15 then

   label2.Caption:=IntToStr(Strtoint(label2.Caption)+1) else label2.Caption:=IntToStr(0);

   end; 

   procedure TForm1.Timer4Timer(Sender: TObject);

   begin

   ifstrtoint(label3.caption)<15 then

   label3.Caption:=IntToStr(Strtoint(label3.Caption)+1) else label3.Caption:=IntToStr(0);

   end; 

   end.

 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 

   Заключение

В данной курсовой работе я постаралсярассказать о основных типах и видах автоматических раздвижных дверей, рассмотреть их структуру и принцип работы. Так  же мы выяснили с какими целями и в каких местах их стоит устанавливать. В системе объектно-ориентированного программирования «EmbarcaderoRADStudio 2010» я постарался создать программу моделирования работы автоматической раздвижной  двери в случайном потоке людей. 
 
 
 
 
 
 
 
 
 
 
 
 

   Список  использованной литературы 

1. http://www.vorotanew.ru/doors.php
2. http://www.volizar.ru/technology/meteriali_i_tehnologii/avtomaticheskie_dveri_razdviznie.htm
3. Нил Дж. Рубенкинг. Язык программирования Delphi для «чайников». Введениев Borland Delphi 2006 = Delphi for Dummies. — М.: Диалектика, 2007. — 336 с.
4. ХавьерПашеку.Программированиев Borland Delphi 2006 дляпрофессионалов = Delphi for .NET Developer’s Guide. — М.: Вильямс, 2006. — 944 с.
5. А. Н. Вальвачев, К. А. Сурков, Д. А. Сурков, Ю. М. Четырько.Программирование на языке Delphi. Учебное пособие. — 2005.

 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 

Приложение 1. Диск с программой