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

#include <vcl.h>
#pragma hdrstop

#include "test.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "SPComm"
#pragma resource "*.dfm"
TFCOMM *FCOMM;
double  t = 0;
String tmp;

//---------------------------------------------------------------------------
__fastcall TFCOMM::TFCOMM(TComponent* Owner)
        : TForm(Owner)
{

}
//---------------------------------------------------------------------------
 void __fastcall TFCOMM::FormCreate(TObject *Sender)
{
        Comm1->StartComm();
        Timer1->Enabled = true;
}
//---------------------------------------------------------------------------
void __fastcall TFCOMM::Comm1ReceiveData(TObject *Sender, Pointer Buffer,
      WORD BufferLength)
{
      unsigned char *point;
      point = (unsigned char*)Buffer;

      unsigned char recvBuffer[1024];
    
      for(int i=0;i<BufferLength;i++)
      {
         recvBuffer[i] =  *point;
         point++;
      }

       for(int i=0;i<BufferLength;i++)
        {
           tmp = IntToHex(recvBuffer[i],2);
          // tmp = (recvBuffer[i],2);
        }

       Series1->AddXY(t,StrToFloat(tmp),"",clBlack);
       
       t++;

       if(t > 100)               //當顯示100個的時候，開始刪除前節點
       {
          Series1->Clear();      //清除前面的數據
          t = 0;
       }


   /*
          Series1->AddX(t," ",clBlack);
          Series1->AddY(tmp," ",clBlack);
          t++;
   */


}
//---------------------------------------------------------------------------
void __fastcall TFCOMM::Timer1Timer(TObject *Sender)
{
    try
          {


          
          }
         catch(...)
          {
             Timer1->Enabled = false;
          }
   
}
//---------------------------------------------------------------------------
/*
void __fastcall TFCOMM::BtnOpenClick(TObject *Sender)
{
  OpenFlag = true;
  Timer1->Enabled = true;

}
//---------------------------------------------------------------------------

void __fastcall TFCOMM::BtnCloseClick(TObject *Sender)
{
        Timer1->Enabled = false;
        Comm1->StopComm();
        OpenFlag = false;
        Series1->Clear();
}
*/
//---------------------------------------------------------------------------