unit Unit6;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Mask, ExtCtrls, ToolEdit, CurrEdit, LMDCustomButton,
  LMDButton,Math, RzLabel, LMDControl, LMDBaseControl,
  LMDBaseGraphicControl, LMDCustomLight, LMDLight;

type
  TForm6 = class(TForm)
    Image1: TImage;
    Image3: TImage;
    Image2: TImage;
    Image5: TImage;
    Image4: TImage;
    Label1: TLabel;
    Label2: TLabel;
    Edit3: TMaskEdit;
    Edit4: TMaskEdit;
    Edit5: TMaskEdit;
    Edit6: TMaskEdit;
    Edit7: TMaskEdit;
    Edit8: TMaskEdit;
    Edit9: TMaskEdit;
    Edit10: TMaskEdit;
    Edit11: TMaskEdit;
    Edit12: TMaskEdit;
    Edit13: TMaskEdit;
    Edit23: TMaskEdit;
    Edit24: TMaskEdit;
    Edit25: TMaskEdit;
    Edit26: TMaskEdit;
    Edit27: TMaskEdit;
    Edit28: TMaskEdit;
    Edit29: TMaskEdit;
    Edit30: TMaskEdit;
    Edit31: TMaskEdit;
    Edit32: TMaskEdit;
    Edit33: TMaskEdit;
    Edit43: TMaskEdit;
    Edit44: TMaskEdit;
    Edit45: TMaskEdit;
    Edit46: TMaskEdit;
    Edit47: TMaskEdit;
    Edit48: TMaskEdit;                                          
    Edit49: TMaskEdit;
    Edit50: TMaskEdit;
    Edit51: TMaskEdit;
    Edit52: TMaskEdit;
    Edit53: TMaskEdit;
    RxCalcEdit1: TRxCalcEdit;
    Edit22: TMaskEdit;
    Edit15: TMaskEdit;
    Edit14: TMaskEdit;
    Edit16: TMaskEdit;
    Edit17: TMaskEdit;
    Edit18: TMaskEdit;
    Edit19: TMaskEdit;
    Edit20: TMaskEdit;
    Edit21: TMaskEdit;
    LMDButton1: TLMDButton;
    RzURLLabel1: TRzURLLabel;
    RzURLLabel2: TRzURLLabel;
    LMDLight1: TLMDLight;
    LMDLight2: TLMDLight;
    LMDLight4: TLMDLight;
    LMDLight3: TLMDLight;
    Label3: TLabel;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormCreate(Sender: TObject);
    procedure LMDButton1Click(Sender: TObject);
    procedure RzURLLabel1Click(Sender: TObject);
    procedure Edit43Change(Sender: TObject);
    procedure Edit44Change(Sender: TObject);
    procedure Edit45Change(Sender: TObject);
    procedure Edit46Change(Sender: TObject);
    procedure Edit47Change(Sender: TObject);
    procedure Edit48Change(Sender: TObject);
    procedure Edit49Change(Sender: TObject);
    procedure Edit50Change(Sender: TObject);
    procedure Edit51Change(Sender: TObject);
    procedure Edit52Change(Sender: TObject);
    procedure Edit53Change(Sender: TObject);
    procedure Edit14KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure Edit14DblClick(Sender: TObject);
    procedure Edit43KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure RxCalcEdit1KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure Edit22KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure Edit43DblClick(Sender: TObject);
    procedure FormActivate(Sender: TObject);
    procedure RzURLLabel2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form6: TForm6;
  KodingValue:Integer;
  Bool128,Bool32,Bool64,Bool16,Bool8,Bool4,Bool2,Bool1,Bool256,Bool512,Bool1024:Integer;
  Val,Value2:Real;
  Boo1024,Boo512,Boo256,Boo128,Boo64,Boo32,Boo16:Integer;
  Num,M:Integer;
  NumErrors:Integer;

implementation

uses Unit1, Unit8, Unit9;

{$R *.dfm}

procedure TForm6.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Form1.Close;
application.Terminate;
end;

procedure TForm6.FormCreate(Sender: TObject);
begin
randomize;

//if KodingValue=0 then
//begin
//randomize;
//KodingValue:=Random(4001)-2000;
//end;

Num:=0;
Form6.RzURLLabel1.Visible:=false;
Form6.RzURLLabel2.Visible:=false;
Form6.LMDButton1.Enabled:=true;
Form6.Edit22.Text:='0';
Form6.Edit22.Visible:=true;
Form6.RxCalcEdit1.Value:=0;


Form6.Image1.Visible:=true;
Form6.Label1.Visible:=true;
Form6.Label2.Visible:=true;
Form6.Image2.Visible:=true;
Form6.Image4.Visible:=true;
Form6.RxCalcEdit1.Visible:=true;
Form6.Edit22.Visible:=true;
Form6.Edit3.Visible:=true;
Form6.Edit4.Visible:=true;
Form6.Edit5.Visible:=true;
Form6.Edit6.Visible:=true;
Form6.Edit7.Visible:=true;
Form6.Edit8.Visible:=true;
Form6.Edit9.Visible:=true;
Form6.Edit10.Visible:=true;
Form6.Edit11.Visible:=true;
Form6.Edit12.Visible:=true;
Form6.Edit13.Visible:=true;
Form6.Edit23.Visible:=true;
Form6.Edit24.Visible:=true;
Form6.Edit25.Visible:=true;
Form6.Edit26.Visible:=true;
Form6.Edit27.Visible:=true;
Form6.Edit28.Visible:=true;
Form6.Edit29.Visible:=true;
Form6.Edit30.Visible:=true;
Form6.Edit31.Visible:=true;
Form6.Edit32.Visible:=true;
Form6.Edit33.Visible:=true;
Form6.Edit43.Visible:=true;
Form6.Edit44.Visible:=true;
Form6.Edit45.Visible:=true;
Form6.Edit46.Visible:=true;
Form6.Edit47.Visible:=true;
Form6.Edit48.Visible:=true;
Form6.Edit49.Visible:=true;
Form6.Edit50.Visible:=true;
Form6.Edit51.Visible:=true;
Form6.Edit52.Visible:=true;
Form6.Edit53.Visible:=true;
Form6.LMDButton1.Visible:=true;
Form6.Edit14.Visible:=true;
Form6.Edit15.Visible:=true;
Form6.Edit16.Visible:=true;
Form6.Edit17.Visible:=true;
Form6.Edit18.Visible:=true;
Form6.Edit19.Visible:=true;
Form6.Edit20.Visible:=true;
Form6.Edit21.Visible:=true;
NumErrors:=0;
Form6.Label3.Visible:=false;
Form6.LMDLight1.Visible:=true;
Form6.Edit3.Text:='0';
Form6.Edit4.Text:='0';
Form6.Edit5.Text:='0';
Form6.Edit6.Text:='0';
Form6.Edit7.Text:='0';
Form6.Edit8.Text:='0';
Form6.Edit9.Text:='0';
Form6.Edit10.Text:='0';
Form6.Edit11.Text:='0';
Form6.Edit12.Text:='0';
Form6.Edit13.Text:='0';
Form6.Edit23.Text:='0';
Form6.Edit24.Text:='0';
Form6.Edit25.Text:='0';
Form6.Edit26.Text:='0';
Form6.Edit27.Text:='0';
Form6.Edit28.Text:='0';
Form6.Edit29.Text:='0';
Form6.Edit30.Text:='0';
Form6.Edit31.Text:='0';
Form6.Edit32.Text:='0';
Form6.Edit33.Text:='0';
Form6.Edit43.Text:='0';
Form6.Edit44.Text:='0';
Form6.Edit45.Text:='0';
Form6.Edit46.Text:='0';
Form6.Edit47.Text:='0';
Form6.Edit48.Text:='0';
Form6.Edit49.Text:='0';
Form6.Edit50.Text:='0';
Form6.Edit51.Text:='0';
Form6.Edit52.Text:='0';
Form6.Edit53.Text:='0';
Form6.Edit14.Text:='0';
Form6.Edit15.Text:='0';
Form6.Edit16.Text:='0';
Form6.Edit17.Text:='0';
Form6.Edit18.Text:='0';
Form6.Edit19.Text:='0';
Form6.Edit20.Text:='0';
Form6.Edit21.Text:='0';
end;

procedure TForm6.LMDButton1Click(Sender: TObject);
begin
Num:=Num+1;
if Num=1 then
begin

if KodingValue>0 then
begin
if Form6.Edit14.Text<>'1' then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение знака входного сигнала','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
if Form6.Edit22.Text<>'0' then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение сигнала из компаратора','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
Form6.Image4.Visible:=false;
Form6.Image5.Visible:=true;
//Form6.Edit14.Text:='1';
//Form6.Edit22.Text:='0';
Form6.Edit23.Visible:=true;
Form6.Edit24.Visible:=true;
Form6.Edit25.Visible:=true;
Form6.Edit26.Visible:=true;
Form6.Edit27.Visible:=true;
Form6.Edit28.Visible:=true;
Form6.Edit29.Visible:=true;
Form6.Edit30.Visible:=true;
Form6.Edit31.Visible:=true;
Form6.Edit32.Visible:=true;
Form6.Edit33.Visible:=true;
Form6.Edit3.Visible:=false;
Form6.Edit4.Visible:=false;
Form6.Edit5.Visible:=false;
Form6.Edit6.Visible:=false;
Form6.Edit7.Visible:=false;
Form6.Edit8.Visible:=false;
Form6.Edit9.Visible:=false;
Form6.Edit10.Visible:=false;
Form6.Edit11.Visible:=false;
Form6.Edit12.Visible:=false;
Form6.Edit13.Visible:=false;
end
else
begin
if Form6.Edit14.Text<>'1' then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение знака входного сигнала','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
if Form6.Edit22.Text<>'1' then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение сигнала из компаратора','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
Form6.Image2.Visible:=false;
Form6.Image3.Visible:=true;
//Form6.Edit14.Text:='0';
//Form6.Edit22.Text:='1';
Form6.Edit3.Visible:=true;
Form6.Edit4.Visible:=true;
Form6.Edit5.Visible:=true;
Form6.Edit6.Visible:=true;
Form6.Edit7.Visible:=true;
Form6.Edit8.Visible:=true;
Form6.Edit9.Visible:=true;
Form6.Edit10.Visible:=true;
Form6.Edit11.Visible:=true;
Form6.Edit12.Visible:=true;
Form6.Edit13.Visible:=true;
Form6.Edit23.Visible:=false;
Form6.Edit24.Visible:=false;
Form6.Edit25.Visible:=false;
Form6.Edit26.Visible:=false;
Form6.Edit27.Visible:=false;
Form6.Edit28.Visible:=false;
Form6.Edit29.Visible:=false;
Form6.Edit30.Visible:=false;
Form6.Edit31.Visible:=false;
Form6.Edit32.Visible:=false;
Form6.Edit33.Visible:=false;
end;

Form6.Edit22.Visible:=false;
Form6.Label1.Caption:='Конец 1-го такта. Определение знака входного сигнала';
Form6.LMDLight1.Visible:=true;
Form6.LMDLight2.Visible:=false;
Form6.LMDLight3.Visible:=false;
Form6.LMDLight4.Visible:=false;
Form6.RxCalcEdit1.Color:=clBtnFace;
Form6.Edit22.Color:=clBtnFace;
end;


if Num=2 then
begin
Form6.Edit22.Visible:=true;
//Form6.Label1.Caption:='Начало 2-го такта. Определение номера сегмента амплитудной характеристики';
if KodingValue>0 then
begin
if Form6.Edit14.Text<>'1' then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение знака входного сигнала','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
Form6.Image4.Visible:=false;
Form6.Image5.Visible:=true;
//Form6.Edit14.Caption:='1';
end
else
begin
if Form6.Edit14.Text<>'0' then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение знака входного сигнала','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
Form6.Image2.Visible:=false;
Form6.Image3.Visible:=true;
//Form6.Edit14.Caption:='0';
end;


Form6.Edit15.Text:='0';
Form6.Label1.Caption:='Начало 2-го такта. Определение номера сегмента амплитудной характеристики';
Form6.LMDLight1.Visible:=true;
Form6.LMDLight2.Visible:=false;
Form6.LMDLight3.Visible:=false;
Form6.LMDLight4.Visible:=false;
Form6.RxCalcEdit1.Color:=clBtnFace;
Form6.Edit22.Color:=clBtnFace;
end;





if Num=3 then
begin
Bool32:=-1;
Bool64:=-1;
Bool16:=-1;
Bool256:=-1;
Bool512:=-1;
Bool1024:=-1;
Val:=128;
if Val>Abs(KodingValue) then
begin
Val:=0;
Bool128:=0;
end
else
begin
Val:=128;
Bool128:=1;
end;
//Form5.LMDButton1.Enabled:=true;
if Bool128=0 then
begin
if Form6.Edit22.Text<>'1' then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение сигнала из компаратора','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
//Form6.Edit22.Caption:='1'
end
else
begin
if Form6.Edit22.Text<>'0' then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение сигнала из компаратора','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
//Form6.Edit22.Caption:='0';
end;
Form6.Edit22.Visible:=true;
if Form6.Edit15.Text<>'1' then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение номера сегмента амплитудной характеристики','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
//Form6.Edit15.Caption:='1';

if KodingValue>0 then
begin
if Form6.Edit26.Text<>'1' then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение из БКЭ','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
//Form6.Edit26.Caption:='1'
end
else
begin
if Form6.Edit6.Text<>'1' then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение из БКЭ','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
//Form6.Edit6.Caption:='1';
end;

if Form6.Edit46.Text<>'1' then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение из БВС','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
//Form6.Edit46.Caption:='1';
if KodingValue>0 then
begin
if Form6.RxCalcEdit1.Value<>128 then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение Uэт','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
end
else
begin
if Form6.RxCalcEdit1.Value<>-128 then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение Uэт','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
end;


//Label2.Caption:='128';


Form6.Label1.Caption:='Конец 2-го такта. Определение номера сегмента амплитудной характеристики';
Form6.Edit22.Visible:=false;
Form6.LMDLight1.Visible:=true;
Form6.LMDLight2.Visible:=false;
Form6.LMDLight3.Visible:=false;
Form6.LMDLight4.Visible:=false;
Form6.RxCalcEdit1.Color:=clBtnFace;
Form6.Edit22.Color:=clBtnFace;
end;




if Num=4 then
begin


if Bool128=0 then
begin

if Form6.RxCalcEdit1.Value<>0 then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение Uэт','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
//Label2.Caption:='0';

if Form6.Edit15.Text<>'0' then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение номера сегмента амплитудной характеристики','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
//Form5.Label15.Caption:='0';

if Form6.Edit46.Text<>'0' then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение из БВС','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
//Form5.Label46.Caption:='0';

if KodingValue>0 then
begin
if Form6.Edit26.Text<>'0' then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение из БКЭ','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
//Form6.Edit26.Caption:='0'
end
else
begin
if Form6.Edit6.Text<>'0' then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение из БКЭ','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
//Form6.Edit6.Caption:='0';
end;
end
else
begin
if Form6.Edit15.Text<>'1' then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение номера сегмента амплитудной характеристики','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
//Form5.Label15.Caption:='1';

if Form6.Edit46.Text<>'1' then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение из БВС','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
//Form5.Label46.Caption:='1';

if KodingValue>0 then
begin
if Form6.RxCalcEdit1.Value<>128 then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение Uэт','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
end
else
begin
if Form6.RxCalcEdit1.Value<>-128 then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение Uэт','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
end;
//Label2.Caption:='128';

