unit1.cpp

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

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

#include <vcl.h>
#pragma hdrstop
#include "link\\pcomm.h"
#include "receive.h"
#include "Pcom.h"
#include "unit2.h"
#include "ChgPar.h"
#include "sysFac.h"
#include "main.h"
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
  bool changPkt;
  bool rewritPkt;
TParForm *ParForm;
 
 void  AllMemo(int pos)
{ //第一次pos==KalDat_T
  String s,num,ss;
  int a;
  a=0;
  StaMode();    //设置静态模式

// Form1->Timer1->Enabled=true;

   do
   {
    s=Memo(pos);
    a++;
    Sleep(60);
   }
   while((s=="")&&(a<100));

   char *ch;
   ch=s.c_str();
   int i=0,j=0,k=0;

   ParForm->AnalogList->Clear();
   ParForm->PunkList->Clear();
   ParForm->ListBox2->Clear();
   while(ch[i]!=0)
   {
     if(ch[i]=='a')
     {
      if(j>0)
      {
       if((j%2)==1)
       KalAnalogStr[k]=num;
       else
       {
       KalPunkteStr[k]=num;
       ss=KalAnalogStr[k]+"          "+KalPunkteStr[k];
   
       ParForm->AnalogList->Items->Add(KalAnalogStr[k]);
       ParForm->PunkList->Items->Add(KalPunkteStr[k]);
       ParForm->ListBox2->Items->Add(KalPunkteStr[k]);
       k++;
       }
      }
      j++;
      num="";
     }
     else
     num+=ch[i];
     i++;
   }
}

