formpatt.pas

16 relay output channels and 16 isolated digital input channels LED indicators to show activated

unit FormPatt;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, Buttons, ExtCtrls;

type
  TfrmPattern = class(TForm)
    cmdPatternOK: TBitBtn;
    cmdCancel: TBitBtn;
    Panel9: TPanel;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    Label11: TLabel;
    Label12: TLabel;
    chkPatternBit0: TCheckBox;
    chkPatternBit1: TCheckBox;
    chkPatternBit3: TCheckBox;
    chkPatternBit2: TCheckBox;
    chkPatternBit5: TCheckBox;
    chkPatternBit4: TCheckBox;
    chkPatternBit7: TCheckBox;
    chkPatternBit6: TCheckBox;
    Panel0: TPanel;
    optPatternBitHi0: TRadioButton;
    optPatternBitLo0: TRadioButton;
    Panel1: TPanel;
    optPatternBitHi1: TRadioButton;
    optPatternBitLo1: TRadioButton;
    Panel2: TPanel;
    optPatternBitHi2: TRadioButton;
    optPatternBitLo2: TRadioButton;
    Panel3: TPanel;
    optPatternBitHi3: TRadioButton;
    optPatternBitLo3: TRadioButton;
    Panel4: TPanel;
    optPatternBitHi4: TRadioButton;
    optPatternBitLo4: TRadioButton;
    Panel7: TPanel;
    optPatternBitHi7: TRadioButton;
    optPatternBitLo7: TRadioButton;
    Panel5: TPanel;
    optPatternBitHi5: TRadioButton;
    optPatternBitLo5: TRadioButton;
    Panel6: TPanel;
    optPatternBitHi6: TRadioButton;
    optPatternBitLo6: TRadioButton;
    procedure chkPatternBit7Click(Sender: TObject);
    procedure chkPatternBit6Click(Sender: TObject);
    procedure chkPatternBit5Click(Sender: TObject);
    procedure chkPatternBit4Click(Sender: TObject);
    procedure chkPatternBit3Click(Sender: TObject);
    procedure chkPatternBit2Click(Sender: TObject);
    procedure chkPatternBit1Click(Sender: TObject);
    procedure chkPatternBit0Click(Sender: TObject);
    procedure cmdPatternOKClick(Sender: TObject);
    procedure cmdCancelClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure optPatternBitHi7Click(Sender: TObject);
    procedure optPatternBitLo6Click(Sender: TObject);
    procedure optPatternBitHi5Click(Sender: TObject);
    procedure optPatternBitHi4Click(Sender: TObject);
    procedure optPatternBitHi3Click(Sender: TObject);
    procedure optPatternBitHi2Click(Sender: TObject);
    procedure optPatternBitHi1Click(Sender: TObject);
    procedure optPatternBitHi0Click(Sender: TObject);
    procedure optPatternBitLo7Click(Sender: TObject);
    procedure optPatternBitHi6Click(Sender: TObject);
    procedure optPatternBitLo5Click(Sender: TObject);
    procedure optPatternBitLo4Click(Sender: TObject);
    procedure optPatternBitLo3Click(Sender: TObject);
    procedure optPatternBitLo2Click(Sender: TObject);
    procedure optPatternBitLo1Click(Sender: TObject);
    procedure optPatternBitLo0Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    EnableMask: Integer;
    PatternValue: Integer;
    bCancel: Boolean;
  end;

var
  frmPattern: TfrmPattern;

implementation

{$R *.DFM}


procedure TfrmPattern.chkPatternBit7Click(Sender: TObject);
begin
	If chkPatternBit7.Checked = True Then
     Begin
   	EnableMask := EnableMask or $80;
      optPatternBitHi7.Enabled := True;
      optPatternBitLo7.Enabled := True;
     End
   Else
     Begin
   	EnableMask := EnableMask and $7F;
      optPatternBitHi7.Enabled := False;
      optPatternBitLo7.Enabled := False;
     End
end;

procedure TfrmPattern.chkPatternBit6Click(Sender: TObject);
begin
	If chkPatternBit6.Checked = True Then
     Begin
   	EnableMask := EnableMask or $40;
      optPatternBitHi6.Enabled := True;
      optPatternBitLo6.Enabled := True;
     End
   Else
     Begin
   	EnableMask := EnableMask and $BF;
      optPatternBitHi6.Enabled := False;
      optPatternBitLo6.Enabled := False;
	  End
end;

procedure TfrmPattern.chkPatternBit5Click(Sender: TObject);
begin
	If chkPatternBit5.Checked = True Then
     Begin
   	EnableMask := EnableMask or $20;
      optPatternBitHi5.Enabled := True;
      optPatternBitLo5.Enabled := True;
	  End
   Else
     Begin
   	EnableMask := EnableMask and $DF;
      optPatternBitHi5.Enabled := False;
      optPatternBitLo5.Enabled := False;
	  End
end;

