vhdl-code binary-to-gray encoder

[FCBfreak]

Kan er hier iemand de vhdl code voor een 4-bit binary-to-gray code converter in elkaar steken?

Op het net kan ik ze nergens vinden, iemand nog goede sites met veel vhdl-codes op?

[crossover]

als je me een gewone tabel kunt bezorgen, dan kan ik wel een code maken...
maar het is even geleden voor vhdl, moet da dan nog eens snel opfrissen maar dat komt dan wel in orde :p

[FCBfreak]

[Flupke]

http://www.circuitsonline.net/forum/vie ... /gray+code

[Mat Janssen]

Geachte Heer Flupke. Dat is geen vhdl taal, maar een schakeling met discrete componenten.

[FCBfreak]

anyone?

[crossover]

sorry dat het even duurde, ik had het druk voor school

hier issie:

library ieee;
use ieee.std_logic_1164.all;

entity gray is port (
bcd: in std_logic_vector(3 downto 0);
gray: out std_logic_vector(3 downto 0)
);
end gray;

architecture design of gray is
begin
process (bcd)
begin
case bcd is
when "0000" => gray < = "0000";
when "0001" => gray < = "0001";
when "0010" => gray < = "0011";
when "0011" => gray < = "0010";
when "0100" => gray < = "0110";
when "0101" => gray < = "0111";
when "0110" => gray < = "0101";
when "0111" => gray < = "0100";
when "1000" => gray < = "1100";
when "1001" => gray < = "1101";
when "1010" => gray < = "1111";
when "1011" => gray < = "1110";
when "1100" => gray < = "1010";
when "1101" => gray < = "1011";
when "1110" => gray < = "1001";
when "1000" => gray < = "1000";
when others => gray < = "0000";
end case;
end process;
end design;

normaal zou hij moeten werken, als iemand een fout zien meld het ff dan kan ik/iemand anders het corrigeren

[crossover]

Code: Selecteer alles

 when "1110" => gray < = "1001";
when "1000" => gray < = "1000";
when others => gray < = "0000";
end case;
end process;
end design;

moet worden

Code: Selecteer alles

 when "1110" => gray < = "1001";
when "1111" => gray < = "1000";
when others => gray < = "0000";
end case;
end process;
end design;

foutje ontdekt :p

[FCBfreak]

Thanx man!