ТЕМА:

--========================= DATA ENABLE SIGNAL =========================================================================================

--=======================================================================================================================================
LIBRARY IEEE;
USE IEEE.STD_LOGIC_1164.ALL;
USE IEEE.STD_LOGIC_ARITH.ALL;
USE IEEE.STD_LOGIC_UNSIGNED.ALL;
--==========================================================================
ENTITY DATA_ENABLE IS
GENERIC
(
    --================================ ПАРАМЕТРЫ МАТРИЦЫ ==================================== 
    Horis_prd          :INTEGER := 1056;   -- Горизонтальный период
    Horis_active       :INTEGER := 800;    -- Период активных данных горизонтального периода
    Vertical_prd       :INTEGER := 525;    -- Вертикальный период
    Vertical_active    :INTEGER := 480     -- Период активных данных вертикального периода
    --=======================================================================================
);

PORT
(
    data_clk    :IN  STD_LOGIC;              -- Частота данных
    DE_OUT      :OUT STD_LOGIC;             -- Сигнал data enable
    -- BUTTON_22   :IN  STD_LOGIC;
    -- BUTTON_23   :IN  STD_LOGIC;
    RED         :OUT STD_LOGIC;
    GREEN       :OUT STD_LOGIC
);
END DATA_ENABLE;
--==========================================================================
ARCHITECTURE DATA_ENABLE_arc OF DATA_ENABLE IS
    SIGNAL Horisontal_prd_cnt :INTEGER RANGE 0 TO Horis_prd;         -- Счётчик количества пикселей по горизонтали (счётчик горизонтального периода) 
    SIGNAL Vertical_prd_cnt   :INTEGER RANGE 0 TO Vertical_prd-1;    -- Счетчик количества строчек
    SIGNAL DE_hor             :STD_LOGIC;                            -- DE горизонтального периода
    SIGNAL DE_ver             :STD_LOGIC;                            -- DE вертикального периода
BEGIN
    --================================ DE ГОРИЗОНТАЛЬНОГО ПЕРИОДА =======================================================================================
    PROCESS       
    (
        data_clk                                                       
    )        
    BEGIN 
        IF (data_clk = '1' AND data_clk'EVENT) THEN                -- По каждому переднему фронту частоты данных
            IF (Horisontal_prd_cnt >= Horis_prd) THEN              -- Если счетчик горизонтального периода досчитал до своего максимума
                Horisontal_prd_cnt <= 0;                           -- Следеющим тактом сбросим его
            ELSE
                Horisontal_prd_cnt <= Horisontal_prd_cnt + 1;      -- Иначе инкрементируем счетчик каждый такт
            END IF;           
        END IF;
    END PROCESS; 
    
DE_hor <= '1' WHEN (Horisontal_prd_cnt <= Horis_active) ELSE       -- DE_hor = 1 Пока счётчик пикселей меньше или равен периоду активных данных по горизонтали
          '0';                                                     -- Иначе DE = 0 поскольку мы вышли за период активной области
          
--=========================================DE ВЕРТИКАЛЬНОГО ПЕРИОДА ===================================================================================    
    PROCESS
    (
        DE_hor
    )

    BEGIN
        IF (DE_hor = '1' AND DE_hor'EVENT) THEN                    -- Как только произошел перепад  DE_hor с 0 на 1 значит у нас переход на новую строку
            IF (Vertical_prd_cnt = Vertical_prd-1) THEN            -- Если счетчик вертикального периода досчитал до своего максимума
                Vertical_prd_cnt <= 0;                             -- Следеющим тактом сбросим его
            ELSE
                Vertical_prd_cnt <= Vertical_prd_cnt + 1;          -- Иначе инкрементируем счетчик каждый такт
            END IF;
        END IF;
    END PROCESS;
    
DE_ver <= '1' WHEN (Vertical_prd_cnt <= Vertical_active) ELSE      -- DE_ver = 1 Пока счётчик строк меньше или равен периоду активных данных по вертикали
          '0';                                                     -- Иначе DE_ver = 0 поскольку мы вышли за период активной области
          
--==============================ФОРМИРУЕМ СИГНАЛ DE===============================================================================

DE_OUT <= DE_hor AND DE_ver;   

--===========================ВЫВОДИМ ЖЕЛТЫЙ ЦВЕТ НА ЭКРАН ПОКА У НАС АКТИВНЫЙ DE=================================================
RED   <= '1' WHEN ((DE_hor AND DE_ver) = '1') ELSE '0';  
GREEN <= '1' WHEN ((DE_hor AND DE_ver) = '1') ELSE '0';
--===============================================================================================================================
END DATA_ENABLE_arc;