unit2.cpp

光学仪器的控制系统 用于教学和科研的仪器

//---------------------------------------------------------------------------
#pragma hdrstop
#include <vcl.h>


#include "stdio.h"
#include "Unit2.h"
#include "IsNumber.h"
#include "Unit1.h"

//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TChanShu *ChanShu;
//---------------------------------------------------------------------------
__fastcall TChanShu::TChanShu(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------

void __fastcall TChanShu::FormCreate(TObject *Sender)
{
 ComboBox1->ItemIndex=2;
 Select0=1; Select1=3; Select2=2; Select3=1; Select4=5;
 tnl2[1]=0; tnh2[1]=100;
 tnl2[2]=0; tnh2[2]=2;
 tnl2[3]=0; tnh2[3]=4095;
 csd5[1]=1; csd5[2]=1; csd5[3]=10;
 wnst=Form1->wns0; wnet=Form1->wne0;
 ewns=wnst; ewne=wnet;
 csd2=0;
 csd8=360;
 csd9=5;
 csd10=2;
 csd11=1;

}
//---------------------------------------------------------------------------

void __fastcall TChanShu::Radio12Click(TObject *Sender)
{// 选择 测量模式->透过率

 Edit13->Enabled=true;          // 透过率起始刻度显示
 Edit13->Color=clWindow;
 Edit14->Enabled=true;          // 透过率起始刻度显示
 Edit14->Color=clWindow;

 Edit15->Enabled=false;         // 吸光度起始刻度不显示
 Edit15->Color=clBtnFace;
 Edit16->Enabled=false;         // 吸光度终止刻度不显示
 Edit16->Color=clBtnFace;

 Edit11->Enabled=false;         // 能量起始刻度不显示
 Edit11->Color=clBtnFace;
 Edit12->Enabled=false;         // 能量终止刻度不显示
 Edit12->Color=clBtnFace;

 EditVol->Enabled=false;         // 负高压值不显示
 EditVol->Color=clBtnFace;
 UpDown61->Enabled=false;

 EditAmp->Enabled=false;         // 增益值不显示
 EditAmp->Color=clBtnFace;
 UpDown62->Enabled=false;

 EditLamp->Text="自动";
 EditLamp->Enabled=false;        // 工作光源不显示
 EditLamp->Color=clBtnFace;
 UpDown63->Enabled=false;

 EditLampCh->Enabled=true;       // 换灯波长显示
 EditLampCh->Color=clWindow;
 UpDown64->Enabled=true;

}
//---------------------------------------------------------------------------

void __fastcall TChanShu::Radio13Click(TObject *Sender)
{// 选择 测量模式->吸光度

 Edit13->Enabled=false;         // 透过率起始刻度不显示
 Edit13->Color=clBtnFace;
 Edit14->Enabled=false;         // 透过率起始刻度不显示
 Edit14->Color=clBtnFace;

 Edit15->Enabled=true;          // 吸光度起始刻度显示
 Edit15->Color=clWindow;
 Edit16->Enabled=true;          // 吸光度终止刻度显示
 Edit16->Color=clWindow;

 Edit11->Enabled=false;         // 能量起始刻度不显示
 Edit11->Color=clBtnFace;
 Edit12->Enabled=false;         // 能量终止刻度不显示
 Edit12->Color=clBtnFace;


 EditVol->Enabled=false;         // 负高压值不显示
 EditVol->Color=clBtnFace;
 UpDown61->Enabled=false;

 EditAmp->Enabled=false;         // 增益值不显示
 EditAmp->Color=clBtnFace;
 UpDown62->Enabled=false;


 EditLamp->Text="自动";
 EditLamp->Enabled=false;        // 工作光源不显示
 EditLamp->Color=clBtnFace;
 UpDown63->Enabled=false;

 EditLampCh->Enabled=true;       // 换灯波长显示
 EditLampCh->Color=clWindow;
 UpDown64->Enabled=true;

}
//---------------------------------------------------------------------------

void __fastcall TChanShu::Radio11Click(TObject *Sender)
{// 选择 测量模式->能量

 Edit13->Enabled=false;         // 透过率起始刻度不显示
 Edit13->Color=clBtnFace;
 Edit14->Enabled=false;         // 透过率终止刻度不显示
 Edit14->Color=clBtnFace;

 Edit15->Enabled=false;         // 吸光度起始刻度不显示
 Edit15->Color=clBtnFace;
 Edit16->Enabled=false;         // 吸光度终止刻度不显示
 Edit16->Color=clBtnFace;

 Edit11->Enabled=true;          // 能量起始刻度显示
 Edit11->Color=clWindow;
 Edit12->Enabled=true;          // 能量终止刻度显示
 Edit12->Color=clWindow;

 EditVol->Enabled=true;         // 负高压值显示
 EditVol->Color=clWindow;
 UpDown61->Enabled=true;

 EditAmp->Enabled=false;         // 增益值不显示
 EditAmp->Color=clBtnFace;
 UpDown62->Enabled=false;

      if(UpDown63->Position==1)
        EditLamp->Text="氘灯";
 else if(UpDown63->Position==2)
        EditLamp->Text="钨灯";
 else if(UpDown63->Position==3)
        EditLamp->Text="自动";
 EditLamp->Enabled=true;        // 工作光源显示
 EditLamp->Color=clWindow;
 UpDown63->Enabled=true;

 EditLampCh->Enabled=false;     // 换灯波长不显示
 EditLampCh->Color=clBtnFace;
 UpDown64->Enabled=false;
}
//---------------------------------------------------------------------------

void __fastcall TChanShu::Radio31Click(TObject *Sender)
{// 选择 扫描方式->重复扫描
 SetRadio31();
}
//---------------------------------------------------------------------------
void TChanShu::SetRadio31(void)
{// 设置重复扫描显示

 Edit31->Enabled=true;          // 显示重复扫描
 Edit31->Color=clWindow;
 UpDown31->Enabled=true;


 Edit32->Enabled=false;         // 连续扫描不显示
 Edit32->Color=clBtnFace;
 UpDown32->Enabled=false;


 Edit33->Enabled=false;         // 时间扫描不显示
 Edit33->Color=clBtnFace;
 UpDown33->Enabled=false;
 GroupBox4->Caption="波长范围";
 Label3->Caption="起始波长";
 Label4->Caption="终止波长";
 Label6->Caption="nm";
 Label15->Caption="nm";

 Edit41->Enabled=true;
 Edit42->Enabled=true;
 Edit41->Text=FloatToStr(ewns);
 Edit42->Text=FloatToStr(ewne);
}
//---------------------------------------------------------------------------

void __fastcall TChanShu::Radio32Click(TObject *Sender)
{// 选择 扫描方式->连续扫描

 SetRadio32();
}
void TChanShu::SetRadio32(void)
{// 设置连续扫描显示

 Edit31->Enabled=false;         // 重复扫描不显示
 Edit31->Color=clBtnFace;
 UpDown31->Enabled=false;

 Edit32->Enabled=true;          // 显示连续扫描
 Edit32->Color=clWindow;
 UpDown32->Enabled=true;

 Edit33->Enabled=false;         // 时间扫描不显示
 Edit33->Color=clBtnFace;
 UpDown33->Enabled=false;
 GroupBox4->Caption="波长范围";
 Label3->Caption="起始波长";
 Label4->Caption="终止波长";
 Label6->Caption="nm";
 Label15->Caption="nm";

 Edit41->Enabled=true;
 Edit42->Enabled=true;
 Edit41->Text=FloatToStr(ewns);
 Edit42->Text=FloatToStr(ewne);
}
//---------------------------------------------------------------------------

void __fastcall TChanShu::Radio33Click(TObject *Sender)
{// 选择 扫描方式->时间扫描
 twns=0;
 twne=60*StrToInt(Edit33->Text);
 //wnst=twns;
 //wnet=twne;
 SetRadio33();
}
void TChanShu::SetRadio33(void)
{// 设置时间扫描显示
 Edit31->Enabled=false;         // 重复扫描不显示
 Edit31->Color=clBtnFace;
 UpDown31->Enabled=false;

 Edit32->Enabled=false;         // 连续扫描不显示
 Edit32->Color=clBtnFace;
 UpDown32->Enabled=false;

 Edit33->Enabled=true;          // 显示时间扫描
 Edit33->Color=clWindow;
 UpDown33->Enabled=true;
 GroupBox4->Caption="测量时长";
 Label3->Caption="初始时间";
 Label4->Caption="停止时间";
 Label6->Caption="秒";
 Label15->Caption="秒";

 Edit41->Enabled=false;
 Edit42->Enabled=false;
 Edit41->Text=FloatToStr(twns);
 Edit42->Text=FloatToStr(twne);
}
//---------------------------------------------------------------------------

void __fastcall TChanShu::FormShow(TObject *Sender)
{
 char gs[40];
 this->ActiveControl=ButtonOK;
 bOK=false;
 if(Form1->bGrid)
    CheckBox1->Checked=true;
 else
    CheckBox1->Checked=false;

 if(Form1->bScale)
    CheckBox2->Checked=true;
 else
    CheckBox2->Checked=false;
 ComboBox2->ItemIndex=Form1->Ygridindex;
 ComboBox1->ItemIndex=Form1->Xgridindex;
// 设置 GroupBox1 测试模式
 switch(Select1)
 {
  case 1:Radio12Click(Sender);
         Radio12->Checked=true;
         break;
  case 2:Radio13Click(Sender);
         Radio13->Checked=true;
         break;
  case 3:Radio11Click(Sender);
         Radio11->Checked=true;
         break;
 }
 sprintf(gs,"%1.2f",tnl2[1]);
 Edit13->Text=gs;//FloatToStr(tnl2[1]);
 sprintf(gs,"%1.2f",tnh2[1]);
 Edit14->Text=gs;//FloatToStr(tnh2[1]);
 sprintf(gs,"%1.4f",tnl2[2]);
 Edit15->Text=gs;//FloatToStr(tnl2[2]);
 sprintf(gs,"%1.4f",tnh2[2]);
 Edit16->Text=gs;//FloatToStr(tnh2[2]);
 sprintf(gs,"%1.1f",tnl2[3]);
 Edit11->Text=gs;//FloatToStr(tnl2[3]);
 sprintf(gs,"%1.1f",tnh2[3]);
 Edit12->Text=gs;//FloatToStr(tnh2[3]);

// 设置 GroupBox11扫描间隔
 switch(Select0)
 {
  case 1:RadioButton1->Checked==true;
         break;
  case 2:RadioButton2->Checked==true;
         break;
  case 3:RadioButton3->Checked==true;
         break;
  case 4:RadioButton4->Checked==true;
         break;
 }
// 设置 GroupBox2 扫描速度
 switch(Select2)
 {
  case 1:Radio21->Checked=true;