ПЦУСБ/Лекция 4

library ieee;
use ieee.std_logic_1164.all;
 
entity tb is
 
end tb;
 
architecture beh of tb is
 
  component automat
    port (
      x   : in  std_logic_vector(2 downto 1);
      rst : in  std_logic;
      clk : in  std_logic;
      y   : out std_logic_vector(1 downto 0));
  end component;
  signal x   : std_logic_vector(2 downto 1);
  signal rst : std_logic;
  signal clk : std_logic := '0';
  signal y   : std_logic_vector(1 downto 0);
 
begin  -- beh
 
  automat_1: automat
    port map (
      x   => x,
      rst => rst,
      clk => clk,
      y   => y);
 
  clk <= not clk after 10 ns;
  rst <= '1', '0' after 30 ns,
         '1' after 400 ns, '0' after 405 ns;
 
  process
  begin  -- process
 
    x <= "00";
    wait for 55 ns;
    x <= "01";
    wait for 20 ns;
    x <= "01";
    wait for 20 ns;
    x <= "01";
    wait for 20 ns;
    x <= "01";
    wait for 40 ns;
    x <= "10";
    wait for 40 ns;
    x <= "11";
    wait for 40 ns;
    x <= "10";
    wait for 40 ns;
    x <= "01";
    wait;
  end process;
 
end beh;

  signal EscPress_i0 : std_logic;
  signal EscPress_i1 : std_logic;
  signal EscPress_i  : std_logic;
  signal EscPress    : std_logic;
 
begin  -- architecture beh
 
  -- обработка нажатия клавиш
  trig: process (clk, rst) is
  begin  -- process trig
    if rst = '1' then
 
      -- асинхронный сброс
      EscPress <= '0';
      EscPress_i0 <= '0';
      EscPress_i1 <= '0';
 
    elsif clk'event and clk = '1' then  -- rising clock edge
 
      EscPress_i1 <= Esc;
      EscPress_i0 <= EscPress_i1;
      EscPress <= EscPress_i;
 
    end if;
  end process trig;
 
  EscPress_i <= EscPress_i1 and not EscPress_i0;

  InputCodePress <=
    '0' when KeyCode = "1111" else
    '1';
 
  p_KeyCode: process (clk, rst) is
  begin
    if rst = '1' then
      KeyCode <= "1111";
    elsif clk'event and clk = '1' then  -- rising clock edge
      KeyCode <= KeyCode_i;
    end if;
  end process p_KeyCode;
 
  KeyCode_i <=
    "0000" when DigitalKey(0) = '1' else
    "0001" when DigitalKey(1) = '1' else
    "0010" when DigitalKey(2) = '1' else
    "0011" when DigitalKey(3) = '1' else
    "0100" when DigitalKey(4) = '1' else
    "0101" when DigitalKey(5) = '1' else
    "0110" when DigitalKey(6) = '1' else
    "0111" when DigitalKey(7) = '1' else
    "1000" when DigitalKey(8) = '1' else
    "1001" when DigitalKey(9) = '1' else
    "1111";

  signal KeyCode_i, KeyCode : std_logic_vector(3 downto 0);
  type STATE_TYPE is (
    Start
    , InputPassword1
    , InputPassword2
    , InputPasswordCompare
    , OpenAccess
    , InputPasswordNotCompared
    );
  signal state, next_state : STATE_TYPE;
 
  type WORD_TYPE is array (1 to 3) of std_logic_vector(3 downto 0);
  signal Password  :  WORD_TYPE := ("0001", "0010", "0011");
  signal InputCode :  WORD_TYPE;
 
begin
 
  p2: process (clk, rst) is
  begin
    if rst = '1' then
      InputCode <= ("0000", "0000", "0000");
    elsif clk'event and clk = '1' then  -- rising clock edge
 
      if state = Start then
        if DigitalKeyPress = '1' then
          InputCode(1) <= KeyCode;
        end if;
      elsif state = InputPassword1 then
        if DigitalKeyPress = '1' then
          InputCode(2) <= KeyCode;
        end if;
      elsif state = InputPassword2 then
        if DigitalKeyPress = '1' then
          InputCode(3) <= KeyCode;
        end if;
      else
        InputCode <= ("0000", "0000", "0000");
      end if;
    end if;
  end process p2;

library ieee;
use ieee.std_logic_1164.all;
use ieee.numeric_std.all;
 
