Программирование турникета метро

Содержание.

1. Задание
2. Описание диаграмм
1. Диаграмма использования
2. Диаграмма последовательности
3. Диаграмма активности
4. Диаграмма классов
3. Описание классов
1. Класс TCard
2. Tprocessor
3. Tform
4. Руководство пользователя

 

2.Описание диаграмм

1. Диаграмма вариантов использования

Описание.

Задачи  пассажира: 1. Вставить карту. 2. Ввести PIN код. 3. Пройти через турникет.

Задачи  блока управления: 1. Считать и  проверить карту. 2. Проверить введенный  пассажиром PIN код. 3. Снять деньги с карты. 4. Сохранить время получения средств в специальный файл. 5. Отправить сигнал на турникет о разрешении проезда. 

 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 

2.2. Диаграмма последовательности

Описание.

Пассажир  вставляет карту. 2. Блок управления считывает параметры карты во внутреннюю память и проверяет необходимые  атрибуты. 3. Блок управления выдает приглашение  о вводе PIN кода на монитор. 4. Пассажир вводит код. 5. Блок управления проверяет код. 6. Блок управления снимает необходимую сумму с карты. 6. Блок управления посылает сигнал на турникет о разрешении прохода. 7. Карта возвращается пассажиру.

2.3.Диаграмма деятельности

Описание.

Блок  управления ожидает ввода карты. Если на турникете срабатывает датчик от прохода пассажира. На турникет посылается сигнал закрытия шлагбаума.

После ввода карты происходит ее проверка. Затем вводится PIN код. Далее снимается необходимая сумма с карты. Посылается сигнал на турникет об открытии турникета. После того как пассажир начинает движение (срабатывает датчик), начинается отсчет времени 5 сек. По окончании прохода, турникет возвращается в исходное состояние.

2.4.Диаграмма классов

Класс TProcessor  содержит переменную класса TCard и использует класс формы (монитора) для вывода сообщений и другой информации.

 
3. Описание классов.

3.1 Класс TCard. 

fTypeOfCard тип integer. Содержит тип карты. Верный тип карты должен быть равен 3.

fPIN тип integer. Содержит PIN код. Состоит из 4-х цифр.

fDateLimit тип TDateTime. Содержит срок использования карты.

fBlocked тип Boolean. Содержит флаг блокировки карты.

fSumma тип integer. Сумма средств на счете владельца. 

2. Класс TProcessor.

fTryCount тип integer. Содержит количество попыток. При превышении 3 карта будет заблокирована.

fCard тип TCard. Содержит переменную, в которой содержатся все данные текущей карты.

CheckPIN(PIN:integer). Функция проверки введенного кода (передается в переменной PIN). Если код верный возвращается TRUE, иначе FALSE.

LoadAndCheckCard(fFile:integer;FileName:string). Функция загрузки карты во внутреннюю переменную и проверка необходимых атрибутов. Возвращает TRUE если карту удалось загрузить и все показатели атрибутов в норме, иначе FALSE.

GetMoney(). Функция снимает деньги с карты, если операция прошла успешно возвращает TRUE. Если на карте недостаточно средств возвращает FALSE.

BlockCard(). Устанавливает в карте атрибут блокировки в TRUE и сохраняет. 

3.3. Класс TMainForm. (Класс главной формы/монитора) 

LabelNextAction: TLabel; - выводит подсказки о дальнейшем порядке действий пользователя.

LabelStop: TLabel; - выводит надпись «СТОП», которая указывает на запрет прохода.

LabelGo: TLabel; - выводит надпись «ПРООДИ», которая указывает на возможность прохода.

LabelTimer: TLabel; - выводит количество оставшегося времени до закрытия турникета.

Timer1: TTimer; - объект, который отсчитывает время для прохода пассажира .

LabelMessage: TLabel; - выводит предупреждения и сообщения об ошибках карты или ввода данных.

procedure Timer1Timer(Sender: TObject); Процедура отсчитывает время разрешенное для прохода и по окончании переводит турникет в начальное состояние («Закрыт»).

 

4.Руководство пользователя.

1. При нажатии на кнопку «Вставить карту», появляется стандартное диалоговое окно открытия файла. Выбираем нужный файл с картой.

2. На мониторе выдается приглашение «Введите PIN код». 
 
 
 
 
 
 
 
 
 
 
 
 

3. С помощью клавиатуры на форме вводим PIN код (4 цифры) и нажимаем Enter. Если код неправильный будет выдано предупреждение «Неверный PIN». После чего дается еще две попытки ввода, в противном случае карта будет заблокирована и программа вернется в исходное состояние. 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 

4.Если PIN код правильный загорается зеленая надпись «Проходи».Нажимаем кнопку пройти.

 
 
 
 
 
 
 
 
 
 
 
 
 
 
 

5.После того время истечет программа вернется в исходное состояние.

 

В меню Файл-> Редактор карт находится редактор карт.

В появившемся  окне вводим тип карты (верный тип 3), PIN код, сумму на карте (не менее 50) и срок действия карты. Далее нажимаем сохранить и вводим имя файла.

