Определить нажатие клавиши

 
 
library ieee;
use ieee.std_logic_1164.all;
 
package my_package is
  type t_Row_Col is array (0 to 3) of STD_LOGIC_VECTOR(7 DOWNTO 0);
  TYPE state IS (s_init,s_wait, s_select, s_paid, s_pouring, s_err);
  TYPE drink IS (d_esp, d_cof, d_cap, d_lat); 
end package;
 
library ieee;
use ieee.std_logic_1164.all;
use work.my_package.all; 
 
ENTITY Homework12_3 IS 
PORT ( 
  clk, key1, key2, key3, key4 : IN STD_LOGIC;
  
  enable   : out STD_LOGIC_VECTOR(3 DOWNTO 0);
  seg      : buffer STD_LOGIC_VECTOR(7 DOWNTO 0);
  led1,led2,led3,led4: buffer STD_LOGIC
 ); 
 END Homework12_3; 
 ---------------------------------------------------------- 
 ARCHITECTURE fsm OF Homework12_3 IS 
 SHARED VARIABLE product : drink:= d_esp;
   
 SIGNAL status: state := s_wait; 
 signal seg1 : t_Row_Col := ("11111111","11111111","11111111","11111111");
 
 shared variable clk_Microsecond : natural range 0 to 200 := 0;
 shared variable counter : natural range 0 TO 1000000 := 0;
 SHARED VARIABLE led_cnt : natural range 0 TO 150000 := 0;
 SHARED VARIABLE price : natural range 0 TO 100 := 0;
 SHARED VARIABLE err_del: natural range 0 to 20 := 0;
 shared variable k1cnt : natural range 0 to 1000000 := 0;
 signal Key1copy:STD_LOGIC;
 --signal button : natural range 0 to 5 := 0;
 
 
 BEGIN
 
 microsecond : process
-- полагаю что clk_Microsecond  будет обнуляться каждые 5 микросекунд
    begin
     wait until falling_edge(clk);
     clk_Microsecond := clk_Microsecond + 1;
 end process microsecond;
 Count : process -- а здесь counter каждые 5 секунд
    begin
    wait until clk_Microsecond = 0;
     counter := counter + 1;
 end process Count;
  
 FSM : PROCESS(clk, key1, key2, key3, key4)
 
 BEGIN 
         
     key1copy <= key1;
     if status = s_init then
        if  key1 = '1' and key2 = '1' and key3 = '1' and key4 = '1' and key1'last_value = '1' and key2'last_value = '1' and key4'last_value = '1' and key4'last_value = '1' then
            k1cnt := 0; status <= s_wait;
             seg <= "10110000";
         else
            seg <= "11100000";
             
         end if;
     end if;
           if counter rem 10 = 1 then
 
 
           case status is               --150000 это порядка 0,75 с.
              when s_wait => if counter < 150000 or (counter > 300000 and counter <450000) or (counter > 600000 and counter < 750000) or (counter > 900000 and counter <985000) then -- 
                    led1 <='1';led2 <= '1';led3 <='1'; led4 <= '1';
                 else
                        led1 <='0';led2 <= '0';led3 <='0';led4 <= '0';
                 end if;        
                 if k1cnt /= 0 and counter = 5 then
                    k1cnt := 0;
                     
                        if key1 = '0' then
                        status <= s_select;
                         end if;
                     
                 end if;
                 if (key1copy = '0'and key1copy'last_value = '0' and k1cnt = 0) then 
                     k1cnt := (counter + 20000) rem 1000000;
                            
                 end if;         
                          
                          
                 when s_select =>
                    led1 <='0';led2 <= '0';led3 <='1';led4 <= '1';
 
                 when others =>
                    led1 <='1';led2 <= '1';led3 <='1';led4 <= '0';
             end case;
        end if;  
 END PROCESS FSM;
end fsm;