Tubo digital con llave VHDL más uno menos uno
USE IEEE.STD_LOGIC_1164.ALL; USE IEEE.STD_LOGIC_UNSIGNED.ALL;
ENTIDAD CNT10 ES
PUERTO (a, b, RST, EN : EN STD_ LOGIC;
CQ : FUERA STD_LOGIC_VECTOR(3 ABAJO 0);
XOUT : STD_LOGIC_VECTOR(7 ABAJO 0 );
ARQUITECTURA se comportó de CNT10 IS
PROCESO(a, b, EN) VARIABLE CQI: STD_LOGIC_VECTOR(3 DOWNTO 0 BEGIN
IF en= '1); ' THEN ELSIF a'EVENT AND a='1'
THEN
CQI:= CQI 1
ELSIF b'EVENT AND b='1';
entonces CQI := CQI -1
finaliza si
if CQIlt;="0000" THEN CQIlt;="1001";
END si
if CQIlt;="1001" THEN CQIlt;="0000";
final si;
CQIlt;=CQI;
finalizar proceso;
PROCESO (CQ, EN)COMENZAR
IF EN = '1' ENTONCES
IF CQ = "0000 " ENTONCES XOUT lt; = "0111111";
ELSIF CQ = "0001" ENTONCES "1011001";
ELSIF CQ= "0011" ENTONCES XOUT lt;= "1001111";
ELSIF CQ= "0100" ENTONCES p>
ELSIF CQ= "0101" ENTONCES XOUT lt;= "1101101"
ELSIF CQ= "0110" ENTONCES CQ= "0111" ENTONCES XOUT lt;= "0000111";
ELSIF CQ= "1000" ENTONCES XOUT lt; = "1101111";
END IF; >FIN DEL PROCESO;
FIN del comportamiento