unit2.cpp

来自「Captor network with C++ builder,(réseaux」· C++ 代码 · 共 123 行

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

#include <vcl.h>
#pragma hdrstop

#include "Unit1.h"
#include "Unit2.h"
#include "Unit3.h"
#include "Unit4.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TCapteurf *Capteurf;
//---------------------------------------------------------------------------
__fastcall TCapteurf::TCapteurf(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TCapteurf::Quitter1Click(TObject *Sender)
{
Capteurf->Close();
}
//---------------------------------------------------------------------------
void __fastcall TCapteurf::Capteur1Click(TObject *Sender)
{
ciblef->Show();
}
//---------------------------------------------------------------------------

void __fastcall TCapteurf::ParametresRseau1Click(TObject *Sender)
{
Para->Show();
}
//---------------------------------------------------------------------------

void __fastcall TCapteurf::Connextion1Click(TObject *Sender)
{
int i,x,y;
int f,N;
float sqrx,sqry,sqrR;
AnsiString Char   ;
Image1->Canvas->TextOut(1,1,"Graphe de Connexion");
Image1->Canvas->TextOut(1,20,"Rayan de Conexion=400");
Image1->Canvas->TextOut(1,40,"1R=5 pixels");

Prin->capteur->First();
while (!(Prin->capteur->Eof))
{
f=Prin->capteur->FieldValues["Codecapt"];
Char= IntToStr(f);
Canvas->Brush->Color=clMenu;
Canvas->TextOut(6+Prin->capteur->FieldValues["Posxca"],6+Prin->capteur->FieldValues["Posyca"],Char);
Prin->capteur->Next();
}

Prin->capteur->First();
while (!(Prin->capteur->Eof))
{
Canvas->Brush->Color= clBlack;
Canvas->Rectangle(Prin->capteur->FieldValues["Posxca"],Prin->capteur->FieldValues["Posyca"],10+Prin->capteur->FieldValues["Posxca"],10+Prin->capteur->FieldValues["Posyca"]);
Prin->capteur->Next();
}

i=1;
Prin->capteur->First();
while (!(Prin->capteur->Eof))
{
   x=Prin->capteur->FieldValues["Posxca"];
   y=Prin->capteur->FieldValues["Posyca"];
   sqrR=((Prin->parametre->FieldValues["Rayantcon"]/5)*(Prin->parametre->FieldValues["Rayantcon"]/5));
   while (!(Prin->capteur->Eof))
   {
   Prin->parametre->First();
   sqrx=((Prin->capteur->FieldValues["Posxca"]-x)*(Prin->capteur->FieldValues["Posxca"]-x));
   sqry=((Prin->capteur->FieldValues["Posyca"]-y)*(Prin->capteur->FieldValues["Posyca"]-y));
   if ((sqrx <= sqrR)&&(sqry <= sqrR))
      {
       Canvas->MoveTo(5+x,5+y);
       Canvas->LineTo(5+Prin->capteur->FieldValues["Posxca"],5+Prin->capteur->FieldValues["Posyca"]);
      }

   Prin->capteur->Next();
   }
Prin->capteur->First();
i++;
for (int j=1;j<=i;j++)Prin->capteur->Next();
}
}

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




void __fastcall TCapteurf::SpeedButton1Click(TObject *Sender)
{
Edit1->Text=IntToStr(Prin->capteur->RecordCount);
}
//---------------------------------------------------------------------------

void __fastcall TCapteurf::SpeedButton2Click(TObject *Sender)
{
Prin->capteur->Insert();
}
//---------------------------------------------------------------------------

void __fastcall TCapteurf::SpeedButton3Click(TObject *Sender)
{
Prin->capteur->Edit();
}
//---------------------------------------------------------------------------

void __fastcall TCapteurf::Couverture1Click(TObject *Sender)
{
Capteurf->SpeedButton8->Enabled=false;
Capteurf->Image1->Canvas->TextOutA(1,1,"Graphe de Couverture");
Capteurf->Image1->Canvas->TextOutA(1,20,"Rayan de Couverture");
Capteurf->Image1->Canvas->TextOutA(1,40,"1R=5 Pixels");
}
//---------------------------------------------------------------------------