двусторонний обмен информацией между диспетчерским центром (ДЦ) и автомобилем (выдача управляющих воздействий и сообщений из ДЦ на бортовые исполнительные устройства автомобиля, передача в ДЦ информации о состоянии автомобиля);

накопление данных о состоянии автомобиля в бортовом запоминающем устройстве (БЗУ) с возможностью их последующего дистанционного извлечения (режим Black Box) по командам из ДЦ.

Технические характеристики приведены в таблице 1.

Таблица 1 – Основные технические характеристики приемника Глонасс On-line

3.2.2 ГЛОНАСС offline

Является устройством, которое позволяет отслеживать все параметры движения объекта (его координаты, скорость, курс, дату и время, данные датчиков) в пострейсовом режиме т.е. использовать устройство как «черный ящик».

ГЛОНАСС offline - это уникальный прибор созданный для работы с Российской спутниковой системой. Основой для него стал «ГЛОНАСС» приемника разработаный и производимый в г. Ижевске.

Решаемые задачи: автономный контроль состояния транспортного средства (текущих координат, скорости и направления движения, показаний внешних датчиков с привязкой по времени).

Особенности:

Обмен информацией между диспетчерским центром (ДЦ) и автомобилем происходит по окончанию рейса (либо отчётного периода, например, раз в неделю) водитель отключает прибор и сдаёт его диспетчеру. При подключении к компьютеру ГЛОНАСС offline автоматически передаёт данные о рейсе, после чего память прибора так же автоматически очищается, прибор можно отключать от компьютера и возвращать водителю либо оставлять в диспетчерской, до следующего рейса.

ГЛОНАСС offline показан на рисунке 5.

Рисунок 5 – приемник ГЛОНАСС offline

Основные технические характеристики ГЛОНАСС offline представлены в таблице 2.

Таблица 2 – Основные технические характеристики приемника ГЛОНАСС offline

В нашем случае целесообразно будет установить ГЛОНАСС online.

Кроме самих передатчиков оправданной будет установка специальных датчиков.

Датчики - это дополнительное оборудование, которое можно установить совместно с бортовыми контроллерами. Система мониторинга будет оповещать Вас о дополнительной информации, получаемой от датчиков. В отчетах Вы сможете проконтролировать эффективность работы мобильных объектов.

Для создания собственного центра мониторинга необходимо приобрести программно-аппаратный комплекс Locatrans DC и картографические данные Российской Федерации.

Программно-аппаратный комплекс Locatrans DC включает в себя следующие модули:

Locatrans Server - программное обеспечение для сбора, хранения, обработки и передачи данных. В состав Locatrans Server входит свободно распространяемая база данных MS SQL Server 2008 Express Edition;

Locatrans Admin - программное обеспечение администратора центра мониторинга, обеспечивающее настройку сервера с целью добавления, удаления и конфигурирования мобильных объектов и программ диспетчера;

Locatrans Client - программа диспетчера.

На рисунке 3 показана малая структурная схема взаимодействия программных модулей комплекса Locatrans DC.

Рисунок 6 – Малая структурная схема взаимодействия программных модулей комплекса Locatrans DC

Так как программно-аппаратный комплекс Locatrans DC дорогостоящий руководством фирмы было принято решение об аренде сервера Locatrans для получения координат у другой фирмы такси, а приложение клиента и администратора разработать самостоятельно, на основе информационной модели.

Требования к программно-аппаратному обеспечению комплекса Locatrans DC показаны в таблице 3.

Таблица 3 – Требования к программно-аппаратному обеспечению комплекса Locatrans DC

3.3 Определение стоимости комплекса мероприятий по внедрению

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

Приобретение комплекта устройств «Локотранс» и аренда сервера.

приобретение ПК для станции администратора.

приобретение модема и интернет трафика на год.

Определим размер капитальных вложений. Затраты на проектируемые мероприятия показаны в таблице 4.

Таблица 4 – Затраты на проектируемые мероприятия

Стоимость установки датчиков и приемников входит в стоимость комплекта. Общая сумма вложений, таким образом, составит:

9700*10+10000 =107000 руб.

Компьютер у фирмы уже имеется. Необходим также 3G модем и интернет трафик на месяц. Всего получается:

107000+1000=108000 руб.

Сюда можно включить интернет - трафик до конца года, это еще 11 месяцев:

