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

📄 testprog.lst

📁 电除尘行业中监控界面采用ACTIVE 控件的形式
💻 LST
📖 第 1 页 / 共 5 页
字号:
 196   3                                      if(m_pulse_count == m_get_zkb)                  //zkb个脉冲(第四次脉冲)才需要准备各种标志
 197   3                                      {
 198   4                                              m_tc_max        =  m_tc;
 199   4                                              //0.70--0.76--0.82--0.88
 200   4                                              con_speed1      =  m_tc_max/50;
 201   4                                              m_tc            =  con_speed1 * 35;     //70%->76%->82%->88%
 202   4                                              con_speed1      =  con_speed1 * 3;      // 6%
 203   4                                              con_speed       =  3;
 204   4                                              m_br_fs                 = FALSE;
 205   4                                              m_int_count_rec = 0;
 206   4                                              m_hh_count ++;                                          // just for sparking rate
 207   4                                      }
 208   3                                      //-----------------------------------------------
 209   3                                      m_count_plc     = 0;                                    //偏励磁次数清零
 210   3                                      m_vol2_old_10   = 0;
 211   3                                      m_vol2_old_01   = 0;
 212   3                                      return;
 213   3                              }
 214   2      
 215   2                              if(m_vol2 >8)   m_br_over8= TRUE;
 216   2                              m_cur2          =       0;//<1>二次电流
 217   2      
 218   2                              if((m_fsmc--) > 1) return;
 219   2      
 220   2                              //-----------------------
 221   2                              //取得第一次闪络时的导通角       
 222   2                              if(m_int_count_rec >= 250)
 223   2                              {
 224   3                                      m_tc_old        = m_tc_max;
 225   3                                      m_tc            = m_tc_max;
 226   3                              }
 227   2                              m_tc_max = m_tc;
 228   2      
 229   2                              //本部分可以尝试关闭
 230   2                              if(m_tc_old > 8900) m_tc_old = 8900;
 231   2      
 232   2                              if( m_tc_old > m_tc_max + 800 )
 233   2                              {
 234   3                                      m_tc_max        = m_tc_old - 100;
 235   3                              }
 236   2                              else 
 237   2                              {
 238   3                                      m_tc_old        = m_tc_max;
 239   3                              }
 240   2      
 241   2                              if( m_int_count_rec < 16 )
C51 COMPILER V7.00  TESTPROG                                                               11/18/2007 17:17:47 PAGE 5   

 242   2                              {
 243   3                                      m_count_intver++;
 244   3                                      if(m_tc_max > 2000)
 245   3                                      {
 246   4                                              if(m_count_intver > 3 ) //4
 247   4                                              {
 248   5                                                      m_tc_old -= 1500;
 249   5                                                      m_tc_max -= 1500;       //1500
 250   5                                              }
 251   4                                              if(m_count_intver > 2 ) //3
 252   4                                              {
 253   5                                                      m_tc_max -= 300;        //1500
 254   5                                              }
 255   4                                              if(m_count_intver > 1 ) //2             //shut this part
 256   4                                              {
 257   5      
 258   5                                                      m_tc_max -= 300;        //1500
 259   5                                              }
 260   4                                      }
 261   3                              }
 262   2                              else
 263   2                              {
 264   3                                      m_count_intver  = 0;
 265   3                              }
 266   2      
 267   2                              //---------------------------------------------------------------------
 268   2                              //0.56--0.83--0.90--0.93--0.96   CAN'T WORK NORMALLY
 269   2                              //---------------------------------------------------------------------
 270   2                              //  1    2     3      4     5            6
 271   2                              //0.50--0.70--0.80--0.86--0.92-- low speed increase according spark-rate
 272   2      
 273   2                              //---------------------------------------------------------------------0713adding
 274   2                              if( m_get_gzfs == 4 )
 275   2                              {
 276   3                                      m_fdb_tc        = (m_get_fdb-1)*277;              //每个台阶为10度 
 277   3                                      m_left_fdb_tc   =  8900 - m_fdb_tc; 
 278   3                                      m_pulse_count = 0;
 279   3                              }
 280   2                              //---------------------------------------------------------------------0713adding
 281   2      
 282   2                              con_speed1 =  m_tc_max / 50;
 283   2                              con_speed2 =  con_speed1*4;             //  8%
 284   2                              m_tc       =  con_speed1*15;    // 30%
 285   2                              con_speed3 =  con_speed1*3;             //  6%
 286   2                              con_speed4 =  con_speed1;       // 2%
 287   2                              if(m_count_intver > 1)                  //  8% for left period
 288   2                                      con_speed  = ( con_speed2 + 300 )/(m_set_interval - 11);                //计算慢上升
 289   2                              else
 290   2                                      con_speed  =   con_speed2 /(m_set_interval - 11);       
 291   2                              con_speed1 =  con_speed1 * 10;
 292   2                              con_speed2 =  con_speed1 / 2;   // 10%
 293   2      
 294   2                              if(m_get_gzfs == 3 || m_get_gzfs == 5)  
 295   2                              {
 296   3                                      m_third_sec = 0;
 297   3                                      m_br_reach  = FALSE;
 298   3                              }
 299   2                              m_fsmc                  = m_get_mcfs -1 ;                                               //计算封锁脉冲个数
 300   2                              
 301   2                              //---------------------------------------------------------------------
 302   2                              //ex0 position 0ms position
 303   2                              m_cur1          = 0;
