library IEEE;
use IEEE.STD_LOGIC_1164.ALL;
entity test is
Port ( SENSOR_SW : in STD_LOGIC;
ENABLE_SW : in STD_LOGIC;
RESET : in STD_LOGIC;
LED_SENSOR_SW : out STD_LOGIC;
LED_ENABLE_SW : out STD_LOGIC;
SPEAKER : out STD_LOGIC);
end test;
architecture Behavioral of test is
SIGNAL TEMP :STD_LOGIC;
begin
LED_SENSOR_SW <= SENSOR_SW;
LED_ENABLE_SW <= ENABLE_SW;
TEMP <= SENSOR_SW AND ENABLE_SW;
PROCESS(TEMP,RESET)
BEGIN
IF RESET='0' THEN
SPEAKER<='1';
ELSIF RISING_EDGE (TEMP) THEN
SPEAKER<='0';
END IF;
END PROCESS;
end Behavioral;
library IEEE;
use IEEE.STD_LOGIC_1164.ALL;
entity TEST is
Port ( CLK_50_MHz : in STD_LOGIC;
ONE_SEC : out STD_LOGIC);
end TEST;
architecture Behavioral of TEST is
begin
PROCESS (CLK_50_MHz)
VARIABLE CNT : integer range 0 to 50000000;
BEGIN
IF RISING_EDGE(CLK_50_MHz) THEN
CNT:=CNT+1;
CASE CNT is
WHEN 25000000 => ONE_SEC <= '0';
WHEN 50000000 => ONE_SEC <= '1'; CNT:=0;
WHEN others => NULL ;
END CASE;
END IF;
END PROCESS;
end Behavioral;
دیدگاه