EDA数字秒表的设计程序

程序说明：1。此程序包括分频，计数控制，显示控制部分。

2。开机显示00。00。00，用户课随时计时，暂停，清零，最大计时可到59 分59。99秒。

3。技术时钟为100HZ

4。采用时分复用的方法控制4个数码管的显示，可节省资源。

程序如下：

Library ieee;

Use ieee.std_logic_1164.all;

Use ieee.std_logic_arith.all;

Use ieee.std_logic_unsigned.all;

Entity watch is

Port(sel: out std_logic_vector(6 downto

1) ;

seg:out std_logic_vector(7 downto 0);

Beginstop:in std_logic;

Reset:in std_logic;

Cp2:in std_logic);

End watch;

Architecture behave of watch is

Signal num1: std_logic_vector(3 downto 0);

Signal num2: std_logic_vector(3 downto 0);

Signal num3: std_logic_vector(3 downto 0);

Signal num4: std_logic_vector(3 downto 0);

Signal num5: std_logic_vector(3 downto 0);

Signal num6: std_logic_vector(3 downto 0);

Signal num: std_logic_vector(3 downto 0);

Signal numlet: std_logic_vector(2 downto 0);

Signal count: std_logic_vector(17 downto

1);

Signal selsig: std_logic_vector(6 downto

1);

Signal segsig: std_logic_vector(7 downto 0 );

Signal cp1: std_logic;

Signal cp3: std_logic;

Begin

Process(cp

2) ---- 分频。

Begin

If (cp2' event and cp2='1') then

if (Count="1100011010011111")then

count<="00000000000000000"; cp1<=not cp1;

else count<=count 1;

end if;

end if;

cp3<=count

(10);

end process;

process(cp

1)

begin

if reset ='1' then num1(3 downto 0) <="0000";

num2(3 downto 0) <="0000";

num3(3 downto 0) <="0000";

num4(3 downto 0) <="0000";

num5(3 downto 0) <="0000";

num6(3 downto 0) <="0000";

else if cp1' event and cp1='1' then

if beginstop='1' then num1<=num1 1;

if num1 (3 downto 0)="1001" then if num2 (3 downto 0)="1001" then

num2 (3 downto 0)<="0000"; num3<= num3 1;

if num3 (3 downto 0)="1001" then

num3 (3 downto 0)<="0000"; num4<= num4 1;

if num4 (3 downto 0)="0101" then

num4 (3 downto 0)<="0000"; num5<= num5 1;

if num5 (3 downto 0)="1001" then

num5 (3 downto 0)<="0000"; num6<= num6 1;

if num6 (3 downto 0)="0101" then

num6(3 downto 0)<="0000";

end if; end if; end if; end if; end if; end if; end if;

end if; end if;

end process;

process (cp

3)

begin

if (cp3' event and cp3='1')then

if(numlet(2 downto 0)="000") then

num<=num1;selsig(6 downto

1)<="111110"; end if;

if(numlet(2 downto 0)="001") then

num<=num2;selsig(6 downto

1)<="111101"; end if;

if(numlet(2 downto 0)="010") then

num<=num3;selsig(6 downto

1)<="111011"; end if;

if(numlet(2 downto 0)="011") then

num<=num4;selsig(6 downto

1)<="110111"; end if;

if(numlet(2 downto 0)="100") then

num<=num5;selsig(6 downto

1)<="101111"; end if;

numlet(2 downto 0)<=numlet(2 downto 0) 1;

if(numlet(2 downto 0)="101") then

numlet(2 downto 0)<="011111"; end if;

end if;

if (num (3 downto 0)="0000")then

segsig(7 downto 0)<="01111111"; end if;

if (num (3 downto 0)="0001")then

segsig(7 downto 0)<="00001101"; end if;

if (num (3 downto 0)="0010")then

segsig(7 downto 0)<="10110111"; end if;

if (num (3 downto 0)="0011")then

segsig(7 downto 0)<="10011111"; end if;

if (num (3 downto 0)="0100")then

segsig(7 downto 0)<="11001101"; end if;

if (num (3 downto 0)="0101")then

segsig(7 downto 0)<="11011011"; end if;

if (num (3 downto 0)="0110")then

segsig(7 downto 0)<="11111011"; end if;

if (num (3 downto 0)="0111")then

segsig(7 downto 0)<="00001111"; end if;

if (num (3 downto 0)="1000")then

segsig(7 downto 0)<="11111111"; end if;

if (num (3 downto 0)="1001")then

segsig(7 downto 0)<="11011111"; end if;

end process;

sel<=selsig;

seg(7 downto 0)<=segsig(7 downto 0);

end behave;