if KodingValue>0 then
begin
if Form6.Edit26.Text<>'1' then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение из БКЭ','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
//Form6.Edit26.Caption:='1'
end
else
begin
if Form6.Edit6.Text<>'1' then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение из БКЭ','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
//Form6.Edit6.Caption:='1';
end;
end;
Form6.Label1.Caption:='Начало 3-го такта. Определение номера сегмента амплитудной характеристики';
Form6.Edit22.Visible:=true;
Form6.LMDLight1.Visible:=true;
Form6.LMDLight2.Visible:=false;
Form6.LMDLight3.Visible:=false;
Form6.LMDLight4.Visible:=false;
Form6.RxCalcEdit1.Color:=clBtnFace;
Form6.Edit22.Color:=clBtnFace;
end;





if Num=5 then
begin

if Bool128=0 then
begin
Val:=32;
if Val>Abs(KodingValue) then
begin
Val:=0;
Bool32:=0;
end
else
begin
Bool32:=1;
end;
end//Конец if Bool128=0//
else
begin
Val:=512;
if Val>Abs(KodingValue) then
begin
Val:=128;
Bool512:=0;
end
else
begin
Bool512:=1;
end;
end;


//Form5.Label1.Caption:='Начало 3-го такта. Определение номера сегмента амплитудной характеристики';
//Form5.Label22.Visible:=true;
if Form6.Edit16.Text<>'1' then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение номера сегмента амплитудной характеристики','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
//Form5.Label16.Caption:='1';


if KodingValue>0 then
begin
if Form6.Edit26.Text<>'0' then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение из БКЭ','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
//Form6.Edit26.Caption:='0'
end
else
begin
if Form6.Edit6.Text<>'0' then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение из БКЭ','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
//Form6.Edit8.Caption:='1';
end;
//Form6.Edit6.Text:='0';
//Form6.Edit26.Text:='0';


if Form6.Edit46.Text<>'0' then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение из БВС','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
//Form6.Edit46.Text:='0';


if Bool32=0 then
begin
if Form6.Edit22.Text<>'1' then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение сигнала из компаратора','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
//Form5.Label22.Caption:='1';

if KodingValue>0 then
begin
if Form6.Edit28.Text<>'1' then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение из БКЭ','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
//Form6.Edit28.Caption:='1'
end
else
begin
if Form6.Edit8.Text<>'1' then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение из БКЭ','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
//Form6.Edit8.Caption:='1';
end;

if Form6.Edit48.Text<>'1' then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение из БВС','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
//Form5.Label48.Caption:='1';

if KodingValue>0 then
begin
if Form6.RxCalcEdit1.Value<>32 then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение Uэт','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
end
else
begin
if Form6.RxCalcEdit1.Value<>-32 then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение Uэт','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
end;
//Label2.Caption:='32';
end;


if Bool32=1 then
begin
if Form6.Edit22.Text<>'0' then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение сигнала из компаратора','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
//Form5.Label22.Caption:='1';

if KodingValue>0 then
begin
if Form6.Edit28.Text<>'1' then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение из БКЭ','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
//Form6.Edit28.Caption:='1'
end
else
begin
if Form6.Edit8.Text<>'1' then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение из БКЭ','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
//Form6.Edit8.Caption:='1';
end;

if Form6.Edit48.Text<>'1' then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение из БВС','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
//Form5.Label48.Caption:='1';

if KodingValue>0 then
begin
if Form6.RxCalcEdit1.Value<>32 then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение Uэт','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
end
else
begin
if Form6.RxCalcEdit1.Value<>-32 then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение Uэт','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
end;
end;


if Bool512=0 then
begin
if Form6.Edit22.Text<>'1' then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение сигнала из компаратора','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
//Form5.Label22.Caption:='1';

if KodingValue>0 then
begin
if Form6.Edit24.Text<>'1' then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение из БКЭ','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
//Form6.Edit24.Caption:='1'
end
else
begin
if Form6.Edit4.Text<>'1' then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение из БКЭ','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
//Form6.Edit4.Caption:='1';
end;

if Form6.Edit44.Text<>'1' then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение из БВС','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
//Form5.Label44.Caption:='1';

if KodingValue>0 then
begin
if Form6.RxCalcEdit1.Value<>512 then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение Uэт','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
end
else
begin
if Form6.RxCalcEdit1.Value<>-512 then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение Uэт','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
end;
end;

if Bool512=1 then
begin
if Form6.Edit22.Text<>'0' then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение сигнала из компаратора','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
//Form5.Label22.Caption:='1';

if KodingValue>0 then
begin
if Form6.Edit24.Text<>'1' then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение из БКЭ','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
//Form6.Edit24.Caption:='1'
end
else
begin
if Form6.Edit4.Text<>'1' then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение из БКЭ','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
//Form6.Edit4.Caption:='1';
end;

if Form6.Edit44.Text<>'1' then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение из БВС','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
//Form5.Label44.Caption:='1';

if KodingValue>0 then
begin
if Form6.RxCalcEdit1.Value<>512 then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение Uэт','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
end
else
begin
if Form6.RxCalcEdit1.Value<>-512 then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение Uэт','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
end;
end;
Form6.Label1.Caption:='Конец 3-го такта. Определение номера сегмента амплитудной характеристики';
Form6.Edit22.Visible:=false;
Form6.LMDLight1.Visible:=true;
Form6.LMDLight2.Visible:=false;
Form6.LMDLight3.Visible:=false;
Form6.LMDLight4.Visible:=false;
Form6.RxCalcEdit1.Color:=clBtnFace;
Form6.Edit22.Color:=clBtnFace;
end;




if Num=6 then
begin
//Form5.Label1.Caption:='Конец 3-го такта. Определение номера сегмента амплитудной характеристики';
//Form5.Label22.Visible:=false;

if Bool32=0 then
begin
if Form6.Edit16.Text<>'0' then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение номера сегмента амплитудной характеристики','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
//Form5.Edit16.Caption:='0';

if KodingValue>0 then
begin
if Form6.Edit28.Text<>'0' then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение из БКЭ','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
//Form6.Edit28.Caption:='0'
end
else
begin
if Form6.Edit8.Text<>'0' then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение из БКЭ','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
//Form6.Edit8.Caption:='0';
end;

if Form6.Edit48.Text<>'0' then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение из БВС','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;

if Form6.RxCalcEdit1.Value<>0 then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение Uэт','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
//Label2.Caption:='0';
end;

if Bool32=1 then
begin
if Form6.Edit16.Text<>'1' then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение номера сегмента амплитудной характеристики','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
//Form5.Edit16.Caption:='1';

if KodingValue>0 then
begin
if Form6.Edit28.Text<>'1' then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение из БКЭ','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
//Form6.Edit28.Caption:='1'
end
else
begin
if Form6.Edit8.Text<>'1' then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение из БКЭ','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
//Form6.Edit8.Caption:='1';
end;

if Form6.Edit48.Text<>'1' then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение из БВС','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;

if KodingValue>0 then
begin
if Form6.RxCalcEdit1.Value<>32 then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение Uэт','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
end
else
begin
if Form6.RxCalcEdit1.Value<>-32 then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение Uэт','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
end;
//Label2.Caption:='1';
end;


if Bool512=0 then
begin
if Form6.Edit16.Text<>'0' then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение номера сегмента амплитудной характеристики','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
//Form5.Edit16.Caption:='0';

if KodingValue>0 then
begin
if Form6.Edit26.Text<>'1' then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение из БКЭ','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
//Form6.Edit26.Caption:='1'
end
else
begin
if Form6.Edit6.Text<>'1' then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение из БКЭ','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
//Form6.Edit6.Caption:='1';
end;

if Form6.Edit46.Text<>'1' then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение из БВС','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;


if KodingValue>0 then
begin
if Form6.Edit24.Text<>'0' then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение из БКЭ','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
//Form6.Edit24.Caption:='0'
end
else
begin
if Form6.Edit4.Text<>'0' then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение из БКЭ','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
//Form6.Edit4.Caption:='0';
end;

if Form6.Edit44.Text<>'0' then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение из БВС','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;


if KodingValue>0 then
begin
if Form6.RxCalcEdit1.Value<>128 then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение Uэт','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
end
else
begin
if Form6.RxCalcEdit1.Value<>-128 then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение Uэт','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
end;
//Label2.Caption:='128';

end;



if Bool512=1 then
begin
if Form6.Edit16.Text<>'1' then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение номера сегмента амплитудной характеристики','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;

if KodingValue>0 then
begin
if Form6.Edit24.Text<>'1' then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение из БКЭ','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
//Form6.Edit24.Caption:='1'
end
else
begin
if Form6.Edit4.Text<>'1' then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение из БКЭ','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
//Form6.Edit4.Caption:='1';
end;

if Form6.Edit44.Text<>'1' then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение из БВС','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;

if KodingValue>0 then
begin
if Form6.RxCalcEdit1.Value<>512 then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение Uэт','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
end
else
begin
if Form6.RxCalcEdit1.Value<>-512 then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение Uэт','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
end;
end;
Form6.Label1.Caption:='Начало 4-го такта. Определение номера сегмента амплитудной характеристики';
Form6.Edit22.Visible:=true;
Form6.LMDLight1.Visible:=true;
Form6.LMDLight2.Visible:=false;
Form6.LMDLight3.Visible:=false;
Form6.LMDLight4.Visible:=false;
Form6.RxCalcEdit1.Color:=clBtnFace;
Form6.Edit22.Color:=clBtnFace;
end;





if Num=7 then
begin

if Bool32<>-1 then
begin

if Bool32=0 then
begin
Val:=16;
if Val>Abs(KodingValue) then
begin
Val:=0;
end
else
begin
end;
end//Конец if Bool32=0//
else
begin
Val:=64;
if Val>Abs(KodingValue) then
begin
Val:=32;
Bool16:=0;
end
else
begin
Val:=64;
end;
end;

end;

if Bool512<>-1 then
begin

if Bool512=0 then
begin
Val:=256;
if Val>Abs(KodingValue) then
begin
Val:=128;
end
else
begin
end;
end//Конец if Bool512=0//
else
begin
Val:=1024;
if Val>Abs(KodingValue) then
begin
Val:=512;
end
else
begin
Val:=1024;
end;
end;

end;


if Form6.Edit17.Text<>'1' then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение номера сегмента амплитудной характеристики','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
//Form5.Label17.Caption:='1';

if KodingValue>0 then
begin
if Form6.Edit28.Text<>'0' then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение из БКЭ','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
//Form6.Edit28.Caption:='0'
end
else
begin
if Form6.Edit8.Text<>'0' then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение из БКЭ','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
//Form6.Edit8.Caption:='0';
end;

if Form6.Edit48.Text<>'0' then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение из БВС','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
//Form5.Label8.Caption:='0';
//Form5.Label28.Caption:='0';
//Form5.Label48.Caption:='0';

if KodingValue>0 then
begin
if Form6.Edit24.Text<>'0' then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение из БКЭ','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
//Form6.Edit24.Caption:='0'
end
else
begin
if Form6.Edit4.Text<>'0' then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение из БКЭ','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
//Form6.Edit4.Caption:='0';
end;

if Form6.Edit44.Text<>'0' then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение из БВС','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
//Form5.Label4.Caption:='0';
//Form5.Label24.Caption:='0';
//Form5.Label44.Caption:='0';

if KodingValue>0 then
begin
if Form6.Edit26.Text<>'0' then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение из БКЭ','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
//Form6.Edit26.Caption:='0'
end
else
begin
if Form6.Edit6.Text<>'0' then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение из БКЭ','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
//Form6.Edit6.Caption:='0';
end;

if Form6.Edit46.Text<>'0' then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение из БВС','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
//Form5.Label6.Caption:='0';
//Form5.Label26.Caption:='0';
//Form5.Label46.Caption:='0';




if Val=0 then
begin
if Form6.Edit22.Text<>'1' then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение сигнала из компаратора','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
//Form5.Label22.Caption:='1';

if KodingValue>0 then
begin
if Form6.Edit29.Text<>'1' then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение из БКЭ','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
//Form6.Edit29.Caption:='1'
end
else
begin
if Form6.Edit9.Text<>'1' then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение из БКЭ','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
//Form6.Edit6.Caption:='1';
end;

if Form6.Edit49.Text<>'1' then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение из БВС','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
//if Form5.RxCalcEdit1.Value>0 then
//Form5.Label29.Caption:='1'
//else
//Form5.Label9.Caption:='1';
//Form5.Label49.Caption:='1';

if KodingValue>0 then
begin
if Form6.RxCalcEdit1.Value<>16 then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение Uэт','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
end
else
begin
if Form6.RxCalcEdit1.Value<>-16 then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение Uэт','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
end;
//Label2.Caption:='16';
end;

if Val=16 then
begin
if Form6.Edit22.Text<>'0' then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение сигнала из компаратора','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
//Form5.Label22.Caption:='0';

if KodingValue>0 then
begin
if Form6.Edit29.Text<>'1' then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение из БКЭ','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
//Form6.Edit29.Caption:='1'
end
else
begin
if Form6.Edit9.Text<>'1' then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение из БКЭ','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
//Form6.Edit6.Caption:='1';
end;

if Form6.Edit49.Text<>'1' then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение из БВС','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
{if Form5.RxCalcEdit1.Value>0 then
Form5.Label29.Caption:='1'
else
Form5.Label9.Caption:='1';
Form5.Label49.Caption:='1';}
if KodingValue>0 then
begin
if Form6.RxCalcEdit1.Value<>16 then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение Uэт','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
end
else
begin
if Form6.RxCalcEdit1.Value<>-16 then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение Uэт','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
end;
//Label2.Caption:='16';
end;


if Val=32 then
begin
if Form6.Edit22.Text<>'1' then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение сигнала из компаратора','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
//Form5.Label22.Caption:='1';

if KodingValue>0 then
begin
if Form6.Edit27.Text<>'1' then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение из БКЭ','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
//Form6.Edit27.Caption:='1'
end
else
begin
if Form6.Edit7.Text<>'1' then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение из БКЭ','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
//Form6.Edit6.Caption:='1';
end;

if Form6.Edit47.Text<>'1' then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение из БВС','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
{if Form5.RxCalcEdit1.Value>0 then
Form5.Label27.Caption:='1'
else
Form5.Label7.Caption:='1';
Form5.Label47.Caption:='1';  }

if KodingValue>0 then
begin
if Form6.RxCalcEdit1.Value<>64 then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение Uэт','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
end
else
begin
if Form6.RxCalcEdit1.Value<>-64 then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение Uэт','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
end;
//Label2.Caption:='64';
end;


if Val=64 then
begin
if Form6.Edit22.Text<>'0' then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение сигнала из компаратора','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
//Form5.Label22.Caption:='0';

if KodingValue>0 then
begin
if Form6.Edit27.Text<>'1' then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение из БКЭ','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
//Form6.Edit27.Caption:='1'
end
else
begin
if Form6.Edit7.Text<>'1' then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение из БКЭ','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
//Form6.Edit6.Caption:='1';
end;

if Form6.Edit47.Text<>'1' then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение из БВС','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
{if Form5.RxCalcEdit1.Value>0 then
Form5.Label27.Caption:='1'
else
Form5.Label7.Caption:='1';
Form5.Label47.Caption:='1'; }
if KodingValue>0 then
begin
if Form6.RxCalcEdit1.Value<>64 then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение Uэт','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
end
else
begin
if Form6.RxCalcEdit1.Value<>-64 then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение Uэт','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
end;
//Label2.Caption:='64';
end;


if Val=128 then
begin
if Form6.Edit22.Text<>'1' then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение сигнала из компаратора','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
//Form5.Label22.Caption:='1';

if KodingValue>0 then
begin
if Form6.Edit25.Text<>'1' then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение из БКЭ','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
//Form6.Edit25.Caption:='1'
end
else
begin
if Form6.Edit5.Text<>'1' then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение из БКЭ','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
//Form6.Edit6.Caption:='1';
end;