Также с помощью  редактора можно изменять данные уже созданных карт (добавлять  средства, снимать блокировку, увеличивать срок или менять PIN код).

 

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

unit Unit1;

interface

uses

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

  Dialogs, StdCtrls, ActnList, Menus, ExtCtrls;

type

  TMainForm = class(TForm)

    ButtonLoadCard: TButton;

    MainMenu1: TMainMenu;

    ActionList1: TActionList;

    OpenDialog1: TOpenDialog;

    LabelNextAction: TLabel;

    Button1: TButton;

    Button2: TButton;

    Button3: TButton;

    Button4: TButton;

    Button5: TButton;

    Button6: TButton;

    Button7: TButton;

    Button8: TButton;

    Button9: TButton;

    Button0: TButton;

    ButtonBackSpace: TButton;

    ButtonEnter: TButton;

    mFile: TMenuItem;

    mCreateCard: TMenuItem;

    LabelStop: TLabel;

    LabelGo: TLabel;

    LabelTimer: TLabel;

    Timer1: TTimer;

    ButtonMove: TButton;

    ImageCar: TImage;

    TimerMove: TTimer;

    ShapeBlock: TShape;

    Shape2: TShape;

    ShapeSensor1: TShape;

    LabelMessage: TLabel;

    Bevel1: TBevel;

    procedure ButtonLoadCardClick(Sender: TObject);

    procedure Button1Click(Sender: TObject);

    procedure Button2Click(Sender: TObject);

    procedure Button3Click(Sender: TObject);

    procedure Button4Click(Sender: TObject);

    procedure Button5Click(Sender: TObject);

    procedure Button6Click(Sender: TObject);

    procedure Button7Click(Sender: TObject);

    procedure Button8Click(Sender: TObject);

    procedure Button9Click(Sender: TObject);

    procedure Button0Click(Sender: TObject);

    procedure ButtonBackSpaceClick(Sender: TObject);

    procedure ChangeKeybordEnabled(Flag: boolean);

    procedure FormCreate(Sender: TObject);

    procedure mCreateCardClick(Sender: TObject);

    procedure ButtonEnterClick(Sender: TObject);

    procedure Timer1Timer(Sender: TObject);

    procedure TimerMoveTimer(Sender: TObject);

    procedure ButtonMoveClick(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end; 

  procedure EnterNumber(Number:String);

var

  MainForm: TMainForm; 

implementation

Uses Unit2,Unit3;

{$R *.dfm}

var

  glCard:TCard;

  glTryCount:integer;

  Proc:TProcessor; 

procedure TMainForm.ChangeKeybordEnabled(Flag: boolean);

begin

  Button1.Enabled         := Flag;

  Button2.Enabled         := Flag;

  Button3.Enabled         := Flag;

  Button4.Enabled         := Flag;

  Button5.Enabled         := Flag;

  Button6.Enabled         := Flag;

  Button7.Enabled         := Flag;

  Button8.Enabled         := Flag;

  Button9.Enabled         := Flag;

  Button0.Enabled         := Flag;

  ButtonBackSpace.Enabled := Flag;

  ButtonEnter.Enabled     := Flag;

  if Flag then

  begin

    ButtonLoadCard.Caption  := 'Достать карту';

    LabelNextAction.Caption := 'Введите PIN код';

    LabelMessage.Caption := '';

  end

  else

  begin

    ButtonLoadCard.Caption  := 'Вставить карту';

    LabelNextAction.Caption := 'Вставьте карту';

    glCard.Free;

    LabelStop.Font.Color := clRed;

    LabelGo.Font.Color := clInactiveBorder;

    LabelTimer.Caption := '';

  end;

end;

procedure TMainForm.FormCreate(Sender: TObject);

begin

  ChangeKeybordEnabled(False);

end;

procedure TMainForm.mCreateCardClick(Sender: TObject);

begin

  FormEditCard := TformEditCard.Create(Application);

  FormEditCard.ShowModal();

  FormEditCard.Free;

end;

procedure TMainForm.Timer1Timer(Sender: TObject);

var i:integer;

begin

  i := StrToInt(LabelTimer.Caption)-1;

  LabelTimer.Caption := IntToStr(i);

  if i=0 then

  begin

    ChangeKeybordEnabled(false);

    Timer1.Enabled := false;

    ImageCar.Top := 189;

  end;

   

end;

procedure TMainForm.TimerMoveTimer(Sender: TObject);

var iTop:integer;

begin

iTop := ImageCar.Top;

if iTop <-40 then

begin

   TimerMove.Enabled := false;

   exit;

end;

if ShapeBlock.Visible then

   if iTop <(ShapeBlock.Top + ShapeBlock.Height*2) then

   begin

     TimerMove.Enabled := false;

     exit;

   end;

if iTop=(ShapeSensor1.Top+ShapeSensor1.Height) then

   if LabelGo.Font.Color = clInactiveBorder then

   begin

     ShapeBlock.Visible := true;

     windows.Beep(1000,100);

   end;

if iTop<(ShapeSensor1.Top+ShapeSensor1.Height) then

   if LabelGo.Font.Color <> clInactiveBorder then

     Timer1.Enabled := true;

ImageCar.Top := iTop - 1;