C51 COMPILER V7.00  TESTPROG                                                               11/18/2007 17:17:47 PAGE 6   

 304   2                              m_cur2          = 0;
 305   2                              m_count_plc     = 0;                            //偏励磁次数清零
 306   2                              m_vol2_old_10   = 0;
 307   2                              m_vol2_old_01   = 0;
 308   2                              m_br_fs                 = FALSE;
 309   2                              m_int_count_rec = 0;
 310   2                              m_hh_count ++;                                          // just for sparking rate
 311   2                              return;
 312   2                      }
 313   1              
 314   1                      //===================================================================
 315   1                      //注意:在下移的时候,要能终止
 316   1                      if(m_br_zz== TRUE && m_tc > m_zz_time)
 317   1                      {
 318   2                                m_tc += 0;                            //终止状态
 319   2                      }
 320   1                      else if(m_br_xy)        //下移
 321   1                      {
 322   2                              if(m_tc >1600) m_tc -= 5;
 323   2                      }
 324   1                      else if(m_get_gzfs == 2 || m_get_gzfs == 6)
 325   1                      {
 326   2                              if(m_int_count_rec > 5)//6
 327   2                              {
 328   3                                      m_tc += con_speed;
 329   3                              }
 330   2                              else if(m_int_count_rec < 3)
 331   2                              {
 332   3                                      m_tc += con_speed1;
 333   3                              }
 334   2                              else if(m_int_count_rec ==3)
 335   2                              {
 336   3                                      m_tc += con_speed2;
 337   3                              }
 338   2                              else 
 339   2                              {
 340   3                                      m_tc += con_speed3;
 341   3                              }
 342   2                      }
 343   1                      else if(m_get_gzfs == 3)
 344   1                      {
 345   2                              if(m_int_count_rec > 5)
 346   2                              {
 347   3                                      if(m_br_reach == TRUE )
 348   3                                                      m_tc += con_speed;
 349   3                                      else    m_tc += 0;
 350   3                              }
 351   2                              else if(m_int_count_rec < 3)
 352   2                              {
 353   3                                      m_tc += con_speed1;
 354   3                              }
 355   2                              else if(m_int_count_rec ==3)
 356   2                              {
 357   3                                      m_tc += con_speed2;
 358   3                              }
 359   2                              else 
 360   2                              {
 361   3                                      m_tc += con_speed3;
 362   3                              }
 363   2                      }
 364   1                      else if(m_get_gzfs == 1)                //间歇供电
 365   1                      {                                                               //0.88->0.82->0.88->0.94
C51 COMPILER V7.00  TESTPROG                                                               11/18/2007 17:17:47 PAGE 7   

 366   2                              if( (m_int_count_rec/m_get_zkb)< 5 && m_pulse_count == 1 )//4
 367   2                              {
 368   3                                      m_tc += con_speed1;
 369   3                              }
 370   2                              else m_tc += 2*con_speed;
 371   2                      }
 372   1                      //-------------------------------------------------------------------20050713
 373   1                      else if(m_get_gzfs == 4)                //脉冲供电
 374   1                      {                                                               //50--60--70--80--
 375   2                              if(m_int_count_rec > 7)         //6
 376   2                              {
 377   3                                      m_tc += con_speed;
 378   3                              }
 379   2                              else if(m_int_count_rec < 6)
 380   2                              {
 381   3                                      m_tc += con_speed2;
 382   3                              }
 383   2                              else 
 384   2                              {
 385   3                                      m_tc += con_speed3;
 386   3                              }
 387   2                      }
 388   1                      else if(m_get_gzfs == 5)                //最高平均值
 389   1                      {                                                               //0.88->0.82->0.88->0.94
 390   2                              if(m_int_count_rec > 6)
 391   2                              {
 392   3                                      if(m_br_reach == TRUE )
 393   3                                                      m_tc += con_speed;
 394   3                                      else    m_tc += 0;
 395   3                              }
 396   2                              else if(m_int_count_rec < 3)
 397   2                              {
 398   3                                      m_tc += con_speed1;
 399   3                              }

⌨️ 快捷键说明

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