unit calibration;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, Forms, Controls, Graphics, Dialogs, CustomDrawnControls,
  StdCtrls, Spin;

type

  { Tcalibrationform }

  Tcalibrationform = class(TForm)
    abutton: TCDButton;
    bbutton: TCDButton;
    dtbutton: TCDButton;
    Label3: TLabel;
    pabutton: TCDButton;
    dtfilterbutton: TCDButton;
    Tfilterbutton: TCDButton;
    dTfilterEdit: TFloatSpinEdit;
    TfilterEdit: TFloatSpinEdit;
    pbbutton: TCDButton;
    pcbutton: TCDButton;
    intbutton: TCDButton;
    bEdit: TFloatSpinEdit;
    dtEdit: TFloatSpinEdit;
    paEdit: TFloatSpinEdit;
    pbEdit: TFloatSpinEdit;
    pcEdit: TFloatSpinEdit;
    intEdit: TFloatSpinEdit;
    exitbutton: TCDButton;
    Label1: TLabel;
    Label2: TLabel;
    aEdit: TFloatSpinEdit;
    procedure abuttonClick(Sender: TObject);
    procedure bbuttonClick(Sender: TObject);
    procedure dtbuttonClick(Sender: TObject);
    procedure dtfilterbuttonClick(Sender: TObject);
    procedure exitbuttonClick(Sender: TObject);
    procedure FormClose(Sender: TObject; var CloseAction: TCloseAction);
    procedure intbuttonClick(Sender: TObject);
    procedure pabuttonClick(Sender: TObject);
    procedure pbbuttonClick(Sender: TObject);
    procedure pcbuttonClick(Sender: TObject);
    procedure TfilterbuttonClick(Sender: TObject);
  private

  public

  end;

var
  calibrationform: Tcalibrationform;

  procedure calibrationexit;
  procedure calibrout;

implementation

{$R *.lfm}

{ Tcalibrationform }

 uses main, variables,communication;



procedure calibrationexit;
 begin
       tempzero:=calibrationform.aEdit.value;
       tempslope:=calibrationform.bEdit.value;
       q0:=calibrationform.dtEdit.value;
       pa:=calibrationform.paEdit.value;
       pb:=calibrationform.pbEdit.value;
       pc:=calibrationform.pcEdit.value;
       inttime:=calibrationform.intEdit.value;
       filter:=calibrationform.dtfilterEdit.value;
       filtert:=calibrationform.tfilterEdit.value;
       calibrationForm.visible:=false;
       //save_calibr_data;
       mainform.calibrbutton.Color:=clSilver;
 end;



procedure calibrout;

  begin
    if not student then
       begin
          sendonb:=true;
          senddata(STEMPZERO,calibrationform.aEdit.value);
	  senddata(STEMPSLOPE,calibrationform.bEdit.value);
          senddata(STEMPPARAB,0);
          senddata(SPA,calibrationform.paEdit.value);
          senddata(SPB,calibrationform.pbEdit.value);
          senddata(SPC,calibrationform.pcEdit.value);
	  senddata(SINTTIME,calibrationform.intEdit.value);
	  senddata(SQ0,calibrationform.dtEdit.value);
          senddata(SFILTER,calibrationform.dtfilterEdit.value);
          senddata(SFILTERT,calibrationform.tfilterEdit.value);
          senddata(SSAVEPARAM,0);
          sendonb:=false;
       end;
  end;

procedure Tcalibrationform.abuttonClick(Sender: TObject);
begin
      calibrout;
end;

procedure Tcalibrationform.bbuttonClick(Sender: TObject);
begin
      calibrout;
end;

procedure Tcalibrationform.dtbuttonClick(Sender: TObject);
begin
      calibrout;
end;

procedure Tcalibrationform.dtfilterbuttonClick(Sender: TObject);
begin
    calibrout;
end;


procedure Tcalibrationform.intbuttonClick(Sender: TObject);
begin
      calibrout;
end;

procedure Tcalibrationform.pabuttonClick(Sender: TObject);
begin
      calibrout;
end;

procedure Tcalibrationform.pbbuttonClick(Sender: TObject);
begin
       calibrout;
end;

procedure Tcalibrationform.pcbuttonClick(Sender: TObject);
begin
     calibrout;
end;

procedure Tcalibrationform.TfilterbuttonClick(Sender: TObject);
begin
     calibrout;
end;

procedure Tcalibrationform.FormClose(Sender: TObject;
  var CloseAction: TCloseAction);
begin
  calibrationexit;
end;

procedure Tcalibrationform.exitbuttonClick(Sender: TObject);
begin
   calibrationexit;
end;








end.