交通灯VHDL程序
LIBRARY IEEE;
USE IEEE.STD_LOGIC_1164.ALL;
PACKaGE traffic1 IS --TYPE color IS (green,yellow,red,unknown);
TYPE state IS (highway_green,
highway_yellow,
general_green,
general_yellow);
END traffic1;
LIBRARY IEEE;
USE IEEE.STD_LOGIC_1164.ALL;
USE WORK.traffic1.ALL;
ENTITY traffic IS
--GENERIC(time_long:TIME;
PORT(car_on_general:IN BOOLEAN;
clk:in std_logic;
highway_light:OUT std_logic_vector(2 downto 0);
general_light:OUT std_logic_vector(2 downto 0));
END traffic;
ARCHITECTURE rtl OF traffic IS
SIGNAL present_state:state;
SIGNAL next_state:state;
SIGNAL time_out_long:boolean:=FALSE;
SIGNAL time_out_short:boolean:=FALSE;
SIGNAL start_timer:boolean:=FALSE;
BEGIN
contron:PROCESS(present_state ,car_on_general,time_out_long,time_out_short)
begin
CASE present_state IS
WHEN highway_green=>
if car_on_general and time_out_long then
next_state<=highway_yellow;
end if;
WHEN highway_yellow=>
if time_out_short then
next_state<=general_green;
end if;
WHEN general_green=>
if not car_on_general or time_out_long then
next_state<=general_yellow;
end if;
WHEN general_yellow=>
if time_out_short then
next_state<=highway_green;
end if;
END CASE;
END PROCESS;
start:PROCESS(clk)
BEGIN
IF (clk'event and clk='1') THEN
present_state<=next_state;
END IF;
END PROCESS;
out_put:PROCESS(present_state)
BEGIN
start_timer<= not start_timer;
CASE present_state IS
WHEN highway_green=>
highway_light<= "100";
general_light<= "001";
WHEN highway_yellow=>
highway_light<= "010";
general_light<= "001";
WHEN general_green=>
general_light<= "100";
highway_light<="001";
WHEN general_yellow=>
general_light<="010";
highway_light<="001";
END CASE;
END PROCESS;
time:PROCESS(start_timer)
BEGIN
time_out_long<= FALSE;
time_out_long<= TRUE AFTER 1000 sec;
time_out_short<= FALSE;
time_out_short<= TRUE AFTER 2 sec;
END PROCESS;
END rtl;
共2条
1/1 1 跳转至页
VHDL交通灯

关键词: 交通 state highway general
共2条
1/1 1 跳转至页
回复
有奖活动 | |
---|---|
【EEPW电子工程师创研计划】技术变现通道已开启~ | |
发原创文章 【每月瓜分千元赏金 凭实力攒钱买好礼~】 | |
【EEPW在线】E起听工程师的声音! | |
“我踩过的那些坑”主题活动——第001期 | |
高校联络员开始招募啦!有惊喜!! | |
【工程师专属福利】每天30秒,积分轻松拿!EEPW宠粉打卡计划启动! | |
送您一块开发板,2025年“我要开发板活动”又开始了! | |
打赏了!打赏了!打赏了! |
打赏帖 | |
---|---|
【我踩过的那些坑】STM32的硬件通讯调试过程的“坑”被打赏50分 | |
【我踩过的那些坑】晶振使用的问题被打赏100分 | |
【我踩过的那些坑】电感选型错误导致的处理器连接不上被打赏50分 | |
【我踩过的那些坑】工作那些年踩过的记忆深刻的坑被打赏10分 | |
【我踩过的那些坑】DRC使用位置错误导致的问题被打赏100分 | |
我踩过的那些坑之混合OTL功放与落地音箱被打赏50分 | |
汽车电子中巡航控制系统的使用被打赏10分 | |
【我踩过的那些坑】工作那些年踩过的记忆深刻的坑被打赏100分 | |
分享汽车电子中巡航控制系统知识被打赏10分 | |
分享安全气囊系统的检修注意事项被打赏10分 |