⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 testprog.lst

📁 电除尘行业中监控界面采用ACTIVE 控件的形式
💻 LST
📖 第 1 页 / 共 5 页
字号:
 604   4                                      m_vol2_old_01   = 0;
 605   4                                      return;
 606   4                              }
 607   3                              if(m_vol2 >8)   m_br_over8= TRUE;
 608   3                              m_cur2          =       0;//<1>二次电流
 609   3      
 610   3                              if((m_fsmc--) > 1) return;
 611   3      
 612   3                              //-----------------------
 613   3                              //取得第一次闪络时的导通角       
C51 COMPILER V7.00  TESTPROG                                                               11/18/2007 17:17:47 PAGE 11  

 614   3                              if(m_int_count_rec >= 250)
 615   3                              {
 616   4                                      m_tc_old        = m_tc_max;
 617   4                                      m_tc            = m_tc_max;
 618   4                              }
 619   3                              m_tc_max = m_tc;
 620   3      
 621   3                              //本部分可以尝试关闭
 622   3                              if(m_tc_old > 8900) m_tc_old = 8900;
 623   3      
 624   3                              if( m_tc_old > m_tc_max + 800 )
 625   3                              {
 626   4                                      m_tc_max        = m_tc_old - 100;
 627   4                              }
 628   3                              else 
 629   3                              {
 630   4                                      m_tc_old        = m_tc_max;
 631   4                              }
 632   3      
 633   3                              if( m_int_count_rec < 16 )
 634   3                              {
 635   4                                      m_count_intver++;
 636   4                                      if(m_tc_max > 2000)
 637   4                                      {
 638   5                                              if(m_count_intver > 3 ) //4
 639   5                                              {
 640   6                                                      m_tc_old -= 1500;
 641   6                                                      m_tc_max -= 1500;       //1500
 642   6                                              }
 643   5                                              if(m_count_intver > 2 ) //3
 644   5                                              {
 645   6                                                      m_tc_max -= 300;        //1500
 646   6                                              }
 647   5                                              if(m_count_intver > 1 ) //2
 648   5                                              {
 649   6                                                      m_tc_max -= 300;        //1500
 650   6                                              }
 651   5                                      }
 652   4                              }
 653   3                              else
 654   3                              {
 655   4                                      m_count_intver  = 0;
 656   4                              }
 657   3      
 658   3                              //---------------------------------------------------------------------
 659   3                              //0.56--0.83--0.90--0.93--0.96   CAN'T WORK NORMALLY
 660   3                              //---------------------------------------------------------------------
 661   3                              //  1    2           3      4      5     6
 662   3                              //---------------------------------------------------------------------0713adding
 663   3                              if( m_get_gzfs == 4 )
 664   3                              {
 665   4                                      m_fdb_tc        = (m_get_fdb-1)*277;              //每个台阶为10度 
 666   4                                      m_left_fdb_tc   =  8900 - m_fdb_tc; 
 667   4                                      m_pulse_count   = 0;
 668   4                              }
 669   3                              //---------------------------------------------------------------------0713adding
 670   3                              //---------------------------------------------------------------------
 671   3                              //0.50--0.70--0.80--0.86--0.92
 672   3                              con_speed1 =  m_tc_max / 50;
 673   3                              con_speed2 =  con_speed1*4;             //  8%
 674   3                              m_tc       =  con_speed1*15;    // 30%
 675   3                              con_speed3 =  con_speed1*3;             //  6%
