Ііі номер: 083238 Задание Вариант 6

ПО

СТУДЕНТ: ДЕАН ВАЛЕРИЕВ ДЕНЕВ Проверил:

ГРУПА: 29А /гл.ас.инж. Костадинов/

КУРС : ІІІ

НОМЕР: 083238

1. Задание

Да се проектира блок, състоящ се от брояч по модул 9 с паралелни входове и декодер, преобразуващ състоянието на брояча в 7-сегментен код.

а) чрез използване на описание на функционално ниво;

2. Таблици

ВХОДОВЕ ИЗХОДИ

2. VHDL ОПИСАНИЕ НА МОДУЛИТЕ

   1. Филтър

Port ( FilterClk : in STD_LOGIC;

FilterIn : in STD_LOGIC;

FilterOut : out STD_LOGIC);

end Filter;
architecture Behavioral of Filter is

signal FilterCount : std_logic_vector(15 downto 0) := (others => '0');

signal FilterInPrev : std_logic := '1';

constant FILT_CONST : natural := 20000;

process (FilterClk)

begin

if(FilterClk'event and FilterClk = '1') then

end if;

process (FilterClk, FilterIn)

begin

if(FilterClk'event and FilterClk = '1') then

FilterCount <= (others => '0');

else

FilterCount <= FilterCount + 1;

FilterOut <= FilterIn;

end if;

end if;

end process;

end Behavioral;

2. Декодер-Брояч

use IEEE.STD_LOGIC_1164.ALL;

use IEEE.STD_LOGIC_ARITH.ALL;

use IEEE.STD_LOGIC_UNSIGNED.ALL;

Port (Reset : in STD_LOGIC;

Clk : in STD_LOGIC;

Load : in STD_LOGIC;

D : in STD_LOGIC_VECTOR (3 downto 0);

LIGHT : out STD_LOGIC_VECTOR (7 downto 0));

end main;
architecture Behavioral of main is

signal counter: STD_LOGIC_VECTOR ( 3 downto 0);

begin

COUNT:

begin

elsif (Load='0') then Counter<=D;

elsif(Clk'event and Clk='0') then

if counter="1001" then counter<="0000";

else Counter<=Counter+1;

end if;

end process COUNT;

DECODER:

process(counter)

begin

case counter is

when "0001"=>Light<="11111001";

when "0010"=>Light<="10100100";

when "0011"=>Light<="10110000";

when "0100"=>Light<="10011001";

when "0101"=>Light<="10010010";

when "0110"=>Light<="10000010";

when "0111"=>Light<="11111000";

when "1000"=>Light<="10000000";

when "1001"=>Light<="11000000";

when others=>Light<="10011110";

end case;

end process DECODER;

end Behavioral;

3. Схема на Модул+Филтър

2. Подаване на тестов набор ( 0 0 0 0)

tb : PROCESS

BEGIN

Clk <= '0';

Clk <= '1';

wait for 20 ns;

END PROCESS tb;

BEGIN

D <= "0000";

wait for 30 ns;

Load <= '1';

wait for 30 ns;

Reset <= '1';

wait;

END PROCESS tb1;

2. Съдържание на *.ucf файла.

NET "Clk" LOC = "P7" ;

NET "FilterClk" LOC = "P38";

NET "D<0>" LOC = "P142" ;

NET "D<1>" LOC = "P139" ;

NET "D<2>" LOC = "P137" ;

NET "D<3>" LOC = "P135" ;

NET "Light<0>" LOC = "P39" ;

NET "Light<1>" LOC = "P3" ;

NET "Light<2>" LOC = "P35" ;

NET "Light<3>" LOC = "P32" ;

NET "Light<4>" LOC = "P30" ;

NET "Light<5>" LOC = "P26" ;

NET "Light<6>" LOC = "P24" ;

NET "Light<7>" LOC = "P22" ;

NET "Reset" LOC = "P143" ;

NET "FilterClk" LOC = "P38";

NET "Load" LOC = "P5";

2. Резултат от сималуцията