--entity block1 is
 
--  port (
--    SetPassword : in  std_logic;
--    DigitalKey  : in  std_logic_vector(9 downto 0);
--    Esc         : in  std_logic;
--    clk         : in  std_logic;        -- синхросигнал 25 МГц
--    rst         : in  std_logic;
--    LedOpen     : out std_logic;
--    Speaker     : out std_logic);
 
--end entity block1;
 
architecture beh2 of block1 is
 
  signal count : unsigned(12 downto 0);
  signal KeyCode_i, KeyCode : std_logic_vector(3 downto 0);
  type STATE_TYPE is (
    Start
    , InputPassword1
    , InputPassword2
    , InputPasswordCompare
    , OpenAccess
    , InputPasswordNotCompared
    );
  signal state, next_state : STATE_TYPE;
 
  type WORD_TYPE is array (1 to 3) of std_logic_vector(3 downto 0);
  signal Password  :  WORD_TYPE := ("0001", "0010", "0011");
  signal InputCode :  WORD_TYPE;
  signal Delay05s, Delay3s, Delay5s :  boolean;
 
  signal InputCodePress    : std_logic;
  signal InputCodePress_i0 : std_logic;
  signal InputCodePress_i1 : std_logic;
  signal InputCodePress_i  : std_logic;
  signal DigitalKeyPress   : std_logic;
 
  signal SetPasswordPress_i0 : std_logic;
  signal SetPasswordPress_i1 : std_logic;
  signal SetPasswordPress_i  : std_logic;
  signal SetPasswordPress    : std_logic;
 
  signal EscPress_i0 : std_logic;
  signal EscPress_i1 : std_logic;
  signal EscPress_i  : std_logic;
  signal EscPress    : std_logic;
 