if Form6.Edit45.Text<>'1' then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение из БВС','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
{if Form5.RxCalcEdit1.Value>0 then
Form5.Label25.Caption:='1'
else
Form5.Label5.Caption:='1';
Form5.Label45.Caption:='1';  }

if KodingValue>0 then
begin
if Form6.RxCalcEdit1.Value<>256 then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение Uэт','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
end
else
begin
if Form6.RxCalcEdit1.Value<>-256 then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение Uэт','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
end;
//Label2.Caption:='256';
end;



if Val=256 then
begin
if Form6.Edit22.Text<>'0' then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение сигнала из компаратора','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
//Form5.Label22.Caption:='0';

if KodingValue>0 then                                     
begin
if Form6.Edit25.Text<>'1' then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение из БКЭ','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
//Form6.Edit25.Caption:='1'
end
else
begin
if Form6.Edit5.Text<>'1' then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение из БКЭ','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
//Form6.Edit6.Caption:='1';
end;

if Form6.Edit45.Text<>'1' then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение из БВС','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
{if Form5.RxCalcEdit1.Value>0 then
Form5.Label25.Caption:='1'
else
Form5.Label5.Caption:='1';
Form5.Label45.Caption:='1'; }
if KodingValue>0 then
begin
if Form6.RxCalcEdit1.Value<>256 then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение Uэт','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
end
else
begin
if Form6.RxCalcEdit1.Value<>-256 then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение Uэт','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
end;
//Label2.Caption:='256';
end;


if Val=512 then
begin
if Form6.Edit22.Text<>'1' then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение сигнала из компаратора','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
//Form5.Label22.Caption:='1';

if KodingValue>0 then
begin
if Form6.Edit23.Text<>'1' then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение из БКЭ','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
//Form6.Edit23.Caption:='1'
end
else
begin
if Form6.Edit3.Text<>'1' then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение из БКЭ','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
//Form6.Edit3.Caption:='1';
end;

if Form6.Edit43.Text<>'1' then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение из БВС','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
{if Form5.RxCalcEdit1.Value>0 then
Form5.Label23.Caption:='1'
else
Form5.Label3.Caption:='1';
Form5.Label43.Caption:='1'; }

if KodingValue>0 then
begin
if Form6.RxCalcEdit1.Value<>1024 then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение Uэт','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
end
else
begin
if Form6.RxCalcEdit1.Value<>-1024 then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение Uэт','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
end;
//Label2.Caption:='1024';
end;

if Val=1024 then
begin
if Form6.Edit22.Text<>'0' then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение сигнала из компаратора','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
//Form5.Label22.Caption:='0';

if KodingValue>0 then
begin
if Form6.Edit23.Text<>'1' then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение из БКЭ','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
//Form6.Edit23.Caption:='1'
end
else
begin
if Form6.Edit3.Text<>'1' then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение из БКЭ','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
//Form6.Edit3.Caption:='1';
end;

if Form6.Edit43.Text<>'1' then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение из БВС','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
{if Form5.RxCalcEdit1.Value>0 then
Form5.Label23.Caption:='1'
else
Form5.Label3.Caption:='1';
Form5.Label43.Caption:='1';  }

if KodingValue>0 then
begin
if Form6.RxCalcEdit1.Value<>1024 then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение Uэт','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
end
else
begin
if Form6.RxCalcEdit1.Value<>-1024 then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение Uэт','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
end;
//Label2.Caption:='1024';
end;
Form6.Label1.Caption:='Конец 4-го такта. Определение номера сегмента амплитудной характеристики';
Form6.Edit22.Visible:=false;
Form6.LMDLight1.Visible:=true;
Form6.LMDLight2.Visible:=false;
Form6.LMDLight3.Visible:=false;
Form6.LMDLight4.Visible:=false;
Form6.RxCalcEdit1.Color:=clBtnFace;
Form6.Edit22.Color:=clBtnFace;
end;







if Num=8 then
begin

if Val=0 then
begin

if Form6.Edit17.Text<>'0' then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение номера сегмента амплитудной характеристики','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
//Form5.Label17.Caption:='0';

if KodingValue>0 then
begin
if Form6.Edit29.Text<>'0' then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение из БКЭ','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
//Form6.Edit29.Caption:='0'
end
else
begin
if Form6.Edit9.Text<>'0' then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение из БКЭ','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
//Form6.Edit9.Caption:='0';
end;

if Form6.Edit49.Text<>'0' then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение из БВС','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
{if Form5.RxCalcEdit1.Value>0 then
Form5.Label29.Caption:='0'
else
Form5.Label9.Caption:='0';
Form5.Label49.Caption:='0'; }


if Form6.RxCalcEdit1.Value<>0 then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение Uэт','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
//Label2.Caption:='0';
end;

if Val=16 then
begin
if Form6.Edit17.Text<>'1' then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение номера сегмента амплитудной характеристики','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
//Form5.Label17.Caption:='1';

if KodingValue>0 then
begin
if Form6.Edit29.Text<>'1' then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение из БКЭ','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
//Form6.Edit29.Caption:='1'
end
else
begin
if Form6.Edit9.Text<>'1' then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение из БКЭ','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
//Form6.Edit9.Caption:='1';
end;

if Form6.Edit49.Text<>'1' then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение из БВС','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
{if Form5.RxCalcEdit1.Value>0 then
Form5.Label29.Caption:='1'
else
Form5.Label9.Caption:='1';
Form5.Label49.Caption:='1'; }

if KodingValue>0 then
begin
if Form6.RxCalcEdit1.Value<>16 then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение Uэт','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
end
else
begin
if Form6.RxCalcEdit1.Value<>-16 then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение Uэт','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
end;
//Label2.Caption:='16';
end;


if Val=32 then
begin
if Form6.Edit17.Text<>'0' then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение номера сегмента амплитудной характеристики','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
//Form5.Label17.Caption:='0';

if KodingValue>0 then
begin
if Form6.Edit28.Text<>'1' then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение из БКЭ','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
//Form6.Edit28.Caption:='1'
end
else
begin
if Form6.Edit8.Text<>'1' then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение из БКЭ','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
//Form6.Edit8.Caption:='1';
end;

if Form6.Edit48.Text<>'1' then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение из БВС','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
//Form5.Label8.Caption:='1';
//Form5.Label28.Caption:='1';
//Form5.Label48.Caption:='1';

if KodingValue>0 then
begin
if Form6.Edit27.Text<>'0' then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение из БКЭ','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
//Form6.Edit27.Caption:='0'
end
else
begin
if Form6.Edit7.Text<>'0' then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение из БКЭ','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
//Form6.Edit7.Caption:='0';
end;

if Form6.Edit47.Text<>'0' then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение из БВС','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
{if Form5.RxCalcEdit1.Value>0 then
Form5.Label27.Caption:='0'
else
Form5.Label7.Caption:='0';
Form5.Label47.Caption:='0'; }

if KodingValue>0 then
begin
if Form6.RxCalcEdit1.Value<>32 then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение Uэт','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
end
else
begin
if Form6.RxCalcEdit1.Value<>-32 then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение Uэт','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
end;
//Label2.Caption:='32';
end;


if Val=64 then
begin
if Form6.Edit17.Text<>'1' then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение номера сегмента амплитудной характеристики','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
//Form5.Label17.Caption:='1';

if KodingValue>0 then
begin
if Form6.Edit27.Text<>'1' then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение из БКЭ','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
//Form6.Edit27.Caption:='1'
end
else
begin
if Form6.Edit7.Text<>'1' then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение из БКЭ','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
//Form6.Edit7.Caption:='1';
end;

if Form6.Edit47.Text<>'1' then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение из БВС','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
{if Form5.RxCalcEdit1.Value>0 then
Form5.Label27.Caption:='1'
else
Form5.Label7.Caption:='1';
Form5.Label47.Caption:='1';}

if KodingValue>0 then
begin
if Form6.RxCalcEdit1.Value<>64 then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение Uэт','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
end
else
begin
if Form6.RxCalcEdit1.Value<>-64 then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение Uэт','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
end;
//Label2.Caption:='64';
end;


if Val=128 then
begin
if Form6.Edit17.Text<>'0' then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение номера сегмента амплитудной характеристики','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
//Form5.Label17.Caption:='0';

if KodingValue>0 then
begin
if Form6.Edit26.Text<>'1' then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение из БКЭ','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
//Form6.Edit26.Caption:='1'
end
else
begin
if Form6.Edit6.Text<>'1' then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение из БКЭ','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
//Form6.Edit6.Caption:='1';
end;

if Form6.Edit46.Text<>'1' then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение из БВС','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
//Form5.Label6.Caption:='1';
//Form5.Label26.Caption:='1';
//Form5.Label46.Caption:='1';

if KodingValue>0 then
begin
if Form6.Edit25.Text<>'0' then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение из БКЭ','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
//Form6.Edit25.Caption:='0'
end
else
begin
if Form6.Edit5.Text<>'0' then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение из БКЭ','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
//Form6.Edit5.Caption:='0';
end;

if Form6.Edit45.Text<>'0' then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение из БВС','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
{if Form5.RxCalcEdit1.Value>0 then
Form5.Label25.Caption:='0'
else
Form5.Label5.Caption:='0';
Form5.Label45.Caption:='0';}

if KodingValue>0 then
begin
if Form6.RxCalcEdit1.Value<>128 then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение Uэт','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
end
else
begin
if Form6.RxCalcEdit1.Value<>-128 then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение Uэт','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
end;
//Label2.Caption:='128';
end;

if Val=256 then
begin
if Form6.Edit17.Text<>'1' then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение номера сегмента амплитудной характеристики','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
//Form5.Label17.Caption:='1';

if KodingValue>0 then
begin
if Form6.Edit25.Text<>'1' then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение из БКЭ','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
//Form6.Edit25.Caption:='1'
end
else
begin
if Form6.Edit5.Text<>'1' then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение из БКЭ','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
//Form6.Edit5.Caption:='1';
end;

if Form6.Edit45.Text<>'1' then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение из БВС','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
{if Form5.RxCalcEdit1.Value>0 then
Form5.Label25.Caption:='1'
else
Form5.Label5.Caption:='1';
Form5.Label45.Caption:='1'; }

if KodingValue>0 then
begin
if Form6.RxCalcEdit1.Value<>256 then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение Uэт','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
end
else
begin
if Form6.RxCalcEdit1.Value<>-256 then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение Uэт','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
end;
//Label2.Caption:='256';
end;


if Val=512 then
begin
if Form6.Edit17.Text<>'0' then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение номера сегмента амплитудной характеристики','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
//Form5.Label17.Caption:='0';

if KodingValue>0 then
begin
if Form6.Edit24.Text<>'1' then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение из БКЭ','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
//Form6.Edit24.Caption:='1'
end
else
begin
if Form6.Edit4.Text<>'1' then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение из БКЭ','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
//Form6.Edit4.Caption:='1';
end;

if Form6.Edit44.Text<>'1' then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение из БВС','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
//Form5.Label4.Caption:='1';
//Form5.Label24.Caption:='1';
//Form5.Label44.Caption:='1';

if KodingValue>0 then
begin
if Form6.Edit23.Text<>'0' then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение из БКЭ','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
//Form6.Edit23.Caption:='0'
end
else
begin
if Form6.Edit3.Text<>'0' then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение из БКЭ','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
//Form6.Edit3.Caption:='0';
end;

if Form6.Edit43.Text<>'0' then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение из БВС','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
{if Form5.RxCalcEdit1.Value>0 then
Form5.Label23.Caption:='0'
else
Form5.Label3.Caption:='0';
Form5.Label43.Caption:='0';}
if KodingValue>0 then
begin
if Form6.RxCalcEdit1.Value<>512 then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение Uэт','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
end
else
begin
if Form6.RxCalcEdit1.Value<>-512 then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение Uэт','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
end;
//Label2.Caption:='512';
end;

if Val=1024 then
begin
if Form6.Edit17.Text<>'1' then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение номера сегмента амплитудной характеристики','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
//Form5.Label17.Caption:='1';

if KodingValue>0 then
begin
if Form6.Edit23.Text<>'1' then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение из БКЭ','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
//Form6.Edit23.Caption:='0'
end
else
begin
if Form6.Edit3.Text<>'1' then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение из БКЭ','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
//Form6.Edit3.Caption:='0';
end;

if Form6.Edit43.Text<>'1' then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение из БВС','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
{if Form5.RxCalcEdit1.Value>0 then
Form5.Label23.Caption:='1'
else
Form5.Label3.Caption:='1';
Form5.Label43.Caption:='1';}

if KodingValue>0 then
begin
if Form6.RxCalcEdit1.Value<>1024 then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение Uэт','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
end
else
begin
if Form6.RxCalcEdit1.Value<>-1024 then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение Uэт','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
end;
//Label2.Caption:='1024';
end;

Form6.Label1.Caption:='Начало 5-го такта. Определение шага внутри сегмента';
Form6.Edit22.Visible:=true;
Form6.LMDLight1.Visible:=true;
Form6.LMDLight2.Visible:=false;
Form6.LMDLight3.Visible:=false;
Form6.LMDLight4.Visible:=false;
Form6.RxCalcEdit1.Color:=clBtnFace;
Form6.Edit22.Color:=clBtnFace;
end;





if Num=9 then
begin

if Form6.Edit18.Text<>'1' then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение номера сегмента амплитудной характеристики','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;

if Val=1024 then
begin
Val:=Val+512;
Value2:=Val;
Boo1024:=1;
if Val>Abs(KodingValue) then
begin
Val:=Val-512;
if Form6.Edit22.Text<>'1' then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение сигнала из компаратора','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
//Form5.Label22.Caption:='1';
end
else
begin
if Form6.Edit22.Text<>'0' then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение сигнала из компаратора','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
//Form5.Label22.Caption:='0';
end;

if KodingValue>0 then
begin
if Form6.Edit24.Text<>'1' then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение из БКЭ','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
//Form6.Edit24.Caption:='1'
end
else
begin
if Form6.Edit4.Text<>'1' then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение из БКЭ','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
//Form6.Edit4.Caption:='1';
end;

if Form6.Edit44.Text<>'1' then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение из БВС','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
{if Form5.RxCalcEdit1.Value>0 then
Form5.Label24.Caption:='1'
else
Form5.Label4.Caption:='1';
Form5.Label44.Caption:='1'; }



if KodingValue>0 then
begin
if Form6.RxCalcEdit1.Value<>Value2 then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение Uэт','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
end
else
begin
if Form6.RxCalcEdit1.Value<>-Value2 then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение Uэт','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
end;

//Label2.Caption:=FloatToStr(Value2);
end;


if Val=512 then
begin
Val:=Val+256;
Value2:=Val;
Boo512:=1;
if Val>Abs(KodingValue) then
begin
Val:=Val-256;
if Form6.Edit22.Text<>'1' then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение сигнала из компаратора','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
//Form5.Label22.Caption:='1';
end
else
begin
if Form6.Edit22.Text<>'0' then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение сигнала из компаратора','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
//Form5.Label22.Caption:='0';
end;

if KodingValue>0 then
begin
if Form6.Edit25.Text<>'1' then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение из БКЭ','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
//Form6.Edit24.Caption:='1'
end
else
begin
if Form6.Edit5.Text<>'1' then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение из БКЭ','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
//Form6.Edit4.Caption:='1';
end;

if Form6.Edit45.Text<>'1' then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение из БВС','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
{if Form5.RxCalcEdit1.Value>0 then
Form5.Label24.Caption:='1'
else
Form5.Label4.Caption:='1';
Form5.Label44.Caption:='1'; }

if KodingValue>0 then
begin
if Form6.RxCalcEdit1.Value<>Value2 then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение Uэт','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
end
else
begin
if Form6.RxCalcEdit1.Value<>-Value2 then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение Uэт','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
end;
end;

if Val=256 then
begin
Val:=Val+128;
Value2:=Val;
Boo256:=1;
if Val>Abs(KodingValue) then
begin
Val:=Val-128;
if Form6.Edit22.Text<>'1' then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение сигнала из компаратора','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
//Form5.Label22.Caption:='1';
end
else
begin
if Form6.Edit22.Text<>'0' then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение сигнала из компаратора','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
//Form5.Label22.Caption:='0';
end;

if KodingValue>0 then
begin
if Form6.Edit26.Text<>'1' then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение из БКЭ','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
//Form6.Edit24.Caption:='1'
end
else
begin
if Form6.Edit6.Text<>'1' then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение из БКЭ','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
//Form6.Edit4.Caption:='1';
end;

if Form6.Edit46.Text<>'1' then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение из БВС','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
{if Form5.RxCalcEdit1.Value>0 then
Form5.Label24.Caption:='1'
else
Form5.Label4.Caption:='1';
Form5.Label44.Caption:='1'; }

if KodingValue>0 then
begin
if Form6.RxCalcEdit1.Value<>Value2 then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение Uэт','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
end
else
begin
if Form6.RxCalcEdit1.Value<>-Value2 then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение Uэт','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
end;
end;


if Val=128 then
begin
Val:=Val+64;
Value2:=Val;
Boo128:=1;
if Val>Abs(KodingValue) then
begin
Val:=Val-64;
if Form6.Edit22.Text<>'1' then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение сигнала из компаратора','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
//Form5.Label22.Caption:='1';
end
else
begin
if Form6.Edit22.Text<>'0' then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение сигнала из компаратора','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
//Form5.Label22.Caption:='0';
end;

if KodingValue>0 then
begin
if Form6.Edit27.Text<>'1' then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение из БКЭ','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
//Form6.Edit24.Caption:='1'
end
else
begin
if Form6.Edit7.Text<>'1' then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение из БКЭ','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
//Form6.Edit4.Caption:='1';
end;

if Form6.Edit47.Text<>'1' then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение из БВС','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
{if Form5.RxCalcEdit1.Value>0 then
Form5.Label24.Caption:='1'
else
Form5.Label4.Caption:='1';
Form5.Label44.Caption:='1'; }

if KodingValue>0 then
begin
if Form6.RxCalcEdit1.Value<>Value2 then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение Uэт','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
end
else
begin
if Form6.RxCalcEdit1.Value<>-Value2 then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение Uэт','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
end;
end;


if Val=64 then
begin
Val:=Val+32;
Value2:=Val;
Boo64:=1;
if Val>Abs(KodingValue) then
begin
Val:=Val-32;
if Form6.Edit22.Text<>'1' then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение сигнала из компаратора','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
//Form5.Label22.Caption:='1';
end
else
begin
if Form6.Edit22.Text<>'0' then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение сигнала из компаратора','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
//Form5.Label22.Caption:='0';
end;

if KodingValue>0 then
begin
if Form6.Edit28.Text<>'1' then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение из БКЭ','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
//Form6.Edit24.Caption:='1'
end
else
begin
if Form6.Edit8.Text<>'1' then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение из БКЭ','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
//Form6.Edit4.Caption:='1';
end;

if Form6.Edit48.Text<>'1' then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение из БВС','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
{if Form5.RxCalcEdit1.Value>0 then
Form5.Label24.Caption:='1'
else
Form5.Label4.Caption:='1';
Form5.Label44.Caption:='1'; }

if KodingValue>0 then
begin
if Form6.RxCalcEdit1.Value<>Value2 then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение Uэт','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
end
else
begin
if Form6.RxCalcEdit1.Value<>-Value2 then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение Uэт','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
end;
end;


if Val=32 then
begin
Val:=Val+16;
Value2:=Val;
Boo32:=1;
if Val>Abs(KodingValue) then
begin
Val:=Val-16;
if Form6.Edit22.Text<>'1' then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение сигнала из компаратора','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
//Form5.Label22.Caption:='1';
end
else
begin
if Form6.Edit22.Text<>'0' then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение сигнала из компаратора','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
//Form5.Label22.Caption:='0';
end;

if KodingValue>0 then
begin
if Form6.Edit29.Text<>'1' then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение из БКЭ','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
//Form6.Edit24.Caption:='1'
end
else
begin
if Form6.Edit9.Text<>'1' then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение из БКЭ','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
//Form6.Edit4.Caption:='1';
end;

if Form6.Edit49.Text<>'1' then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение из БВС','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
{if Form5.RxCalcEdit1.Value>0 then
Form5.Label24.Caption:='1'
else
Form5.Label4.Caption:='1';
Form5.Label44.Caption:='1'; }

if KodingValue>0 then
begin
if Form6.RxCalcEdit1.Value<>Value2 then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение Uэт','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
end
else
begin
if Form6.RxCalcEdit1.Value<>-Value2 then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение Uэт','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
end;
end;


if (Val=16) or (Val=0) then
begin
Val:=Val+8;
Value2:=Val;
Boo16:=1;
if Val>Abs(KodingValue) then
begin
Val:=Val-8;
if Form6.Edit22.Text<>'1' then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение сигнала из компаратора','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
//Form5.Label22.Caption:='1';
end
else
begin
if Form6.Edit22.Text<>'0' then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение сигнала из компаратора','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
//Form5.Label22.Caption:='0';
end;

if KodingValue>0 then
begin
if Form6.Edit30.Text<>'1' then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение из БКЭ','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
//Form6.Edit24.Caption:='1'
end
else
begin
if Form6.Edit10.Text<>'1' then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение из БКЭ','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
//Form6.Edit4.Caption:='1';
end;

if Form6.Edit50.Text<>'1' then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение из БВС','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
{if Form5.RxCalcEdit1.Value>0 then
Form5.Label24.Caption:='1'
else
Form5.Label4.Caption:='1';
Form5.Label44.Caption:='1'; }

if KodingValue>0 then
begin
if Form6.RxCalcEdit1.Value<>Value2 then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение Uэт','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
end
else
begin
if Form6.RxCalcEdit1.Value<>-Value2 then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение Uэт','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
end;
end;

Form6.Label1.Caption:='Конец 5-го такта. Определение номера сегмента амплитудной характеристики';
Form6.Edit22.Visible:=false;
Form6.LMDLight1.Visible:=true;
Form6.LMDLight2.Visible:=false;
Form6.LMDLight3.Visible:=false;
Form6.LMDLight4.Visible:=false;
Form6.RxCalcEdit1.Color:=clBtnFace;
Form6.Edit22.Color:=clBtnFace;
end;






if Num=10 then
begin

if Boo1024=1 then
begin
if Val=Value2 then
begin
if Form6.Edit18.Text<>'1' then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение номера сегмента амплитудной характеристики','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
//Form5.Label18.Caption:='1';
end
else
begin
if Form6.Edit18.Text<>'0' then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение номера сегмента амплитудной характеристики','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
//Form5.Label18.Caption:='0';

if KodingValue>0 then
begin
if Form6.Edit24.Text<>'0' then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение из БКЭ','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
//Form6.Edit24.Caption:='0'
end
else
begin
if Form6.Edit4.Text<>'0' then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение из БКЭ','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
//Form6.Edit4.Caption:='0';
end;

if Form6.Edit44.Text<>'0' then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение из БВС','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
{if Form5.RxCalcEdit1.Value>0 then
Form5.Label24.Caption:='0'
else
Form5.Label4.Caption:='0';
Form5.Label44.Caption:='0';}
end;
if KodingValue>0 then
begin
if Form6.RxCalcEdit1.Value<>Val then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение Uэт','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
end
else
begin
if Form6.RxCalcEdit1.Value<>-Val then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение Uэт','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
end;
//Label2.Caption:=FloatToStr(Val);
end;


if Boo512=1 then
begin
if Val=Value2 then
begin
if Form6.Edit18.Text<>'1' then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение номера сегмента амплитудной характеристики','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
//Form5.Label18.Caption:='1';
end
else
begin
if Form6.Edit18.Text<>'0' then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение номера сегмента амплитудной характеристики','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
//Form5.Label18.Caption:='0';

if KodingValue>0 then
begin
if Form6.Edit25.Text<>'0' then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение из БКЭ','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
//Form6.Edit24.Caption:='0'
end
else
begin
if Form6.Edit5.Text<>'0' then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение из БКЭ','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
//Form6.Edit4.Caption:='0';
end;

if Form6.Edit45.Text<>'0' then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение из БВС','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
{if Form5.RxCalcEdit1.Value>0 then
Form5.Label24.Caption:='0'
else
Form5.Label4.Caption:='0';
Form5.Label44.Caption:='0';}
end;
if KodingValue>0 then
begin
if Form6.RxCalcEdit1.Value<>Val then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение Uэт','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
end
else
begin
if Form6.RxCalcEdit1.Value<>-Val then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение Uэт','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
end;
end;

if Boo256=1 then
begin
if Val=Value2 then
begin
if Form6.Edit18.Text<>'1' then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение номера сегмента амплитудной характеристики','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
//Form5.Label18.Caption:='1';
end
else
begin
if Form6.Edit18.Text<>'0' then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение номера сегмента амплитудной характеристики','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
//Form5.Label18.Caption:='0';

if KodingValue>0 then
begin
if Form6.Edit26.Text<>'0' then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение из БКЭ','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
//Form6.Edit24.Caption:='0'
end
else
begin
if Form6.Edit6.Text<>'0' then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение из БКЭ','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
//Form6.Edit4.Caption:='0';
end;

if Form6.Edit46.Text<>'0' then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение из БВС','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
{if Form5.RxCalcEdit1.Value>0 then
Form5.Label24.Caption:='0'
else
Form5.Label4.Caption:='0';
Form5.Label44.Caption:='0';}
end;
if KodingValue>0 then
begin
if Form6.RxCalcEdit1.Value<>Val then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение Uэт','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
end
else
begin
if Form6.RxCalcEdit1.Value<>-Val then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение Uэт','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
end;
end;


if Boo128=1 then
begin
if Val=Value2 then
begin
if Form6.Edit18.Text<>'1' then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение номера сегмента амплитудной характеристики','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
//Form5.Label18.Caption:='1';
end
else
begin
if Form6.Edit18.Text<>'0' then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение номера сегмента амплитудной характеристики','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
//Form5.Label18.Caption:='0';

if KodingValue>0 then
begin
if Form6.Edit27.Text<>'0' then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение из БКЭ','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
//Form6.Edit24.Caption:='0'
end
else
begin
if Form6.Edit7.Text<>'0' then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение из БКЭ','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
//Form6.Edit4.Caption:='0';
end;

if Form6.Edit47.Text<>'0' then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение из БВС','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
{if Form5.RxCalcEdit1.Value>0 then
Form5.Label24.Caption:='0'
else
Form5.Label4.Caption:='0';
Form5.Label44.Caption:='0';}
end;
if KodingValue>0 then
begin
if Form6.RxCalcEdit1.Value<>Val then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение Uэт','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
end
else
begin
if Form6.RxCalcEdit1.Value<>-Val then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение Uэт','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
end;
end;


if Boo64=1 then
begin
if Val=Value2 then
begin
if Form6.Edit18.Text<>'1' then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение номера сегмента амплитудной характеристики','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
//Form5.Label18.Caption:='1';
end
else
begin
if Form6.Edit18.Text<>'0' then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение номера сегмента амплитудной характеристики','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
//Form5.Label18.Caption:='0';

if KodingValue>0 then
begin
if Form6.Edit28.Text<>'0' then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение из БКЭ','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
//Form6.Edit24.Caption:='0'
end
else
begin
if Form6.Edit8.Text<>'0' then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение из БКЭ','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
//Form6.Edit4.Caption:='0';
end;

if Form6.Edit48.Text<>'0' then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение из БВС','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
{if Form5.RxCalcEdit1.Value>0 then
Form5.Label24.Caption:='0'
else
Form5.Label4.Caption:='0';
Form5.Label44.Caption:='0';}
end;
if KodingValue>0 then
begin
if Form6.RxCalcEdit1.Value<>Val then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение Uэт','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
end
else
begin
if Form6.RxCalcEdit1.Value<>-Val then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение Uэт','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
end;
end;


if Boo32=1 then
begin
if Val=Value2 then
begin
if Form6.Edit18.Text<>'1' then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение номера сегмента амплитудной характеристики','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
//Form5.Label18.Caption:='1';
end
else
begin
if Form6.Edit18.Text<>'0' then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение номера сегмента амплитудной характеристики','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
//Form5.Label18.Caption:='0';

if KodingValue>0 then
begin
if Form6.Edit29.Text<>'0' then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение из БКЭ','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
//Form6.Edit24.Caption:='0'
end
else
begin
if Form6.Edit9.Text<>'0' then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение из БКЭ','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
//Form6.Edit4.Caption:='0';
end;

if Form6.Edit49.Text<>'0' then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение из БВС','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
{if Form5.RxCalcEdit1.Value>0 then
Form5.Label24.Caption:='0'
else
Form5.Label4.Caption:='0';
Form5.Label44.Caption:='0';}
end;
if KodingValue>0 then
begin
if Form6.RxCalcEdit1.Value<>Val then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение Uэт','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
end
else
begin
if Form6.RxCalcEdit1.Value<>-Val then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение Uэт','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
end;
end;


if Boo16=1 then
begin
if Val=Value2 then
begin
if Form6.Edit18.Text<>'1' then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение номера сегмента амплитудной характеристики','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
//Form5.Label18.Caption:='1';
end
else
begin
if Form6.Edit18.Text<>'0' then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение номера сегмента амплитудной характеристики','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
//Form5.Label18.Caption:='0';

if KodingValue>0 then
begin
if Form6.Edit30.Text<>'0' then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение из БКЭ','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
//Form6.Edit24.Caption:='0'
end
else
begin
if Form6.Edit10.Text<>'0' then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение из БКЭ','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
//Form6.Edit4.Caption:='0';
end;

if Form6.Edit50.Text<>'0' then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение из БВС','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
{if Form5.RxCalcEdit1.Value>0 then
Form5.Label24.Caption:='0'
else
Form5.Label4.Caption:='0';
Form5.Label44.Caption:='0';}
end;
if KodingValue>0 then
begin
if Form6.RxCalcEdit1.Value<>Val then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение Uэт','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
end
else
begin
if Form6.RxCalcEdit1.Value<>-Val then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение Uэт','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
end;
end;
Form6.Label1.Caption:='Начало 6-го такта. Определение номера сегмента амплитудной характеристики';
Form6.Edit22.Visible:=true;
Form6.LMDLight1.Visible:=true;
Form6.LMDLight2.Visible:=false;
Form6.LMDLight3.Visible:=false;
Form6.LMDLight4.Visible:=false;
Form6.RxCalcEdit1.Color:=clBtnFace;
Form6.Edit22.Color:=clBtnFace;
end;








if Num=11 then
begin

if Form6.Edit19.Text<>'1' then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение номера сегмента амплитудной характеристики','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;

if Boo1024=1 then
begin
Val:=Val+256;
Value2:=Val;
if Val>Abs(KodingValue) then
begin
Val:=Val-256;
if Form6.Edit22.Text<>'1' then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение сигнала из компаратора','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
//Form5.Label22.Caption:='1';
end
else
begin
if Form6.Edit22.Text<>'0' then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение сигнала из компаратора','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
//Form5.Label22.Caption:='0';
end;

if KodingValue>0 then
begin
if Form6.Edit25.Text<>'1' then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение из БКЭ','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
//Form6.Edit24.Caption:='1'
end
else
begin
if Form6.Edit5.Text<>'1' then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение из БКЭ','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
//Form6.Edit4.Caption:='1';
end;

