bd.cpp

数据采集

    }else if(bd.hq_mode==HQ_CPZ){
      now_ad=((now_ad_j1+now_ad_j2)*bd.k_j_z+now_ad_z1+now_ad_z2)/2-zero_jin;
    }else if(bd.hq_mode==HQ_STMDG){
      now_ad=now_ad_z1+now_ad_z2-zero_jin;
    }else if(bd.hq_mode==HQ_STMBDG||bd.hq_mode==HQ_BDG3){
      now_ad=(now_ad_j1+now_ad_j2)*bd.k_j_z+now_ad_z1+now_ad_z2-zero_jin;
    }

    now_wei=ad_to_wei_jin(now_ad);
    total_wei=now_wei+store_wei;

    zero_ad_e ->Text=ltoa( zero_jin,str,10);
    zero_ad1_e->Text=ltoa( zero_jin1,str,10);
    zero_ad2_e->Text=ltoa( zero_jin2,str,10);
    j1_e->Text=ltoa(now_ad_j1,str,10);
    z1_e->Text=ltoa(now_ad_z1,str,10);
    j2_e->Text=ltoa(now_ad_j2,str,10);
    z2_e->Text=ltoa(now_ad_z2,str,10);

    now_ad_e->Text=ltoa(now_ad,str,10);
    now_wei_e->Text=ltoa(now_wei,str,10);
    store_wei_e->Text=ltoa(store_wei,str,10);
    total_wei_e->Text=ltoa(total_wei,str,10);
  }
}
//---------------------------------------------------------------------------

void __fastcall Tform_bd::clearClick(TObject *Sender)
{
  form_main->collect_jinzero();
}
//---------------------------------------------------------------------------

void __fastcall Tform_bd::storeClick(TObject *Sender)
{
  store_wei=now_wei;
}
//---------------------------------------------------------------------------

void __fastcall Tform_bd::k_jin_eChange(TObject *Sender)
{
   //if(k_dz->Text!="") bd.k_jin=StrToFloat(k_jin_e->Text);
}
//---------------------------------------------------------------------------

void __fastcall Tform_bd::FormShow(TObject *Sender)
{
     char str[50];

     form_bd->Caption=bd.name;

     Edit1->Text= ltoa(bd.ad_lr[0],str,10);
     Edit2->Text= ltoa(bd.ad_lr[1],str,10);
     Edit3->Text= ltoa(bd.ad_lr[2],str,10);
     Edit4->Text= ltoa(bd.ad_lr[3],str,10);
     Edit5->Text= ltoa(bd.ad_lr[4],str,10);
     Edit13->Text= ltoa(bd.ad_rl[0],str,10);
     Edit14->Text= ltoa(bd.ad_rl[1],str,10);
     Edit15->Text= ltoa(bd.ad_rl[2],str,10);
     Edit16->Text= ltoa(bd.ad_rl[3],str,10);
     Edit17->Text= ltoa(bd.ad_rl[4],str,10);

     Edit18->Text= ltoa(bd.wei_j[0],str,10);
     Edit19->Text= ltoa(bd.wei_j[1],str,10);
     Edit20->Text= ltoa(bd.wei_j[2],str,10);

     Edit6->Text= ltoa(bd.wei[0],str,10);
     Edit7->Text= ltoa(bd.wei[1],str,10);
     Edit8->Text= ltoa(bd.wei[2],str,10);
     Edit9->Text= ltoa(bd.wei[3],str,10);
     Edit10->Text= ltoa(bd.wei[4],str,10);
     ad_jin0_e->Text=ltoa(bd.ad_jin[0],str,10);
     ad_jin1_e->Text=ltoa(bd.ad_jin[1],str,10);
     ad_jin2_e->Text=ltoa(bd.ad_jin[2],str,10);

     Edit11->Text=bd.name;
     Edit12->Text=bd.mima;

     rr->Text=ltoa(bd.rr,str,10);
     k_dz->Text=FloatToStrF(bd.k_dz,ffGeneral,3,10);

     ad_t->Text=ltoa(bd.ad_t,str,10);
     use_e->Text=ltoa(bd.use_status,str,10);
     len_e->Text=FloatToStrF(bd.len,ffGeneral,4,10);
     k_j_z_e->Text=FloatToStrF(bd.k_j_z,ffGeneral,4,10);
     zero_ad_e->Text=ltoa(bd.zero,str,10);
     hpz->Text=FloatToStrF(bd.hpz,ffGeneral,4,10);
     zpz->Text=ltoa(bd.zpz,str,10);
     cz->Text=ltoa(bd.cz,str,10);
     lw->Text=ltoa(bd.lw,str,10);
     smtp_host->Text=bd.smtp_host;
     smtp_id  ->Text=bd.smtp_id;
     smtp_to_address->Text=bd.smtp_to_address;
     ftp_host ->Text=bd.ftp_host;
     ftp_path ->Text=bd.c_bak3;
     ftp_id   ->Text=bd.ftp_id;
     ftp_pw   ->Text=bd.ftp_pw;
     pb_mode  ->Text=IntToStr(bd.pb_mode);
     hq_mode  ->Text=IntToStr(bd.hq_mode);
     sj_mode  ->Text=IntToStr(bd.sj_mode);
     yh_mode  ->Text=IntToStr(bd.yh_mode);
     irq      ->Text=IntToStr(bd.irq);
     if_auto  ->Text=IntToStr(bd.if_auto);
     if_fx    ->Text=IntToStr(bd.fx);
     if_autopi->Text=IntToStr(bd.if_autopi);
     which_com->Text=IntToStr(bd.which_com);
     tele     ->Text=bd.tele;
     Edit21   ->Text=IntToStr(bd.i_bak2);
     e_chsb     ->Text=IntToStr(bd.chsb);


     Timer1->Enabled=TRUE;

     j1_e->Text=""; z1_e->Text="";
     j2_e->Text=""; z2_e->Text="";
     j3_e->Text=""; z3_e->Text="";
     j4_e->Text=""; z4_e->Text="";
     j5_e->Text=""; z5_e->Text="";
     j6_e->Text=""; z6_e->Text="";
     j7_e->Text=""; z7_e->Text="";
     j8_e->Text=""; z8_e->Text="";
     j9_e->Text="";
     j10_e->Text="";

     if(bd.yh_mode==YH_TG){
       Label18->Visible=true;
       Edit21->Visible=true;
     }
}
//---------------------------------------------------------------------------

void __fastcall Tform_bd::FormHide(TObject *Sender)
{
  Timer1->Enabled=FALSE;
}
//---------------------------------------------------------------------------

/*
void __fastcall Tform_bd::printClick(TObject *Sender)
{
    FILE *prn ;
    if((prn=fopen("PRN","wb"))!=NULL){
        fprintf(prn,"    重量：%7ld 公斤\n\n",enter_wei);
        fclose(prn);
    }else Application->MessageBox(" 打 印 机 没 有 联 机  ", NULL, MB_OK);
}
//---------------------------------------------------------------------------
*/

/*
void __fastcall Tform_bd::enterClick(TObject *Sender)
{
  char str[30];
  enter_wei=total_wei;
  enter_e->Text=ltoa(enter_wei,str,10);
} */
//---------------------------------------------------------------------------


void __fastcall Tform_bd::FormCreate(TObject *Sender)
{
     form_bd->Caption=bd.name;
     if(bd.yh_mode==YH_WG81) store->Enabled=false;
     //enter_e->Text=IntToStr((int)enter_wei);
}
//---------------------------------------------------------------------------

void __fastcall Tform_bd::FormKeyDown(TObject *Sender, WORD &Key,
      TShiftState Shift)
{
   switch(Key){
     case F1_KEY:  if(clear->Enabled==true){ clearClick(NULL); break;}
     //case F2_KEY:  if(enter->Enabled==true){enterClick(NULL); break;}
     case F3_KEY:  if(store->Enabled==true){storeClick(NULL); break;}
     //case F4_KEY:  if(print->Enabled==true){printClick(NULL); break;}
     case F5_KEY:  if(Button3->Enabled==true){Button3Click(NULL); break;}
     case F6_KEY:  if(Button1->Enabled==true){Button1Click(NULL); break;}
     case F7_KEY:  if(hand_clear->Enabled==true){hand_clearClick(NULL); break;}
     case Esc_KEY: if(Button2->Enabled==true){Button2Click(NULL); break;}
   }  
}
//---------------------------------------------------------------------------

