ТЕМА:

-- --========================= 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

PORT
(
    data_clk    :IN  STD_LOGIC;       -- Частота данных       
    button22    :IN  STD_LOGIC;       -- Кнопка 22 платы МАРСОХОД
    button23    :IN  STD_LOGIC;       -- Кнопка 23 платы МАРСОХОД
    red         :OUT STD_LOGIC;       -- Красный цвет линия IN0
    green       :OUT STD_LOGIC;       -- Зеленый цвет линия IN1
    DE_OUT      :OUT STD_LOGIC        -- Сигнал DATA ENABLE линия IN2      
);
END DATA_ENABLE;
--==========================================================================
ARCHITECTURE DATA_ENABLE_arc OF DATA_ENABLE IS
    SIGNAL HCNT :INTEGER RANGE 0 TO 999;       -- Счётчик пикселей по горизонтали
    SIGNAL VCNT :INTEGER RANGE 0 TO 520;       -- Счетчик строк
BEGIN
--================================СЧИТАЕМ СКОЛЬКО РАЗ ПРИШЕЛ data_clk для формирования сигнала DATA_ENABLE ====================
    PROCESS
    (
        data_clk
    )
    BEGIN
        IF (data_clk'EVENT AND data_clk = '1') THEN  -- По каждому переднему фронту частоты данных
            IF (HCNT = 999) THEN                     -- Если счетчик пикселей досчитал до конца
                HCNT <= 0;                           -- Следеющим фронтом частоты данных он начнет считать сначала
            ELSE   
                HCNT <= HCNT + 1;                    -- Иначе инкрементируем счетчик по каждому переднему фронту
            END IF;
            
            IF (HCNT = 999) THEN                     -- Если счетчик пикселей досчитал до конца
                IF (VCNT = 520) THEN                 -- И если счетчик строк досчитал до конца
                    VCNT <= 0;                       -- Следеющим тактом сбросим счетчик 
                ELSE
                    VCNT <= VCNT + 1;                -- Иначе инкрементируем счетчик
                END IF;
            END IF;
        END IF;
    END PROCESS;
--================================ФОРМИРУЕМ СИГНАЛ DATA_ENABLE======================================   
    PROCESS
    (
        data_clk
    )
    BEGIN
        IF (data_clk'EVENT AND data_clk = '1') THEN  -- По каждому переднему фронту
            IF ((VCNT < 40) OR (HCNT < 199)) THEN    -- Если у нас счетчик строк или счетчик пикселей не досчитали до видимой области
                DE_OUT <= '0';                       -- сигнал DATA_ENABLE не формиурем
            ELSE
                DE_OUT <= '1';                       -- Если же они досчитали до видимой области то формируем сигнал DATA_ENABLE
            END IF;
        END IF;
    END PROCESS;
    
--==================ФОРМИРУЕМ ЦВЕТА, ОТПРАВЛЯЕМЫЕ НА МАТРЦУ ==========================================================================
red    <= '1' WHEN (button23 = '0') ELSE             -- Пока нажата 23 кнопка то на матрицу по линии IN0 отправляем красный цвет 
          '0';                                       -- Иначе ничего не отправляем
green  <= '1' WHEN (button22 = '0') ELSE             -- Пока нажата 22 кнопка то на матрицу по линии IN1 отправляем зеленый цвет 
          '0';                                       -- Иначе ничего не отправляем
END DATA_ENABLE_arc;