if Form6.Edit45.Text<>'1' then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение из БВС','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
{if Form5.RxCalcEdit1.Value>0 then
Form5.Label24.Caption:='1'
else
Form5.Label4.Caption:='1';
Form5.Label44.Caption:='1'; }

if KodingValue>0 then
begin
if Form6.RxCalcEdit1.Value<>Value2 then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение Uэт','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
end
else
begin
if Form6.RxCalcEdit1.Value<>-Value2 then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение Uэт','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
end;
//Label2.Caption:=FloatToStr(Value2);
end;


if Boo512=1 then
begin
Val:=Val+128;
Value2:=Val;
if Val>Abs(KodingValue) then
begin
Val:=Val-128;
if Form6.Edit22.Text<>'1' then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение сигнала из компаратора','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
//Form5.Label22.Caption:='1';
end
else
begin
if Form6.Edit22.Text<>'0' then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение сигнала из компаратора','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
//Form5.Label22.Caption:='0';
end;

if KodingValue>0 then
begin
if Form6.Edit26.Text<>'1' then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение из БКЭ','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
//Form6.Edit24.Caption:='1'
end
else
begin
if Form6.Edit6.Text<>'1' then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение из БКЭ','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
//Form6.Edit4.Caption:='1';
end;

if Form6.Edit46.Text<>'1' then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение из БВС','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
{if Form5.RxCalcEdit1.Value>0 then
Form5.Label24.Caption:='1'
else
Form5.Label4.Caption:='1';
Form5.Label44.Caption:='1'; }

if KodingValue>0 then
begin
if Form6.RxCalcEdit1.Value<>Value2 then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение Uэт','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
end
else
begin
if Form6.RxCalcEdit1.Value<>-Value2 then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение Uэт','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
end;
end;

if Boo256=1 then
begin
Val:=Val+64;
Value2:=Val;
if Val>Abs(KodingValue) then
begin
Val:=Val-64;
if Form6.Edit22.Text<>'1' then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение сигнала из компаратора','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
//Form5.Label22.Caption:='1';
end
else
begin
if Form6.Edit22.Text<>'0' then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение сигнала из компаратора','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
//Form5.Label22.Caption:='0';
end;

if KodingValue>0 then
begin
if Form6.Edit27.Text<>'1' then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение из БКЭ','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
//Form6.Edit24.Caption:='1'
end
else
begin
if Form6.Edit7.Text<>'1' then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение из БКЭ','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
//Form6.Edit4.Caption:='1';
end;

if Form6.Edit47.Text<>'1' then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение из БВС','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
{if Form5.RxCalcEdit1.Value>0 then
Form5.Label24.Caption:='1'
else
Form5.Label4.Caption:='1';
Form5.Label44.Caption:='1'; }

if KodingValue>0 then
begin
if Form6.RxCalcEdit1.Value<>Value2 then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение Uэт','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
end
else
begin
if Form6.RxCalcEdit1.Value<>-Value2 then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение Uэт','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
end;
end;


if Boo128=1 then
begin
Val:=Val+32;
Value2:=Val;
if Val>Abs(KodingValue) then
begin
Val:=Val-32;
if Form6.Edit22.Text<>'1' then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение сигнала из компаратора','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
//Form5.Label22.Caption:='1';
end
else
begin
if Form6.Edit22.Text<>'0' then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение сигнала из компаратора','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
//Form5.Label22.Caption:='0';
end;

if KodingValue>0 then
begin
if Form6.Edit28.Text<>'1' then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение из БКЭ','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
//Form6.Edit24.Caption:='1'
end
else
begin
if Form6.Edit8.Text<>'1' then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение из БКЭ','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
//Form6.Edit4.Caption:='1';
end;

if Form6.Edit48.Text<>'1' then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение из БВС','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
{if Form5.RxCalcEdit1.Value>0 then
Form5.Label24.Caption:='1'
else
Form5.Label4.Caption:='1';
Form5.Label44.Caption:='1'; }

if KodingValue>0 then
begin
if Form6.RxCalcEdit1.Value<>Value2 then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение Uэт','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
end
else
begin
if Form6.RxCalcEdit1.Value<>-Value2 then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение Uэт','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
end;
end;


if Boo64=1 then
begin
Val:=Val+16;
Value2:=Val;
if Val>Abs(KodingValue) then
begin
Val:=Val-16;
if Form6.Edit22.Text<>'1' then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение сигнала из компаратора','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
//Form5.Label22.Caption:='1';
end
else
begin
if Form6.Edit22.Text<>'0' then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение сигнала из компаратора','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
//Form5.Label22.Caption:='0';
end;

if KodingValue>0 then
begin
if Form6.Edit29.Text<>'1' then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение из БКЭ','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
//Form6.Edit24.Caption:='1'
end
else
begin
if Form6.Edit9.Text<>'1' then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение из БКЭ','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
//Form6.Edit4.Caption:='1';
end;

if Form6.Edit49.Text<>'1' then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение из БВС','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
{if Form5.RxCalcEdit1.Value>0 then
Form5.Label24.Caption:='1'
else
Form5.Label4.Caption:='1';
Form5.Label44.Caption:='1'; }

if KodingValue>0 then
begin
if Form6.RxCalcEdit1.Value<>Value2 then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение Uэт','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
end
else
begin
if Form6.RxCalcEdit1.Value<>-Value2 then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение Uэт','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
end;
end;


if Boo32=1 then
begin
Val:=Val+8;
Value2:=Val;
if Val>Abs(KodingValue) then
begin
Val:=Val-8;
if Form6.Edit22.Text<>'1' then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение сигнала из компаратора','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
//Form5.Label22.Caption:='1';
end
else
begin
if Form6.Edit22.Text<>'0' then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение сигнала из компаратора','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
//Form5.Label22.Caption:='0';
end;

if KodingValue>0 then
begin
if Form6.Edit30.Text<>'1' then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение из БКЭ','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
//Form6.Edit24.Caption:='1'
end
else
begin
if Form6.Edit10.Text<>'1' then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение из БКЭ','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
//Form6.Edit4.Caption:='1';
end;

if Form6.Edit50.Text<>'1' then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение из БВС','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
{if Form5.RxCalcEdit1.Value>0 then
Form5.Label24.Caption:='1'
else
Form5.Label4.Caption:='1';
Form5.Label44.Caption:='1'; }

if KodingValue>0 then
begin
if Form6.RxCalcEdit1.Value<>Value2 then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение Uэт','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
end
else
begin
if Form6.RxCalcEdit1.Value<>-Value2 then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение Uэт','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
end;
end;


if Boo16=1 then
begin
Val:=Val+4;
Value2:=Val;
if Val>Abs(KodingValue) then
begin
Val:=Val-4;
if Form6.Edit22.Text<>'1' then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение сигнала из компаратора','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
//Form5.Label22.Caption:='1';
end
else
begin
if Form6.Edit22.Text<>'0' then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение сигнала из компаратора','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
//Form5.Label22.Caption:='0';
end;

if KodingValue>0 then
begin
if Form6.Edit31.Text<>'1' then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение из БКЭ','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
//Form6.Edit24.Caption:='1'
end
else
begin
if Form6.Edit11.Text<>'1' then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение из БКЭ','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
//Form6.Edit4.Caption:='1';
end;

if Form6.Edit51.Text<>'1' then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение из БВС','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
{if Form5.RxCalcEdit1.Value>0 then
Form5.Label24.Caption:='1'
else
Form5.Label4.Caption:='1';
Form5.Label44.Caption:='1'; }

if KodingValue>0 then
begin
if Form6.RxCalcEdit1.Value<>Value2 then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение Uэт','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
end
else
begin
if Form6.RxCalcEdit1.Value<>-Value2 then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение Uэт','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
end;
end;
Form6.Label1.Caption:='Конец 6-го такта. Определение номера сегмента амплитудной характеристики';
Form6.Edit22.Visible:=false;
Form6.LMDLight1.Visible:=true;
Form6.LMDLight2.Visible:=false;
Form6.LMDLight3.Visible:=false;
Form6.LMDLight4.Visible:=false;
Form6.RxCalcEdit1.Color:=clBtnFace;
Form6.Edit22.Color:=clBtnFace;
end;








if Num=12 then
begin

if Boo1024=1 then
begin
if Val=Value2 then
begin
if Form6.Edit19.Text<>'1' then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение номера сегмента амплитудной характеристики','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
//Form5.Label18.Caption:='1';
end
else
begin
if Form6.Edit19.Text<>'0' then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение номера сегмента амплитудной характеристики','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
//Form5.Label18.Caption:='0';

if KodingValue>0 then
begin
if Form6.Edit25.Text<>'0' then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение из БКЭ','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
//Form6.Edit24.Caption:='0'
end
else
begin
if Form6.Edit5.Text<>'0' then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение из БКЭ','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
//Form6.Edit4.Caption:='0';
end;

if Form6.Edit45.Text<>'0' then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение из БВС','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
{if Form5.RxCalcEdit1.Value>0 then
Form5.Label24.Caption:='0'
else
Form5.Label4.Caption:='0';
Form5.Label44.Caption:='0';}
end;
if KodingValue>0 then
begin
if Form6.RxCalcEdit1.Value<>Val then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение Uэт','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
end
else
begin
if Form6.RxCalcEdit1.Value<>-Val then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение Uэт','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
end;
//Label2.Caption:=FloatToStr(Val);
end;


if Boo512=1 then
begin
if Val=Value2 then
begin
if Form6.Edit19.Text<>'1' then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение номера сегмента амплитудной характеристики','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
//Form5.Label18.Caption:='1';
end
else
begin
if Form6.Edit19.Text<>'0' then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение номера сегмента амплитудной характеристики','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
//Form5.Label18.Caption:='0';

if KodingValue>0 then
begin
if Form6.Edit26.Text<>'0' then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение из БКЭ','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
//Form6.Edit24.Caption:='0'
end
else
begin
if Form6.Edit6.Text<>'0' then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение из БКЭ','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
//Form6.Edit4.Caption:='0';
end;

if Form6.Edit46.Text<>'0' then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение из БВС','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
{if Form5.RxCalcEdit1.Value>0 then
Form5.Label24.Caption:='0'
else
Form5.Label4.Caption:='0';
Form5.Label44.Caption:='0';}
end;
if KodingValue>0 then
begin
if Form6.RxCalcEdit1.Value<>Val then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение Uэт','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
end
else
begin
if Form6.RxCalcEdit1.Value<>-Val then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение Uэт','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
end;
end;

if Boo256=1 then
begin
if Val=Value2 then
begin
if Form6.Edit19.Text<>'1' then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение номера сегмента амплитудной характеристики','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
//Form5.Label18.Caption:='1';
end
else
begin
if Form6.Edit19.Text<>'0' then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение номера сегмента амплитудной характеристики','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
//Form5.Label18.Caption:='0';

if KodingValue>0 then
begin
if Form6.Edit27.Text<>'0' then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение из БКЭ','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
//Form6.Edit24.Caption:='0'
end
else
begin
if Form6.Edit7.Text<>'0' then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение из БКЭ','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
//Form6.Edit4.Caption:='0';
end;

if Form6.Edit47.Text<>'0' then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение из БВС','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
{if Form5.RxCalcEdit1.Value>0 then
Form5.Label24.Caption:='0'
else
Form5.Label4.Caption:='0';
Form5.Label44.Caption:='0';}
end;
if KodingValue>0 then
begin
if Form6.RxCalcEdit1.Value<>Val then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение Uэт','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
end
else
begin
if Form6.RxCalcEdit1.Value<>-Val then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение Uэт','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
end;
end;


if Boo128=1 then
begin
if Val=Value2 then
begin
if Form6.Edit19.Text<>'1' then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение номера сегмента амплитудной характеристики','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
//Form5.Label18.Caption:='1';
end
else
begin
if Form6.Edit19.Text<>'0' then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение номера сегмента амплитудной характеристики','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
//Form5.Label18.Caption:='0';

if KodingValue>0 then
begin
if Form6.Edit28.Text<>'0' then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение из БКЭ','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
//Form6.Edit24.Caption:='0'
end
else
begin
if Form6.Edit8.Text<>'0' then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение из БКЭ','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
//Form6.Edit4.Caption:='0';
end;

if Form6.Edit48.Text<>'0' then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение из БВС','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
{if Form5.RxCalcEdit1.Value>0 then
Form5.Label24.Caption:='0'
else
Form5.Label4.Caption:='0';
Form5.Label44.Caption:='0';}
end;
if KodingValue>0 then
begin
if Form6.RxCalcEdit1.Value<>Val then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение Uэт','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
end
else
begin
if Form6.RxCalcEdit1.Value<>-Val then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение Uэт','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
end;
end;


if Boo64=1 then
begin
if Val=Value2 then
begin
if Form6.Edit19.Text<>'1' then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение номера сегмента амплитудной характеристики','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
//Form5.Label18.Caption:='1';
end
else
begin
if Form6.Edit19.Text<>'0' then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение номера сегмента амплитудной характеристики','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
//Form5.Label18.Caption:='0';

if KodingValue>0 then
begin
if Form6.Edit29.Text<>'0' then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение из БКЭ','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
//Form6.Edit24.Caption:='0'
end
else
begin
if Form6.Edit9.Text<>'0' then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение из БКЭ','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
//Form6.Edit4.Caption:='0';
end;

if Form6.Edit49.Text<>'0' then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение из БВС','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
{if Form5.RxCalcEdit1.Value>0 then
Form5.Label24.Caption:='0'
else
Form5.Label4.Caption:='0';
Form5.Label44.Caption:='0';}
end;
if KodingValue>0 then
begin
if Form6.RxCalcEdit1.Value<>Val then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение Uэт','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
end
else
begin
if Form6.RxCalcEdit1.Value<>-Val then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение Uэт','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
end;
end;


if Boo32=1 then
begin
if Val=Value2 then
begin
if Form6.Edit19.Text<>'1' then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение номера сегмента амплитудной характеристики','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
//Form5.Label18.Caption:='1';
end
else
begin
if Form6.Edit19.Text<>'0' then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение номера сегмента амплитудной характеристики','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
//Form5.Label18.Caption:='0';

if KodingValue>0 then
begin
if Form6.Edit30.Text<>'0' then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение из БКЭ','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
//Form6.Edit24.Caption:='0'
end
else
begin
if Form6.Edit10.Text<>'0' then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение из БКЭ','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
//Form6.Edit4.Caption:='0';
end;

if Form6.Edit50.Text<>'0' then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение из БВС','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
{if Form5.RxCalcEdit1.Value>0 then
Form5.Label24.Caption:='0'
else
Form5.Label4.Caption:='0';
Form5.Label44.Caption:='0';}
end;
if KodingValue>0 then
begin
if Form6.RxCalcEdit1.Value<>Val then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение Uэт','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
end
else
begin
if Form6.RxCalcEdit1.Value<>-Val then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение Uэт','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
end;
end;


if Boo16=1 then
begin
if Val=Value2 then
begin
if Form6.Edit19.Text<>'1' then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение номера сегмента амплитудной характеристики','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
//Form5.Label18.Caption:='1';
end
else
begin
if Form6.Edit19.Text<>'0' then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение номера сегмента амплитудной характеристики','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
//Form5.Label18.Caption:='0';

if KodingValue>0 then
begin
if Form6.Edit31.Text<>'0' then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение из БКЭ','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
//Form6.Edit24.Caption:='0'
end
else
begin
if Form6.Edit11.Text<>'0' then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение из БКЭ','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
//Form6.Edit4.Caption:='0';
end;

