spartan6芯片实现秒表功能程序.docxVIP

library IEEE;use IEEE.STD_LOGIC_1164.ALL;use IEEE.STD_LOGIC_ARITH.ALL;use IEEE.STD_LOGIC_UNSIGNED.ALL;-- Uncomment the following library declaration if using-- arithmetic functions with Signed or Unsigned values--use IEEE.NUMERIC_STD.ALL;-- Uncomment the following library declaration if instantiating-- any Xilinx primitives in this code.--library UNISIM;--use UNISIM.VComponents.all;entity shumaguan isport(clk: in std_logic;rst: in std_logic;led: out std_logic_vector(9 downto 0));end shumaguan;architecture Behavioral of shumaguan issignal divclk:std_logic;signal clkcount:integer range 0 tosignal shi:std_logic_vector(3 downto 0);signal ge:std_logic_vector(3 downto 0);signal sel:std_logic_vector(1 downto 0);signal count:integer range 0 to 600000;begin process(clk,count,sel) begin if clkevent and clk=1 then if count=600000 then count=0; else count=count+1; end if; end if; if (count300000) then sel=01; else sel=10;end if; end process; process(clk,rst)--秒脉冲分频时钟信号begin if rst=0 then clkcount=0; elsif clkevent and clk=1 then if clkcountthen clkcount=0; divclk=not divclk; else clkcount=clkcount+1; end if; end if;end process;--process(count1,count2)--begin--case count1 is--when 000= ge = 0;--when 001= ge = 1;--when 010= ge = 2;--when 011= ge = 3;--when 100= ge = 4;--when 101= ge = 5;--end case;--case count2 is--when 0000= shi = 0;--when 0001= shi = 1;--when 0010= shi = 2;--when 0011= shi = 3;--when 0100= shi = 4;--when 0101= shi = 5;--when 0110= shi = 6;--when 0111= shi = 7;--when 1000= shi = 8;--when 1001= shi = 9;--end case;--end process;process(divclk)beginif rst=0 then shi=0000; ge=0000;elsif(divclkevent and divclk=1)thenif(ge=1001)thenshi=shi+1;ge=0000;elsege=ge+1;end if; if(ge=1001 and shi=0101)thenge=0000;shi=0000;end if;end if;end process;process(ge,shi)beginif(sel=01)thencase ge iswhen0000= led =0100111111;when0001= led =0100000110;when0010= led =0101011011;when0011= led =0101001111;when0100= led =0101100110;when0101= led =0101101101;when0110=