procedure TfrmPattern.chkPatternBit4Click(Sender: TObject);
begin
	If chkPatternBit4.Checked = True Then
	  Begin
   	EnableMask := EnableMask or $10;
      optPatternBitHi4.Enabled := True;
      optPatternBitLo4.Enabled := True;
     End
   Else
     Begin
   	EnableMask := EnableMask and $EF;
      optPatternBitHi4.Enabled := False;
      optPatternBitLo4.Enabled := False;
     End
end;

procedure TfrmPattern.chkPatternBit3Click(Sender: TObject);
begin
	If chkPatternBit3.Checked = True Then
     Begin
   	EnableMask := EnableMask or $08;
      optPatternBitHi3.Enabled := True;
      optPatternBitLo3.Enabled := True;
     End
   Else
     Begin
   	EnableMask := EnableMask and $F7;
      optPatternBitHi3.Enabled := False;
      optPatternBitLo3.Enabled := False;
     End
end;

procedure TfrmPattern.chkPatternBit2Click(Sender: TObject);
begin
	If chkPatternBit2.Checked = True Then
     Begin
   	EnableMask := EnableMask or $04;
      optPatternBitHi2.Enabled := True;
      optPatternBitLo2.Enabled := True;
     End
   Else
     Begin
   	EnableMask := EnableMask and $BF;
      optPatternBitHi2.Enabled := False;
      optPatternBitLo2.Enabled := False;
     End
end;

procedure TfrmPattern.chkPatternBit1Click(Sender: TObject);
begin
	If chkPatternBit1.Checked = True Then
     Begin
   	EnableMask := EnableMask or $02;
      optPatternBitHi1.Enabled := True;
      optPatternBitLo1.Enabled := True;
     End
	Else
     Begin
   	EnableMask := EnableMask and $DF;
      optPatternBitHi1.Enabled := False;
      optPatternBitLo1.Enabled := False;
     End
end;

procedure TfrmPattern.chkPatternBit0Click(Sender: TObject);
begin
	If chkPatternBit0.Checked = True Then
     Begin
   	EnableMask := EnableMask or $01;
      optPatternBitHi0.Enabled := True;
      optPatternBitLo0.Enabled := True;
     End
   Else
     Begin
   	EnableMask := EnableMask and $FE;
      optPatternBitHi0.Enabled := False;
      optPatternBitLo0.Enabled := False;
     End
end;

procedure TfrmPattern.cmdPatternOKClick(Sender: TObject);
begin
	bCancel := False;
   Hide;
end;

procedure TfrmPattern.cmdCancelClick(Sender: TObject);
begin
	bCancel := True;
   Hide;
end;

procedure TfrmPattern.FormCreate(Sender: TObject);
begin
	EnableMask := 0;
	PatternValue := $0FF;
end;

procedure TfrmPattern.optPatternBitHi7Click(Sender: TObject);
begin
	PatternValue := PatternValue or $80;
end;

procedure TfrmPattern.optPatternBitLo6Click(Sender: TObject);
begin
	PatternValue := PatternValue or $40;
end;

procedure TfrmPattern.optPatternBitHi5Click(Sender: TObject);
begin
	PatternValue := PatternValue or $20;
end;

procedure TfrmPattern.optPatternBitHi4Click(Sender: TObject);
begin
	PatternValue := PatternValue or $10;
end;

procedure TfrmPattern.optPatternBitHi3Click(Sender: TObject);
begin
	PatternValue := PatternValue or $08;
end;

procedure TfrmPattern.optPatternBitHi2Click(Sender: TObject);
begin
	PatternValue := PatternValue or $04;
end;

procedure TfrmPattern.optPatternBitHi1Click(Sender: TObject);
begin
	PatternValue := PatternValue or $02;
end;

procedure TfrmPattern.optPatternBitHi0Click(Sender: TObject);
begin
	PatternValue := PatternValue or $01;
end;

procedure TfrmPattern.optPatternBitLo7Click(Sender: TObject);
begin
	PatternValue := PatternValue and $7F;
end;

procedure TfrmPattern.optPatternBitHi6Click(Sender: TObject);
begin
	PatternValue := PatternValue and $BF;
end;

procedure TfrmPattern.optPatternBitLo5Click(Sender: TObject);
begin
	PatternValue := PatternValue and $DF;
end;

procedure TfrmPattern.optPatternBitLo4Click(Sender: TObject);
begin
	PatternValue := PatternValue and $EF;
end;

procedure TfrmPattern.optPatternBitLo3Click(Sender: TObject);
begin
	PatternValue := PatternValue and $F7;
end;

procedure TfrmPattern.optPatternBitLo2Click(Sender: TObject);
begin
	PatternValue := PatternValue and $FB;
end;

procedure TfrmPattern.optPatternBitLo1Click(Sender: TObject);
begin
	PatternValue := PatternValue and $FD;
end;

procedure TfrmPattern.optPatternBitLo0Click(Sender: TObject);
begin
	PatternValue := PatternValue and $FE;
end;

end.