unit1.h

一个激光彩虹程序的源代码

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

#ifndef Unit1H
#define Unit1H
//---------------------------------------------------------------------------
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Forms.hpp>
#include <Chart.hpp>
#include <DbChart.hpp>
#include <ExtCtrls.hpp>
#include <TeEngine.hpp>
#include <TeeProcs.hpp>
#include <Dialogs.hpp>
#include <Menus.hpp>
#include <Series.hpp>
#define n=2049
//---------------------------------------------------------------------------
class TForm1 : public TForm
{
__published:	// IDE-managed Components
        TButton *btgrab;
        TButton *btshow;
        TButton *btsave;
        TButton *btcaculate;
        TButton *btclear;
        TButton *btexit;
        TPanel *Panel1;
        TPanel *Panel2;
        TPanel *Panel3;
        TLabel *Label1;
        TLabel *Label2;
        TRadioGroup *RadioGroup1;
        TEdit *Edit1;
        TScrollBar *ScrollBar1;
        TRadioButton *RadioButton1;
        TRadioButton *RadioButton2;
        TGroupBox *GroupBox1;
        TCheckBox *CheckBox1;
        TCheckBox *CheckBox2;
        TCheckBox *CheckBox3;
        TCheckBox *CheckBox4;
        TListBox *ListBox1;
        TListBox *ListBox2;
        TSaveDialog *SaveDialog1;
        TOpenDialog *OpenDialog1;
        TTimer *Timer1;
        TDBChart *DBChart1;
        TLineSeries *Series1;
        TLineSeries *Series2;
        TEdit *Edit2;
        TEdit *Edit3;
        TPopupMenu *PopupMenu1;
        TMenuItem *filesave1;
        TMenuItem *fileopen1;
        TMenuItem *sbiaryfile1;
        TMenuItem *sassii1;
        TMenuItem *obiaryfile1;
        TMenuItem *oasciifile1;

        TOpenDialog *OpenDialog2;
        TSaveDialog *SaveDialog2;
        TLabel *Label3;
        TButton *Button1;
        TButton *Button2;
        TMenuItem *datatranslate1;
        TSaveDialog *SaveDialog3;
        TButton *Button3;
        TButton *Button4;
        TMenuItem *N2Doasciifile1;
        TOpenDialog *OpenDialog3;
        TPanel *Panel4;
        TLabel *Label4;
        TEdit *Edit4;
        TLabel *Label5;
        TEdit *Edit5;
        TButton *Button5;
        TPopupMenu *PopupMenu3;
        TPopupMenu *PopupMenu4;
        TMenuItem *N1;
        TMenuItem *N2;
        TMenuItem *N3;
        TMenuItem *N4;
        void __fastcall btgrabClick(TObject *Sender);
        void __fastcall Timer1Timer(TObject *Sender);
        void __fastcall btshowClick(TObject *Sender);
        void __fastcall sbiaryfile1Click(TObject *Sender);
        void __fastcall btexitClick(TObject *Sender);

        void __fastcall btsaveMouseDown(TObject *Sender,
          TMouseButton Button, TShiftState Shift, int X, int Y);
        void __fastcall obiaryfile1Click(TObject *Sender);
        void __fastcall CheckBox1Click(TObject *Sender);
        void __fastcall CheckBox2Click(TObject *Sender);
        void __fastcall btclearClick(TObject *Sender);
        void __fastcall ScrollBar1Change(TObject *Sender);
      
        void __fastcall btcaculateClick(TObject *Sender);
        void __fastcall CheckBox3Click(TObject *Sender);
        void __fastcall RadioButton1Click(TObject *Sender);
        void __fastcall RadioButton2Click(TObject *Sender);
        void __fastcall Series1Click(TChartSeries *Sender, int ValueIndex,
          TMouseButton Button, TShiftState Shift, int X, int Y);
        void __fastcall DBChart1Zoom(TObject *Sender);
        void __fastcall Series2Click(TChartSeries *Sender, int ValueIndex,
          TMouseButton Button, TShiftState Shift, int X, int Y);
        void __fastcall DBChart1MouseUp(TObject *Sender,
          TMouseButton Button, TShiftState Shift, int X, int Y);
        void __fastcall DBChart1UndoZoom(TObject *Sender);
        void __fastcall FormCreate(TObject *Sender);
        void __fastcall sassii1Click(TObject *Sender);
        void __fastcall oasciifile1Click(TObject *Sender);
        void __fastcall Button1Click(TObject *Sender);
        void __fastcall Button2Click(TObject *Sender);
        void __fastcall datatranslate1Click(TObject *Sender);
        void __fastcall Button3Click(TObject *Sender);
        void __fastcall Button4Click(TObject *Sender);
        void __fastcall N2Doasciifile1Click(TObject *Sender);
        void __fastcall Button5Click(TObject *Sender);
        void __fastcall Button5MouseDown(TObject *Sender,
          TMouseButton Button, TShiftState Shift, int X, int Y);
        void __fastcall N1Click(TObject *Sender);
        void __fastcall Button4MouseDown(TObject *Sender,
          TMouseButton Button, TShiftState Shift, int X, int Y);
        void __fastcall N3Click(TObject *Sender);
        void __fastcall N2Click(TObject *Sender);
        void __fastcall N4Click(TObject *Sender);
        void __fastcall Edit5KeyUp(TObject *Sender, WORD &Key,
          TShiftState Shift);
        void __fastcall Edit5Change(TObject *Sender);
        void __fastcall Edit4Change(TObject *Sender);


private:	// User declarations

public:		// User declarations

            double *intens,*ang,*intensfft;
            int num,count1;
            float *fftbuf;
        __fastcall TForm1(TComponent* Owner);
};
//---------------------------------------------------------------------------
extern PACKAGE TForm1 *Form1;
//---------------------------------------------------------------------------
#endif