debug.cpp

数据采集

//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop

#include "debug.h"
#include   "main.h"
#include   "global.h"

//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
Tform_debug *form_debug;
//---------------------------------------------------------------------------
__fastcall Tform_debug::Tform_debug(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall Tform_debug::Timer1Timer(TObject *Sender)
{

  int i=jin_ofst-1;
  static int j=0;

  if(bd.hq_mode==HQ_NEWBDG){
    Memo1->Lines->Add(   "    "+
                         IntToHex(j++,3)      +"    "+
                         IntToHex(jin_z1[i],4)+"    "+
                         IntToHex(jin_z2[i],4)+"    "+
                         IntToHex(jin_j1[i],4)+"    "+
                         IntToHex(jin_j2[i],4)+"    "+
                         IntToHex(jin_j4[i],4)   );
  }


}
//---------------------------------------------------------------------------
void __fastcall Tform_debug::Memo1Click(TObject *Sender)
{
  if(Timer1->Enabled==true){ Timer1->Enabled=false;
  }else Timer1->Enabled=true;
}
//---------------------------------------------------------------------------
void __fastcall Tform_debug::FormKeyDown(TObject *Sender, WORD &Key,
      TShiftState Shift)
{
  if(Key==Esc_KEY){
    form_main->Show();
    Timer1->Enabled=false;
    Hide();
  }
}
//---------------------------------------------------------------------------
void __fastcall Tform_debug::Memo1DblClick(TObject *Sender)
{
  form_main->Show();
  Hide();
  Timer1->Enabled=false;
}
//---------------------------------------------------------------------------
void __fastcall Tform_debug::FormShow(TObject *Sender)
{
  if(bd.hq_mode==HQ_NEWBDG){
    Label1->Caption="    序    W1    W2    S1    S2    S3" ;
  }  
  Timer1->Enabled=true;        
}
//---------------------------------------------------------------------------
void __fastcall Tform_debug::FormHide(TObject *Sender)
{
  Timer1->Enabled=false;        
}
//---------------------------------------------------------------------------