LIBRARY IEEE;
USE IEEE.STD_LOGIC_1164.ALL;    		--測頻控制信號發生器
USE IEEE.STD_LOGIC_UNSIGNED.ALL;
ENTITY TESTCTL IS 
    PORT (CLKIN:IN STD_LOGIC;    		--1 Hz測頻控制時鐘
          TSTEN:OUT STD_LOGIC;    	--計數器時鐘使能
          CLR_CNT:OUT STD_LOGIC;    	--計數器清零
          LOAD:OUT STD_LOGIC);    	--輸出鎖存信號
END TESTCTL; 
 ARCHITECTURE ART OF TESTCTL IS 
     SIGNAL DIV2CLK :STD_LOGIC;
     SIGNAL CLK2    : STD_LOGIC;
     SIGNAL COUNT_SIGNAL1 :INTEGER RANGE 1 TO 200000000;
     BEGIN

PROCESS(CLKIN)
    BEGIN
       IF(CLKIN'EVENT AND CLKIN='1') THEN
         IF COUNT_SIGNAL1 =20000000 THEN  --40MHZ時鐘分為1HZ
              COUNT_SIGNAL1 <= 1 ;
               CLK2<= NOT CLK2 ;
                 ELSE
                   COUNT_SIGNAL1<=COUNT_SIGNAL1+1;
              END IF;
             END IF;
           END PROCESS;

PROCESS ( CLKIN )
BEGIN
IF  CLK2'EVENT AND CLK2= '1' THEN     		--1 Hz時鐘二分頻
     Div2CLK<=NOT Div2CLK;
  END IF ;
END PROCESS; 
 PROCESS ( CLK2,Div2CLK )
BEGIN 
     IF CLK2= '0' AND Div2CLK = '0' THEN         	--產生計數器清零信號
     CLR_CNT<= '1';
     ELSE CLR_CNT<= '0' ;    
   END IF;
  END PROCESS;
  LOAD<=NOT Div2CLK;  
  TSTEN<=Div2CLK;
END ART;