2006-12-ad.txt

来自「运用模糊算法和PID调节控制开关磁阻电机的调速。采用的单片机是Intel的80c」· 文本 代码 · 共 1,526 行 · 第 1/3 页

TXT
1,526 行
字号
123
      TURNON=T_SPAN*14/15;
      TURNOFF=T_SPAN/3;
      DO CASE ORDER;
       T35:DO;
         HSO_COMMAND=21H;
         HSO_TIME=TIMER1+TURNON;
         R0=0;
         R0=0;
         HSO_COMMAND=03H;
         HSO_TIME=TIMER1+TURNOFF;
         R0=0;
         R0=0;
         HSO_COMMAND=02H;
         HSO_TIME=TIMER1+04H;
       END;
       T36:DO;
         HSO_COMMAND=22H;
         HSO_TIME=TIMER1+TURNON;
         R0=0;
         R0=0;
         HSO_COMMAND=00H;
         HSO_TIME=TIMER1+TURNOFF;
         R0=0;
         R0=0;
         HSO_COMMAND=03H;
         HSO_TIME=TIMER1+04H;
       END;
       T37:DO;
         HSO_COMMAND=23H;
         HSO_TIME=TIMER1+TURNON;
         R0=0;
         R0=0;
         HSO_COMMAND=01H;
         HSO_TIME=TIMER1+TURNOFF;
         R0=0;
         R0=0;
         HSO_COMMAND=00H;
         HSO_TIME=TIMER1+04H;
       END;
       T38:DO;
         HSO_COMMAND=20H;
         HSO_TIME=TIMER1+TURNON;
         R0=0;
         R0=0;
         HSO_COMMAND=02H;
         HSO_TIME=TIMER1+TURNOFF;
         R0=0;
         R0=0;
         HSO_COMMAND=01H;
         HSO_TIME=TIMER1+04H;
       END;
      END;
    END;
    ELSE IF  AIM_SPD>=800 THEN DO;
      TURNON=T_SPAN/15;
      TURNOFF=T_SPAN/3;
      DO CASE ORDER;
       T30:DO;
         HSO_COMMAND=20H;
         HSO_TIME=TIMER1+TURNON;
         R0=0;
         R0=0;
         HSO_COMMAND=03H;
         HSO_TIME=TIMER1+TURNOFF;
         R0=0;
         R0=0;
         HSO_COMMAND=02H;
         HSO_TIME=TIMER1+04H;

       END;
       T31:DO;
         HSO_COMMAND=21H;
         HSO_TIME=TIMER1+TURNON;
         R0=0;
         R0=0;
         HSO_COMMAND=00H;
         HSO_TIME=TIMER1+TURNOFF;
         R0=0;
         R0=0;
         HSO_COMMAND=03H;
         HSO_TIME=TIMER1+04H;
         R0=0;
         R0=0;
       END;
       T32:DO;
         HSO_COMMAND=22H;
         HSO_TIME=TIMER1+TURNON;
         R0=0;
         R0=0;
         HSO_COMMAND=01H;
         HSO_TIME=TIMER1+TURNOFF;
         R0=0;
         R0=0;
         HSO_COMMAND=00H;
         HSO_TIME=TIMER1+04H;
         R0=0;
         R0=0;
       END;
       T33:DO;
         HSO_COMMAND=23H;
         HSO_TIME=TIMER1+TURNON;
         R0=0;
         R0=0;
         HSO_COMMAND=02H;
         HSO_TIME=TIMER1+TURNOFF;
         R0=0;
         R0=0;
         HSO_COMMAND=01H;
         HSO_TIME=TIMER1+04H;
         R0=0;
         R0=0;
       END;
      END;
    END;
    ELSE IF AIM_SPD>=400 THEN DO;
      TURNON=T_SPAN/3;
      TURNOFF=T_SPAN/3;
      DO CASE ORDER;
       T20:DO;
         HSO_COMMAND=20H;
         HSO_TIME=TIMER1+TURNON;
         R0=0;
         R0=0;
         HSO_COMMAND=03H;
         HSO_TIME=TIMER1+TURNOFF;
         R0=0;
         R0=0;
         HSO_COMMAND=02H;
         HSO_TIME=TIMER1+04H;
         R0=0;
         R0=0;
       END;
       T21:DO;
         HSO_COMMAND=21H;
         HSO_TIME=TIMER1+TURNON;
         R0=0;
         R0=0;
         HSO_COMMAND=00H;
         HSO_TIME=TIMER1+TURNOFF;
         R0=0;
         R0=0;
         HSO_COMMAND=03H;
         HSO_TIME=TIMER1+04H;
         R0=0;
         R0=0;
       END;
       T22:DO;
         HSO_COMMAND=22H;
         HSO_TIME=TIMER1+TURNON;
         R0=0;
         R0=0;
         HSO_COMMAND=01H;
         HSO_TIME=TIMER1+TURNOFF;
         R0=0;
         R0=0;
         HSO_COMMAND=00H;
         HSO_TIME=TIMER1+04H;
         R0=0;
         R0=0;
       END;
       T23:DO;
         HSO_COMMAND=23H;
         HSO_TIME=TIMER1+TURNON;
         R0=0;
         R0=0;
         HSO_COMMAND=02H;
         HSO_TIME=TIMER1+TURNOFF;
         R0=0;
         R0=0;
         HSO_COMMAND=01H;
         HSO_TIME=TIMER1+04H;
         R0=0;
         R0=0;
       END;
      END;
    END;

    ELSE IF  AIM_SPD>=200 THEN DO;
      TURNON=T_SPAN*3/5;
      TURNOFF=T_SPAN/3;
       DO CASE ORDER;
       T10:DO;
         HSO_COMMAND=20H;
         HSO_TIME=TIMER1+TURNON;
         R0=0;
         R0=0;
         HSO_COMMAND=03H;
         HSO_TIME=TIMER1+TURNOFF;
         R0=0;
         R0=0;
         HSO_COMMAND=02H;
         HSO_TIME=TIMER1+04H;
         R0=0;
         R0=0;
       END;
       T11:DO;
         HSO_COMMAND=21H;
         HSO_TIME=TIMER1+TURNON;
         R0=0;
         R0=0;
         HSO_COMMAND=00H;
         HSO_TIME=TIMER1+TURNOFF;
         R0=0;
         R0=0;
         HSO_COMMAND=03H;
         HSO_TIME=TIMER1+04H;
         R0=0;
         R0=0;

       END;
       T12:DO;
         HSO_COMMAND=22H;
         HSO_TIME=TIMER1+TURNON;
         R0=0;
         R0=0;
         HSO_COMMAND=01H;
         HSO_TIME=TIMER1+TURNOFF;
         R0=0;
         R0=0;
         HSO_COMMAND=00H;
         HSO_TIME=TIMER1+04H;
         R0=0;
         R0=0;
       END;
       T13:DO;
         HSO_COMMAND=23H;
         HSO_TIME=TIMER1+TURNOFF;
         R0=0;
         R0=0;
         HSO_COMMAND=02H;
         HSO_TIME=TIMER1+TURNON;
         R0=0;
         R0=0;
         HSO_COMMAND=01H;
         HSO_TIME=TIMER1+04H;
         R0=0;
         R0=0;
       END;
      END;
    END;
    ELSE DO;
      TURNON=T_SPAN*4/5;
      TURNOFF=T_SPAN/5;
       DO CASE ORDER;
       T05:DO;
         HSO_COMMAND=20H;
         HSO_TIME=TIMER1+TURNON;
         R0=0;
         R0=0;
         HSO_COMMAND=03H;
         HSO_TIME=TIMER1+TURNOFF;
         R0=0;
         R0=0;
         HSO_COMMAND=02H;
         HSO_TIME=TIMER1+04H;
         R0=0;
         R0=0;
       END;
       T06:DO;
         HSO_COMMAND=21H;
         HSO_TIME=TIMER1+TURNON;
         R0=0;
         R0=0;
         HSO_COMMAND=00H;
         HSO_TIME=TIMER1+TURNOFF;
         R0=0;
         R0=0;
         HSO_COMMAND=03H;
         HSO_TIME=TIMER1+04H;
         R0=0;
         R0=0;

       END;
       T07:DO;
         HSO_COMMAND=22H;
         HSO_TIME=TIMER1+TURNON;
         R0=0;
         R0=0;
         HSO_COMMAND=01H;
         HSO_TIME=TIMER1+TURNOFF;
         R0=0;
         R0=0;
         HSO_COMMAND=00H;
         HSO_TIME=TIMER1+04H;
         R0=0;
         R0=0;
       END;
       T08:DO;
         HSO_COMMAND=23H;
         HSO_TIME=TIMER1+TURNOFF;
         R0=0;
         R0=0;
         HSO_COMMAND=02H;
         HSO_TIME=TIMER1+TURNON;
         R0=0;
         R0=0;
         HSO_COMMAND=01H;
         HSO_TIME=TIMER1+04H;
         R0=0;
         R0=0;
       END;
      END;
    END;
  END;

  ELSE DO;
    IF RUN_SPD<60 THEN DO;
      TURNON=02H;
      TURNOFF=02H;
      DO CASE ORDER;
       T50:DO;
         HSO_COMMAND=22H;
         HSO_TIME=TIMER1+TURNON;
         R0=0;
         R0=0;
         HSO_COMMAND=00H;
         HSO_TIME=TIMER1+TURNOFF;
         R0=0;
         R0=0;
       END;
       T51:DO;
         HSO_COMMAND=23H;
         HSO_TIME=TIMER1+TURNON;
         R0=0;
         R0=0;
         HSO_COMMAND=01H;
         HSO_TIME=TIMER1+TURNOFF;
         R0=0;
         R0=0;
       END;
       T52:DO;
         HSO_COMMAND=20H;
         HSO_TIME=TIMER1+TURNON;
         R0=0;
         R0=0;
         HSO_COMMAND=02H;
         HSO_TIME=TIMER1+TURNOFF;
         R0=0;
         R0=0;
       END;
       T53:DO;
         HSO_COMMAND=21H;
         HSO_TIME=TIMER1+TURNOFF;
         R0=0;
         R0=0;
         HSO_COMMAND=03H;
         HSO_TIME=TIMER1+TURNON;
         R0=0;
         R0=0;
       END;
      END;
    END;
    ELSE IF AIM_SPD>=1600 THEN DO;
      TURNON=T_SPAN*4/5;
      TURNOFF=T_SPAN/3;
      DO CASE ORDER;
       T90:DO;
         HSO_COMMAND=21H;
         HSO_TIME=TIMER1+TURNON;
         R0=0;
         R0=0;
         HSO_COMMAND=03H;
         HSO_TIME=TIMER1+TURNOFF;
         R0=0;
         R0=0;
         HSO_COMMAND=00H;
         HSO_TIME=TIMER1+02H;
       END;
       T91:DO;
         HSO_COMMAND=22H;
         HSO_TIME=TIMER1+TURNON;
         R0=0;
         R0=0;
         HSO_COMMAND=00H;
         HSO_TIME=TIMER1+TURNOFF;
         R0=0;
         R0=0;
         HSO_COMMAND=01H;
         HSO_TIME=TIMER1+02H;
       END;
       T92:DO;
         HSO_COMMAND=23H;
         HSO_TIME=TIMER1+TURNON;
         R0=0;
         R0=0;
         HSO_COMMAND=01H;
         HSO_TIME=TIMER1+TURNOFF;
         R0=0;
         R0=0;
         HSO_COMMAND=02H;
         HSO_TIME=TIMER1+02H;
       END;
       T93:DO;
         HSO_COMMAND=20H;
         HSO_TIME=TIMER1+TURNON;
         R0=0;
         R0=0;
         HSO_COMMAND=02H;
         HSO_TIME=TIMER1+TURNOFF;
         R0=0;
         R0=0;
         HSO_COMMAND=03H;
         HSO_TIME=TIMER1+02H;
       END;
      END;
    END;
    ELSE IF  AIM_SPD>=1200 THEN DO;
      TURNON=T_SPAN*14/15;
      TURNOFF=T_SPAN/3;
      DO CASE ORDER;
       T85:DO;
         HSO_COMMAND=21H;
         HSO_TIME=TIMER1+TURNON;
         R0=0;
         R0=0;
         HSO_COMMAND=03H;
         HSO_TIME=TIMER1+TURNOFF;
         R0=0;
         R0=0;
         HSO_COMMAND=00H;
         HSO_TIME=TIMER1+02H;

       END;
       T86:DO;
         HSO_COMMAND=22H;
         HSO_TIME=TIMER1+TURNON;
         R0=0;
         R0=0;
         HSO_COMMAND=00H;
         HSO_TIME=TIMER1+TURNOFF;
         R0=0;
         R0=0;
         HSO_COMMAND=01H;
         HSO_TIME=TIMER1+02H;
       END;
       T87:DO;
         HSO_COMMAND=23H;
         HSO_TIME=TIMER1+TURNON;
         R0=0;
         R0=0;
         HSO_COMMAND=01H;
         HSO_TIME=TIMER1+TURNOFF;
         R0=0;
         R0=0;
         HSO_COMMAND=02H;
         HSO_TIME=TIMER1+02H;
       END;
       T88:DO;
         HSO_COMMAND=20H;
         HSO_TIME=TIMER1+TURNON;
         R0=0;
         R0=0;
         HSO_COMMAND=02H;
         HSO_TIME=TIMER1+TURNOFF;
         R0=0;
         R0=0;
         HSO_COMMAND=03H;
         HSO_TIME=TIMER1+02H;
       END;
      END;
    END;
    ELSE IF  AIM_SPD>=800 THEN DO;
      TURNON=T_SPAN/15;
      TURNOFF=T_SPAN/3;
      DO CASE ORDER;
       T80:DO;
         HSO_COMMAND=22H;
         HSO_TIME=TIMER1+TURNON;
         R0=0;
         R0=0;
         HSO_COMMAND=03H;
         HSO_TIME=TIMER1+TURNOFF;
         R0=0;
         R0=0;
         HSO_COMMAND=00H;
         HSO_TIME=TIMER1+04H;
         R0=0;
         R0=0;
       END;
       T81:DO;
         HSO_COMMAND=23H;
         HSO_TIME=TIMER1+TURNON;
         R0=0;
         R0=0;
         HSO_COMMAND=00H;
         HSO_TIME=TIMER1+TURNOFF;
         R0=0;
         R0=0;
         HSO_COMMAND=01H;
         HSO_TIME=TIMER1+04H;
         R0=0;
         R0=0;
       END;
       T82:DO;
         HSO_COMMAND=20H;
         HSO_TIME=TIMER1+TURNON;
         R0=0;
         R0=0;
         HSO_COMMAND=01H;
         HSO_TIME=TIMER1+TURNOFF;
         R0=0;
         R0=0;
         HSO_COMMAND=02H;
         HSO_TIME=TIMER1+04H;
         R0=0;
         R0=0;
       END;
       T83:DO;
         HSO_COMMAND=21H;
123

2006-12-ad.txt - 源码说明

本页面展示了「运用模糊算法和PID调节控制开关磁阻电机的调速。采用的单片机是Intel的80c196KB,编程语言为PL/M.」中的 2006-12-ad.txt 源码文件，采用 文本 编程语言编写，共 1,526 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫下载站收录了大量与Intel相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

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