300*11=3300 руб.

Итого:108000+3300=111300 руб.

3.4 Расчет рентабельности после нововведений

Итак, перейдём к расчету рентабельности и тем самым определим целесообразность предложенных нововведений.

Внедрение системы мониторинга направлено, прежде всего, на снижение издержек. Как показывает опыт, внедрение системы мониторинга позволяет снизить норму расхода топлива на 5-7 процентов (данный показатель рассчитан для АТП с парком не превышающим 100 ТС). В основном это достигается путем установления контроля за ТС на линии и повышения ответственности водителей. Для расчета берем минимальный показатель в 5%.

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

В день одну машину необходимо заправить на 700 руб. Всего 10 машин, итого:

700*10=7000 руб. на весь парк в день.

7000*365=2555000 руб. в год.

Таким образом, внедрение результатов проекта позволит сэкономить на использовании топлива:

(2555000*5)/100=127750 руб. в год

Определим срок окупаемости проекта:

Qr=, (1)

где K - размер капитальных вложений

- Эффект от внедрения

Qr=111300/ 127750=0.87=0.9

Срок окупаемости нововведения - 9 месяцев.

4. Разработка информационной модели предприятия ООО «ФОРСАЖ-ПЛЮС»

В ходе построения информационной модели было разработано приложение в объектно-ориентированной среде Delphi 7. В основе систем быстрой разработки (RAD-систем, Rapid Application Development -- среда быстрой разработки приложений) лежит технология визуального проектирования и событийного программирования, суть которой заключается в том, что среда разработки берет на себя большую часть рутинной работы, оставляя программисту работу по конструированию диалоговых окон и функций обработки событий. Производительность программиста при использовании RAD-систем -- фантастическая! Среда программирования - Delphi - весьма быстрая и удобная для разработки приложений различного назначения для Windows. Для нормальной работы программы необходим IBM совместимый компьютер с тактовой частотой процессора не ниже 144МГц и выше, оперативной памятью 16 Мб, жесткий диск объемом не менее 500Мб.

Преимущества данной среды можно выделить отдельно:

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

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

- низкие требования разработанного приложения к ресурсам компьютера;

- наращиваемость за счет встраивания новых компонент и инструментов в среду Delphi;

- возможность разработки новых компонентов и инструментов собственными средствами Delphi (существующие компоненты и инструменты доступны в исходных кодах);

- удачная проработка иерархии объектов.

При запуске приложения «Модель работы фирмы «ФОРСАЖ-ПЛЮС»» открывается главная форма.

Рисунок 7 – Главная форма приложения

Для разработки данного приложения были использованы 4 визуальных компонента: Shape (для создания точек такси и заказа), Button (для создания кнопок), Edit ( для создания окон ввода координат заказа), Timer (для создания движения объектов).

Предположим, что координаты точек такси мы получаем с помощью системы GPS Глонасс, соответственно на экране мы видим движение 10 машин такси в реальном времени. В программе получением и передачей координат занимается специальный модуль, в нашей модели координаты заказа вводим вручную, в диапазоне 500Х500. Нажимаем кнопку «Заказ» и графическая интерпретация заказа появляется на экране программы виде желтого квадрата. (рис.8)

Рисунок 8 – Точка заказа, изображенная на модели

Далее нам нужно остановить движение, для этого нажимаем кнопку «STOP». По нажатию на кнопку «Кто поедет?» происходит расчет расстояний от всех 10 точек до точки заказа и происходит выбор кратчайшего расстояния. После чего на экране видимой остается только ближайшая машина (рис.9)

Рисунок 9 – Ближайшая к заказу машина

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

Заключение

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

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

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

При разработке модели работы фирмы ООО «ФОРСАЖ-ПЛЮС» была использована среда программирования Delphi 7.0, которая представляет собой систему, которая позволяет на самом современном уровне создавать как отдельные прикладные программы, так и разветвлённые комплексные системы. В нашем случае данная среда позволила разработать наглядную и понятную информационную модель.

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

На основании данных анализа проделанной работы можно сказать, что проект по автоматизации работы автотранспортного предприятия будет выгодным и окупится за 9 месяцев после внедрения. Эффективность деятельности фирмы повысится, а значит задачи, поставленные в начале работы решены, цель работы достигнута.

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

1. Аксенов Н.Я. Единая транспортная система.-М.:Транспорт,2009

2. Балабаева И.А. Особенности функционирования общественного пассажирского транспорта./ Балабаева И.//Автомобильный транспорт. -2009.-№4.

3. Бусленко Н.П. Моделирование сложных систем. - М.: Юрайт, 2009. - 311 с.

4. Гончаров В.И. Основы менеджмента: Учебник.- Мн.: Современная школа, 2009.- 281с.

5. Рубцов С.В. Уточнение понятия «Бизнес-процесс» // Менеджмент в России и за рубежом. - 2010. - №6. - С. 26.

6. Ручкин К.А., Ручкина В.Н. Моделирование бизнес-процессов с помощью современных информационных технологий // Менеджмент в России и за рубежом. -2010.- №1. - С. 132.

7. Харисова В.Н. Глобальная спутниковая радионавигационная система ГЛОНАС.М.ИПРЖР,2011. -178с.

8. Шайкин В.В. Маркетинг транспортных услуг//Маркетинг.-2009.-№5

9. Шеремет А.Д., Негашев Е.В., Методика финансового анализа деятельности коммерческих организаций. - М.: И

10. Яценков В.С. Основы спутниковой навигации. Системы GPS NAVSTAR и ГЛОНАСС. -- М: Горячая линия-Телеком, 2010-- 272 с: ил.

11. Культин Н.Б. Delphi в задачах и примерах. - СПб.: БХВ-Петербург, 2009

12. Галисеев Г.В. Программирование в среде Delphi 7. Самоучитель. - М.: Издательский дом «Вильямс», 2011

Приложение А

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

unit Unit1;

interface

uses

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

Dialogs, ExtCtrls, StdCtrls, Buttons;

type

TForm1 = class(TForm)

Timer1: TTimer;

BitBtn1: TBitBtn;

BitBtn2: TBitBtn;

Shape1: TShape;

Shape2: TShape;

Shape3: TShape;

Shape4: TShape;

Shape5: TShape;

LabeledEdit1: TLabeledEdit;

LabeledEdit2: TLabeledEdit;

BitBtn3: TBitBtn;

BitBtn4: TBitBtn;

Shape6: TShape;

Shape7: TShape;

Shape8: TShape;

Shape9: TShape;

Shape10: TShape;

Shape11: TShape;

Panel1: TPanel;

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

Button1: TButton;

procedure FormCreate(Sender: TObject);

procedure Timer1Timer(Sender: TObject);

procedure BitBtn1Click(Sender: TObject);

procedure BitBtn2Click(Sender: TObject);

procedure BitBtn4Click(Sender: TObject);

procedure Button1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

i,x1,x2,y1,y2,x3,y3,x4,y4,x5,y5,x6,y6,x7,y7,x8,y8,x9,y9,x10,y10,x11,y11 : integer;

a1,a3,a4,a5,a2,a6,a,a7,a8,a9,a10,a11,min :Extended;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);

begin

x1 := Shape1.Left; //присвоение координат для точек

y1 := Shape1.Top;

x3 := Shape3.Left;

y3 := Shape3.Top;

x4 := Shape4.Left;

y4 := Shape4.Top;

x5 := Shape5.Left;

y5 := Shape5.Top;

x6 := Shape6.Left;

y6 := Shape6.Top;

x7 := Shape7.Left;

y7 := Shape7.Top;

x8 := Shape8.Left;

y8 := Shape8.Top;

x9 := Shape9.Left;

y9 := Shape9.Top;

x10 := Shape10.Left;

y10 := Shape10.Top;

x11 := Shape11.Left;

y11 := Shape11.Top;

DoubleBuffered := true;

end;

procedure TForm1.Timer1Timer(Sender: TObject);

begin

Timer1.Enabled:=True;

Shape1.Left := x1; // присвоение точкам координаты для движения

Shape1.Top := y1;

Shape3.Left := x3;

Shape4.Left := x4;

Shape3.Top := y3;

Shape4.Top := y4;

Shape5.Left := x5;

Shape5.Top := y5;

Shape6.Left := x6;

Shape6.Top := y6;

Shape7.Left := x7;

Shape7.Top := y7;

Shape8.Left := x8;

Shape8.Top := y8;

Shape9.Left := x9;

Shape9.Top := y9;