if Form6.Edit51.Text<>'0' then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение из БВС','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
{if Form5.RxCalcEdit1.Value>0 then
Form5.Label24.Caption:='0'
else
Form5.Label4.Caption:='0';
Form5.Label44.Caption:='0';}
end;
if KodingValue>0 then
begin
if Form6.RxCalcEdit1.Value<>Val then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение Uэт','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
end
else
begin
if Form6.RxCalcEdit1.Value<>-Val then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение Uэт','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
end;
end;
Form6.Label1.Caption:='Начало 7-го такта. Определение номера сегмента амплитудной характеристики';
Form6.Edit22.Visible:=true;
Form6.LMDLight1.Visible:=true;
Form6.LMDLight2.Visible:=false;
Form6.LMDLight3.Visible:=false;
Form6.LMDLight4.Visible:=false;
Form6.RxCalcEdit1.Color:=clBtnFace;
Form6.Edit22.Color:=clBtnFace;
end;











if Num=13 then
begin

if Form6.Edit20.Text<>'1' then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение номера сегмента амплитудной характеристики','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;

if Boo1024=1 then
begin
Val:=Val+128;
Value2:=Val;
if Val>Abs(KodingValue) then
begin
Val:=Val-128;
if Form6.Edit22.Text<>'1' then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение сигнала из компаратора','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
//Form5.Label22.Caption:='1';
end
else
begin
if Form6.Edit22.Text<>'0' then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение сигнала из компаратора','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
//Form5.Label22.Caption:='0';
end;

if KodingValue>0 then
begin
if Form6.Edit26.Text<>'1' then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение из БКЭ','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
//Form6.Edit24.Caption:='1'
end
else
begin
if Form6.Edit6.Text<>'1' then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение из БКЭ','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
//Form6.Edit4.Caption:='1';
end;

if Form6.Edit46.Text<>'1' then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение из БВС','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
{if Form5.RxCalcEdit1.Value>0 then
Form5.Label24.Caption:='1'
else
Form5.Label4.Caption:='1';
Form5.Label44.Caption:='1'; }

if KodingValue>0 then
begin
if Form6.RxCalcEdit1.Value<>Value2 then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение Uэт','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
end
else
begin
if Form6.RxCalcEdit1.Value<>-Value2 then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение Uэт','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
end;
//Label2.Caption:=FloatToStr(Value2);
end;


if Boo512=1 then
begin
Val:=Val+64;
Value2:=Val;
if Val>Abs(KodingValue) then
begin
Val:=Val-64;
if Form6.Edit22.Text<>'1' then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение сигнала из компаратора','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
//Form5.Label22.Caption:='1';
end
else
begin
if Form6.Edit22.Text<>'0' then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение сигнала из компаратора','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
//Form5.Label22.Caption:='0';
end;

if KodingValue>0 then
begin
if Form6.Edit27.Text<>'1' then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение из БКЭ','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
//Form6.Edit24.Caption:='1'
end
else
begin
if Form6.Edit7.Text<>'1' then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение из БКЭ','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
//Form6.Edit4.Caption:='1';
end;

if Form6.Edit47.Text<>'1' then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение из БВС','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
{if Form5.RxCalcEdit1.Value>0 then
Form5.Label24.Caption:='1'
else
Form5.Label4.Caption:='1';
Form5.Label44.Caption:='1'; }

if KodingValue>0 then
begin
if Form6.RxCalcEdit1.Value<>Value2 then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение Uэт','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
end
else
begin
if Form6.RxCalcEdit1.Value<>-Value2 then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение Uэт','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
end;
end;

if Boo256=1 then
begin
Val:=Val+32;
Value2:=Val;
if Val>Abs(KodingValue) then
begin
Val:=Val-32;
if Form6.Edit22.Text<>'1' then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение сигнала из компаратора','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
//Form5.Label22.Caption:='1';
end
else
begin
if Form6.Edit22.Text<>'0' then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение сигнала из компаратора','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
//Form5.Label22.Caption:='0';
end;

if KodingValue>0 then
begin
if Form6.Edit28.Text<>'1' then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение из БКЭ','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
//Form6.Edit24.Caption:='1'
end
else
begin
if Form6.Edit8.Text<>'1' then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение из БКЭ','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
//Form6.Edit4.Caption:='1';
end;

if Form6.Edit48.Text<>'1' then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение из БВС','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
{if Form5.RxCalcEdit1.Value>0 then
Form5.Label24.Caption:='1'
else
Form5.Label4.Caption:='1';
Form5.Label44.Caption:='1'; }

if KodingValue>0 then
begin
if Form6.RxCalcEdit1.Value<>Value2 then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение Uэт','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
end
else
begin
if Form6.RxCalcEdit1.Value<>-Value2 then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение Uэт','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
end;
end;


if Boo128=1 then
begin
Val:=Val+16;
Value2:=Val;
if Val>Abs(KodingValue) then
begin
Val:=Val-16;
if Form6.Edit22.Text<>'1' then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение сигнала из компаратора','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
//Form5.Label22.Caption:='1';
end
else
begin
if Form6.Edit22.Text<>'0' then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение сигнала из компаратора','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
//Form5.Label22.Caption:='0';
end;

if KodingValue>0 then
begin
if Form6.Edit29.Text<>'1' then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение из БКЭ','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
//Form6.Edit24.Caption:='1'
end
else
begin
if Form6.Edit9.Text<>'1' then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение из БКЭ','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
//Form6.Edit4.Caption:='1';
end;

if Form6.Edit49.Text<>'1' then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение из БВС','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
{if Form5.RxCalcEdit1.Value>0 then
Form5.Label24.Caption:='1'
else
Form5.Label4.Caption:='1';
Form5.Label44.Caption:='1'; }

if KodingValue>0 then
begin
if Form6.RxCalcEdit1.Value<>Value2 then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение Uэт','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
end
else
begin
if Form6.RxCalcEdit1.Value<>-Value2 then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение Uэт','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
end;
end;


if Boo64=1 then
begin
Val:=Val+8;
Value2:=Val;
if Val>Abs(KodingValue) then
begin
Val:=Val-8;
if Form6.Edit22.Text<>'1' then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение сигнала из компаратора','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
//Form5.Label22.Caption:='1';
end
else
begin
if Form6.Edit22.Text<>'0' then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение сигнала из компаратора','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
//Form5.Label22.Caption:='0';
end;

if KodingValue>0 then
begin
if Form6.Edit30.Text<>'1' then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение из БКЭ','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
//Form6.Edit24.Caption:='1'
end
else
begin
if Form6.Edit10.Text<>'1' then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение из БКЭ','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
//Form6.Edit4.Caption:='1';
end;

if Form6.Edit50.Text<>'1' then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение из БВС','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
{if Form5.RxCalcEdit1.Value>0 then
Form5.Label24.Caption:='1'
else
Form5.Label4.Caption:='1';
Form5.Label44.Caption:='1'; }

if KodingValue>0 then
begin
if Form6.RxCalcEdit1.Value<>Value2 then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение Uэт','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
end
else
begin
if Form6.RxCalcEdit1.Value<>-Value2 then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение Uэт','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
end;
end;


if Boo32=1 then
begin
Val:=Val+4;
Value2:=Val;
if Val>Abs(KodingValue) then
begin
Val:=Val-4;
if Form6.Edit22.Text<>'1' then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение сигнала из компаратора','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
//Form5.Label22.Caption:='1';
end
else
begin
if Form6.Edit22.Text<>'0' then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение сигнала из компаратора','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
//Form5.Label22.Caption:='0';
end;

if KodingValue>0 then
begin
if Form6.Edit31.Text<>'1' then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение из БКЭ','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
//Form6.Edit24.Caption:='1'
end
else
begin
if Form6.Edit11.Text<>'1' then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение из БКЭ','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
//Form6.Edit4.Caption:='1';
end;

if Form6.Edit51.Text<>'1' then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение из БВС','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
{if Form5.RxCalcEdit1.Value>0 then
Form5.Label24.Caption:='1'
else
Form5.Label4.Caption:='1';
Form5.Label44.Caption:='1'; }

if KodingValue>0 then
begin
if Form6.RxCalcEdit1.Value<>Value2 then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение Uэт','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
end
else
begin
if Form6.RxCalcEdit1.Value<>-Value2 then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение Uэт','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
end;
end;


if Boo16=1 then
begin
Val:=Val+2;
Value2:=Val;
if Val>Abs(KodingValue) then
begin
Val:=Val-2;
if Form6.Edit22.Text<>'1' then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение сигнала из компаратора','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
//Form5.Label22.Caption:='1';
end
else
begin
if Form6.Edit22.Text<>'0' then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение сигнала из компаратора','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
//Form5.Label22.Caption:='0';
end;

if KodingValue>0 then
begin
if Form6.Edit32.Text<>'1' then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение из БКЭ','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
//Form6.Edit24.Caption:='1'
end
else
begin
if Form6.Edit12.Text<>'1' then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение из БКЭ','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
//Form6.Edit4.Caption:='1';
end;

if Form6.Edit52.Text<>'1' then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение из БВС','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
{if Form5.RxCalcEdit1.Value>0 then
Form5.Label24.Caption:='1'
else
Form5.Label4.Caption:='1';
Form5.Label44.Caption:='1'; }

if KodingValue>0 then
begin
if Form6.RxCalcEdit1.Value<>Value2 then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение Uэт','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
end
else
begin
if Form6.RxCalcEdit1.Value<>-Value2 then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение Uэт','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
end;
end;
Form6.Label1.Caption:='Конец 7-го такта. Определение шага внутри сегмента';
Form6.Edit22.Visible:=false;
Form6.LMDLight1.Visible:=true;
Form6.LMDLight2.Visible:=false;
Form6.LMDLight3.Visible:=false;
Form6.LMDLight4.Visible:=false;
Form6.RxCalcEdit1.Color:=clBtnFace;
Form6.Edit22.Color:=clBtnFace;
end;











if Num=14 then
begin

if Boo1024=1 then
begin
if Val=Value2 then
begin
if Form6.Edit20.Text<>'1' then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение номера сегмента амплитудной характеристики','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
//Form5.Label18.Caption:='1';
end
else
begin
if Form6.Edit20.Text<>'0' then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение номера сегмента амплитудной характеристики','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
//Form5.Label18.Caption:='0';

if KodingValue>0 then
begin
if Form6.Edit26.Text<>'0' then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение из БКЭ','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
//Form6.Edit24.Caption:='0'
end
else
begin
if Form6.Edit6.Text<>'0' then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение из БКЭ','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
//Form6.Edit4.Caption:='0';
end;

if Form6.Edit46.Text<>'0' then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение из БВС','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
{if Form5.RxCalcEdit1.Value>0 then
Form5.Label24.Caption:='0'
else
Form5.Label4.Caption:='0';
Form5.Label44.Caption:='0';}
end;
if KodingValue>0 then
begin
if Form6.RxCalcEdit1.Value<>Val then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение Uэт','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
end
else
begin
if Form6.RxCalcEdit1.Value<>-Val then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение Uэт','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
end;
//Label2.Caption:=FloatToStr(Val);
end;


if Boo512=1 then
begin
if Val=Value2 then
begin
if Form6.Edit20.Text<>'1' then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение номера сегмента амплитудной характеристики','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
//Form5.Label18.Caption:='1';
end
else
begin
if Form6.Edit20.Text<>'0' then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение номера сегмента амплитудной характеристики','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
//Form5.Label18.Caption:='0';

if KodingValue>0 then
begin
if Form6.Edit27.Text<>'0' then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение из БКЭ','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
//Form6.Edit24.Caption:='0'
end
else
begin
if Form6.Edit7.Text<>'0' then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение из БКЭ','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
//Form6.Edit4.Caption:='0';
end;

if Form6.Edit47.Text<>'0' then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение из БВС','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
{if Form5.RxCalcEdit1.Value>0 then
Form5.Label24.Caption:='0'
else
Form5.Label4.Caption:='0';
Form5.Label44.Caption:='0';}
end;
if KodingValue>0 then
begin
if Form6.RxCalcEdit1.Value<>Val then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение Uэт','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
end
else
begin
if Form6.RxCalcEdit1.Value<>-Val then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение Uэт','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
end;
end;

if Boo256=1 then
begin
if Val=Value2 then
begin
if Form6.Edit20.Text<>'1' then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение номера сегмента амплитудной характеристики','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
//Form5.Label18.Caption:='1';
end
else
begin
if Form6.Edit20.Text<>'0' then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение номера сегмента амплитудной характеристики','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
//Form5.Label18.Caption:='0';

if KodingValue>0 then
begin
if Form6.Edit28.Text<>'0' then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение из БКЭ','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
//Form6.Edit24.Caption:='0'
end
else
begin
if Form6.Edit8.Text<>'0' then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение из БКЭ','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
//Form6.Edit4.Caption:='0';
end;

if Form6.Edit48.Text<>'0' then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение из БВС','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
{if Form5.RxCalcEdit1.Value>0 then
Form5.Label24.Caption:='0'
else
Form5.Label4.Caption:='0';
Form5.Label44.Caption:='0';}
end;
if KodingValue>0 then
begin
if Form6.RxCalcEdit1.Value<>Val then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение Uэт','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
end
else
begin
if Form6.RxCalcEdit1.Value<>-Val then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение Uэт','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
end;
end;


if Boo128=1 then
begin
if Val=Value2 then
begin
if Form6.Edit20.Text<>'1' then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение номера сегмента амплитудной характеристики','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
//Form5.Label18.Caption:='1';
end
else
begin
if Form6.Edit20.Text<>'0' then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение номера сегмента амплитудной характеристики','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
//Form5.Label18.Caption:='0';

if KodingValue>0 then
begin
if Form6.Edit29.Text<>'0' then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение из БКЭ','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
//Form6.Edit24.Caption:='0'
end
else
begin
if Form6.Edit9.Text<>'0' then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение из БКЭ','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
//Form6.Edit4.Caption:='0';
end;

if Form6.Edit49.Text<>'0' then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение из БВС','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
{if Form5.RxCalcEdit1.Value>0 then
Form5.Label24.Caption:='0'
else
Form5.Label4.Caption:='0';
Form5.Label44.Caption:='0';}
end;
if KodingValue>0 then
begin
if Form6.RxCalcEdit1.Value<>Val then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение Uэт','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
end
else
begin
if Form6.RxCalcEdit1.Value<>-Val then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение Uэт','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
end;
end;


if Boo64=1 then
begin
if Val=Value2 then
begin
if Form6.Edit20.Text<>'1' then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение номера сегмента амплитудной характеристики','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
//Form5.Label18.Caption:='1';
end
else
begin
if Form6.Edit20.Text<>'0' then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение номера сегмента амплитудной характеристики','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
//Form5.Label18.Caption:='0';

if KodingValue>0 then
begin
if Form6.Edit30.Text<>'0' then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение из БКЭ','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
//Form6.Edit24.Caption:='0'
end
else
begin
if Form6.Edit10.Text<>'0' then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение из БКЭ','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
//Form6.Edit4.Caption:='0';
end;

if Form6.Edit50.Text<>'0' then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение из БВС','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
{if Form5.RxCalcEdit1.Value>0 then
Form5.Label24.Caption:='0'
else
Form5.Label4.Caption:='0';
Form5.Label44.Caption:='0';}
end;
if KodingValue>0 then
begin
if Form6.RxCalcEdit1.Value<>Val then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение Uэт','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
end
else
begin
if Form6.RxCalcEdit1.Value<>-Val then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение Uэт','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
end;
end;


if Boo32=1 then
begin
if Val=Value2 then
begin
if Form6.Edit20.Text<>'1' then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение номера сегмента амплитудной характеристики','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
//Form5.Label18.Caption:='1';
end
else
begin
if Form6.Edit20.Text<>'0' then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение номера сегмента амплитудной характеристики','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
//Form5.Label18.Caption:='0';

