交通灯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 跳转至页
回复
有奖活动 | |
---|---|
【有奖活动】智能可穿戴设备AR/VR如何引领科技新潮流! | |
奖!发布技术笔记,技术评测贴换取您心仪的礼品 | |
【有奖活动】震撼来袭!这场直播将直击工程师的心灵! | |
“我想要一部加热台”活动,不花钱赢取开发好工具!活动开始了哦 | |
【有奖活动】伙伴们:您的“需求”解决了吗? |
打赏帖 | |
---|---|
【换取手持数字示波器】N32G430点亮数码管与串口打印、ADC被打赏40分 | |
老胖子聊电路--分析一个反馈电路被打赏50分 | |
【换取手持数字示波器】+点亮WS2812RGB灯被打赏50分 | |
【换取手持数字示波器】+线性调整器理论知识分享被打赏40分 | |
放大↔震荡被打赏50分 | |
【换取手持数字示波器】RTduino驱动ssd1306+sht31温湿度计被打赏40分 | |
【换取手持数字示波器】称植国产开源TobudOS到雅特力AT32F425被打赏40分 | |
【分享评测,赢取加热台】+Telink-泰凌微电子B91点灯篇被打赏20分 | |
【换取手持数字示波器】+精英板驱动LCD屏被打赏50分 | |
【换取手持数字示波器】+DFR0216全彩灯带WS2812示例分享被打赏50分 |