void __fastcall Tform_bd::Button3Click(TObject *Sender)
{
    if(get_version()>4) return; //  win98=4 win2000=5,winxp=5
    
    int i;

    //if((prn=fopen("PRN","wb"))!=NULL){
    if(prn!=NULL){
      fprintf(prn,"\n\n\n");
      LPSYSTEMTIME lpst=new SYSTEMTIME;
      GetLocalTime(lpst);
      fprintf(prn,"    %04d-%02d-%02d      %02d:%02d:%02d\n\n",
           lpst->wYear,lpst->wMonth,lpst->wDay,lpst->wHour,lpst->wMinute,lpst->wSecond);
      fprintf(prn,"%14s%14s%14s%14s%14s\n",
          "动态ad值-->","动态ad值<--","动态标准值","静态标准值","静态ad值");
      for(i=0;i<5;i++){
        fprintf(prn,"%14d%14d%12d",bd.ad_lr[i],bd.ad_rl[i],bd.wei[i]);
        if(i<3) fprintf(prn,"%14d%14d\n",bd.wei_j[i],bd.ad_jin[i]);
        else fprintf(prn,"\n");
      }
      fprintf(prn,"   使 用 模  式:%d\n",bd.use_status);
      fprintf(prn,"   系统设置密码:%s\n",bd.mima);
      fprintf(prn,"   是否判别方向:%d\n",bd.fx);
      fprintf(prn,"   是否无人执守:%d\n",bd.if_auto);
      fprintf(prn,"   是否自动去皮:%d\n",bd.if_autopi);
      fprintf(prn,"   客   户   名:%s\n",bd.name);
      fprintf(prn,"   拐 点 系  数:%d\n",bd.rr);
      fprintf(prn,"   档   轴   比:%4.2f\n",bd.k_dz);
      fprintf(prn,"   车 头 ad  值:%d\n",bd.ad_t);
      fprintf(prn,"   台 面 长  度:%4.2f\n",bd.len);
      fprintf(prn,"   转   换   比:%5.3f\n",bd.k_j_z);
      fprintf(prn,"   最 大 称  量:%d\n",bd.cz);
      fprintf(prn,"   最大纵向偏载:%d\n",bd.zpz);
      fprintf(prn,"   最大横向偏载率:%4.2f\n",bd.hpz);
      fprintf(prn,"   判 别 方  式:%d\n",bd.pb_mode);
      fprintf(prn,"   衡 器 类  型:%d\n",bd.hq_mode);
      fprintf(prn,"   数 据 来  源:%d\n",bd.sj_mode);
      fprintf(prn,"   用 户 类  别:%d\n",bd.yh_mode);
      fprintf(prn,"   中   断   号:%d\n",bd.irq);
      fprintf(prn,"   联  网 方 式:%d\n",bd.lw);
      fprintf(prn,"   SMTP服 务 器:%s\n",bd.smtp_host);
      fprintf(prn,"   SMTP用 户 ID:%s\n",bd.smtp_id);
      fprintf(prn,"   E-mail 地 址:%s\n",bd.smtp_to_address);
      fprintf(prn,"   FTP 服 务 器:%s\n",bd.ftp_host);
      fprintf(prn,"   FTP 用 户 ID:%s\n",bd.ftp_id);
      fprintf(prn,"   FTP 密    码:%s\n",bd.ftp_pw);
      fprintf(prn,"   哪  个 串 口:%d\n",bd.which_com);
      fprintf(prn,"   电  话 号 码:%s\n",bd.tele);

      fprintf(prn,"   零 点 AD  值:%d\n",bd.zero);
      fprintf(prn,"\n\n\n");
      //fclose(prn);
      delete lpst;
    }
}
//---------------------------------------------------------------------------
void __fastcall Tform_bd::hand_clearClick(TObject *Sender)
{
  long tmp;
  AnsiString instr = InputBox("  ", "请输入零点AD值：", IntToStr((int)zero_jin));
  try{
    tmp=StrToInt(instr);
  }catch(...){return;}
  zero_jin=tmp;
}
//---------------------------------------------------------------------------