if KodingValue>0 then
begin
if Form6.Edit31.Text<>'0' then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение из БКЭ','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
//Form6.Edit24.Caption:='0'
end
else
begin
if Form6.Edit11.Text<>'0' then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение из БКЭ','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
//Form6.Edit4.Caption:='0';
end;

if Form6.Edit51.Text<>'0' then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение из БВС','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
{if Form5.RxCalcEdit1.Value>0 then
Form5.Label24.Caption:='0'
else
Form5.Label4.Caption:='0';
Form5.Label44.Caption:='0';}
end;
if KodingValue>0 then
begin
if Form6.RxCalcEdit1.Value<>Val then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение Uэт','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
end
else
begin
if Form6.RxCalcEdit1.Value<>-Val then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение Uэт','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
end;
end;


if Boo16=1 then
begin
if Val=Value2 then
begin
if Form6.Edit20.Text<>'1' then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение номера сегмента амплитудной характеристики','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
//Form5.Label18.Caption:='1';
end
else
begin
if Form6.Edit20.Text<>'0' then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение номера сегмента амплитудной характеристики','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
//Form5.Label18.Caption:='0';

if KodingValue>0 then
begin
if Form6.Edit32.Text<>'0' then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение из БКЭ','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
//Form6.Edit24.Caption:='0'
end
else
begin
if Form6.Edit12.Text<>'0' then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение из БКЭ','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
//Form6.Edit4.Caption:='0';
end;

if Form6.Edit52.Text<>'0' then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение из БВС','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
{if Form5.RxCalcEdit1.Value>0 then
Form5.Label24.Caption:='0'
else
Form5.Label4.Caption:='0';
Form5.Label44.Caption:='0';}
end;
if KodingValue>0 then
begin
if Form6.RxCalcEdit1.Value<>Val then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение Uэт','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
end
else
begin
if Form6.RxCalcEdit1.Value<>-Val then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение Uэт','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
end;
end;
Form6.Label1.Caption:='Начало 8-го такта. Определение номера сегмента амплитудной характеристики';
Form6.Edit22.Visible:=true;
Form6.LMDLight1.Visible:=true;
Form6.LMDLight2.Visible:=false;
Form6.LMDLight3.Visible:=false;
Form6.LMDLight4.Visible:=false;
Form6.RxCalcEdit1.Color:=clBtnFace;
Form6.Edit22.Color:=clBtnFace;
end;









if Num=15 then
begin

if Form6.Edit21.Text<>'1' then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение номера сегмента амплитудной характеристики','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;

if Boo1024=1 then
begin
Val:=Val+64;
Value2:=Val;
if Val>Abs(KodingValue) then
begin
Val:=Val-64;
if Form6.Edit22.Text<>'1' then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение сигнала из компаратора','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
//Form5.Label22.Caption:='1';
end
else
begin
if Form6.Edit22.Text<>'0' then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение сигнала из компаратора','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
//Form5.Label22.Caption:='0';
end;

if KodingValue>0 then
begin
if Form6.Edit27.Text<>'1' then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение из БКЭ','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
//Form6.Edit24.Caption:='1'
end
else
begin
if Form6.Edit7.Text<>'1' then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение из БКЭ','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
//Form6.Edit4.Caption:='1';
end;

if Form6.Edit47.Text<>'1' then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение из БВС','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
{if Form5.RxCalcEdit1.Value>0 then
Form5.Label24.Caption:='1'
else
Form5.Label4.Caption:='1';
Form5.Label44.Caption:='1'; }

if KodingValue>0 then
begin
if Form6.RxCalcEdit1.Value<>Value2 then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение Uэт','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
end
else
begin
if Form6.RxCalcEdit1.Value<>-Value2 then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение Uэт','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
end;
//Label2.Caption:=FloatToStr(Value2);
end;


if Boo512=1 then
begin
Val:=Val+32;
Value2:=Val;
if Val>Abs(KodingValue) then
begin
Val:=Val-32;
if Form6.Edit22.Text<>'1' then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение сигнала из компаратора','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
//Form5.Label22.Caption:='1';
end
else
begin
if Form6.Edit22.Text<>'0' then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение сигнала из компаратора','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
//Form5.Label22.Caption:='0';
end;

if KodingValue>0 then
begin
if Form6.Edit28.Text<>'1' then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение из БКЭ','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
//Form6.Edit24.Caption:='1'
end
else
begin
if Form6.Edit8.Text<>'1' then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение из БКЭ','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
//Form6.Edit4.Caption:='1';
end;

if Form6.Edit48.Text<>'1' then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение из БВС','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
{if Form5.RxCalcEdit1.Value>0 then
Form5.Label24.Caption:='1'
else
Form5.Label4.Caption:='1';
Form5.Label44.Caption:='1'; }

if KodingValue>0 then
begin
if Form6.RxCalcEdit1.Value<>Value2 then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение Uэт','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
end
else
begin
if Form6.RxCalcEdit1.Value<>-Value2 then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение Uэт','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
end;
end;

if Boo256=1 then
begin
Val:=Val+16;
Value2:=Val;
if Val>Abs(KodingValue) then
begin
Val:=Val-16;
if Form6.Edit22.Text<>'1' then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение сигнала из компаратора','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
//Form5.Label22.Caption:='1';
end
else
begin
if Form6.Edit22.Text<>'0' then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение сигнала из компаратора','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
//Form5.Label22.Caption:='0';
end;

if KodingValue>0 then
begin
if Form6.Edit29.Text<>'1' then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение из БКЭ','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
//Form6.Edit24.Caption:='1'
end
else
begin
if Form6.Edit9.Text<>'1' then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение из БКЭ','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
//Form6.Edit4.Caption:='1';
end;

if Form6.Edit49.Text<>'1' then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение из БВС','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
{if Form5.RxCalcEdit1.Value>0 then
Form5.Label24.Caption:='1'
else
Form5.Label4.Caption:='1';
Form5.Label44.Caption:='1'; }

if KodingValue>0 then
begin
if Form6.RxCalcEdit1.Value<>Value2 then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение Uэт','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
end
else
begin
if Form6.RxCalcEdit1.Value<>-Value2 then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение Uэт','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
end;
end;


if Boo128=1 then
begin
Val:=Val+8;
Value2:=Val;
if Val>Abs(KodingValue) then
begin
Val:=Val-8;
if Form6.Edit22.Text<>'1' then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение сигнала из компаратора','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
//Form5.Label22.Caption:='1';
end
else
begin
if Form6.Edit22.Text<>'0' then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение сигнала из компаратора','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
//Form5.Label22.Caption:='0';
end;

if KodingValue>0 then
begin
if Form6.Edit30.Text<>'1' then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение из БКЭ','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
//Form6.Edit24.Caption:='1'
end
else
begin
if Form6.Edit10.Text<>'1' then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение из БКЭ','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
//Form6.Edit4.Caption:='1';
end;

if Form6.Edit50.Text<>'1' then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение из БВС','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
{if Form5.RxCalcEdit1.Value>0 then
Form5.Label24.Caption:='1'
else
Form5.Label4.Caption:='1';
Form5.Label44.Caption:='1'; }

if KodingValue>0 then
begin
if Form6.RxCalcEdit1.Value<>Value2 then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение Uэт','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
end
else
begin
if Form6.RxCalcEdit1.Value<>-Value2 then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение Uэт','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
end;
end;


if Boo64=1 then
begin
Val:=Val+4;
Value2:=Val;
if Val>Abs(KodingValue) then
begin
Val:=Val-4;
if Form6.Edit22.Text<>'1' then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение сигнала из компаратора','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
//Form5.Label22.Caption:='1';
end
else
begin
if Form6.Edit22.Text<>'0' then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение сигнала из компаратора','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
//Form5.Label22.Caption:='0';
end;

if KodingValue>0 then
begin
if Form6.Edit31.Text<>'1' then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение из БКЭ','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
//Form6.Edit24.Caption:='1'
end
else
begin
if Form6.Edit11.Text<>'1' then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение из БКЭ','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
//Form6.Edit4.Caption:='1';
end;

if Form6.Edit51.Text<>'1' then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение из БВС','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
{if Form5.RxCalcEdit1.Value>0 then
Form5.Label24.Caption:='1'
else
Form5.Label4.Caption:='1';
Form5.Label44.Caption:='1'; }

if KodingValue>0 then
begin
if Form6.RxCalcEdit1.Value<>Value2 then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение Uэт','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
end
else
begin
if Form6.RxCalcEdit1.Value<>-Value2 then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение Uэт','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
end;
end;


if Boo32=1 then
begin
Val:=Val+2;
Value2:=Val;
if Val>Abs(KodingValue) then
begin
Val:=Val-2;
if Form6.Edit22.Text<>'1' then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение сигнала из компаратора','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
//Form5.Label22.Caption:='1';
end
else
begin
if Form6.Edit22.Text<>'0' then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение сигнала из компаратора','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
//Form5.Label22.Caption:='0';
end;

if KodingValue>0 then
begin
if Form6.Edit32.Text<>'1' then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение из БКЭ','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
//Form6.Edit24.Caption:='1'
end
else
begin
if Form6.Edit12.Text<>'1' then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение из БКЭ','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
//Form6.Edit4.Caption:='1';
end;

if Form6.Edit52.Text<>'1' then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение из БВС','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
{if Form5.RxCalcEdit1.Value>0 then
Form5.Label24.Caption:='1'
else
Form5.Label4.Caption:='1';
Form5.Label44.Caption:='1'; }

if KodingValue>0 then
begin
if Form6.RxCalcEdit1.Value<>Value2 then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение Uэт','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
end
else
begin
if Form6.RxCalcEdit1.Value<>-Value2 then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение Uэт','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
end;
end;


if Boo16=1 then
begin
Val:=Val+1;
Value2:=Val;
if Val>Abs(KodingValue) then
begin
Val:=Val-1;
if Form6.Edit22.Text<>'1' then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение сигнала из компаратора','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
//Form5.Label22.Caption:='1';
end
else
begin
if Form6.Edit22.Text<>'0' then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение сигнала из компаратора','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
//Form5.Label22.Caption:='0';
end;

if KodingValue>0 then
begin
if Form6.Edit33.Text<>'1' then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение из БКЭ','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
//Form6.Edit24.Caption:='1'
end
else
begin
if Form6.Edit13.Text<>'1' then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение из БКЭ','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
//Form6.Edit4.Caption:='1';
end;

if Form6.Edit53.Text<>'1' then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение из БВС','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
{if Form5.RxCalcEdit1.Value>0 then
Form5.Label24.Caption:='1'
else
Form5.Label4.Caption:='1';
Form5.Label44.Caption:='1'; }

if KodingValue>0 then
begin
if Form6.RxCalcEdit1.Value<>Value2 then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение Uэт','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
end
else
begin
if Form6.RxCalcEdit1.Value<>-Value2 then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение Uэт','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
end;
end;
Form6.Label1.Caption:='Конец 8-го такта. Определение шага внутри сегмента';
Form6.Edit22.Visible:=false;
Form6.LMDLight1.Visible:=true;
Form6.LMDLight2.Visible:=false;
Form6.LMDLight3.Visible:=false;
Form6.LMDLight4.Visible:=false;
Form6.RxCalcEdit1.Color:=clBtnFace;
Form6.Edit22.Color:=clBtnFace;
end;











if Num=16 then
begin

if Boo1024=1 then
begin
if Val=Value2 then
begin
if Form6.Edit21.Text<>'1' then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение номера сегмента амплитудной характеристики','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
//Form5.Label18.Caption:='1';
end
else
begin
if Form6.Edit21.Text<>'0' then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение номера сегмента амплитудной характеристики','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
//Form5.Label18.Caption:='0';

if KodingValue>0 then
begin
if Form6.Edit27.Text<>'0' then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение из БКЭ','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
//Form6.Edit24.Caption:='0'
end
else
begin
if Form6.Edit7.Text<>'0' then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение из БКЭ','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
//Form6.Edit4.Caption:='0';
end;

if Form6.Edit47.Text<>'0' then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение из БВС','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
{if Form5.RxCalcEdit1.Value>0 then
Form5.Label24.Caption:='0'
else
Form5.Label4.Caption:='0';
Form5.Label44.Caption:='0';}
end;
if KodingValue>0 then
begin
if Form6.RxCalcEdit1.Value<>Val then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение Uэт','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
end
else
begin
if Form6.RxCalcEdit1.Value<>-Val then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение Uэт','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
end;
//Label2.Caption:=FloatToStr(Val);
end;


if Boo512=1 then
begin
if Val=Value2 then
begin
if Form6.Edit21.Text<>'1' then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение номера сегмента амплитудной характеристики','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
//Form5.Label18.Caption:='1';
end
else
begin
if Form6.Edit21.Text<>'0' then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение номера сегмента амплитудной характеристики','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
//Form5.Label18.Caption:='0';

if KodingValue>0 then
begin
if Form6.Edit28.Text<>'0' then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение из БКЭ','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
//Form6.Edit24.Caption:='0'
end
else
begin
if Form6.Edit8.Text<>'0' then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение из БКЭ','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
//Form6.Edit4.Caption:='0';
end;

if Form6.Edit48.Text<>'0' then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение из БВС','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
{if Form5.RxCalcEdit1.Value>0 then
Form5.Label24.Caption:='0'
else
Form5.Label4.Caption:='0';
Form5.Label44.Caption:='0';}
end;
if KodingValue>0 then
begin
if Form6.RxCalcEdit1.Value<>Val then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение Uэт','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
end
else
begin
if Form6.RxCalcEdit1.Value<>-Val then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение Uэт','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
end;
end;

if Boo256=1 then
begin
if Val=Value2 then
begin
if Form6.Edit21.Text<>'1' then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение номера сегмента амплитудной характеристики','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
//Form5.Label18.Caption:='1';
end
else
begin;
if Form6.Edit21.Text<>'0' then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение номера сегмента амплитудной характеристики','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
//Form5.Label18.Caption:='0';

if KodingValue>0 then
begin
if Form6.Edit29.Text<>'0' then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение из БКЭ','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
//Form6.Edit24.Caption:='0'
end
else
begin
if Form6.Edit9.Text<>'0' then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение из БКЭ','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
//Form6.Edit4.Caption:='0';
end;

if Form6.Edit49.Text<>'0' then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение из БВС','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
{if Form5.RxCalcEdit1.Value>0 then
Form5.Label24.Caption:='0'
else
Form5.Label4.Caption:='0';
Form5.Label44.Caption:='0';}
end;
if KodingValue>0 then
begin
if Form6.RxCalcEdit1.Value<>Val then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение Uэт','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
end
else
begin
if Form6.RxCalcEdit1.Value<>-Val then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение Uэт','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
end;
end;


if Boo128=1 then
begin
if Val=Value2 then
begin
if Form6.Edit21.Text<>'1' then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение номера сегмента амплитудной характеристики','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
//Form5.Label18.Caption:='1';
end
else
begin
if Form6.Edit21.Text<>'0' then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение номера сегмента амплитудной характеристики','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
//Form5.Label18.Caption:='0';

if KodingValue>0 then
begin
if Form6.Edit30.Text<>'0' then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение из БКЭ','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
//Form6.Edit24.Caption:='0'
end
else
begin
if Form6.Edit10.Text<>'0' then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение из БКЭ','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
//Form6.Edit4.Caption:='0';
end;

if Form6.Edit50.Text<>'0' then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение из БВС','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
{if Form5.RxCalcEdit1.Value>0 then
Form5.Label24.Caption:='0'
else
Form5.Label4.Caption:='0';
Form5.Label44.Caption:='0';}
end;
if KodingValue>0 then
begin
if Form6.RxCalcEdit1.Value<>Val then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение Uэт','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
end
else
begin
if Form6.RxCalcEdit1.Value<>-Val then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение Uэт','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
end;
end;


