watch.vhd

来自「做的跑马车程序 连上硬件可显示 下了绝对有用」· VHDL 代码 · 共 120 行

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;
n:inout 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(13 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(cp2)
        begin
          if(cp2'event and cp2='1')then
            if(count="1001110001000")then
               count<="0000000000000";cp1<=not cp1;
            else count<=count+1;
            end if;
          end if;
            cp3<=count(10);
end process;
process (cp1)
  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='0' then 
                 num1<=num1+1;
            if num1(3 downto 0)="1001"then
                 num1(3 downto 0)<="0000";num2<=num2+1;
            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;
if num4 = "0001" then n<='1'; 
                                          num1<="0000";--10秒溢出报警
										  num2<="0000";
										  num3<="0000";
										  num4<="0000";
										  num5<="0000";
										  num6<="0000";

    elsif beginstop = '0' then n<='0';
	end if;	  
	end if;
		


end process;
process(cp3)
   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)<="000";num<=num6;
    selsig(6 downto 1)<="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(6 downto 1)<=selsig(6 downto 1);
  seg(7 downto 0)<=segsig(7 downto 0);
end behave;