全國最多中醫師線上諮詢網站-台灣中醫網
發文 回覆 瀏覽次數:841
推到 Plurk!
推到 Facebook!

cccccc

 
c740618
一般會員


發表:1
回覆:0
積分:0
註冊:2008-02-09

發送簡訊給我
#1 引用回覆 回覆 發表時間:2011-10-06 15:05:01 IP:211.22.xxx.xxx 訂閱

[code cpp]
//------------------------------------------------------------------------------
//Output Accuracy
//------------------------------------------------------------------------------
inline test_1()    {
  //將Meter設定為直流電壓量測,並設定為等待觸發
  ibwrt(meter,"CONF:VOLT:DC DEF,DEF",21);
  ibwrt(meter,"VOLT:DC:NPLC 1",14);
  ibwrt(meter,"TRIG:SOUR IMM",13);      //抓取輸出電壓        //iov = Relay號碼  vout[ea]      if( fabs(Vo[0]) > 0 ) { iov=1;  ea=0; return_v(); ch=SCH[0]; }
  if( fabs(Vo[1]) > 0 ) { iov=2;  ea=1; return_v(); ch=SCH[1]; }
  if( fabs(Vo[2]) > 0 ) { iov=4;  ea=2; return_v(); ch=SCH[2]; }
  if( fabs(Vo[3]) > 0 ) { iov=8;  ea=3; return_v(); ch=SCH[3]; }      sprintf(show_err,"(1)NOM 輸出電壓(V) "); sprintf(result_1,"NOM 輸出電壓(V) ");      //判別 Output Accuracy 是否為良品      if( fabs(Vo[0]) > 0 ) { ch=1; ea=0; if_else1(); }
  if( fabs(Vo[1]) > 0 ) {   ch; ea=1;
                          if(Form1->agseries->Text=="PFKC05-15D0515" ||
                             Form1->agseries->Text=="PM-02CD52" ||
                             Form1->agseries->Text=="PM-02CD52A" ||
                             Form1->agseries->Text=="PFKC05-15D0515-RE" ||
                             Form1->agseries->Text=="PM-02CD52-RE" ||
                             Form1->agseries->Text=="PM-02CD52A-RE"||
                             PMKC=="DS" || MKC=="DS"||
                             Form1->agseries->Text=="PFKC05-15D0515F" ||
                             Form1->agseries->Text=="PFKC05-15D0515F-RE")
                          {vout[ea]=-vout[ea];}
                          if_else1();
                        }
  if( fabs(Vo[2]) > 0 ) {   ch; ea=2; if_else1(); }
  if( fabs(Vo[3]) > 0 ) {   ch; ea=3; if_else1(); }      //秀出測試訊息,並移動進度表      if (err==0)Form1->ListBox1->Items->Add(result_1);   //良品字串
  if (err==1)Form1->ListBox2->Items->Add(show_err);   //不良品字串      Form1->ProgressBar1->Position=8.3;
  Form1->Label68->Font->Color=clRed;                  //TEST項目數字"1"變紅字
  return(0);
}    //------------------------------------------------------------------------------    //判別 Output Accuracy 是否為良品
//------------------------------------------------------------------------------
inline if_else1()
{
  sprintf(pr1,""); sprintf(pr2,"");
  //(實際Vo-規格Vo) / 規格Vo *100      dat=(fabs(vout[ea]) - fabs(Vo[ea]))/fabs(Vo[ea])*100 ;
/*       NO(1-1)   1-2     OK     OK     1-3      ---------|------|------|------|--------- dat              -15    -Rg     0      Rg */
  if( -Rg[ea] <= dat ) //Rg為測試規格如(1.8%)變數
  { if( Rg[ea] >= dat )
    { sprintf(pr1,"第%d組= %.3f正常 ", ch, vout[ea]);
      strcat(result_1,pr1);
    }
    else        { err=1;sprintf(pr2,"第%d組= %.3f過高(代碼:1-3)", ch, vout[ea]);
      memset(result_1,'\0',1);
      strcat(show_err,pr2);
    }
  }
  else
  {
    err=1; sprintf(pr2," 第%d組= %.3f過低(代碼:1-2)", ch, vout[ea]);        if( dat <= -15 )     //小於Accuraay 15% 判為NO        { sprintf(pr2,""); sprintf(pr2,"第%d組= 無輸出(代碼:1-1)", ch);
    }
    memset(result_1,'\0',1);
    strcat(show_err,pr2);
  } return(0);
}

[/code]

系統時間:2017-10-23 8:59:38
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!