if Boo64=1 then
begin
if Val=Value2 then
begin
if Form6.Edit21.Text<>'1' then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение номера сегмента амплитудной характеристики','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
//Form5.Label18.Caption:='1';
end
else
begin
if Form6.Edit21.Text<>'0' then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение номера сегмента амплитудной характеристики','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
//Form5.Label18.Caption:='0';

if KodingValue>0 then
begin
if Form6.Edit31.Text<>'0' then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение из БКЭ','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
//Form6.Edit24.Caption:='0'
end
else
begin
if Form6.Edit11.Text<>'0' then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение из БКЭ','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
//Form6.Edit4.Caption:='0';
end;

if Form6.Edit51.Text<>'0' then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение из БВС','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
{if Form5.RxCalcEdit1.Value>0 then
Form5.Label24.Caption:='0'
else
Form5.Label4.Caption:='0';
Form5.Label44.Caption:='0';}
end;
if KodingValue>0 then
begin
if Form6.RxCalcEdit1.Value<>Val then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение Uэт','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
end
else
begin
if Form6.RxCalcEdit1.Value<>-Val then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение Uэт','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
end;
end;


if Boo32=1 then
begin
if Val=Value2 then
begin
if Form6.Edit21.Text<>'1' then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение номера сегмента амплитудной характеристики','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
//Form5.Label18.Caption:='1';
end
else
begin
if Form6.Edit21.Text<>'0' then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение номера сегмента амплитудной характеристики','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
//Form5.Label18.Caption:='0';

if KodingValue>0 then
begin
if Form6.Edit32.Text<>'0' then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение из БКЭ','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
//Form6.Edit24.Caption:='0'
end
else
begin
if Form6.Edit12.Text<>'0' then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение из БКЭ','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
//Form6.Edit4.Caption:='0';
end;

if Form6.Edit52.Text<>'0' then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение из БВС','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
{if Form5.RxCalcEdit1.Value>0 then
Form5.Label24.Caption:='0'
else
Form5.Label4.Caption:='0';
Form5.Label44.Caption:='0';}
end;
if KodingValue>0 then
begin
if Form6.RxCalcEdit1.Value<>Val then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение Uэт','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
end
else
begin
if Form6.RxCalcEdit1.Value<>-Val then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение Uэт','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
end;
end;


if Boo16=1 then
begin
if Val=Value2 then
begin
if Form6.Edit21.Text<>'1' then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение номера сегмента амплитудной характеристики','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
//Form5.Label18.Caption:='1';
end
else
begin
if Form6.Edit21.Text<>'0' then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение номера сегмента амплитудной характеристики','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
//Form5.Label18.Caption:='0';

if KodingValue>0 then
begin
if Form6.Edit33.Text<>'0' then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение из БКЭ','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
//Form6.Edit24.Caption:='0'
end
else
begin
if Form6.Edit13.Text<>'0' then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение из БКЭ','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
//Form6.Edit4.Caption:='0';
end;

if Form6.Edit53.Text<>'0' then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение из БВС','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
{if Form5.RxCalcEdit1.Value>0 then
Form5.Label24.Caption:='0'
else
Form5.Label4.Caption:='0';
Form5.Label44.Caption:='0';}
end;
if KodingValue>0 then
begin
if Form6.RxCalcEdit1.Value<>Val then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение Uэт','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
end
else
begin
if Form6.RxCalcEdit1.Value<>-Val then
begin
Num:=Num-1;
NumErrors:=NumErrors+1;
Application.MessageBox('Не правильно введено значение Uэт','Ощибка ввода',MB_OK + MB_ICONERROR);
exit;
end;
end;
end;
Form6.Label1.Caption:='Кодирование завершено';
Form6.Edit22.Visible:=false;

if NumErrors<1000 then
Form6.RzURLLabel1.Visible:=true
else
Form6.RzURLLabel1.Visible:=false;
Form6.RzURLLabel2.Visible:=true;
Form6.LMDButton1.Enabled:=false;
Form6.LMDLight1.Visible:=false;
Form6.LMDLight2.Visible:=false;
Form6.LMDLight3.Visible:=false;
Form6.LMDLight4.Visible:=false;
Form6.RxCalcEdit1.Color:=clBtnFace;
Form6.Edit22.Color:=clBtnFace;


Form6.Label1.Visible:=false;
Form6.Label2.Visible:=false;
Form6.Image1.Visible:=false;
Form6.Image3.Visible:=false;
Form6.Image5.Visible:=false;
Form6.Image2.Visible:=false;
Form6.Image4.Visible:=false;
Form6.RxCalcEdit1.Visible:=false;
Form6.Edit22.Visible:=false;
Form6.Edit3.Visible:=false;
Form6.Edit4.Visible:=false;
Form6.Edit5.Visible:=false;
Form6.Edit6.Visible:=false;
Form6.Edit7.Visible:=false;
Form6.Edit8.Visible:=false;
Form6.Edit9.Visible:=false;
Form6.Edit10.Visible:=false;
Form6.Edit11.Visible:=false;
Form6.Edit12.Visible:=false;
Form6.Edit13.Visible:=false;
Form6.Edit23.Visible:=false;
Form6.Edit24.Visible:=false;
Form6.Edit25.Visible:=false;
Form6.Edit26.Visible:=false;
Form6.Edit27.Visible:=false;
Form6.Edit28.Visible:=false;
Form6.Edit29.Visible:=false;
Form6.Edit30.Visible:=false;
Form6.Edit31.Visible:=false;
Form6.Edit32.Visible:=false;
Form6.Edit33.Visible:=false;
Form6.Edit43.Visible:=false;
Form6.Edit44.Visible:=false;
Form6.Edit45.Visible:=false;
Form6.Edit46.Visible:=false;
Form6.Edit47.Visible:=false;
Form6.Edit48.Visible:=false;
Form6.Edit49.Visible:=false;
Form6.Edit50.Visible:=false;
Form6.Edit51.Visible:=false;
Form6.Edit52.Visible:=false;
Form6.Edit53.Visible:=false;
Form6.LMDButton1.Visible:=false;
Form6.Edit14.Visible:=false;
Form6.Edit15.Visible:=false;
Form6.Edit16.Visible:=false;
Form6.Edit17.Visible:=false;
Form6.Edit18.Visible:=false;
Form6.Edit19.Visible:=false;
Form6.Edit20.Visible:=false;
Form6.Edit21.Visible:=false;
Form6.LMDLight1.Visible:=false;




Form6.Label3.Caption:='Количество ошибок: '+IntToStr(NumErrors);
Form6.Label3.Visible:=true;
end;





end;

procedure TForm6.RzURLLabel1Click(Sender: TObject);
begin
Form6.Hide;
Form8.Show;
end;

procedure TForm6.Edit43Change(Sender: TObject);
begin
Form6.Edit3.Text:=Form6.Edit43.Text;
Form6.Edit23.Text:=Form6.Edit43.Text;
end;

procedure TForm6.Edit44Change(Sender: TObject);
begin
Form6.Edit4.Text:=Form6.Edit44.Text;
Form6.Edit24.Text:=Form6.Edit44.Text;
end;

procedure TForm6.Edit45Change(Sender: TObject);
begin
Form6.Edit5.Text:=Form6.Edit45.Text;
Form6.Edit25.Text:=Form6.Edit45.Text;
end;

procedure TForm6.Edit46Change(Sender: TObject);
begin
Form6.Edit6.Text:=Form6.Edit46.Text;
Form6.Edit26.Text:=Form6.Edit46.Text;
end;

procedure TForm6.Edit47Change(Sender: TObject);
begin
Form6.Edit7.Text:=Form6.Edit47.Text;
Form6.Edit27.Text:=Form6.Edit47.Text;
end;

procedure TForm6.Edit48Change(Sender: TObject);
begin
Form6.Edit8.Text:=Form6.Edit48.Text;
Form6.Edit28.Text:=Form6.Edit48.Text;
end;

procedure TForm6.Edit49Change(Sender: TObject);
begin
Form6.Edit9.Text:=Form6.Edit49.Text;
Form6.Edit29.Text:=Form6.Edit49.Text;
end;

procedure TForm6.Edit50Change(Sender: TObject);
begin
Form6.Edit10.Text:=Form6.Edit50.Text;
Form6.Edit30.Text:=Form6.Edit50.Text;
end;

procedure TForm6.Edit51Change(Sender: TObject);
begin
Form6.Edit11.Text:=Form6.Edit51.Text;
Form6.Edit31.Text:=Form6.Edit51.Text;
end;

procedure TForm6.Edit52Change(Sender: TObject);
begin
Form6.Edit12.Text:=Form6.Edit52.Text;
Form6.Edit32.Text:=Form6.Edit52.Text;
end;

procedure TForm6.Edit53Change(Sender: TObject);
begin
Form6.Edit13.Text:=Form6.Edit53.Text;
Form6.Edit33.Text:=Form6.Edit53.Text;
end;

procedure TForm6.Edit14KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
if Form6.LMDLight1.Visible<>false then
begin
Form6.LMDLight1.Visible:=false;
Form6.LMDLight2.Visible:=true;
end;

if Form6.LMDLight4.Visible<>false then
begin

if Form6.RxCalcEdit1.Color=clBtnFace then
begin
Form6.RxCalcEdit1.Color:=clRed;
end
else
begin
if Form6.Edit22.Color=clBtnFace then
begin
Form6.Edit22.Color:=clRed;
end;
end;
end
else
begin
Form6.LMDLight4.Visible:=false;
Form6.LMDLight3.Visible:=true;
end;

end;

procedure TForm6.Edit14DblClick(Sender: TObject);
begin
if Form6.LMDLight1.Visible<>false then
begin
Form6.LMDLight1.Visible:=false;
Form6.LMDLight2.Visible:=true;
end;

if Form6.LMDLight4.Visible<>false then
begin

if Form6.RxCalcEdit1.Color=clBtnFace then
begin
Form6.RxCalcEdit1.Color:=clRed;
end
else
begin
if Form6.Edit22.Color=clBtnFace then
begin
Form6.Edit22.Color:=clRed;
end;
end;
end
else
begin
Form6.LMDLight4.Visible:=false;
Form6.LMDLight3.Visible:=true;
end;
end;

procedure TForm6.Edit43KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
Form6.LMDLight4.Visible:=true;

if Form6.RxCalcEdit1.Color=clBtnFace then
begin
Form6.RxCalcEdit1.Color:=clRed;
end
else
begin
if Form6.Edit22.Color=clBtnFace then
begin
Form6.Edit22.Color:=clRed;
end;
end;

end;

procedure TForm6.RxCalcEdit1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
Form6.RxCalcEdit1.Color:=clGreen;

if Form6.Edit22.Color=clBtnFace then
begin
Form6.Edit22.Color:=clRed;
end;

end;

procedure TForm6.Edit22KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
Form6.Edit22.Color:=clGreen;
end;

procedure TForm6.Edit43DblClick(Sender: TObject);
begin
Form6.LMDLight4.Visible:=true;

if Form6.RxCalcEdit1.Color=clBtnFace then
begin
Form6.RxCalcEdit1.Color:=clRed;
end
else
begin
if Form6.Edit22.Color=clBtnFace then
begin
Form6.Edit22.Color:=clRed;
end;
end;
end;

procedure TForm6.FormActivate(Sender: TObject);
begin
NumErrors:=0;
KodingValue:=strtoint(form9.edit1.text);
Form6.Label1.Caption:='Значение Uаим для кодирования = '+IntToStr(KodingValue)+'. Начало 1-го такта. Определение знака входного сигнала';
Form6.Label2.Caption:=IntToStr(KodingValue);
end;

procedure TForm6.RzURLLabel2Click(Sender: TObject);
begin
randomize;

//if KodingValue=0 then
//begin
//randomize;
//KodingValue:=Random(4001)-2000;
//end;

Num:=0;
Form6.RzURLLabel1.Visible:=false;
Form6.RzURLLabel2.Visible:=false;
Form6.LMDButton1.Enabled:=true;
Form6.Edit22.Text:='0';
Form6.Edit22.Visible:=true;
Form6.RxCalcEdit1.Value:=0;


Form6.Image1.Visible:=true;
Form6.Label1.Visible:=true;
Form6.Label2.Visible:=true;
Form6.Image2.Visible:=true;
Form6.Image4.Visible:=true;
Form6.RxCalcEdit1.Visible:=true;
Form6.Edit22.Visible:=true;
Form6.Edit3.Visible:=true;
Form6.Edit4.Visible:=true;
Form6.Edit5.Visible:=true;
Form6.Edit6.Visible:=true;
Form6.Edit7.Visible:=true;
Form6.Edit8.Visible:=true;
Form6.Edit9.Visible:=true;
Form6.Edit10.Visible:=true;
Form6.Edit11.Visible:=true;
Form6.Edit12.Visible:=true;
Form6.Edit13.Visible:=true;
Form6.Edit23.Visible:=true;
Form6.Edit24.Visible:=true;
Form6.Edit25.Visible:=true;
Form6.Edit26.Visible:=true;
Form6.Edit27.Visible:=true;
Form6.Edit28.Visible:=true;
Form6.Edit29.Visible:=true;
Form6.Edit30.Visible:=true;
Form6.Edit31.Visible:=true;
Form6.Edit32.Visible:=true;
Form6.Edit33.Visible:=true;
Form6.Edit43.Visible:=true;
Form6.Edit44.Visible:=true;
Form6.Edit45.Visible:=true;
Form6.Edit46.Visible:=true;
Form6.Edit47.Visible:=true;
Form6.Edit48.Visible:=true;
Form6.Edit49.Visible:=true;
Form6.Edit50.Visible:=true;
Form6.Edit51.Visible:=true;
Form6.Edit52.Visible:=true;
Form6.Edit53.Visible:=true;
Form6.LMDButton1.Visible:=true;
Form6.Edit14.Visible:=true;
Form6.Edit15.Visible:=true;
Form6.Edit16.Visible:=true;
Form6.Edit17.Visible:=true;
Form6.Edit18.Visible:=true;
Form6.Edit19.Visible:=true;
Form6.Edit20.Visible:=true;
Form6.Edit21.Visible:=true;
NumErrors:=0;
Form6.Label3.Visible:=false;
Form6.LMDLight1.Visible:=true;
Form6.Edit3.Text:='0';
Form6.Edit4.Text:='0';
Form6.Edit5.Text:='0';
Form6.Edit6.Text:='0';
Form6.Edit7.Text:='0';
Form6.Edit8.Text:='0';
Form6.Edit9.Text:='0';
Form6.Edit10.Text:='0';
Form6.Edit11.Text:='0';
Form6.Edit12.Text:='0';
Form6.Edit13.Text:='0';
Form6.Edit23.Text:='0';
Form6.Edit24.Text:='0';
Form6.Edit25.Text:='0';
Form6.Edit26.Text:='0';
Form6.Edit27.Text:='0';
Form6.Edit28.Text:='0';
Form6.Edit29.Text:='0';
Form6.Edit30.Text:='0';
Form6.Edit31.Text:='0';
Form6.Edit32.Text:='0';
Form6.Edit33.Text:='0';
Form6.Edit43.Text:='0';
Form6.Edit44.Text:='0';
Form6.Edit45.Text:='0';
Form6.Edit46.Text:='0';
Form6.Edit47.Text:='0';
Form6.Edit48.Text:='0';
Form6.Edit49.Text:='0';
Form6.Edit50.Text:='0';
Form6.Edit51.Text:='0';
Form6.Edit52.Text:='0';
Form6.Edit53.Text:='0';
Form6.Edit14.Text:='0';
Form6.Edit15.Text:='0';
Form6.Edit16.Text:='0';
Form6.Edit17.Text:='0';
Form6.Edit18.Text:='0';
Form6.Edit19.Text:='0';
Form6.Edit20.Text:='0';
Form6.Edit21.Text:='0';
Form6.Hide;
Form9.Show;
end;

end.