C51 COMPILER V7.00  TESTPROG                                                               11/18/2007 17:17:47 PAGE 12  

 676   3                              con_speed4 =  con_speed1;       // 2%
 677   3                              if(m_count_intver > 1)                  //  8% for left period
 678   3                                      con_speed  = ( con_speed2 + 300 )/(m_set_interval - 11);        
 679   3                              else
 680   3                                      con_speed  =   con_speed2 /(m_set_interval - 11);       
 681   3                              con_speed1 =  con_speed1 * 10;
 682   3                              con_speed2 =  con_speed1 / 2;   // 10%
 683   3      
 684   3                              if(m_get_gzfs == 3 || m_get_gzfs == 5)  
 685   3                              {
 686   4                                      m_third_sec = 0;
 687   4                                      m_br_reach  = FALSE;
 688   4                              }
 689   3                              m_fsmc                  = m_get_mcfs-1 ;                                                //计算封锁脉冲个数
 690   3      
 691   3                              //---------------------------------------------------------------
 692   3                              //ex0 position 0ms position
 693   3                              m_cur1          = 0;
 694   3                              m_cur2          = 0;
 695   3                              m_count_plc     = 0;                            //偏励磁次数清零
 696   3      //                      m_vol2_old_90   = 0;
 697   3                              m_vol2_old_10   = 0;
 698   3                              m_vol2_old_01   = 0;
 699   3                              m_br_fs                 = FALSE;
 700   3                              m_int_count_rec = 0;
 701   3                              m_hh_count ++;                                          // just for sparking rate
 702   3                              return;
 703   3                      }
 704   2      
 705   2                      //===================================================================
 706   2                      if(m_br_zz== TRUE && m_tc > m_zz_time)
 707   2                      {
 708   3                                m_tc += 0;                            //终止状态
 709   3                      }
 710   2                      else if(m_br_xy)        //下移
 711   2                      {
 712   3                              if(m_tc >1600) m_tc -= 5;
 713   3                      }
 714   2                      else if(m_get_gzfs == 2 || m_get_gzfs == 6)
 715   2                      {
 716   3                              if(m_int_count_rec > 5)//6
 717   3                              {
 718   4                                      m_tc += con_speed;
 719   4                              }
 720   3                              else if(m_int_count_rec < 3)
 721   3                              {
 722   4                                      m_tc += con_speed1;
 723   4                              }
 724   3                              else if(m_int_count_rec ==3)
 725   3                              {
 726   4                                      m_tc += con_speed2;
 727   4                              }
 728   3                              else 
 729   3                              {
 730   4                                      m_tc += con_speed3;
 731   4                              }
 732   3                      }
 733   2                      else if(m_get_gzfs == 3)
 734   2                      {
 735   3                              if(m_int_count_rec > 5)
 736   3                              {
 737   4                                      if(m_br_reach == TRUE )
C51 COMPILER V7.00  TESTPROG                                                               11/18/2007 17:17:47 PAGE 13  

 738   4                                                      m_tc += con_speed;
 739   4                                      else    m_tc += 0;
 740   4                              }
 741   3                              else if(m_int_count_rec < 3)
 742   3                              {
 743   4                                      m_tc += con_speed1;
 744   4                              }
 745   3                              else if(m_int_count_rec ==3)
 746   3                              {
 747   4                                      m_tc += con_speed2;
 748   4                              }
 749   3                              else 
 750   3                              {
 751   4                                      m_tc += con_speed3;
 752   4                              }
 753   3                      }
 754   2                      else if(m_get_gzfs == 1)
 755   2                      {                                                       //0.88->0.82->0.88->0.94
 756   3                              if( (m_int_count_rec/m_get_zkb)< 5 && m_pulse_count == 1 )
 757   3                              {
 758   4                                      m_tc += con_speed1;
 759   4                              }
 760   3                              else m_tc += 2*con_speed;
 761   3                      }
 762   2                      //-------------------------------------------------------------------20050713
 763   2                      else if(m_get_gzfs == 4)                //脉冲供电
 764   2                      {                                                               //50--60--70--80--
 765   3                              if(m_int_count_rec > 7)         //6
 766   3                              {
 767   4                                      m_tc += con_speed;
 768   4                              }
 769   3                              else if(m_int_count_rec < 6)
 770   3                              {
 771   4                                      m_tc += con_speed2;
 772   4                              }
 773   3                              else 
 774   3                              {
 775   4                                      m_tc += con_speed3;
 776   4                              }
 777   3                      }
 778   2                      else if(m_get_gzfs == 5)                //最高平均值
 779   2                      {                                                               //0.88->0.82->0.88->0.94
 780   3                              if(m_int_count_rec > 6)
 781   3                              {
 782   4                                      if(m_br_reach == TRUE )
 783   4                                                      m_tc += con_speed;
 784   4                                      else    m_tc += 0;
 785   4                              }
 786   3                              else if(m_int_count_rec < 3)
 787   3                              {
 788   4                                      m_tc += con_speed1;
 789   4                              }
 790   3                              else if(m_int_count_rec ==3)
 791   3                              {
 792   4                                      m_tc += con_speed2;
 793   4                              }
 794   3                              else if(m_int_count_rec ==6)
 795   3                              {
 796   4                                      m_tc += con_speed4;
 797   4                              }
 798   3                              else                                                    //4,5   
 799   3                              {
C51 COMPILER V7.00  TESTPROG                                                               11/18/2007 17:17:47 PAGE 14  

 800   4                                      m_tc += con_speed3;
 801   4                              }
 802   3                      }
 803   2                      //工作方式6用不着列出,因为是上面5种工作方式之一
 804   2                      //-------------------------------------------------------------------20050713
 805   2      

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -