library IEEE;

use IEEE.STD_LOGIC_1164.ALL;

use ieee.numeric_std.all;

use ieee.std_logic_arith.all;

-- Uncomment the following library declaration if using

-- arithmetic functions with Signed or Unsigned values

--use IEEE.NUMERIC_STD.ALL;

-- Uncomment the following library declaration if instantiating

-- any Xilinx primitives in this code.

--library UNISIM;

--use UNISIM.VComponents.all;

entity leds2_8 is

GENERIC (n:positive := 2**22);

    Port ( clkin : in  STD_LOGIC;

           clkout : out  STD_LOGIC;

           leds : out  STD_LOGIC_VECTOR (7 downto 0));

end leds2_8;

architecture Behavioral of leds2_8 is 

begin

PROCESS (clkin)

VARIABLE count: INTEGER RANGE 0 to n;

variable counter : integer range 0 to 255;

BEGIN

IF(clkin'EVENT AND clkin='1') THEN

count :=count + 1;

IF(count=n/2) THEN

clkout <='1';

ELSIF (count=n) THEN

clkout <='0';

count :=0;

counter :=counter+1;

leds <=conv_std_logic_vector(counter,8);

END IF;

END IF;

END PROCESS;

end  Behavioral;

library IEEE;

use IEEE.STD_LOGIC_1164.ALL;

use ieee.numeric_std.all;

--use ieee.std_logic_arith.all;     -- it is a stupid idea to include both arithmetic libraries!

entity leds2_8 is

  GENERIC (n:positive := 2**22);    -- define n as a very big number

    Port ( clkin : in  STD_LOGIC;   -- clkin i the oscillator input

           clkout : out  STD_LOGIC; -- read my comments to this signal down a few lines

           leds : out  STD_LOGIC_VECTOR (7 downto 0)); -- the led pins

end leds2_8;

architecture Behavioral of leds2_8 is 

begin

  PROCESS (clkin)      -- this process is sensitive to the clkin signal

  VARIABLE count: INTEGER RANGE 0 to n := 0;      -- why the heck does everybody use variables nowadays?

  variable counter : integer range 0 to 255 := 0; -- at least the variables MUST be initialized!

                                                  -- otherwise the simulation will not work!

  BEGIN

    IF(clkin'EVENT AND clkin='1') THEN  -- you could use the rising_edge() insted

      count :=count + 1;                -- count up the prescaler every clock

      IF(count=n/2) THEN                -- here comes a way to get fired immediately: if you present me a clock

        clkout <='1';                   -- generated this way you will work somewhere else next day!

                                        -- clocks are generated with clock managers on a FPGA!

      ELSIF (count=n) THEN              -- ok, lets go on. here the prescaler reaches its end value

        clkout <='0';                   

        count :=0;                      -- reset the prescaler-counter

        counter :=counter+1;            -- and increment the led-counter

        leds <=conv_std_logic_vector(counter,8); -- transfer the led counter to the leds

      END IF;

    END IF;

  END PROCESS;

end  Behavioral;