unit17.cpp

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

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

#include <stdio.h>
#include "Unit17.h"
#include "Unit1.h"

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

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


void __fastcall TForm17::FormCreate(TObject *Sender)
{//

// Edit1->Enabled=true;
// Edit1->Color=clWindow;



}
//---------------------------------------------------------------------------
void __fastcall TForm17::Button1Click(TObject *Sender)
{
 Close();
}
//---------------------------------------------------------------------------

void __fastcall TForm17::FormShow(TObject *Sender)
{

 sprintf(Form1->gs,"测试模式 csd[1]= %d",Form1->csd[1]);
 Edit1->Text=Form1->gs;

 sprintf(Form1->gs,"工作光源 csd[2]= %d",Form1->csd[2]);
 Edit2->Text=Form1->gs;

 sprintf(Form1->gs,"扫描速率 csd[3]= %d",Form1->csd[3]);
 Edit3->Text=Form1->gs;

 sprintf(Form1->gs,"扫描方式 csd[4]= %d",Form1->csd[4]);
 Edit4->Text=Form1->gs;

 sprintf(Form1->gs,"扫描次数 csd[5]= %d",Form1->csd[5]);
 Edit5->Text=Form1->gs;

 sprintf(Form1->gs,"换灯波长 csd[8]= %d",Form1->csd[8]);
 Edit6->Text=Form1->gs;

 sprintf(Form1->gs,"光谱带宽 csd[9]= %d",Form1->csd[9]);
 Edit7->Text=Form1->gs;

 sprintf(Form1->gs,"负高压  csd[10]= %d",Form1->csd[10]);
 Edit8->Text=Form1->gs;

 sprintf(Form1->gs,"起始波长 wns = %f",Form1->wns);
 Edit9->Text=Form1->gs;

 sprintf(Form1->gs,"终止波长 wns = %f",Form1->wne);
 Edit10->Text=Form1->gs;

 sprintf(Form1->gs,"起始刻度 tnl = %3.1f",Form1->tnl);
 Edit11->Text=Form1->gs;

 sprintf(Form1->gs,"终止刻度 tnh = %3.1f",Form1->tnh);
 Edit12->Text=Form1->gs;

 sprintf(Form1->gs,"氘灯步数 dds = %d",Form1->dds);
 Edit13->Text=Form1->gs;

 sprintf(Form1->gs,"钨灯步数 wds = %d",Form1->wds);
 Edit14->Text=Form1->gs;

 sprintf(Form1->gs,"CON  = %d",Form1->con);
 Edit15->Text=Form1->gs;

 sprintf(Form1->gs,"CON1 = %d",Form1->con1);
 Edit16->Text=Form1->gs;

 sprintf(Form1->gs,"零系数 = %2.6f",Form1->pp1);
 Edit17->Text=Form1->gs;

 sprintf(Form1->gs,"百系数 = %2.6f",Form1->pp2);
 Edit18->Text=Form1->gs;

 sprintf(Form1->gs,"ptc.m1 = %d",Form1->ptc.m1);
 Edit21->Text=Form1->gs;

 sprintf(Form1->gs,"ptc.m2 = %d",Form1->ptc.m2);
 Edit22->Text=Form1->gs;

 sprintf(Form1->gs,"ptc.m3 = %d",Form1->ptc.m3);
 Edit23->Text=Form1->gs;

 sprintf(Form1->gs,"ptc.m4 = %d",Form1->ptc.m4);
 Edit24->Text=Form1->gs;

 sprintf(Form1->gs,"ptc.lamp = %d",Form1->ptc.lamp);
 Edit25->Text=Form1->gs;

 sprintf(Form1->gs,"ptc.interval = %d",Form1->ptc.interval);
 Edit26->Text=Form1->gs;

 sprintf(Form1->gs,"ptc.source = %d",Form1->ptc.source);
 Edit27->Text=Form1->gs;

 sprintf(Form1->gs,"ptc.slit = %d",Form1->ptc.slit);
 Edit28->Text=Form1->gs;

 sprintf(Form1->gs,"ptc.vol = %d",Form1->ptc.vol);
 Edit29->Text=Form1->gs;

// sprintf(Form1->gs,"ptc.amp = %d",Form1->ptc.amp);
// Edit30->Text=Form1->gs;

 sprintf(Form1->gs,"检验氘灯最大值 = %f",Form1->ddsmax);
 Edit19->Text=Form1->gs;

 sprintf(Form1->gs,"检验钨灯最大值 = %f",Form1->wdsmax);
 Edit20->Text=Form1->gs;


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