unit1.cpp

超音波測距程式

                            //==================================================
                            if (chkb_0->Checked)
                                S1 = StrToFloat(Edt_Distance_0a->Text)/2.5;
                            else S1 = 0;
                            if (chkb_1->Checked)
                                S2 = StrToFloat(Edt_Distance_1a->Text)/2.5;
                            else S2 = 0;
                            if (chkb_2->Checked)
                                S3 = StrToFloat(Edt_Distance_2a->Text)/2.5;
                            else S3 = 0;
                            if (chkb_3->Checked)
                                S4 = StrToFloat(Edt_Distance_3a->Text)/2.5;
                            else S4 = 0;

                            if (chkb_4->Checked)
                                S5 = StrToFloat(Edt_Distance_4a->Text)/2.5;
                            else S5 = 0;
                            if (chkb_5->Checked)
                                S6 = StrToFloat(Edt_Distance_5a->Text)/2.5;
                            else S6 = 0;
                            if (chkb_6->Checked)
                                S7 = StrToFloat(Edt_Distance_6a->Text)/2.5;
                            else S7 = 0;
                            if (chkb_7->Checked)
                                S8 = StrToFloat(Edt_Distance_7a->Text)/2.5;
                            else S8 = 0;

                            if (chkb_8->Checked)
                                S9 = StrToFloat(Edt_Distance_8a->Text)/2.5;
                            else S9 = 0;
                            if (chkb_9->Checked)
                                S10 = StrToFloat(Edt_Distance_9a->Text)/2.5;
                            else S10 = 0;
                            if (chkb_10->Checked)
                                S11 = StrToFloat(Edt_Distance_10a->Text)/2.5;
                            else S11 = 0;
                            if (chkb_11->Checked)
                                S12 = StrToFloat(Edt_Distance_11a->Text)/2.5;
                            else S12 = 0;

                            btClearClick(NULL);
                            btShow_AxisClick(NULL);
                            btSonarClick(NULL);
                        }
                    }
                    //-----------------------------------
                    if ((!start_f)&&(rb[i]==119))//0X77;
                    {   start_f = true;
                        index = 0;
                        TH = true;
                    }
                    //===================================
                }
        }
        Memo1->Lines->Add(rs);
        Memo2->Lines->Add("After Read, InQueCount : " + IntToStr(Comm1->InQueCount()));
    }
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Comm1Break(TObject *Sender)
{
    Memo2->Lines->Add("Break  ") ;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Comm1Cts(TObject *Sender)
{
    Memo2->Lines->Add("CTS  ") ;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Comm1Dsr(TObject *Sender)
{
    Memo2->Lines->Add("DSR  ") ;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Comm1Error(TObject *Sender, int Errors)
{
    Memo2->Lines->Add("ERROR  ") ;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Comm1Ring(TObject *Sender)
{
    Memo2->Lines->Add("RING  ") ;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Comm1Rlsd(TObject *Sender)
{
    Memo2->Lines->Add("RLSD  ") ;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Comm1RxFlag(TObject *Sender)
{
    Memo2->Lines->Add("RxFlag  ") ;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Comm1TxEmpty(TObject *Sender)
{
    Memo2->Lines->Add("TxEmpty  ") ;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Comm1ComStatEvent(TObject *Sender, DWORD Status,
      COMSTAT ComStat)
{
    // you can process all event here , if you do so ,
    // then dont process all others events: OnBreak,OnCts,.....
    Memo2->Lines->Add("ComStatEvent Status : "+IntToStr(Status)) ;
}
//---------------------------------------------------------------------------




void __fastcall TForm1::BaudRateIndexChange(TObject *Sender)
{
    if (Comm1->Enabled())
    {
        ClosePortClick(NULL);
        OpenPortClick(NULL);
    }
}
//---------------------------------------------------------------------------


void __fastcall TForm1::Button1Click(TObject *Sender)
{
        Edit2->Text = StrToInt("0x"+ Edit1->Text);
}
//---------------------------------------------------------------------------


void __fastcall TForm1::btClearClick(TObject *Sender)
{
    PaintBox1->Refresh();
}
//---------------------------------------------------------------------------

void __fastcall TForm1::btShow_AxisClick(TObject *Sender)
{
    // 砞﹚礶掸.
    // 礶X禸.
/*    PaintBox1->Canvas->MoveTo(0,CENTER.y);
    PaintBox1->Canvas->LineTo(PaintBox1->Width,CENTER.y);
    // 礶Y禸.
    PaintBox1->Canvas->MoveTo(CENTER.x,0);
    PaintBox1->Canvas->LineTo(CENTER.x,PaintBox1->Height);
*/
    PaintBox1->Canvas->Pen->Style = psSolid;
    PaintBox1->Canvas->Pen->Color = clBlack;
    PaintBox1->Canvas->Brush->Style = bsClear;

    PaintBox1->Canvas->Ellipse(160,160, 240, 240);
    PaintBox1->Canvas->Ellipse(120,120, 280, 280);
    PaintBox1->Canvas->Ellipse(80,80, 320, 320);
    PaintBox1->Canvas->Ellipse(40,40, 360, 360);
    PaintBox1->Canvas->Ellipse(0,0, 400, 400);

    PaintBox1->Canvas->Pen->Style = psDot;
    PaintBox1->Canvas->Ellipse(180,180, 220, 220);
    PaintBox1->Canvas->Ellipse(140,140, 260, 260);
    PaintBox1->Canvas->Ellipse(100,100, 300, 300);
    PaintBox1->Canvas->Ellipse(60,60, 340, 340);
    PaintBox1->Canvas->Ellipse(20,20, 380, 380);

    // 礶X禸.
/*    for (int i=1; i<=5; i++)
    {
        PaintBox1->Canvas->Pen->Style = psDot;

        PaintBox1->Canvas->MoveTo(0,CENTER.y+40*i);
        PaintBox1->Canvas->LineTo(PaintBox1->Height,CENTER.y+40*i);
        PaintBox1->Canvas->MoveTo(0,CENTER.y-40*i);
        PaintBox1->Canvas->LineTo(PaintBox1->Height,CENTER.y-40*i);

        PaintBox1->Canvas->MoveTo(CENTER.x+40*i,0);
        PaintBox1->Canvas->LineTo(CENTER.x+40*i,PaintBox1->Width);
        PaintBox1->Canvas->MoveTo(CENTER.x-40*i,0);
        PaintBox1->Canvas->LineTo(CENTER.x-40*i,PaintBox1->Width);
    }
    PaintBox1->Canvas->Pen->Color = clRed;
*/    // 砞﹚礶掸.
    // 礶オ