unit_main.h

使用GPIB卡控制数控电源（Agilent66X）测试电流的一个小程序

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

#ifndef Unit_MainH
#define Unit_MainH
//---------------------------------------------------------------------------
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Forms.hpp>
#include "PERFGRAP.h"
#include <Buttons.hpp>
#include <ComCtrls.hpp>
#include <ExtCtrls.hpp>
#include "CGAUGES.h"
//---------------------------------------------------------------------------
class TForm_Main : public TForm
{
__published:	// IDE-managed Components
        TPageControl *PageControl1;
        TTabSheet *TabSheet1;
        TTabSheet *TabSheet2;
        TEdit *Edit_tim;
        TLabel *Label1;
        TLabel *Label2;
        TGroupBox *GroupBox1;
        TLabel *Label3;
        TLabel *Label6;
        TLabel *Label7;
        TLabel *Label4;
        TLabel *Label5;
        TLabel *Label8;
        TLabel *Label9;
        TLabel *Label11;
        TEdit *Edit_CurrMax;
        TEdit *Edit_CurrMin;
        TEdit *Edit_CurrAver;
        TEdit *Edit_TestTime;
        TBitBtn *BitBtn_Start;
        TTimer *Timer;
        TStatusBar *StatusBar1;
        TLabel *Label14;
        TLabel *Label15;
        TEdit *Edit_GpibIndex;
        TEdit *Edit_PriAdd;
        TBitBtn *BitBtn_Reset;
        TLabel *Label16;
        TLabel *Label17;
        TLabel *Label18;
        TEdit *Edit_OutPutPow;
        TEdit *Edit_VoltProt;
        TEdit *Edit_CurrLimt;
        TTabSheet *TabSheet3;
        TMemo *Memo_log;
        TLabel *Label19;
        TEdit *Edit_testN;
        TLabel *Label20;
        TBitBtn *BitBtn_Clear;
        TCheckBox *CheckBox_RealtimneChg;
        TBitBtn *BitBtn_InitPow;
        TCGauge *CGauge_pro;
        TPanel *Panel1;
        TLabel *Label12;
        TEdit *Edit_CurrCurr;
        TPanel *Panel_S;
        TLabel *Label13;
        void __fastcall FormShow(TObject *Sender);
        void __fastcall FormClose(TObject *Sender, TCloseAction &Action);
        void __fastcall BitBtn_ResetClick(TObject *Sender);
        void __fastcall BitBtn_StartClick(TObject *Sender);
        void __fastcall BitBtn_InitPowClick(TObject *Sender);
        void __fastcall Edit_timChange(TObject *Sender);
        void __fastcall Edit_testNChange(TObject *Sender);
        void __fastcall CheckBox_RealtimneChgClick(TObject *Sender);
        void __fastcall TimerTimer(TObject *Sender);
        void __fastcall BitBtn_ClearClick(TObject *Sender);
private:	// User declarations
public:		// User declarations
        __fastcall TForm_Main(TComponent* Owner);

        void LoadSetting(void);
        void SaveSetting(void);
        void ClearResult();
        void StartClock(){Timer->Enabled=true;};
        void StopClock(){Timer->Enabled=false;};
        void ResetClock(void);
};
//---------------------------------------------------------------------------
extern PACKAGE TForm_Main *Form_Main;

extern int iTestTim;
extern int iTestN;
extern int iGpibIndex;
extern int iPriAdd;
extern float fOutputPow;
extern float fVoltProt;
extern float fCurrLimit;
extern bool iReatimeChg;

extern float fCurrSum;
extern int icount;
extern float fCurrMax;
extern float fCurrMin;
extern float fCurrAver;
extern int clock;

//---------------------------------------------------------------------------
#endif