步進(jìn)電機(jī)定位控制系統(tǒng)VHDL程序與仿真

1、    步進(jìn)電機(jī)定位控制系統(tǒng)VHDL程序與仿真entity step_motor isport (reset:in STD_LOGIC; -系統(tǒng)復(fù)位信號      dir: in STD_LOGIC; -方向控制信號      clk: in STD_LOGIC; -系統(tǒng)時鐘信號     ini: in STD_LOGIC; -初始化使能信號      ma

2、nner: in STD_LOGIC_VECTOR (1 downto 0); -激磁方式的選擇開關(guān)      angle: in INTEGER range 255 downto 0; -步進(jìn)角的倍數(shù)設(shè)定輸入      baBA: out STD_LOGIC_VECTOR (3 downto 0); -步進(jìn)電機(jī)狀態(tài)輸出end step_motor;architecture stepmotor_arch of step_motor issignal count: INTEGER range 0

3、to 7; -計數(shù)器signal cntInc: INTEGER range -2 to 2; -設(shè)定累加器所需的累（加/減）計數(shù)值signal cc : integer range 0 to 3;signal cntIni: INTEGER range -1 to 0; -設(shè)定累加器所需的計數(shù)初值signal angleDnCount: INTEGER range 255 downto 0;  -計算已經(jīng)轉(zhuǎn)過的步進(jìn)角signal angleDnCntDec: INTEGER range 2 downto 1;begin  process(dir, manner, angl

4、e)-, ini)  begin      -if ini='1' then      cc<=conv_integer(manner);      if dir='0' then           case cc is      

5、        when 1 => - 1-?相激勵                  -count<=0;                  cntIni<=0;

6、0;                 cntInc<=2;                  angleDnCntDec<=2;-"10"        &#

7、160;     when 2 => - 2-?相激勵                  -count<=7;                  cntIni<=-1;   

8、;               cntInc<=2;                  angleDnCntDec<=2;-"10"          

9、60;     when 3 => - 1-2?相激勵                  -count<=0;                  cntIni<=0;   

10、               cntInc<=1;                  angleDnCntDec<=1;-"01"          

11、0;      when 0 => -manner="00" autodetect                              if (angle rem 2) =1 then - 2-?相激勵  &

12、#160;               -count<=7;                  cntIni<=-1;             &#

13、160;        cntInc<=2;                      angleDnCntDec<=2;-"10"             

14、      else - 1-?相激勵                                    -count<=0;     &#

15、160;            cntIni<=0;                      cntInc<=2;            

16、0;         angleDnCntDec<=2;-"10"                  end if; -angle          end case; -manner    &

17、#160; else - if dir='1'          case cc is               when 1 => - 1-?相激勵                &#

18、160; -count<=0;                  cntIni<=0;                  cntInc<=-2;        &

19、#160;         angleDnCntDec<=2;-"10"              when 2 => - 2-?相激勵                  -count&l

20、t;=7;                  cntIni<=-1;                  cntInc<=-2;          &

21、#160;       angleDnCntDec<=2;-"10"                when 3 => - 1-2?相激勵                  -count&

22、lt;=0;                  cntIni<=0;                  cntInc<=-1;          &

23、#160;       angleDnCntDec<=1;-"01"                 when 0 => -manner="00" autodetect             &#

24、160;                if (angle rem 2) = 1 then - 2-?相激勵                      cntIni<=-1;     

25、                 cntInc<=-2;                      angleDnCntDec<=2;-"10"    

26、60;              else - 1-?相激勵                                  &

27、#160;     cntIni<=0;                      cntInc<=-2;                   &#

28、160;  angleDnCntDec<=2;-"10"                  end if; -angle          end case; -manner      end if; - else dir=0  &#

29、160;   -end if; - ini  end process;  counting_reset: process(reset,ini, angle, clk)  begin      if reset='1' then         count<=0;         angleDnCount<=0;

30、      elsif clk'event and clk='1' then          if ini='0' then              count<=0+cntIni;        &

31、#160;     angleDnCount<=angle;          else              count <= count+cntInc;              if angleDnCount > angleDnCntDec then                  angleDnCount <= angleDnCount-angleDnCntDec;              else &#