keyled.vhd

很多vhdl例程代码

--//**************************Copyright (c)***********************
--//**                 广州周立功单片机发展有限公司
--//**                        研    究    所
--//**                          测控事业部 
--//**
--//**                   http://www.zlgmcu.com
--//**
--//**-----------------文件信息-----------------------------------
--//**文   件   名:  
--//**创   建   人:  Xu hui quan (许惠泉)
--//**最后修改日期:  
--//**描        述:  
--//**               
--//*------------------当前版本修订--------------------------------
--//** 修改人: 
--//** 日　期:
--//** 描　述:	按键测试模块
--//**			
--//**------------------------------------------------------------
--//*************************************************************/
LIBRARY IEEE;                      
USE IEEE.STD_LOGIC_1164.ALL; 
USE IEEE.STD_LOGIC_Arith.ALL;
USE IEEE.STD_LOGIC_Unsigned.ALL;

ENTITY	keyled	IS
PORT(
key:	IN	STD_LOGIC_VECTOR(7 DOWNTO 0);
led:	OUT	STD_LOGIC_VECTOR(7 DOWNTO 0)
);
END;

ARCHITECTURE one OF	keyled IS
SIGNAL led_r:	STD_LOGIC_VECTOR(7 DOWNTO 0);
SIGNAL buffer_r:STD_LOGIC_VECTOR(7 DOWNTO 0);
BEGIN
led<=led_r;
PROCESS(key,buffer_r)
BEGIN
	buffer_r<=key;
	CASE buffer_r IS
		WHEN "11111110"=>	led_r<="11111110";
		WHEN "11111101"=>	led_r<="11111101";
		WHEN "11111011"=>	led_r<="11111011";
		WHEN "11110111"=>	led_r<="11110111";
		WHEN "11101111"=>	led_r<="11101111";
		WHEN "11011111"=>	led_r<="11011111";
		WHEN "10111111"=>	led_r<="10111111";
		WHEN "01111111"=>	led_r<="01111111";
		WHEN	OTHERS=>	led_r<="11111111";
	END CASE;
END PROCESS;
END;