delaytest.cpp

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

//---------------------------------------------------------------------------

#include <vcl.h>
#pragma hdrstop

#include "delaytest.h"
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TfmDtest *fmDtest;
//---------------------------------------------------------------------------
__fastcall TfmDtest::TfmDtest(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
int TfmDtest::gets()
{
	int t;
	SYSTEMTIME time;
	GetLocalTime(&time);
	t=time.wSecond;
	return(t);
}
//---------------------------------------------------------------------------
void __fastcall TfmDtest::Button1Click(TObject *Sender)
{
	Edit1->Clear();
	Edit1->Repaint();
	Edit2->Clear();
	Edit2->Repaint();
	Edit3->Clear();
	Edit3->Repaint();

	int i;
	float t1,t2,t3;
	int mun;
	t1=gets();
	mun=Edit4->Text.ToInt();
	Edit1->Text=t1;
	Edit1->Repaint();

	for(i=0;i<10;i++)
		delay(10000,mun);

	t2=gets();

	Edit2->Text=t2;
	Edit2->Repaint();

	t3=t2-t1;
	if(t3<0)
    	t3=t3+60;
	Edit3->Text=t3;
	Edit3->Repaint();
}
//---------------------------------------------------------------------------
void TfmDtest::delay(int tt,int tl)
{
	long temp=tl*100;
	for(int j=0;j<tt;j++)
		for(int i=0;i<temp;i++)
		{
		}
}
void __fastcall TfmDtest::Button2Click(TObject *Sender)
{
	if(!Edit3->Text.IsEmpty())
    {
		if(Edit3->Text.ToInt()==10)
    	{
    		if(Application->MessageBox("是否应用该延时系数","成功",MB_YESNO)==IDYES)
      		{
      			int iFileHandle;
				Form1->delaypara=Edit4->Text.ToInt();
      			char sdelay[20]="";
      			String str;
      			str=Edit4->Text.ToInt();
      			strcpy(sdelay,str.c_str());
      			iFileHandle=FileCreate("delay.ini");
      			FileWrite(iFileHandle,sdelay,sizeof(str));
      			FileClose(iFileHandle);
      			ShowMessage("延时系数已成功存盘");
      			Close();
      		}
    	}
  		else
    	{
      		if(Application->MessageBox("将使用默认的延时，可能导致数据不准确,建议重新测量","错误",MB_YESNO)==7);
      		{
         		Form1->delaypara=160;
         		Close();
      		}
    	}
    }
  	else
    {
		Close();
    }
}
//---------------------------------------------------------------------------
void __fastcall TfmDtest::FormShow(TObject *Sender)
{
	Edit1->Clear();
	Edit2->Clear();
	Edit3->Clear();
	Edit4->Clear();
	Edit4->Text=IntToStr(Form1->delaypara);
}
//---------------------------------------------------------------------------