unit2.cpp

公路站超载检测系统上位机软件系统源程序!

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

#include <vcl.h>
#pragma hdrstop
#include "pcom.h"
#include "Unit2.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm2 *Form2;
double data[100];
//---------------------------------------------------------------------------
__fastcall TForm2::TForm2(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------

void __fastcall TForm2::FormShow(TObject *Sender)
{
   Timer1->Enabled =true;
}
//---------------------------------------------------------------------------

void __fastcall TForm2::Timer1Timer(TObject *Sender)
{
   Timer1->Enabled=false;
   int ch;
   ch=display();//实时送数据
   if(ch!=1)
   {
    for(int i=99;i>1;i--)
    {
      data[i]=data[i-1];
    }
    data[0]=ch;
    data[1]=ch;

    Series1->Clear();
    Series1->AddArray(data,99);
   }
   Timer1->Enabled=true;
}
//---------------------------------------------------------------------------

void __fastcall TForm2::FormClose(TObject *Sender, TCloseAction &Action)
{
   Timer1->Enabled=false;        
}
//---------------------------------------------------------------------------