Shape10.Left := x10;

Shape10.Top := y10;

Shape11.Left := x11;

Shape11.Top := y11;

//===========================================x1 //движение

if (x1 <500) then

begin

x1 := x1+ random(50);

Shape1.Visible := True;

end;

if (x1 <500) then

begin

x1 := x1- random(50);

Shape1.Visible := True;

end;

//============================================x3

if (x3 <500) then

begin

x3 := x3+ random(50);

Shape3.Visible := True;

end;

if (x3 <500) then

begin

x3 := x3- random(50);

Shape3.Visible := True;

end;

////////\=============================x4

if (x4 <500) then

begin

x4 := x4+ random(50);

Shape4.Visible := True;

end;

if (x4 <500) then

begin

x4 := x4- random(50);

Shape4.Visible := True;

end;

////////////////////////////////////////x5

if (x5 <500) then

begin

x5 := x5+ random(50);

Shape5.Visible := True;

end;

if (x5 <500) then

begin

x5 := x5- random(50);

Shape5.Visible := True;

end;

if (x6 <500) then

begin

x6 := x6+ random(50);

Shape6.Visible := True;

end;

if (x6 <500) then

begin

x6 := x6- random(50);

Shape6.Visible := True;

end;

if (x7 <500) then

begin

x7 := x7+ random(50);

Shape7.Visible := True;

end;

if (x7 <500) then

begin

x7 := x7- random(50);

Shape7.Visible := True;

end;

if (x8 <500) then

begin

x8 := x8+ random(50);

Shape8.Visible := True;

end;

if (x8 <500) then

begin

x8 := x8- random(50);

Shape5.Visible := True;

end;

if (x9 <500) then

begin

x9 := x9+ random(50);

Shape9.Visible := True;

end;

if (x9 <500) then

begin

x9 := x9- random(50);

Shape9.Visible := True;

end;

if (x10 <500) then

begin

x10 := x10+ random(50);

Shape10.Visible := True;

end;

if (x10 <500) then

begin

x10 := x10- random(50);

Shape10.Visible := True;

end;

if (x11 <500) then

begin

x11 := x11+ random(50);

Shape11.Visible := True;

end;

if (x11 <500) then

begin

x11 := x11- random(50);

Shape5.Visible := True;

end;

if (x1 >=500) then //возврат точек если вышли за пределы 500 по осям

begin

x1:=490;

end;

if (x3 >=500) then

begin

x3:=490;

end;

if (x4 >=500) then

begin

x4:=490;

end;

if (x5 >=500) then

begin

x5:=490;

end;

if (x6 >=500) then

begin

x6:=490;

end;

if (x7 >=500) then

begin

x7:=490;

end;

if (x8 >=500) then

begin

x8:=490;

end;

if (x9 >=500) then

begin

x9:=490;

end;

if (x10 >=500) then

begin

x10:=490;

end;

if (x11 >=500) then

begin

x11:=490;

end;

if (x1 <=1) then

begin

x1:=10;

end;

if (x3 <=1) then

begin

x3:=10;

end;

if (x4 <=1) then

begin

x4:=10;

end;

if (x5 <=1) then

begin

x5:=10;

end;

if (x6 <=1) then

begin

x6:=10;

end;

if (x7 <=1) then

begin

x7:=10;

end;

if (x8 <=1) then

begin

x8:=10;

end;

if (x9 <=1) then

begin

x9:=10;

end;

if (x10 <=1) then

begin

x10:=10;

end;

if (x11 <=1) then

begin

x11:=10;

end;

///////////////////////////////////////////////// y1

if (y1 <500) then

begin

y1 := y1+ random(50);

Shape1.Visible := True;

end;

if (y1 <500) then

begin

y1 := y1- random(50);

Shape1.Visible := True;

end;

//////////////////////////////////////////y3

if (y3 <500) then

begin

y3 := y3+ random(50);

Shape3.Visible := True;

end;

if (y3 <500) then

begin

y3 := y3- random(50);

Shape3.Visible := True;

end;

/////////////////////////////////y4

if (y4 <500) then

begin

y4 := y4+ random(50);

Shape4.Visible := True;

end;

if (y4 <500) then

begin

y4 := y4- random(50);

Shape4.Visible := True;

end;

///////////////////////////////////////y5

if (y5 <500) then

