ÔõÑùÓÃVHDLдtestbench

A-Lin

ÔõÑùÓÃVHDLдtestbench

Óοͣ¬Èç¹ûÄúÒª²é¿´±¾ÌûÒþ²ØÄÚÈÝÇë»Ø¸´

gaoxings

ѧϰѧϰ

Dc202312209a

,6

zhusir

library IEEE; use IEEE.std_logic_1164.all; use IEEE.std_logic_arith.all; use IEEE.std_logic_unsigned.all;  entity step_motor is port (reset:in STD_LOGIC; --ϵͳ¸´Î»ÐźŠ      dir: in STD_LOGIC; --·½Ïò¿ØÖÆÐźŠ      clk: in STD_LOGIC; --ϵͳʱÖÓÐźŠ      ini: in STD_LOGIC; --³õʼ»¯Ê¹ÄÜÐźŠ       manner: in STD_LOGIC_VECTOR (1 downto 0); --¼¤´Å·½Ê½µÄÑ¡Ôñ¿ª¹Ø       angle: in INTEGER range 255 downto 0; --²½½ø½ÇµÄ±¶ÊýÉ趨ÊäÈë       baBA: out STD_LOGIC_VECTOR (3 downto 0)); --²½½øµç»ú״̬Êä³ö end step_motor;  architecture stepmotor_arch of step_motor is signal count: INTEGER range 0 to 7; --¼ÆÊýÆ÷  signal cntInc: INTEGER range -2 to 2; --É趨ÀÛ¼ÓÆ÷ËùÐèµÄÀÛ£¨¼Ó/¼õ£©¼ÆÊýÖµ signal cc : integer range 0 to 3; signal cntIni: INTEGER range -1 to 0; --É趨ÀÛ¼ÓÆ÷ËùÐèµÄ¼ÆÊý³õÖµ signal angleDnCount: INTEGER range 255 downto 0;  --¼ÆËãÒѾ­×ª¹ýµÄ²½½ø½Ç signal angleDnCntDec: INTEGER range 2 downto 1;  begin    process(dir, manner, angle)--, ini)   begin       --if ini='1' then       cc<=conv_integer(manner);       if dir='0' then                   case cc is               when 1 => -- 1-¬ÛÏ༤Àø                   --count<=0;                   cntIni<=0;                   cntInc<=2;                   angleDnCntDec<=2;--"10";               when 2 => -- 2-¬ÛÏ༤Àø                   --count<=7;                   cntIni<=-1;                   cntInc<=2;                   angleDnCntDec<=2;--"10";                  when 3 => -- 1-2¬ÛÏ༤Àø                   --count<=0;                   cntIni<=0;                   cntInc<=1;                   angleDnCntDec<=1;--"01";                   when 0 => --manner="00" autodetect                                if (angle rem 2) =1 then -- 2-¬ÛÏ༤Àø                   --count<=7;                   cntIni<=-1;                       cntInc<=2;                       angleDnCntDec<=2;--"10";                     else -- 1-¬ÛÏ༤Àø                                      --count<=0;                   cntIni<=0;                       cntInc<=2;                       angleDnCntDec<=2;--"10";                   end if; --angle           end case; --manner       else -- if dir='1'           case cc is                when 1 => -- 1-¬ÛÏ༤Àø                   --count<=0;                   cntIni<=0;                   cntInc<=-2;                   angleDnCntDec<=2;--"10";               when 2 => -- 2-¬ÛÏ༤Àø                   --count<=7;                   cntIni<=-1;                   cntInc<=-2;                   angleDnCntDec<=2;--"10";                  when 3 => -- 1-2¬ÛÏ༤Àø                   --count<=0;                   cntIni<=0;                   cntInc<=-1;                   angleDnCntDec<=1;--"01";                   when 0 => --manner="00" autodetect                                if (angle rem 2) = 1 then -- 2-¬ÛÏ༤Àø                       cntIni<=-1;                       cntInc<=-2;                       angleDnCntDec<=2;--"10";                     else -- 1-¬ÛÏ༤Àø                                          cntIni<=0;                       cntInc<=-2;                       angleDnCntDec<=2;--"10";                   end if; --angle           end case; --manner       end if; -- else dir=0       --end if; -- ini   end process;    counting_reset: process(reset,ini, angle, clk)   begin       if reset='1' then          count<=0;          angleDnCount<=0;        elsif clk'event and clk='1' then           if ini='0' then               count<=0+cntIni;               angleDnCount<=angle;           else               count <= count+cntInc;               if angleDnCount > angleDnCntDec then                   angleDnCount <= angleDnCount-angleDnCntDec;               else                   angleDnCount <= 0;               end if;            end if;       end if;   end process;     baBA <="0000" when angleDnCount=0 else          "0001" when count=0 else          "0011" when count=1 else          "0010" when count=2 else          "0110" when count=3 else          "0100" when count=4 else       library IEEE; use IEEE.std_logic_1164.all; use IEEE.std_logic_arith.all; use IEEE.std_logic_unsigned.all;  entity step_motor is port (reset:in STD_LOGIC; --ϵͳ¸´Î»ÐźŠ      dir: in STD_LOGIC; --·½Ïò¿ØÖÆÐźŠ      clk: in STD_LOGIC; --ϵͳʱÖÓÐźŠ      ini: in STD_LOGIC; --³õʼ»¯Ê¹ÄÜÐźŠ       manner: in STD_LOGIC_VECTOR (1 downto 0); --¼¤´Å·½Ê½µÄÑ¡Ôñ¿ª¹Ø       angle: in INTEGER range 255 downto 0; --²½½ø½ÇµÄ±¶ÊýÉ趨ÊäÈë       baBA: out STD_LOGIC_VECTOR (3 downto 0)); --²½½øµç»ú״̬Êä³ö end step_motor;  architecture stepmotor_arch of step_motor is signal count: INTEGER range 0 to 7; --¼ÆÊýÆ÷  signal cntInc: INTEGER range -2 to 2; --É趨ÀÛ¼ÓÆ÷ËùÐèµÄÀÛ£¨¼Ó/¼õ£©¼ÆÊýÖµ signal cc : integer range 0 to 3; signal cntIni: INTEGER range -1 to 0; --É趨ÀÛ¼ÓÆ÷ËùÐèµÄ¼ÆÊý³õÖµ signal angleDnCount: INTEGER range 255 downto 0;  --¼ÆËãÒѾ­×ª¹ýµÄ²½½ø½Ç signal angleDnCntDec: INTEGER range 2 downto 1;  begin    process(dir, manner, angle)--, ini)   begin       --if ini='1' then       cc<=conv_integer(manner);       if dir='0' then                   case cc is               when 1 => -- 1-¬ÛÏ༤Àø                   --count<=0;                   cntIni<=0;                   cntInc<=2;                   angleDnCntDec<=2;--"10";               when 2 => -- 2-¬ÛÏ༤Àø                   --count<=7;                   cntIni<=-1;                   cntInc<=2;                   angleDnCntDec<=2;--"10";                  when 3 => -- 1-2¬ÛÏ༤Àø                   --count<=0;                   cntIni<=0;                   cntInc<=1;                   angleDnCntDec<=1;--"01";                   when 0 => --manner="00" autodetect                                if (angle rem 2) =1 then -- 2-¬ÛÏ༤Àø                   --count<=7;                   cntIni<=-1;                       cntInc<=2;                       angleDnCntDec<=2;--"10";                     else -- 1-¬ÛÏ༤Àø                                      --count<=0;                   cntIni<=0;                       cntInc<=2;                       angleDnCntDec<=2;--"10";                   end if; --angle           end case; --manner       else -- if dir='1'           case cc is                when 1 => -- 1-¬ÛÏ༤Àø                   --count<=0;                   cntIni<=0;                   cntInc<=-2;                   angleDnCntDec<=2;--"10";               when 2 => -- 2-¬ÛÏ༤Àø                   --count<=7;                   cntIni<=-1;                   cntInc<=-2;                   angleDnCntDec<=2;--"10";                  when 3 => -- 1-2¬ÛÏ༤Àø                   --count<=0;                   cntIni<=0;                   cntInc<=-1;                   angleDnCntDec<=1;--"01";                   when 0 => --manner="00" autodetect                                if (angle rem 2) = 1 then -- 2-¬ÛÏ༤Àø                       cntIni<=-1;                       cntInc<=-2;                       angleDnCntDec<=2;--"10";                     else -- 1-¬ÛÏ༤Àø                                          cntIni<=0;                       cntInc<=-2;                       angleDnCntDec<=2;--"10";                   end if; --angle           end case; --manner       end if; -- else dir=0       --end if; -- ini   end process;    counting_reset: process(reset,ini, angle, clk)   begin       if reset='1' then          count<=0;          angleDnCount<=0;        elsif clk'event and clk='1' then           if ini='0' then               count<=0+cntIni;               angleDnCount<=angle;           else               count <= count+cntInc;               if angleDnCount > angleDnCntDec then                   angleDnCount <= angleDnCount-angleDnCntDec;               else                   angleDnCount <= 0;               end if;            end if;       end if;   end process;     baBA <="0000" when angleDnCount=0 else          "0001" when count=0 else          "0011" when count=1 else          "0010" when count=2 else          "0110" when count=3 else          "0100" when count=4 else          "1100" when count=5 else          "1000" when count=6 else          "1001";-- when count>=7;  end stepmotor_arch;

¸ÊÎÄ´Þ

111111111
9 l6 B0 G1 O6 ?/ P+ H; D