考试题库2014.docVIP

题目一 计时秒表 难度系数：1.2 library ieee; use ieee.std_logic_1164.all; use ieee.std_logic_arith.all; use ieee.std_logic_unsigned.all; entity jishimiaobiao is port( clk,qingling,jishi:in std_logic; lb:out std_logic; dian:out std_logic; weixuan:out std_logic_vector(1 to 6); duanxuan:out std_logic_vector(1 to 7) ); end jishimiaobiao; architecture jsmb of jishimiaobiao is signal clk_2ms,clk_100ms:std_logic; signal saomiao:integer range 1 to 6; signal wx:std_logic_vector(5 downto 0); signal dx,deng1,deng2,deng3,deng4,deng5,deng6:std_logic_vector(3 downto 0); begin process(clk) variable cnt1:integer range 0 to 100; variable cnt2:integer range 0 to 500; begin if rising_edge(clk) then if cnt1=100 then cnt1:=0; if cnt2=500 then cnt2:=0; clk_2ms=not clk_2ms; else cnt2:=cnt2+1; end if; else cnt1:=cnt1+1; end if; end if; end process; process(clk_2ms) variable cnt3:integer range 0 to 25; begin if rising_edge(clk_2ms) then if cnt3=25 then cnt3:=0; clk_100ms=not clk_100ms; else cnt3:=cnt3+1; end if; if saomiao=6 then saomiao=1; else saomiao=saomiao+1; end if; end if; end process; process(saomiao) begin case saomiao is when 1=wx=111110; when 2=wx=111101; when 3=wx=111011; when 4=wx=110111; when 5=wx=101111; when 6=wx=011111; when others=null; end case; case wx is when 111110=dx=deng1;dian=0; when 111101=dx=deng2;dian=1; when 111011=dx=deng3;dian=0; when 110111=dx=deng4;dian=1; when 101111=dx=deng5;dian=0; when 011111=dx=deng6;dian=1; when others=null; end case; end process; process(clk_100ms) begin if qingling=0 then deng1=0000; deng2=0000; deng3=0000; deng4=0000; deng5=0000; deng6=0000; elsif rising_edge(clk_100ms) then if jishi=0 then case deng1 is when 1001=deng1=0000; case deng2 is when 1001=deng2=0000