seltime.tdf

几个VHDL实现的源程序及其代码

SUBDESIGN seltime
(
   clk1,reset,sec[6..0],min[6..0],hour[5..0]		:INPUT;
   daout[3..0],sel[2..0]							:OUTPUT;
)

VARIABLE
   count[2..0]:	DFF;
BEGIN
   count[].clk=clk1;
   count[].clrn=reset;
   sel[]=count[].q;   

   IF(count[].q>=5) THEN
      count[].d=0;
   ELSE
      count[].d=count[].q+1;
   END IF;
   CASE count[] IS
      WHEN 0 	  => 
					daout[]=sec[3..0];
      WHEN 1 	  =>
					daout3=GND;
					daout[2..0]=sec[6..4];
      WHEN 2 	  => 
					daout[]=min[3..0];
      WHEN 3 	  => 
 					daout3=GND;
					daout[2..0]=min[6..4];
      WHEN 4 	  => 
					daout[]=hour[3..0];
      WHEN OTHERS => 
					daout[3..2]=0;
					daout[1..0]=hour[5..4];
   END CASE;
END;