标题: vhdl多功能电子秒表程序 [打印本页]
作者: 51黑dd    时间: 2016-4-7 01:15
标题: vhdl多功能电子秒表程序

vhdl编的多功能电子秒表，可以记录几个人的时间，并且可以在跑秒的时候查看记录。
  1. library ieee;
  2.   use  ieee.std_logic_1164.all;
  3.   use ieee.std_logic_unsigned.all;
  4.   use ieee.std_logic_arith.all;

  6. entity  clock  is
  7.   port( cp:in std_logic;
  8.                 minten:        out std_logic_vector(3 downto 0);
  9.                 min        :        out std_logic_vector(3 downto 0);
  10.                 secten:        out std_logic_vector(3 downto 0);
  11.                 sec:        out std_logic_vector(3 downto 0);
  12.                 stop:        in std_logic;
  13.                 reset:         in std_logic;
  14.         lamp:   out std_logic;
  15.         lam:   out std_logic;
  16.         read: in std_logic);
  17. end clock;

  19. architecture a of clock is
  20. signal mten: integer range 0 to 9;
  21. signal m: integer range 0 to 9;
  22. signal sten: integer range 0 to 9;
  23. signal ss: integer range 0 to 9;
  24. signal read_signal:integer range 0 to 3;
  25. signal ta : integer range 0 to 10;
  26. signal tb : integer range 0 to 10;
  27. signal tc : integer range 0 to 10;
  28. signal td : integer range 0 to 10;
  29. signal xa : integer range 0 to 10;
  30. signal xb : integer range 0 to 10;
  31. signal xc : integer range 0 to 10;
  32. signal xd : integer range 0 to 10;
  33. signal stop_signal: std_logic;

  35. begin
  36. -------------------stop_signal---------------
  37.     process(stop)
  38.     begin
  39.     if stop'event and stop='1' then
  40.        stop_signal<=not stop_signal;
  41.     end if;
  42.     end process;
  43. ------------------clock goes------------------
  44.         process(cp)
  45.         begin
  46.                 if cp'event and cp='1' then
  47.                         if reset='0' then       
  48.                         if stop_signal='1' then
  49.                                 if ss=9 then
  50.                                         ss<=0;
  51.                                         if sten=5 then
  52.                                                 sten<=0;
  53.                                                 if m=9 then
  54.                                                         m<=0;
  55.                                                         if mten=5 then
  56.                                                                 mten<=0;
  57.                                                         else mten<=mten+1;
  58.                                                         end if;
  59.                                                 else m<=m+1;
  60.                                                 end if;
  61.                                         else sten<=sten+1;
  62.                                         end if;
  63.                                 else ss<=ss+1;
  64.                                 end if;
  65.                         end if;
  66.                         else mten<=0;
  67.                                 m<=0;
  68.                                 sten<=0;
  69.                                 ss<=0;

  71.                         end if;
  72.                 end if;
  73.   end process;
  74. ------------------------------read_signal-----------
  75. process(read)
  76. begin
  77.   if read'event and read='1' then
  78.      
  79. if read_signal=2 then read_signal<=0 ;else read_signal<=read_signal+1 ; end if ;
  80.   end if;
  81. end process;
  82. --------------------record--------------
  83. process(read_signal)
  84. begin
  85.   if stop_signal='1' then  
  86.   case read_signal is
  87.         when 1=> ta<=ss;tb<=sten; tc<=m; td<=mten;lamp<='1';lam<='0';
  88.         when 2=> xa<=ss;xb<=sten; xc<=m; xd<=mten;lam<='1'; lamp<='0';
  89.         when others => lamp<='0' ;lam<='0';
  90.    end case;
  91. end if;
  92. end process;      
  93. ------------------------display--------------
  94. process(cp,read_signal)
  95. begin
  96.     case read_signal  is
  97.     when 1=>if stop_signal='0' then
  98.     minten<=conv_std_logic_vector(td,4);
  99.         min<=conv_std_logic_vector(tc,4);
  100.         secten<=conv_std_logic_vector(tb,4);
  101.         sec<=conv_std_logic_vector(ta,4);
  102.           end if;
  103.     when 2=>
  104.            if stop_signal='0' then
  105.     minten<=conv_std_logic_vector(xd,4);
  106.         min<=conv_std_logic_vector(xc,4);
  107.         secten<=conv_std_logic_vector(xb,4);
  108.         sec<=conv_std_logic_vector(xa,4);
  109.           end if;
  110.     when others=>
  111.         minten<=conv_std_logic_vector(mten,4);
  112.         min<=conv_std_logic_vector(m,4);
  113.         secten<=conv_std_logic_vector(sten,4);
  114.         sec<=conv_std_logic_vector(ss,4);
  115.     end case;
  116. end process;
  117. end a;
复制代码







欢迎光临 (http://www.51hei.com/bbs/) Powered by Discuz! X3.1