1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
|
library ieee;
use ieee.std_logic_1164.all;
use ieee.numeric_std.all;
entity counter8 is
port (clk : in std_logic;
led0, led1, led2, led3, led4, led5, led6, led7 : out std_logic);
end counter8;
architecture synth of counter8 is
signal clk_6hz : std_logic;
begin
-- Presscaler
prescaler: process(clk)
variable timer : unsigned (20 downto 0):=(others=>'0');
begin
if rising_edge(clk) then
timer := timer + 1;
clk_6hz <= timer(20);
end if;
end process;
-- 8 bits counter
process (clk_6hz)
variable temp : unsigned (7 downto 0);
begin
if rising_edge(clk_6hz) then
temp:= temp + 1;
-- Show the counter on the icezum Alhambra leds
(led7, led6, led5, led4, led3, led2, led1, led0) <= temp;
end if;
end process;
end synth;
|
