Перейти к содержанию
Поиск
    

Устройство мигания светодиодов (VHDL)

lyzifer    0

lyzifer
Опубликовано (изменено) · Жалоба
Все, что нужно - завести дополнительный сигнал, например, signal ce : std_logic := '0'; и по каждому нажатию на кнопку делать ce <= not(ce); Можно, например, phase в нуле "заморозить".

Видимо,я пока слишком туп((

library ieee;
  use ieee.std_logic_1164.all;
  use ieee.numeric_std.all;

entity test_led is 
  generic (
    p_TD      : time    := 1 ns;
    p_CNT_LIM : integer := 5000000-1                       
  );
  port (
    clk : in  std_logic;
    --btn : in  std_logic; --кнопка
    led : out std_logic_vector(7 downto 0)
  );
end test_led;

architecture rtl of test_led is 
  signal div_cnt_u : unsigned(22 downto 0)        := (others => '0');
  signal phase     : std_logic                    := '1';
  signal btn_ce    : std_logic                    := '0'; --сигнал при нажатии кнопки
  signal led_reg   : std_logic_vector(7 downto 0) := (0 => '1', others => '0');
begin

counter_control_p: process(clk)
  begin
    if (rising_edge(clk)) then
      if (div_cnt_u < p_CNT_LIM) then
        div_cnt_u <= div_cnt_u + 1 after p_TD;
      else 
        div_cnt_u <= (others => '0');
      end if;
    else 
      NULL;
    end if;
  end process; 

phase_control_p: process(clk)
  begin
    if (rising_edge(clk)) then
      if (div_cnt_u = p_CNT_LIM) then
        phase <= not(phase) after p_TD;
      else 
        NULL;
      end if;
    else 
      NULL;
    end if;
  end process; --phase_control_p

led_reg_control_p: process(clk)
  begin
    if (rising_edge(clk)) then
      if (div_cnt_u = p_CNT_LIM) then
        if (phase = '1') then
          led_reg <= led_reg(6 downto 0) & led_reg(7) after p_TD;
          NULL;
        end if;
      else 
        NULL;
      end if;
    else 
      NULL;
    end if;
  end process; --led_reg_control_p
  
btn_control: process(clk) -- нажатия кнопки
  begin
   if (btn_ce = '1') then
       btn_ce <= not(btn_ce)
       phase <= (others => '0');
       else
       phase <= '1';
   end if;
  end process;
  
out_form_logic_p: process(phase)
  begin
    if (phase = '0') then
      led <= (others => '0');
    else 
      led <= led_reg;
    end if;
  end process; --out_form_logic_p

end rtl;

Изменено пользователем lyzifer

Поделиться сообщением

Ссылка на сообщение
Поделиться на другие сайты

Tausinov    0

Tausinov
Опубликовано (изменено) · Жалоба

Как-то так, например.

Тестбенч :

library ieee;
   use ieee.std_logic_1164.all;

entity test_led_tb is 
   generic (
      p_TD    : time := 1 ns;
      p_CLK_T : time := 4 ns
   );
end test_led_tb;

architecture behav of test_led_tb is 
   signal clk : std_logic                    := '0';
   signal sw  : std_logic                    := '0';
   signal led : std_logic_vector(3 downto 0);

   component test_led is 
     generic (
       p_TD      : time    := 1 ns;
       p_CNT_LIM : integer := 1000 - 1
     );
     port (
       clk : in  std_logic;
       sw  : in  std_logic;
       led : out std_logic_vector(3 downto 0)
     );
   end component;
begin
  clk_gen_p : process
  begin
    clk <= not(clk);
    wait for p_CLK_T / 2;
  end process;

  sw <= '1' after 100 us, '0' after 101 us, '1' after 200 us;

  UUT : test_led
    generic map (
      p_TD => p_TD
    )
    port map (
      clk => clk,
      sw  => sw,
      led => led
    );

end behav;

Дизайн:

library ieee;
  use ieee.std_logic_1164.all;
  use ieee.numeric_std.all;

entity test_led is 
  generic (
    p_TD      : time    := 1 ns;
    p_CNT_LIM : integer := 32768 - 1
  );
  port (
    clk : in  std_logic;
    sw  : in  std_logic;
    led : out std_logic_vector(3 downto 0)
  );
end test_led;

architecture rtl of test_led is 
  type on_off_state is (OFF, ONN);
  signal led_state  : on_off_state                 := OFF;

  signal div_cnt_u  : unsigned(31 downto 0)        := (others => '0');

  signal phase      : std_logic                    := '1';
  signal sw_sync_re : std_logic                    := '0';
  signal sw_reg     : std_logic_vector(2 downto 0);
  signal led_reg    : std_logic_vector(3 downto 0) := (0 => '1', others => '0');
begin

  resync_sw_p : process(clk)
  begin
    if (rising_edge(clk)) then
      sw_reg(0)          <= sw                 after p_TD;
      sw_reg(2 downto 1) <= sw_reg(1 downto 0) after p_TD;
    else 
      NULL;
    end if;
  end process; --resync_sw_p

  sw_sync_re <= sw_reg(1) and not(sw_reg(2));

  scheme_state_control_p : process(clk)
  begin
    if (rising_edge(clk)) then
      if (sw_sync_re = '1') then
        if (led_state = ONN) then
          led_state <= OFF after p_TD;
        else 
          led_state <= ONN after p_TD;
        end if;
      else 
        NULL;
      end if;
    else 
      NULL;
    end if;
  end process; --scheme_state_control_p

  counter_control_p : process(clk)
  begin
    if (rising_edge(clk)) then
      if (div_cnt_u < p_CNT_LIM) then
        div_cnt_u <= div_cnt_u + 1 after p_TD;
      else 
        div_cnt_u <= (others => '0');
      end if;
    else 
      NULL;
    end if;
  end process; 

  phase_control_p : process(clk)
  begin
    if (rising_edge(clk)) then
      if (div_cnt_u = p_CNT_LIM) then
        if (phase = '0') then
          if (led_state = ONN) then
            phase <= '1' after p_TD;
          else 
            phase <= '0' after p_TD;
          end if;
        else 
          phase <= '0' after p_TD;
        end if;
      else 
        NULL;
      end if;
    else 
      NULL;
    end if;
  end process; --phase_control_p

  led_reg_control_p : process(clk)
  begin
    if (rising_edge(clk)) then
      if (div_cnt_u = p_CNT_LIM) then
        if (phase = '1') then
          led_reg <= led_reg(2 downto 0) & led_reg(3) after p_TD;
        else 
          NULL;
        end if;
      else 
        NULL;
      end if;
    else 
      NULL;
    end if;
  end process; --led_reg_control_p

  out_form_logic_p : process(phase)
  begin
    if (phase = '0') then
      led <= (others => '0');
    else 
      led <= led_reg;
    end if;
  end process; --out_form_logic_p

end rtl;

 

Пы.Сы ONN вместо ON, потому что ON - зарезервированное слово.

 

Пы.Пы.Сы. Научите код под спойлер убирать(

Изменено пользователем Tausinov

Поделиться сообщением

Ссылка на сообщение
Поделиться на другие сайты

lyzifer    0

lyzifer
Опубликовано · Жалоба

Блин,я наверное,уже задолбал, (( :crying:

но походу "замораживать фазу" не лучшая идея,т.к моделирование показывает вообще не тот результат.

 

ПРИ ТАКИХ ПАРАМЕТРАХ:

sw <= '0' after 0 ms, '1' after 3000  ms, '0' after 6000 ms, '1'after 10000 ms;

image.jpg

 

а вот так должна выглядеть времянка. т.е. до 3 сек. кнопка не нажата и светодиоды не мигают. на 3 секунде я нажал кнопку и светодиодымигают до 6 сек. потом я опять нажал кнопку и светодиоды потухли. И Т.Д.

IMG_20170718_161546.jpg

 

 

 

 

 

Поделиться сообщением

Ссылка на сообщение
Поделиться на другие сайты

iosifk    3

iosifk
Опубликовано · Жалоба
Блин,я наверное,уже задолбал, (( :crying:

 

И не лень Вам упираться рогом??? Как говорил классик: "Не тем путем идете, товарищ"!

Два раза уже объяснил как делать проще.

Предлагал свою помощь... А Вам видно лень переделывать... Или может цель в том, чтобы троллить? Кто бы другой уже давно бы включил скайп...

 

Поделиться сообщением

Ссылка на сообщение
Поделиться на другие сайты

lyzifer    0

lyzifer
Опубликовано · Жалоба
Два раза уже объяснил как делать проще.

Предлагал свою помощь... А Вам видно лень переделывать... Или может цель в том, чтобы троллить? Кто бы другой уже давно бы включил скайп...

Я ПОНИМАЮ,ВЫГЛЯДИТ ОЧЕНЬ ТУПО. :wacko:

прост,я хочу этот проект,так сказать, модифицировать.Я VHDL изучаю всего месяц от силы.

но троллинга тут нет НИКАКОГО.просто я действительно до такой степень тупой (надеюсь это временно)

Поделиться сообщением

Ссылка на сообщение
Поделиться на другие сайты

Tausinov    0

Tausinov
Опубликовано · Жалоба

Один из диодов в начале горит, т.к. регистр инициализирован 1. Это все можно поправить. А по поводу моментов моргания...

но теперь к ней нужно добавить кнопку так, чтобы когда нажал один раз,светодиоды загорались и тухли ,как и в предыдущем проекте, а при повторном нажатии светодиоды должны прекратить светиться до тех пор, пока я опять не нажму кнопку

 

Поделиться сообщением

Ссылка на сообщение
Поделиться на другие сайты

lyzifer    0

lyzifer
Опубликовано · Жалоба
Один из диодов в начале горит, т.к. регистр инициализирован 1. Это все можно поправить.

т.е если я буду инициализировать регистр в 0, то ,по идее, система должна заработать как надо?

Поделиться сообщением

Ссылка на сообщение
Поделиться на другие сайты

1891ВМ12Я    0

1891ВМ12Я
Опубликовано · Жалоба

Я не выдержал, моё решение (сам модуль примерно 25 не пустых строк):

`timescale 1ns / 1ps

//----- top module

module led_blink(
input clock,
input sw,
output reg [3:0] led
);

initial led = 0;
reg [3:0] state;
initial state = 4'b1000;

reg on1off0;
initial on1off0 = 1;

reg [23:0] divider;
initial divider = 0;
always @(posedge clock) begin
    if(divider < 499999) divider <= divider + 1;
    else begin
        divider <= 0;
        if(sw) begin
            on1off0 <= !on1off0;
            if(on1off0) begin
                state <= {state[0], state[3:1]};
                led <= state;
            end else led <= 0;
        end else begin
            on1off0 <= 1;
            led <= 0;
        end
    end
end

endmodule

//----- testbench

module testbench();

    reg clock1m; // 1 MHz
    initial clock1m = 0;
    always clock1m = #500 !clock1m;

    reg sw;
    wire [3:0] leds;

    led_blink uut(
    .clock(clock1m),
    .led(leds),
    .sw(sw));
    
    initial begin
        sw = 0;
        
        #999999000;
        #1000000000;
        #1000000000;
        
        sw = 1;
        
        #1000000000;
        #1000000000;
        #1000000000;
        
        sw = 0;
        
        #1000000000;
        #1000000000;
        #1000000000;
        #1000000000;
        
        sw = 1;
        
        #1000000000;
        #1000000000;
        #1000000000;
        #1000000000;
        #1000000000;
        
        sw = 0;
        
        #1000000000;
        #1000000000;
        #1000000000;
        
        $stop;
    end

endmodule

 

post-10008-1500407689_thumb.png

Поделиться сообщением

Ссылка на сообщение
Поделиться на другие сайты

lyzifer    0

lyzifer
Опубликовано · Жалоба
Я не выдержал, моё решение (сам модуль примерно 25 не пустых строк):

Спасибо,конечно))но принципиально важно реализовать этот проект на VHDL. (так от меня требуют)

Поделиться сообщением

Ссылка на сообщение
Поделиться на другие сайты

Tausinov    0

Tausinov
Опубликовано · Жалоба

Так осталось просто тоже самое переписать на VHDL. Тут каких-то принципиально отличных конструкций нет, переносится без проблем.

Поделиться сообщением

Ссылка на сообщение
Поделиться на другие сайты

lyzifer    0

lyzifer
Опубликовано · Жалоба
Так осталось просто тоже самое переписать на VHDL. Тут каких-то принципиально отличных конструкций нет, переносится без проблем.

ага, для меня Верилог это вообще набор иероглифов :biggrin:

 

Поделиться сообщением

Ссылка на сообщение
Поделиться на другие сайты

Tausinov    0

Tausinov
Опубликовано · Жалоба 

library ieee;
  use ieee.std_logic_1164.all;
  use ieee.numeric_std.all;

entity led_blink is 
  port (
    clk : in  std_logic;
    sw  : in  std_logic; 
    led : out std_logic_vector(3 downto 0)
  );
end led_blink;

architecture rtl of led_blink is 
  signal on1off0 : std_logic                    := '1';
  signal state   : std_logic_vector(3 downto 0) := "0001";
  signal divider : unsigned(23 downto 0)        := (others => '0');
begin
  main_p : process(clk)
  begin
    if (rising_edge(clk)) then
      if (divider < 200) then
        divider <= divider + 1;
      else 
        divider <= (others => '0');
        if (sw = '1') then
          on1off0 <= not(on1off0);
          if (on1off0 = '1') then
            state <= state(2 downto 0) & state(3);
            led   <= state;
          else 
            led   <= (others => '0');
          end if;
        else 
          on1off0 <= '1';
          led     <= (others => '0');
        end if;
      end if;
    end if;
  end process;
end rtl;

 

Тоже самое на vhdl, больше лишь на пару строк.

Все же, если будет запуск на реальном железе, нужны анти-дребезг и перетактирование сигнала с кнопки.

 

Поделиться сообщением

Ссылка на сообщение
Поделиться на другие сайты
Гость
Эта тема закрыта для публикации ответов.
×
×
  • Создать...