sim_valve.cpp

hart工业仪表的微机仿真程序,在C++Builder下制作,能够仿真仪表(执行器)的动作以及数学模型,方便实用.

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

#include <vcl.h>
#pragma hdrstop
#include "math.h"
#include "stdlib.h"


#include "Sim_Valve.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TMainForm *MainForm;
//---------------------------------------------------------------------------
__fastcall TMainForm::TMainForm(TComponent* Owner)
        : TForm(Owner)
{
    InitSystem();
}
//---------------------------------------------------------------------------


void __fastcall TMainForm::FButtonClick(TObject *Sender)
{
   Key_Func5s_Process();
}
void __fastcall TMainForm::F_ButtonClick(TObject *Sender)
{
    Key_Func_Process();
}
void __fastcall TMainForm::F_M_ButtonClick(TObject *Sender)
{
    Key_FuncSub_Process();
}
//---------------------------------------------------------------------------

void __fastcall TMainForm::MButtonClick(TObject *Sender)
{
   Key_Sub_Process();
}
//---------------------------------------------------------------------------
void __fastcall TMainForm::AButtonClick(TObject *Sender)
{
   Key_Add_Process();
}

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

void __fastcall TMainForm::Button1Click(TObject *Sender)
{
  Close();
}
//---------------------------------------------------------------------------

void __fastcall TMainForm::M1000ButtonClick(TObject *Sender)
{
   if(m_Set_Num==49) m_HSTRK=Set_Change_LL(m_HSTRK,0l,1000000000l,0);
   else if(m_Set_Num==50) m_HDCHG=Set_Change_LL(m_HDCHG,0l,1000000000l,0);
      Set_Disp();

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

void __fastcall TMainForm::A1000ButtonClick(TObject *Sender)
{
   if(m_Set_Num==49) m_HSTRK=Set_Change_LL(m_HSTRK,0l,1000000000l,1);
   else if(m_Set_Num==50) m_HDCHG=Set_Change_LL(m_HDCHG,0l,1000000000l,1);
      Set_Disp();

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


void __fastcall TMainForm::A5ButtonClick(TObject *Sender)
{
   Key_Add5s_Process();
}
//---------------------------------------------------------------------------

void __fastcall TMainForm::F_M_A_ButtonClick(TObject *Sender)
{
   Key_FuncSubAdd_Process();
}
void __fastcall TMainForm::Check_TimerTimer(TObject *Sender)
{
     Check_TimerP();
}
void __fastcall TMainForm::Work_TimerTimer(TObject *Sender)
{
  if(m_Work_State==0)
  {
    Work_Timer_Process();
  }
  else if(m_Work_State==1)
  {
    Set_Timer_Process();
  }
}



void __fastcall TMainForm::Timer1Timer(TObject *Sender)
{
    int d;
    d=In_Edit->Text.ToInt();
    if(d>13)  In_Edit->Text="4";
    else    In_Edit->Text="20";
}
//---------------------------------------------------------------------------