control.vhd

自动打铃系统

Library IEEE;
USE IEEE.STD_LOGIC_1164.ALL;
USE IEEE.STD_LOGIC_UNSIGNED.ALL;
USE IEEE.STD_LOGIC_ARITH.ALL;
ENTITY control IS
 PORT(reset:  IN STD_LOGIC;           --system.reset.signal
      begend: IN STD_LOGIC;           --key of begin&end
      keyup:  IN STD_LOGIC;           --set time value
      enter:  IN STD_LOGIC;           --enable the configuration of next time bit  
      settime: OUT STD_LOGIC;         --output to inform module"clock"to adjust time according to the newly-set time
      hourhset:OUT INTEGER RANGE 0 TO 2;--HOUR high SET BY CONTROL PART
      hourlset:OUT INTEGER RANGE 0 TO 9;--HOUR low  SET BY CONTROL PART
      minhset: OUT INTEGER RANGE 0 TO 5;--MINUTE high SET BY CONTROL PART
      minlset: OUT INTEGER RANGE 0 TO 9;--MINUTE low  SET BY CONTROL PART
      sechset: OUT INTEGER RANGE 0 TO 5;--SECHON high SET BY CONTROL PART
      seclset: OUT INTEGER RANGE 0 TO 9);--SECHON low  SET BY CONTROL PART
END control;
ARCHITECTURE archi OF control IS
  TYPE STATE IS (sethh,sethl,setmh,setml,setsh,setsl,ini);--seven operation states in the control part
  SIGNAL adjsta: STATE;
  SIGNAL setmark: STD_LOGIC;
  SIGNAL seclow,minlow,hourlow: INTEGER RANGE 0 TO 9;
  SIGNAL sechigh,minhigh: INTEGER RANGE 0 TO 5;
  SIGNAL hourhigh: INTEGER RANGE 0 TO 2;
BEGIN
  seclset<=seclow;
  sechset<=sechigh;
  minlset<=minlow;
  minhset<=minhigh;
  hourlset<=hourlow;
  hourhset<=hourhigh;
  settime<=setmark;
mark:--this process will decide the output control signal"settime"for"clock"module
PROCESS(begend)
  begin
   if reset='1'then
      setmark<='0';
   elsif begend'event and begend='1'then
     if setmark='1'then
        setmark<='0';
     else 
         setmark<='1';
     end if;
   end if;
END PROCESS;
normal_run:
  PROCESS(enter,reset)
   BEGIN
      IF reset='1' THEN
          adjsta<=ini;
      ElSif enter'event and enter='1' THEN
         case adjsta IS
            WHEN ini=>
               adjsta<=sethh;
            WHEN sethh=>
               adjsta<=sethl;
            WHEN sethl=>
               adjsta<=setmh;
            WHEN setmh=>
               adjsta<=setml;
            WHEN setml=>
               adjsta<=setsh;
            WHEN setsh=>
               adjsta<=setsl;
            WHEN setsl=>
               adjsta<=sethh; --recycle
             end case;
      END IF;
END PROCESS;
time_adjust:--the set value increased as the "keyup"is pushed down
PROCESS(keyup)
  BEGIN
    if reset='1' then
    hourhigh<=0;
    hourlow<=0;
    minhigh<=0;
    minlow<=0;
    sechigh<=0;
    seclow<=0;
   elsif keyup'event and keyup='1' THEN
      case adjsta IS
            WHEN sethh=>
               hourhigh<=hourhigh+1;
            WHEN sethl=>
               hourlow<=hourlow+1;
            WHEN setmh=>
               minhigh<=minhigh+1;
            WHEN setml=>
               minlow<=minlow+1;
            WHEN setsh=>
               sechigh<=sechigh+1;
            WHEN setsl=>
               seclow<=seclow+1;
            WHEN ini=>
                NULL;
           end case;
        end if;
      END PROCESS;
    END archi;