unit1.h

超音波測距程式

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

#ifndef Unit1H
#define Unit1H
//---------------------------------------------------------------------------
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Forms.hpp>
#include "Comm.h"
#include "CSPIN.h"
#include <ExtCtrls.hpp>
//---------------------------------------------------------------------------
class TForm1 : public TForm
{
__published:	// IDE-managed Components
        TComm *Comm1;
    TPanel *Panel2;
    TLabel *Label1;
    TLabel *Label2;
    TLabel *Label3;
    TLabel *Label4;
    TLabel *Label5;
    TComboBox *BaudRateIndex;
    TComboBox *DataBitIndex;
    TComboBox *ParityIndex;
    TComboBox *StopBitIndex;
    TComboBox *PortIndex;
    TButton *OpenPort;
    TButton *ClosePort;
    TPanel *Panel3;
    TMemo *Memo1;
    TRadioButton *rbRecieveHEX;
    TRadioButton *rbRecieveASCII;
    TMemo *Memo2;
    TEdit *Edit1;
    TEdit *Edit2;
    TButton *Button1;
    TGroupBox *Sonar;
    TEdit *Edt_Sonar_2a;
    TEdit *Edt_Sonar_3a;
    TEdit *Edt_Sonar_0a;
    TEdit *Edt_Sonar_1a;
    TLabel *Label6;
    TLabel *Label7;
    TLabel *Label8;
    TLabel *Label9;
    TEdit *Edt_Sonar_2b;
    TEdit *Edt_Sonar_3b;
    TEdit *Edt_Sonar_0b;
    TEdit *Edt_Sonar_1b;
    TEdit *Edt_Distance_1a;
    TEdit *Edt_Distance_1b;
    TEdit *Edt_Distance_2a;
    TEdit *Edt_Distance_2b;
    TEdit *Edt_Distance_0a;
    TEdit *Edt_Distance_0b;
    TEdit *Edt_Distance_3a;
    TEdit *Edt_Distance_3b;
    TMemo *Memo3;
    TMemo *Memo4;
    TPanel *Panel1;
    TPaintBox *PaintBox1;
    TButton *btClear;
    TButton *btShow_Axis;
    TButton *btSonar;
    TPanel *Panel4;
    TCheckBox *chkb_0;
    TCheckBox *chkb_1;
    TCheckBox *chkb_2;
    TCheckBox *chkb_3;
    TLabel *Label10;
    TLabel *Label11;
    TLabel *Label12;
    TLabel *Label13;
    TEdit *Edt_Sonar_7a;
    TEdit *Edt_Sonar_6a;
    TEdit *Edt_Sonar_5a;
    TEdit *Edt_Sonar_4a;
    TEdit *Edt_Distance_4a;
    TEdit *Edt_Distance_5a;
    TEdit *Edt_Distance_6a;
    TEdit *Edt_Distance_7a;
    TEdit *Edt_Sonar_7b;
    TEdit *Edt_Sonar_6b;
    TEdit *Edt_Sonar_5b;
    TEdit *Edt_Sonar_4b;
    TEdit *Edt_Distance_4b;
    TEdit *Edt_Distance_5b;
    TEdit *Edt_Distance_6b;
    TEdit *Edt_Distance_7b;
    TLabel *Label14;
    TLabel *Label15;
    TLabel *Label16;
    TLabel *Label17;
    TEdit *Edt_Sonar_11a;
    TEdit *Edt_Sonar_10a;
    TEdit *Edt_Sonar_9a;
    TEdit *Edt_Sonar_8a;
    TEdit *Edt_Distance_8a;
    TEdit *Edt_Distance_9a;
    TEdit *Edt_Distance_10a;
    TEdit *Edt_Distance_11a;
    TEdit *Edt_Sonar_11b;
    TEdit *Edt_Sonar_10b;
    TEdit *Edt_Sonar_9b;
    TEdit *Edt_Sonar_8b;
    TEdit *Edt_Distance_8b;
    TEdit *Edt_Distance_9b;
    TEdit *Edt_Distance_10b;
    TEdit *Edt_Distance_11b;
    TCheckBox *chkb_7;
    TCheckBox *chkb_4;
    TCheckBox *chkb_5;
    TCheckBox *chkb_6;
    TCheckBox *chkb_11;
    TCheckBox *chkb_8;
    TCheckBox *chkb_9;
    TCheckBox *chkb_10;
        TComm *Comm2;
        void __fastcall OpenPortClick(TObject *Sender);
        void __fastcall ClosePortClick(TObject *Sender);
        void __fastcall Comm1RxChar(TObject *Sender, DWORD Count);
        void __fastcall Comm1Break(TObject *Sender);
        void __fastcall Comm1Cts(TObject *Sender);
        void __fastcall Comm1Dsr(TObject *Sender);
        void __fastcall Comm1Error(TObject *Sender, int Errors);
        void __fastcall Comm1Ring(TObject *Sender);
        void __fastcall Comm1Rlsd(TObject *Sender);
        void __fastcall Comm1RxFlag(TObject *Sender);
        void __fastcall Comm1TxEmpty(TObject *Sender);
        void __fastcall Comm1ComStatEvent(TObject *Sender, DWORD Status,
          COMSTAT ComStat);
        void __fastcall FormCreate(TObject *Sender);
    void __fastcall FormClose(TObject *Sender, TCloseAction &Action);
    void __fastcall BaudRateIndexChange(TObject *Sender);
        void __fastcall Button1Click(TObject *Sender);
    void __fastcall btClearClick(TObject *Sender);
    void __fastcall btShow_AxisClick(TObject *Sender);
    void __fastcall btSonarClick(TObject *Sender);
private:	// User declarations
public:		// User declarations
        __fastcall TForm1(TComponent* Owner);
        String rs,rs1;
void __fastcall TForm1::Draw_Sonar_Fire_Line(float Theta,TPenStyle Style);

};
//---------------------------------------------------------------------------
extern PACKAGE TForm1 *Form1;
//---------------------------------------------------------------------------
#endif