Форум РадиоКот

Код: Выделить всё

----------------------------------------------------------------------------------

----------------------------------------------------------------------------------
library IEEE;
use IEEE.STD_LOGIC_1164.ALL;
use IEEE.std_logic_unsigned.all;



entity Migalka is
   port( Knopka, CLK: in std_logic; -- кнопка и частота
        Led : out std_logic); -- выход на светодиод
end Migalka;

architecture Behavioral of Migalka is
signal counter, Knopka_temp : std_logic_vector(3 downto 0):= (others => '0');
signal Led_temp,  res : std_logic := '0'; -- сигнал состояния кнопки

begin

--  count : process(Knopka) -- процесс проверки состояния кнопки
--  begin
--    Knopka_temp<=(others => '0');
--    if (Knopka='1') then Knopka_temp<=Knopka_temp+1;
--    else Knopka_temp<=Knopka_temp+10;
--    end if;
--    
--  end process;
  
  count1 : process(CLK,res) -- первый процесс счетчика
  begin
    if(res = '1') then -- обнуляем счетчик, когда res = 1, как видно сброс асинхронный
      counter <= (others => '0');
    elsif(rising_edge(CLK)) then -- здесь ждем фронта сигнала и увеличиваем на единицу значение в счетчике, если будет фронт
      counter <= counter +1;
    end if;
    
--    Knopka_temp<=(others => '0');
--    if (Knopka='1') then Knopka_temp<=Knopka_temp+1;
--    elsif (Knopka='0') then Knopka_temp<=Knopka_temp+10;
--    end if;
    
  end process;
  
  L : process(counter)
  begin
  
    Knopka_temp<=(others => '0');
    if (Knopka='1') then Knopka_temp<=Knopka_temp+1;
    elsif (Knopka='0') then Knopka_temp<=Knopka_temp+20;
    end if;
    
    if(counter = Knopka_temp) then -- проверяем достижения 'Knopka_temp' тактов
      res <= '1'; -- если достигли ставим сигнал сброса
      LED_temp <= not LED_temp; -- меняем значение в выдаваемого на светодиод, здесь как раз хорошо видно для чего нужен триггер
--( это реализуется на триггере, мы помним предыдущее значение и его изменяем)
    else
      res <= '0'; -- если еще не досчитали до 'Knopka_temp' подтверждаем отсутствие сброса
    end if;
  end process;
  

Led <= Led_temp; -- вот тут передаем значения из триггера на выход


end Behavioral;

Код: Выделить всё

  L : process(counter)
  begin
 
    Knopka_temp<=(others => '0');
    if (Knopka='1') then Knopka_temp<=1;
    elsif (Knopka='0') then Knopka_temp<=20;
    end if;

Код: Выделить всё

 L : process(counter)
  begin

    Knopka_temp<=(others => '0');
    if (Knopka='1') then Knopka_temp<=1;
    elsif (Knopka='0') then Knopka_temp<=20;
    end if;

Код: Выделить всё

library IEEE;
use IEEE.STD_LOGIC_1164.ALL;
use IEEE.STD_LOGIC_ARITH.ALL;
use IEEE.STD_LOGIC_UNSIGNED.ALL;

entity test1 is
    Port ( clk : in  STD_LOGIC;
           knopka : in  STD_LOGIC;
           led : out  STD_LOGIC);
end test1;

architecture Behavioral of test1 is
signal counter : STD_LOGIC_VECTOR (3 downto 0) := (others=>'0'); -- счетчик
signal limit : STD_LOGIC_VECTOR (3 downto 0); -- переменная хранящая значение до скольки считать
signal led_status : STD_LOGIC := '0'; -- триггер светодиода
signal knopka_prev : STD_LOGIC := '0'; -- триггер запоминающий предыдущее состояние кнопки

begin
-- в зависимости от состояния кнопки загружается 0 или 9
limit <= conv_std_logic_vector(0,4) when knopka = '1' else conv_std_logic_vector(9,4);

process(clk)
begin
	if (clk'event and clk='1') then  -- по каждому фронту 
		counter <= counter + 1;  -- увеличиваем счетчик
		if knopka = not knopka_prev then   -- если обнаружено изменение состояния кнопки
			knopka_prev <= knopka; -- запоминаем новое и
			counter <= (others=>'0'); -- сбрасываем счетчик. Заодно
			led_status <= not led_status; -- меняем статус светодиода, чтобы предыдущий
                                                            -- период не суммировался со следующим
		end if;
		if (counter = limit) then    -- если досчитали до нужного числа
			counter <= (others=>'0'); -- сбрасываем счетчик и 
			led_status <= not led_status; -- меняем состояние светодиода
		end if;
	end if;
end process;
-- вот и всё.
led <= led_status;

end Behavioral;

Код: Выделить всё

entity EncoderFromRadiokot is
    Port ( clk : in  STD_LOGIC;
           knopka : in  STD_LOGIC_VECTOR ( 1 downto 0);
           led : out  STD_LOGIC);
end EncoderFromRadiokot;

architecture Behavioral of EncoderFromRadiokot is
signal counter : STD_LOGIC_VECTOR (3 downto 0) := (others=>'0'); -- счетчик
signal limit : STD_LOGIC_VECTOR (3 downto 0); -- переменная хранящая значение до скольки считать
signal led_status : STD_LOGIC := '0'; -- триггер светодиода
signal knopka_prev : STD_LOGIC_VECTOR (1 downto 0) := "00"; -- триггер запоминающий предыдущее состояние переключателя

begin
-- в зависимости от состояния переключателя загружается 0, 3, 6 или 9
limit <= conv_std_logic_vector(0,4) when knopka = "00" 
	 else conv_std_logic_vector(3,4) when knopka = "10"
	 else conv_std_logic_vector(6,4) when knopka = "01"
	 else conv_std_logic_vector(9,4) when knopka = "11";