begin  -- architecture beh
 
  -- обработка нажатия клавиш
  trig: process (clk, rst) is
  begin  -- process trig
    if rst = '1' then
      -- асинхронный сброс
 
      EscPress <= '0';
      EscPress_i0 <= '0';
      EscPress_i1 <= '0';
 
      SetPasswordPress <= '0';
      SetPasswordPress_i0 <= '0';
      SetPasswordPress_i1 <= '0';
 
      DigitalKeyPress <= '0';
      InputCodePress_i0 <= '0';
      InputCodePress_i1 <= '0';
 
    elsif clk'event and clk = '1' then  -- rising clock edge
 
      InputCodePress_i1 <= InputCodePress;
      InputCodePress_i0 <= InputCodePress_i1;
      DigitalKeyPress <= InputCodePress_i;
 
      EscPress_i1 <= Esc;
      EscPress_i0 <= EscPress_i1;
      EscPress <= EscPress_i;
 
      SetPasswordPress_i1 <= SetPassword;
      SetPasswordPress_i0 <= SetPasswordPress_i1;
      SetPasswordPress <= SetPasswordPress_i;
 
    end if;
  end process trig;
 
  SetPasswordPress_i <= SetPasswordPress_i1 and not SetPasswordPress_i0 ;
  EscPress_i <= EscPress_i1 and not EscPress_i0;
  InputCodePress_i <= InputCodePress_i1 and not InputCodePress_i0;
 
  -- описание счетчика для отсчета времени
  p_count: process (clk, rst) is
  begin  -- process p_count
    if rst = '1' then 
      count <= (others => '0');
    elsif clk'event and clk = '1' then  -- rising clock edge
      if EscPress = '1' or SetPasswordPress = '1' or DigitalKeyPress = '1' or Delay5s then
        count <= (others => '0');
      else
        count <= count + 1;
      end if;
    end if;
  end process p_count;
 
  Delay05s <= (count = 500);            -- отсчет 0.5 с
  Delay3s  <= (count = 3000);           -- отсчет 3 с
  Delay5s  <= (count = 5000);           -- отсчет 5 с
 
  p_state: process (clk, rst) is
  begin
    if rst = '1' then
      state <= Start;
    elsif clk'event and clk = '1' then  -- rising clock edge
      state <= next_state;
    end if;
  end process p_state;
 
  p_next_state: process (state, EscPress, SetPasswordPress, DigitalKeyPress, Delay5s, Delay3s, Delay05s) is
  begin
    case state is
 
      when Start =>
 
        if DigitalKeyPress = '1' then
          next_state <= InputPassword1;
        else
          next_state <= Start;
        end if;
 
      when InputPassword1 =>
 
        if DigitalKeyPress = '1' then
          next_state <= InputPassword2;
        elsif EscPress = '1' or Delay5s then
          next_state <= Start;
        else
          next_state <= InputPassword1;
        end if;
 
      when InputPassword2 =>
 
        if DigitalKeyPress = '1' then
          next_state <= InputPasswordCompare;
        elsif EscPress = '1' or Delay5s then
          next_state <= Start;
        else
          next_state <= InputPassword2;
        end if;
 
      when InputPasswordCompare =>
 
        if InputCode = Password then
          next_state <= OpenAccess;
        else
          next_state <= InputPasswordNotCompared;
        end if;
 
      when OpenAccess =>
 
        if Delay3s then
          next_state <= Start;
        end if;
 
      when InputPasswordNotCompared =>
 
        if Delay05s then
          next_state <= Start;
        end if;
 
      when others =>
        next_state <= Start;
    end case;
  end process p_next_state;
 
  LedOpen <=
    '1' when state = OpenAccess else
    '0';
 
  Speaker <=
    '1' when state = InputPasswordNotCompared else
    '0';
 
  p2: process (clk, rst) is
  begin
    if rst = '1' then
      InputCode <= ("0000", "0000", "0000");
    elsif clk'event and clk = '1' then  -- rising clock edge
 
      if state = Start then
        if DigitalKeyPress = '1' then
          InputCode(1) <= KeyCode;
        end if;
      elsif state = InputPassword1 then
        if DigitalKeyPress = '1' then
          InputCode(2) <= KeyCode;
        end if;
      elsif state = InputPassword2 then
        if DigitalKeyPress = '1' then
          InputCode(3) <= KeyCode;
        end if;
      else
        InputCode <= ("0000", "0000", "0000");
      end if;
    end if;
  end process p2;
 
  InputCodePress <=
    '0' when KeyCode = "1111" else
    '1';
 
  p_KeyCode: process (clk, rst) is
  begin
    if rst = '1' then
      KeyCode <= "1111";
    elsif clk'event and clk = '1' then  -- rising clock edge
      KeyCode <= KeyCode_i;
    end if;
  end process p_KeyCode;
 
  KeyCode_i <=
    "0000" when DigitalKey(0) = '1' else
    "0001" when DigitalKey(1) = '1' else
    "0010" when DigitalKey(2) = '1' else
    "0011" when DigitalKey(3) = '1' else
    "0100" when DigitalKey(4) = '1' else
    "0101" when DigitalKey(5) = '1' else
    "0110" when DigitalKey(6) = '1' else
    "0111" when DigitalKey(7) = '1' else
    "1000" when DigitalKey(8) = '1' else
    "1001" when DigitalKey(9) = '1' else
    "1111";
 
end architecture beh2;

library ieee;
use ieee.std_logic_1164.all;
 
-------------------------------------------------------------------------------
 
entity block1_tb is
 
end entity block1_tb;
 
-------------------------------------------------------------------------------
 
architecture tb of block1_tb is
 
  -- component ports
  signal SetPassword : std_logic;
  signal DigitalKey  : std_logic_vector(9 downto 0);
  signal Esc         : std_logic;
  signal rst         : std_logic;
  signal LedOpen     : std_logic;
  signal Speaker     : std_logic;
 
  signal Clk : std_logic := '1';
 
begin  -- architecture tb
 
  -- component instantiation
  DUT: entity work.block1(beh2)
    port map (
      SetPassword => SetPassword,
      DigitalKey  => DigitalKey,
      Esc         => Esc,
      clk         => clk,
      rst         => rst,
      LedOpen     => LedOpen,
      Speaker     => Speaker);
 
  -- clock generation
  Clk <= not Clk after 5 ns;
 
  -- waveform generation
  WaveGen_Proc: process
  begin
    -- insert signal assignments here
 
    SetPassword <= '0';
    DigitalKey <= (others => '0');
    Esc        <= '0';
    rst        <= '1';
 
 
    wait for 21 ns;
    rst        <= '0';
 
    wait for 10 ns;
    DigitalKey(1) <= '1';
    wait for 50 ns;
    DigitalKey(1) <= '0';
    Esc <= '0';
    wait for 50 ns;
    DigitalKey(2) <= '1';
    wait for 50 ns;
    DigitalKey(2) <= '0';
    wait for 50 ns;
    Esc <= '0';
    DigitalKey(3) <= '1';
    wait for 50 ns;
    DigitalKey(3) <= '0';
 
    wait for 10 ns;
    wait;
  end process WaveGen_Proc;
 
