Daten senden mit RS232 zum DE1.

[peter (Gast)]

Hallo, guten Tag.
Ich kann mit dem Programm unten Daten(Byte) empfangen die dann in das 
RAM geschrieben werden. Klappt wunderbar.

Beim Senden wird beanstandet das ich  "speicher_ram" benutze im Process 
darunter:
Die Fehlermeldung:
Error (10028): Can't resolve multiple constant drivers for net 
"RamAddr[7]" at ram_rs232.vhd(52)
Error (10029): Constant driver at ram_rs232.vhd(43)
Error (10028): Can't resolve multiple constant drivers for net 
"RamAddr[6]" at ram_rs232.vhd(52)
Error (10028): Can't resolve multiple constant drivers for net 
"RamAddr[5]" at ram_rs232.vhd(52)
Error (10028): Can't resolve multiple constant drivers for net 
"RamAddr[4]" at ram_rs232.vhd(52)
Error (10028): Can't resolve multiple constant drivers for net 
"RamAddr[3]" at ram_rs232.vhd(52)
Error (10028): Can't resolve multiple constant drivers for net 
"RamAddr[2]" at ram_rs232.vhd(52)
Error (10028): Can't resolve multiple constant drivers for net 
"RamAddr[1]" at ram_rs232.vhd(52)
Error (10028): Can't resolve multiple constant drivers for net 
"RamAddr[0]" at ram_rs232.vhd(52)

Dieses wird beanstanded nach dem ich es eingebaut hatte:
-----------------------------------------------------------
process(clk)
begin
  if rising_edge(clk) then
    if (c<9000000 ) then
      c <= c+1;
      Tx_Start <= '0';
    else
      c <= 0;
      if (RamAddr < 100) and (sw(1) = '1') then
        RamAddr <= RamAddr + 1;
        TX_Data <= speicher_ram(RamAddr);
        Tx_Start <= '1';
      end if;
    end if;
  end if;
end process;
------------------------------------------------------

library IEEE; 
use IEEE.STD_LOGIC_1164.ALL; 
use IEEE.NUMERIC_STD.ALL; 

entity ram_rs232 is
  Generic ( Quarz_Taktfrequenz : integer   := 50000000;  
              Baudrate           : integer   := 9600
             ); 
  port(
    clk    : in  std_logic;
    led_g  : out std_logic_vector(7 downto 0);
    sw     : in std_logic_vector(1 downto 0);
    RXD    : in   STD_LOGIC; 
    TXD    : out  STD_LOGIC
    );
end ram_rs232;

architecture Behavioral of ram_rs232 is

Type ram is ARRAY (0 to 127) OF std_logic_vector(7 downto 0);
signal speicher_ram : ram;
signal RamAddr : integer range 0 to 128 := 0; 

signal RX_Data : STD_LOGIC_VECTOR (7 downto 0);  
signal rxd_sr  : std_logic_vector (3 downto 0) := "1111";        
signal rxsr    : std_logic_vector (7 downto 0) := "00000000";     
signal rxbitcnt: integer range 0 to 9 := 9;
signal rxcnt   : integer range 0 to (Quarz_Taktfrequenz/Baudrate)-1; 

signal TX_Data  : STD_LOGIC_VECTOR (7 downto 0);
signal txstart : std_logic := '0';
signal txsr    : std_logic_vector  (9 downto 0) := "1111111111"; 
signal txbitcnt : integer range 0 to 10 := 10;
signal txcnt    : integer range 0 to (Quarz_Taktfrequenz/Baudrate)-1;
signal TX_Start : STD_LOGIC;

signal c : integer range 0 to 10000000 := 0; 
   
begin
        
process(clk)
begin
  if rising_edge(clk) then      
    if sw(0) = '1' then  
      RamAddr <= 0;        
    end if;  
  end if;
end process;