begin

y5 := y5+ random(50);

Shape5.Visible := True;

end;

if (y5 <500) then

begin

y5 := y5- random(50);

Shape5.Visible := True;

end;

///////////////////////////////////////y6

if (y6 <500) then

begin

y6 := y6+ random(50);

Shape6.Visible := True;

end;

if (y6 <500) then

begin

y6 := y6- random(50);

Shape6.Visible := True;

end;

if (y7 <500) then

begin

y7 := y7+ random(50);

Shape7.Visible := True;

end;

if (y7 <500) then

begin

y7 := y7- random(50);

Shape7.Visible := True;

end;

if (y8 <500) then

begin

y8 := y8+ random(50);

Shape8.Visible := True;

end;

if (y8 <500) then

begin

y8 := y8- random(50);

Shape8.Visible := True;

end;

if (y9 <500) then

begin

y9 := y9+ random(50);

Shape9.Visible := True;

end;

if (y9 <500) then

begin

y9 := y9- random(50);

Shape9.Visible := True;

end;

if (y10 <500) then

begin

y10 := y10+ random(50);

Shape10.Visible := True;

end;

if (y10 <500) then

begin

y10 := y10- random(50);

Shape10.Visible := True;

end;

if (y11 <500) then

begin

y11 := y11+ random(50);

Shape11.Visible := True;

end;

if (y11 <500) then

begin

y11 := y11- random(50);

Shape11.Visible := True;

end;

if (y1 >=500) then

begin

y1:=490;

end;

if (y3 >=500) then

begin

y3:=490;

end;

if (y4 >=500) then

begin

y4:=490;

end;

if (y5 >=500) then

begin

y5:=350;

end;

if (y6 >=500) then

begin

y6:=350;

end;

if (y7 >=500) then

begin

y7:=350;

end;

if (y8 >=500) then

begin

y8:=350;

end;

if (y9 >=500) then

begin

y9:=350;

end;

if (y10 >=500) then

begin

y10:=350;

end;

if (y11 >=500) then

begin

y11:=350;

end;

if (y1 <=0) then

begin

y1:=10;

end;

if (y3 <=0) then

begin

y3:=10;

end;

if (y4 <=0) then

begin

y4:=10;

end;

if (y5 <=0) then

begin

y5:=10;

end;

if (y6 <=0) then

begin

y6:=10;

end;

if (y7 <=0) then

begin

y7:=10;

end;

if (y8 <=0) then

begin

y8:=10;

end;

if (y9 <=0) then

begin

y9:=10;

end;

if (y10 <=0) then

begin

y10:=10;

end;

if (y11 <=0) then

begin

y11:=10;

end;

end;

procedure TForm1.BitBtn1Click(Sender: TObject);

begin

Timer1.Enabled:=False;

end;

procedure TForm1.BitBtn2Click(Sender: TObject);

begin

x2 := StrToInt(LabeledEdit1.Text);

y2 := StrToInt(LabeledEdit2.Text);

Shape2.Left:=x2;

Shape2.Top:=y2;

Shape2.Visible:=True;

end;

procedure TForm1.BitBtn4Click(Sender: TObject);

begin

a1 := sqrt(((x1-x2)*(x1-x2))+((y1-y2)*(y1-y2))) ; //расчет длины от точки до клиента

a2 := sqrt(((x3-x2)*(x3-x2))+((y3-y2)*(y3-y2))) ;

a3 := sqrt(((x4-x2)*(x4-x2))+((y4-y2)*(y4-y2))) ;

a4 := sqrt(((x5-x2)*(x5-x2))+((y5-y2)*(y5-y2))) ;

a5 := sqrt(((x6-x2)*(x6-x2))+((y6-y2)*(y6-y2))) ;

a6 := sqrt(((x7-x2)*(x7-x2))+((y7-y2)*(y7-y2))) ;

a7 := sqrt(((x8-x2)*(x8-x2))+((y8-y2)*(y8-y2))) ;

a8 := sqrt(((x9-x2)*(x9-x2))+((y9-y2)*(y9-y2))) ;

a9 := sqrt(((x10-x2)*(x10-x2))+((y10-y2)*(y10-y2))) ;

a10 := sqrt(((x11-x2)*(x11-x2))+((y11-y2)*(y11-y2))) ;

