unit18.cpp

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

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

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

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



//---------------------------------------------------------------------------
void __fastcall TForm18::btCancelClick(TObject *Sender)
{
 Close();        
}
//---------------------------------------------------------------------------
void __fastcall TForm18::FormCreate(TObject *Sender)
{// 零系数和百系数测量

}
//---------------------------------------------------------------------------
void __fastcall TForm18::FormShow(TObject *Sender)
{
 p1=Form1->pp1;
 p2=Form1->pp2;
 sprintf(Form1->gs,"零系数: %2.6f",p1);
 Edit1->Text=Form1->gs;
 sprintf(Form1->gs,"百系数: %2.6f",p2);
 Edit2->Text=Form1->gs;

}
void __fastcall TForm18::btOKClick(TObject *Sender)
{// 确定测量结果
 Form1->pp1=p1;
 Form1->pp2=p2;
 sprintf(Form1->gs,"零系数: %2.6f",Form1->pp1);
 Edit1->Text=Form1->gs;
 sprintf(Form1->gs,"百系数: %2.6f",Form1->pp2);
 Edit2->Text=Form1->gs;
 Form1->WritePP();
 Close();
}
//---------------------------------------------------------------------------

void __fastcall TForm18::Button4Click(TObject *Sender)
{// 恢复默认值
 p1=0.0;
 p2=1.0;
 sprintf(Form1->gs,"零系数: %2.6f",p1);
 Edit1->Text=Form1->gs;
 sprintf(Form1->gs,"百系数: %2.6f",p2);
 Edit2->Text=Form1->gs;
}
//---------------------------------------------------------------------------


void __fastcall TForm18::Button1Click(TObject *Sender)
{// 测量零系数
 int i;
 float t;
 t=0.0;
 Form18->ProgressBar1->Max=100;
 Form18->ProgressBar1->Position=0;
 Form18->ProgressBar1->Repaint();
 for(i=0;i<100;i++)
 {
   t=t+Form1->tas(4);
   Form1->dely(100);
   Form18->ProgressBar1->Position++;
 }
 p1=t/100.0;
 sprintf(Form1->gs,"零系数: %2.6f",p1);
 Edit1->Text=Form1->gs;
 Form18->ProgressBar1->Position=0;

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

void __fastcall TForm18::Button2Click(TObject *Sender)
{// 测量百系数
 int i;
 float t;
 t=0.0;
 Form18->ProgressBar1->Max=100;
 Form18->ProgressBar1->Position=0;
 Form18->ProgressBar1->Repaint();
 for(i=0;i<100;i++)
 {
   t=t+Form1->tas(5);
   Form1->dely(50);
   Form18->ProgressBar1->Position++;
 }
 p2=t/100.0;
 if(Form1->tbb()!=0.0)
   p2=p2/Form1->tbb();
 sprintf(Form1->gs,"百系数: %2.6f",p2);
 Edit2->Text=Form1->gs;
 Form18->ProgressBar1->Position=0;

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