end architecture tb;

library ieee;
use ieee.std_logic_1164.all;
use ieee.numeric_std.all;
 
entity block1 is
 
  port (
    SetPassword : in  std_logic;
    DigitalKey  : in  std_logic_vector(9 downto 0);
    Esc         : in  std_logic;
    clk         : in  std_logic;        -- синхросигнал 25 МГц
    rst         : in  std_logic;
    LedOpen     : out std_logic;
    Speaker     : out std_logic);
 
end entity block1;
 
architecture beh of block1 is
 
  signal count : unsigned(12 downto 0);
  signal KeyCode : std_logic_vector(3 downto 0);
-- access denied
-- open access
  type STATE_TYPE is (
    Start
    , InputPassword1
    , InputPassword2
    , InputPasswordCompare
    , OpenAccess
    , InputPasswordNotCompared
    );
  signal state : STATE_TYPE;
--  type WORD_TYPE is array (3 downto 0) of std_logic;
  type WORD_TYPE is array (1 to 3) of std_logic_vector(3 downto 0);
--  signal password : array (1 to 3) of WORD_TYPE;
  signal Password  :  WORD_TYPE := ("0000", "0000", "0000");
  signal InputCode :  WORD_TYPE;
  signal Delay05s, Delay3s, Delay5s :  boolean;
 
 
begin  -- architecture beh
 
  p1: process (clk, rst) is
  begin  -- process p1
    if rst = '1' then  
      count <= (others => '0');
      state <= Start;
      LedOpen <= '0';
      Speaker <= '0';
 
    elsif clk'event and clk = '1' then  -- rising clock edge
 
      count <= count + 1;               -- непрерывный отсчет времени
 
      if state = Start then
        LedOpen <= '0';
        Speaker <= '0';
 
        if KeyCode /= "1111" then
          state <= InputPassword1;
          InputCode(1) <= KeyCode;
          count <= (others => '0');     -- сброс счетчика
        end if;
 
      elsif state = InputPassword1 then
        if KeyCode /= "1111" then
          state <= InputPassword2;
          InputCode(2) <= KeyCode;
          count <= (others => '0');     -- сброс счетчика
        end if;
 
      elsif state = InputPassword2 then
        if KeyCode /= "1111" then
          state <= InputPasswordCompare;
          InputCode(3) <= KeyCode;
          count <= (others => '0');     -- сброс счетчика
        end if;
 
      elsif state = InputPasswordCompare then
        if Password = InputCode then
          state <= OpenAccess;
          LedOpen <= '1';
        else
          state <= InputPasswordNotCompared;
          Speaker <= '1';
        end if;
 
        count <= (others => '0');     -- сброс счетчика
 
      elsif state = InputPasswordNotCompared then
        if Delay05s then
          Speaker <= '0';
          state <= Start;
 
        end if;
 
 
      elsif state = OpenAccess then
        if Delay3s then
          LedOpen <= '0';
          state <= Start;
 
        end if;
 
      else
        -- сброс в начальное состояние
        state <= Start;
      end if;
    end if;
 
    -- сброс в начальное состояние
    -- если 5 с не были нажаты кнопки
    -- или нажат Esc
    if Delay5s or Esc = '1' then
      state <= Start;
    end if;
 
  end process p1;
 
  Delay05s <= (count = 500);            -- отсчет 0.5 с
  Delay3s  <= (count = 3000);           -- отсчет 3 с
  Delay5s  <= (count = 5000);           -- отсчет 5 с
 
  KeyCode <=
    "0000" when DigitalKey(0) = '1' else
    "0001" when DigitalKey(1) = '1' else
    "0010" when DigitalKey(2) = '1' else
    "0011" when DigitalKey(3) = '1' else
    "0100" when DigitalKey(4) = '1' else
    "0101" when DigitalKey(5) = '1' else
    "0110" when DigitalKey(6) = '1' else
    "0111" when DigitalKey(7) = '1' else
    "1000" when DigitalKey(8) = '1' else
    "1001" when DigitalKey(9) = '1' else
    "1111";
 
end architecture beh;