111
112
1.
-
2.
3.
4.
-
- -
5.
-
6.
-
7. -
-
8.
- --
9.
10.
-
11.
- , 1999
12.
-
113
13.
14.
15.
-
16.
17.
-
18.
-
19.
20.
-
21.
22.
23.
-
24. -
25.
114
26.
- -85) /
27.
28.
29.
-
115
Приложение. Листинг программных модулей
unit ufCommandMaker;
interface
uses
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes,
Vcl.Graphics,
Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, uLift;
type
TfCommandMaker = class(TForm)
bOk: TButton;
bCancel: TButton;
eLevel: TEdit;
Label1: TLabel;
procedure bOkClick(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure FormShow(Sender: TObject);
private
FLevel: Integer;
FLift: TLift;
procedure SetLevel(Value: Integer);
procedure SetLift(Lift: TLift);
{ Private declarations }
public
{ Public declarations }
property Level: Integer read FLevel;
property Lift: TLift read FLift write SetLift;
end;
var
fCommandMaker: TfCommandMaker;
implementation
{$R *.dfm}
procedure TfCommandMaker.bOkClick(Sender: TObject);
begin
if Lift = nil then
raise Exception.Create(' ');
try
FLevel := StrToInt(eLevel.Text);
if (FLevel < Lift.LowLevel) or (FLevel > Lift.HighLevel) then
raise Exception.Create('Error Message');
except
on E: Exception do
begin
raise Exception.Create(' ');
end;
end;
ModalResult := mrOk;
end;
116
procedure TfCommandMaker.FormCreate(Sender: TObject);
begin
FLift := nil;
end;
procedure TfCommandMaker.FormShow(Sender: TObject);
begin
eLevel.SetFocus;
eLevel.SelectAll;
end;
procedure TfCommandMaker.SetLevel(Value: Integer);
begin
FLevel := Value;
end;
procedure TfCommandMaker.SetLift(Lift: TLift);
begin
FLift := Lift;
end;
end.
unit ufMain;
interface
uses
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes,
Vcl.Graphics,
Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.ExtCtrls, uLift, Vcl.ComCtrls, Vcl.StdCtrls,
ufCommandMaker;
type
TfMain = class(TForm)
GroupBox1: TGroupBox;
lLevel: TLabel;
Label1: TLabel;
cbLiftMoving: TComboBox;
Label2: TLabel;
GroupBox3: TGroupBox;
bCall: TButton;
bCommand: TButton;
GroupBox4: TGroupBox;
lbCalls: TListBox;
GroupBox5: TGroupBox;
lbCommands: TListBox;
StatusBar1: TStatusBar;
GroupBox6: TGroupBox;
tbLevel: TTrackBar;
Label3: TLabel;
cbLiftState: TComboBox;
lWaitTime: TLabel;
lHighLevel: TLabel;
lLowLevel: TLabel;
procedure FormCreate(Sender: TObject);
procedure bCallClick(Sender: TObject);
117
procedure bCommandClick(Sender: TObject);
private
{ Private declarations }
FLift : TLift;
procedure LiftOnProcess(Sender: TObject);
public
{ Public declarations }
end;
var
fMain: TfMain;
implementation
{$R *.dfm}
procedure TfMain.bCallClick(Sender: TObject);
begin
fCommandMaker.Lift := FLift;
fCommandMaker.Caption := bCall.Caption;
if fCommandMaker.ShowModal = mrOk then
begin
FLift.AddCall(fCommandMaker.Level);
end;
end;
procedure TfMain.bCommandClick(Sender: TObject);
begin
fCommandMaker.Lift := FLift;
fCommandMaker.Caption := bCommand.Caption;
if fCommandMaker.ShowModal = mrOk then
begin
FLift.AddCommand(fCommandMaker.Level);
end;
end;
procedure TfMain.FormCreate(Sender: TObject);
begin
FLift := TLift.Create;
FLift.OnProcess := LiftOnProcess;
end;
procedure TfMain.LiftOnProcess(Sender: TObject);
var
Lift : TLift;
begin
//
Lift := Sender as TLift;
cbLiftState.ItemIndex := Ord(Lift.LiftState);
cbLiftMoving.ItemIndex := Ord(Lift.LiftMoving);
tbLevel.Max := Lift.HighLevel;
tbLevel.Min := Lift.LowLevel;
lLowLevel.Caption := IntToStr(Lift.LowLevel);
lHighLevel.Caption := IntToStr(Lift.HighLevel);
tbLevel.Position := Lift.HighLevel - Lift.Level + 1;
lLevel.Caption := IntToStr(Lift.Level);
if Lift.WaitTime > 0 then
118
lWaitTime.Caption := IntToStr(Round(Lift.WaitTime))
else
lWaitTime.Caption := '';
lbCalls.Items.Clear;
lbCalls.Items.AddStrings(Lift.CallList);
lbCommands.Items.Clear;
lbCommands.Items.AddStrings(Lift.CommandList);
end;
end.