process(clk)
begin
  if rising_edge(clk) then   
    if (c<9000000 ) then        
      c <= c+1; 
      Tx_Start <= '0';         
    else                         
      c <= 0;    
      if (RamAddr < 100) and (sw(1) = '1') then  
        RamAddr <= RamAddr + 1;  
        TX_Data <= speicher_ram(RamAddr);        
        Tx_Start <= '1';  
      end if;          
    end if; 
  end if;  
end process; 

process(clk)
begin
  if rising_edge(clk) then      
    if RX_Data > "00000000" then  
      RamAddr <= RamAddr + 1;        
      speicher_ram(RamAddr) <= RX_Data; 
      led_g <= RX_Data; 
    end if;  
  end if;
end process;

process(clk)
begin
  if rising_edge(clk) then 
    txstart <= TX_Start;
    if (TX_Start='1' and txstart='0') then 
       txcnt    <= 0;                      
       txbitcnt <= 0;                      
       txsr     <= '1' & TX_Data & '0';    
    else
       if(txcnt<(Quarz_Taktfrequenz/Baudrate)-1) then
          txcnt <= txcnt+1;
       else  
          if (txbitcnt<10) then
            txcnt    <= 0;
            txbitcnt <= txbitcnt+1;
            txsr     <= '1' & txsr(txsr'left downto 1);
          end if;
        end if;
     end if;
   end if;    
end process;

process(clk)
begin
  if rising_edge(clk) then 
    rxd_sr <= rxd_sr(rxd_sr'left-1 downto 0) & RXD;
    if (rxbitcnt<9) then   
      if(rxcnt<(Quarz_Taktfrequenz/Baudrate)-1) then 
        rxcnt    <= rxcnt+1;
      else
        rxcnt    <= 0; 
        rxbitcnt <= rxbitcnt+1;
        rxsr     <= rxd_sr(rxd_sr'left-1) & rxsr(rxsr'left downto 1); 
      end if;
    else 
      if (rxd_sr(3 downto 2) = "10") then                 
        rxcnt    <= ((Quarz_Taktfrequenz/Baudrate)-1)/2; 
        rxbitcnt <= 0;
      end if;
    end if;
  end if;
end process;

TXD     <= txsr(0);    
RX_Data <= rxsr;

end Behavioral;

Danke.
Gruss

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

peter schrieb:
> mit dem Programm
Ich hätte eine Antwort, werde die aber aus bekanntem und angekündigtem 
Grund nicht schreiben. Siehe den 
Beitrag "Re: Suche ein brauchbaren ROM/RAM-Bereich"

[P. K. (pek)]

Google is your friend:

http://quartushelp.altera.com/12.0/mergedProjects/msgs/msgs/evrfx_vdb_net_multiple_drivers.htm

;-)

[Michael F. (mifi)]

Hallo Peter,

ich versuch mal Dir zu beschreiben wo das Problem ist.
Du hast selber geschrieben das erst nach einer Änderung das Problem
aufgetreten ist. Was hast Du geändert?

process(clk)
begin
  if rising_edge(clk) then
    if (c<9000000 ) then
      c <= c+1;
      Tx_Start <= '0';
    else
      c <= 0;
      if (RamAddr < 100) and (sw(1) = '1') then
        RamAddr <= RamAddr + 1;
        TX_Data <= speicher_ram(RamAddr);
        Tx_Start <= '1';
      end if;
    end if;
  end if;
end process;

Danach hast Du folgende Fehlermeldung bekommen:

Error (10028): Can't resolve multiple constant drivers for net
"RamAddr[7]" at ram_rs232.vhd(52)

Was sagt diese? Sie sagt in etwa: "da werden mehrere Treiber für ein
Signal verwendet". Und es wird auch noch das Signal angegeben,
"RamAddr".

D.h. das Signal RamAddr wird an mehreren Stellen beschrieben. So etwas
ist erlaubt wenn das in einem "process" gemacht wird, aber nicht wenn
es von mehreren Prozessen versucht wird.

Viele Grüße,
Michael

[Jörg W. (dl8dtl) (Moderator)]

Thread gesperrt, da der TE es vorzieht, die hilfswilligen Teilnehmer
zu beleidigen.