Signale/Variablen nochma

[Detlef _. (detlef_a)]

Hi,

habe ne Frage zu angehängtem VHDL Code:
erste Warnung sagt "Input <binary_in<6:0>> is never used." .

Das verstehe ich nicht:
binary_in geht zuerst nach hex_src und dann sukzessive in dem loop nach 
bcd, also wird es m.E. doch benutzt ?!

Alles wird gut, wenn ich direkt segment7 zuweise:
segment7 <= hex_src(6 downto 0)

Hat vllt. was mit Variablen/Signalen zu tun, bin da blutiger Anfänger.

Danke
Cheers
Detlef

library IEEE;
use IEEE.STD_LOGIC_1164.ALL;
use ieee.std_logic_unsigned.all; 
entity Binary2bcd is
    Port ( binary_in : in  STD_LOGIC_VECTOR (7 downto 0);
           sel : in  STD_LOGIC_VECTOR (1 downto 0);
           segment7 : out  STD_LOGIC_VECTOR (6 downto 0));
end Binary2bcd;

architecture Behavioral of Binary2bcd is
begin

p1: process (sel, binary_in) is
 variable hex_src : std_logic_vector (7 downto 0) ;
 variable bcd     : std_logic_vector (11 downto 0) ;
 variable act : STD_LOGIC_VECTOR (3 downto 0);
 variable ones : STD_LOGIC_VECTOR (3 downto 0);
 variable tens : STD_LOGIC_VECTOR (3 downto 0);
 variable huns : STD_LOGIC_VECTOR (3 downto 0);
begin
 hex_src :=  binary_in;
 bcd     := (others => '0') ;
 for i in 0 to 7 loop
            bcd := bcd(11 downto 1) & hex_src(7) ; 
            hex_src := hex_src(7 downto 1) & '0' ; 
            if bcd(3 downto 0) > "0100" then
                bcd(3 downto 0) := bcd(3 downto 0) + "0011" ;
            end if ;
            if bcd(7 downto 4) > "0100" then
                bcd(7 downto 4) := bcd(7 downto 4) + "0011" ;
            end if ;
            if bcd(11 downto 8) > "0100" then
                bcd(11 downto 8) := bcd(11 downto 8) + "0011" ;
            end if ;
 end loop ;
 segment7 <= bcd(6 downto 0);  
end process; 
end Behavioral;

[Alexander F. (alexf91)]

Wenn du der Meinung bist, dass das fehlerhaften Verhalten von Variablen 
verursacht wird, dann versuche zuerst, diese zu beseitigen ;)

In diesem Fall sind es aber, soweit ich das bei kurzen drübersehen 
feststellen kann, die Zuweisungen zu bcd und hex_src in der Schleife:

bcd := bcd(11 downto 1) & hex_src(7) ;
hex_src := hex_src(7 downto 1) & '0';

ist äquivalent zu

bcd(0) := hex_src(7);
hex_src(0) := '0';

Das wird jetzt zwar mehrmals in der Schleife ausgewertet, verwendet wird 
aber immer nur das 7. Bit von hex_src, die restlichen werden nie 
gelesen.

Wenn du den Vektor als 7 downto 0 deklarierst, dann hat das linke 
Element den Index 7 und das rechte den Index 0.

Wenn du tatsächlich schieben willst, dann muss das so aussehen:

vec := '0' & vec(7 downto 1); --Shift nach rechts
vec := vec(6 downto 0) & '0'; --Shift nach links

Schreib dir eine Testbench und mach das ganze mit Signalen. In den 
meisten Simulatoren kannst du auch interne Signale untersuchen, da fällt 
dann sofort auf, dass nicht geschoben wird.

[Detlef _. (detlef_a)]

Hallo,

danke, ja, ich hatte Mist aus dem Netz kopiert ohne es zu verstehen. So 
baut man eine 8-Bit Binärzahl in 3 BCD Zahlen um.
Danke
Cheers
Detlef

p1: process (sela, selb, binary_in) is
 variable hex_src : std_logic_vector (4 downto 0) ;
 variable bcd     : std_logic_vector (11 downto 0) ;
 variable act : STD_LOGIC_VECTOR (3 downto 0);
 variable ones : STD_LOGIC_VECTOR (3 downto 0);
 variable tens : STD_LOGIC_VECTOR (3 downto 0);
 variable huns : STD_LOGIC_VECTOR (3 downto 0);
 variable sel : STD_LOGIC_VECTOR (1 downto 0);

begin

    bcd             := (others => '0') ;
    bcd(2 downto 0) := binary_in(7 downto 5) ;
    hex_src         := binary_in(4 downto 0) ;
    sel             := sela & selb;

    for i in hex_src'range loop
        if bcd(3 downto 0) > "0100" then
            bcd(3 downto 0) := bcd(3 downto 0) + "0011" ;
        end if ;
        if bcd(7 downto 4) > "0100" then
            bcd(7 downto 4) := bcd(7 downto 4) + "0011" ;
        end if ;
        -- No roll over for hundred digit, since in 0 .. 2

        bcd := bcd(10 downto 0) & hex_src(hex_src'left) ; -- shift bcd + 1
new entry
        hex_src := hex_src(hex_src'left - 1 downto hex_src'right) & '0' ;
-- shift src + pad with 0
    end loop ;

    huns := bcd(11 downto 8);
    tens := bcd(7  downto 4);
    ones := bcd(3  downto 0);
..............................

[Lothar M. (Firma: Titel) (lkmiller) (Moderator)]

Detlef _a schrieb:
> So baut man eine 8-Bit Binärzahl in 3 BCD Zahlen um.
Für ein einzelnes Byte mimmt man evtl. besser ein RAM:
http://www.lothar-miller.de/s9y/archives/33-Byte-nach-BCD.html

Und für breitere Vektoren nimmt man ein weniger ressourcenfressendes 
Verfahren, wenn nicht in jedem Takt eine neue BCD-Zahl nötig ist:
http://www.lothar-miller.de/s9y/archives/34-Vektor-nach-BCD.html

Mehr zu Wandlungen von Vektor nach BCD und ASCII und zurück dort:
http://www.lothar-miller.de/s9y/categories/44-BCD-Umwandlung/P2.html

[Detlef _. (detlef_a)]

Hallo,

THX für die Hinweise, Deine site ist super als infoquelle. Ja, das ist 
das Shift-Add-3 Verfahren, hab ich noch nicht verstanden, werde ich aber 
tun. Diese 8-Bit Zahl Wandlung zu 3 stellig BCD soll in einem kleinen 
64Bit CPLD laufen, dort macht es 43% der Pterms dicht, kein FF, ist ne 
recht fette kombinatorische Logik.

Cheers
Detlef