LIBRARY IEEE;
USE IEEE.STD_LOGIC_1164.ALL;
USE IEEE.STD_LOGIC_ARITH.ALL;
USE IEEE.STD_LOGIC_UNSIGNED.ALL;
ENTITY DIV IS
PORT(CLK: IN STD_LOGIC;
CLK1: OUT STD_LOGIC);
END ENTITY ;
architecture one of div is
begin
process(clk )
variable cnt: integer range 0 to 10000:0;
begin
if clk'event and clk='1'then
if cnt=9999 then
cnt:=0;
else cnt:=cnt+1;
end if;
if cnt<=4999 then
clk1<='1';
else
clk1<='0';
end if ;
end if;
end process ;
end one ;