if a1 < a2 then //сортировка по наименьшей длине

min := a1 else min := a2;

if a3 < min then

min := a3;

if a4 < min then

min := a4;

if a5 < min then

min := a5;

if a6 < min then

min := a6;

if a7 < min then

min := a7;

if a8 < min then

min := a8;

if a9 < min then

min := a9;

if a10 < min then

min := a10;

if min = a1 then //скрывание всех лишних точек(у которых длина больше наименьшей)

begin

Shape1.Visible:=True;

Shape3.Visible:=False;

Shape4.Visible:=False;

Shape5.Visible:=False;

Shape6.Visible:=False;

Shape7.Visible:=False;

Shape8.Visible:=False;

Shape9.Visible:=False;

Shape10.Visible:=False;

Shape11.Visible:=False;

end;

if min = a2 then

begin

Shape1.Visible:=False;

Shape3.Visible:=True;

Shape4.Visible:=False;

Shape5.Visible:=False;

Shape6.Visible:=False;

Shape7.Visible:=False;

Shape8.Visible:=False;

Shape9.Visible:=False;

Shape10.Visible:=False;

Shape11.Visible:=False;

end;

if min = a3 then

begin

Shape1.Visible:=False;

Shape3.Visible:=False;

Shape4.Visible:=True;

Shape5.Visible:=False;

Shape6.Visible:=False;

Shape7.Visible:=False;

Shape8.Visible:=False;

Shape9.Visible:=False;

Shape10.Visible:=False;

Shape11.Visible:=False;

end;

if min = a4 then

begin

Shape1.Visible:=False;

Shape3.Visible:=False;

Shape4.Visible:=False;

Shape5.Visible:=True;

Shape6.Visible:=False;

Shape7.Visible:=False;

Shape8.Visible:=False;

Shape9.Visible:=False;

Shape10.Visible:=False;

Shape11.Visible:=False;

end;

if min = a5 then

begin

Shape1.Visible:=False;

Shape3.Visible:=False;

Shape4.Visible:=False;

Shape5.Visible:=False;

Shape6.Visible:=True;

Shape7.Visible:=False;

Shape8.Visible:=False;

Shape9.Visible:=False;

Shape10.Visible:=False;

Shape11.Visible:=False;

end;

if min = a6 then

begin

Shape1.Visible:=False;

Shape3.Visible:=False;

Shape4.Visible:=False;

Shape5.Visible:=False;

Shape6.Visible:=False;

Shape7.Visible:=True;

Shape8.Visible:=False;

Shape9.Visible:=False;

Shape10.Visible:=False;

Shape11.Visible:=False;

end;

if min = a7 then

begin

Shape1.Visible:=False;

Shape3.Visible:=False;

Shape4.Visible:=False;

Shape5.Visible:=False;

Shape6.Visible:=False;

Shape7.Visible:=False;

Shape8.Visible:=True;

Shape9.Visible:=False;

Shape10.Visible:=False;

Shape11.Visible:=False;

end;

if min = a8 then

begin

Shape1.Visible:=False;

Shape3.Visible:=False;

Shape4.Visible:=False;

Shape5.Visible:=False;

Shape6.Visible:=False;

Shape7.Visible:=False;

Shape8.Visible:=False;

Shape9.Visible:=True;

Shape10.Visible:=False;

Shape11.Visible:=False;

end;

if min = a9 then

begin

Shape1.Visible:=False;

Shape3.Visible:=False;

Shape4.Visible:=False;

Shape5.Visible:=False;

Shape6.Visible:=False;

Shape7.Visible:=False;

Shape8.Visible:=False;

Shape9.Visible:=False;

Shape10.Visible:=True;

Shape11.Visible:=False;

end;

if min = a10 then

begin

Shape1.Visible:=False;

Shape3.Visible:=False;

Shape4.Visible:=False;

Shape5.Visible:=False;

Shape6.Visible:=False;

Shape7.Visible:=False;

Shape8.Visible:=False;

Shape9.Visible:=False;

Shape10.Visible:=False;

Shape11.Visible:=True;

end;

end;

procedure TForm1.Button1Click(Sender: TObject);

var

FullProgPath: PChar;

begin

FullProgPath:=PChar(Application.ExeName);

WinExec(FullProgPath,SW_SHOW);

Application.Terminate;

end;

end.

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