//---------------------------------------------------------------------------
__fastcall TParForm::TParForm(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------


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

void __fastcall TParForm::FormCreate(TObject *Sender)
{
   rcthread * p=new rcthread(true);
   p->Resume();                        //启动线程

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

void __fastcall TParForm::Timer1Timer(TObject *Sender)
{
   String ss;
   ss=display();
   if (ss!=0x01)
   Edit2->Text=ss;
}
//---------------------------------------------------------------------------

void __fastcall TParForm::Button28Click(TObject *Sender)
{
   if (Button28->Caption=="退出")
   {
    Close();
   }
   else
   {
    Button28->Caption="退出";
    DataPad->Visible=false;
    Rew->Caption="重写校准值";
    Button25->Enabled =true;
    Button27->Enabled =true;
    Button26->Enabled =true;
    Button7->Enabled =true;
   }
}
//---------------------------------------------------------------------------
void __fastcall TParForm::FormShow(TObject *Sender)
{
  try
  {
   Edit4->Text="1000";                 //初始化
   AllMemo(KalDat_T);
   Timer1->Enabled=true;//a
   DataPad->Visible =false;
   ListBox2->OnEnter;
  }
  catch(...)
  {
  }
}
//---------------------------------------------------------------------------

void __fastcall TParForm::Button27Click(TObject *Sender)
{
   String ch;
    //  if (Form1->ListBox1->ItemIndex!=-1)
    //   AllMemo(ListBox1->ItemIndex+1);
   if (ParForm->AnalogList->ItemIndex!=-1)
    AllMemo(AnalogList->ItemIndex+1);
   else
   ShowMessage("请选择校准点");
}
//---------------------------------------------------------------------------

void __fastcall TParForm::ListBox2Click(TObject *Sender)
{
   Edit4->Text=ListBox2->Items->Strings[ListBox2->ItemIndex];

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

void __fastcall TParForm::Button25Click(TObject *Sender)
{
   if (AnalogList->ItemIndex!=-1)
   AllMemo(AnalogList->ItemIndex+0x11);
   else
   ShowMessage("请选择校准点");
           
}
//---------------------------------------------------------------------------

void __fastcall TParForm::ListBox1Click(TObject *Sender)
{
  //  ListBox2->ItemIndex=ListBox1->ItemIndex;
  //  Edit4->Text=ListBox2->Items->Strings[ListBox2->ItemIndex];
}
//---------------------------------------------------------------------------

void __fastcall TParForm::Button26Click(TObject *Sender)
{
   HANDLE syspar;
   syspar=DisParam();
   int * para;
   para=(int*)syspar;

   int k=0;
   Form7->RadioGroup1->ItemIndex=para[k];     //语言
   k++;
   Form7->RadioGroup2->ItemIndex=para[k];     //单位
   k++;
   Form7->Edit10->Text =para[k];     //最大速度
   k++;
   Form7->Edit11->Text =para[k];     //静态分度值
   k++;
   Form7->Edit12->Text =para[k];     //动态分度值
   k++;
   Form7->Edit13->Text =para[k];     //总重分度值
   k++;
   Form7->Edit14->Text =para[k];     //双连轴轴距
   k++;
   Form7->Edit15->Text =para[k];     //三连轴轴距
   k++;
   Form7->Edit1->Text =para[k];     //前轴限重
   k++;
   Form7->Edit2->Text =para[k];    //单轴限重
   k++;

   Form7->Edit3->Text =para[k];     //双连轴限重
   k++;
   Form7->Edit4->Text =para[k];     //三连轴限重
   k++;
   Form7->Edit5->Text =para[k];     //2轴车限重
   k++;
   Form7->Edit6->Text =para[k];     //3轴车限重
   k++;
   Form7->Edit7->Text =para[k];     //4轴车限重
   k++;
   Form7->Edit8->Text =para[k];     //5轴车限重
   k++;
   Form7->Edit9->Text =para[k];    //6轴车限重
   k++;
   Form7->Edit16->Text =para[k];    //线圈延时
   k++;
   Form7->Edit17->Text =para[k];    //自动处理时间
   k++;
   Form7->Edit18->Text =para[k];    //测试模式
   k++;

   Form7->Edit19->Text =para[k];     // 静态灵敏度
   k++;
   Form7->Edit20->Text =para[k];     //动态灵敏度
   k++;
   Form7->Edit21->Text =para[k];     //打印格式
   k++;
   Form7->Edit22->Text =para[k];     //打印格式
   k++;
   Form7->Edit23->Text =para[k];     //打印格式
   k++;
   Form7->Show();
   ParForm->Visible=false;
}
//---------------------------------------------------------------------------






void __fastcall TParForm::Button7Click(TObject *Sender)
{
   HANDLE fac;
   fac=DisCLWParam();
   int * para;
   para=(int*)fac;

   int k=0; 
   sysFacForm->Edit1->Text =para[k];     //前轴限重
   k++;
   sysFacForm->Edit2->Text =para[k];    //单轴限重
   k++;

   sysFacForm->Edit3->Text =para[k];     //双连轴限重
   k++;
   sysFacForm->Edit4->Text =para[k];     //三连轴限重
   k++;
   sysFacForm->Edit5->Text =para[k];     //2轴车限重
   k++;
   sysFacForm->Edit6->Text =para[k];     //3轴车限重
   k++;
   sysFacForm->Edit7->Text =para[k];     //4轴车限重
   k++;
   sysFacForm->Edit8->Text =para[k];     //5轴车限重
   k++;
   sysFacForm->Edit9->Text =para[k];    //6轴车限重
   k++;
   sysFacForm->Edit10->Text =para[k];    //线圈延时
   k++;
   sysFacForm->Edit11->Text =para[k];    //自动处理时间
   k++;
   sysFacForm->Edit12->Text =para[k];    //测试模式
   k++;
   sysFacForm->Show();
   ParForm->Visible =false;
}
//---------------------------------------------------------------------------



void __fastcall TParForm::FormClose(TObject *Sender, TCloseAction &Action)
{
   DynMode();                        //动态模式
   Form1->Visible=true;
   Timer1->Enabled=false;
}
//---------------------------------------------------------------------------





void __fastcall TParForm::AnalogListClick(TObject *Sender)
{
   PunkList->ItemIndex=AnalogList->ItemIndex;    //高亮同一行
}
//---------------------------------------------------------------------------

void __fastcall TParForm::PunkListClick(TObject *Sender)
{
   AnalogList->ItemIndex=PunkList->ItemIndex;    //高亮同一行
}
//---------------------------------------------------------------------------