?? 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;
}
//---------------------------------------------------------------------------
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -