Anfänger braucht Hilfe

[Hannes K. (chgruber)]

Hab meine Fehler fast alle ausgemerzt...Jetzt bleiben nur noch drei, die 
jeweils das gleiche besagen. Bitte um Hilfe

LIBRARY IEEE;
USE IEEE.STD_LOGIC_1164.ALL;
USE IEEE.STD_LOGIC_ARITH.ALL;
USE IEEE.STD_LOGIC_UNSIGNED.ALL;

ENTITY hs IS
  PORT( 
      TagNacht      :IN STD_LOGIC;
      Test          :IN STD_LOGIC;
      Temperatur    :IN STD_LOGIC_VECTOR (5 DOWNTO 0);

      TempsensorNODE              :OUT STD_LOGIC_VECTOR (2 DOWNTO 0);      
      FensterHeizstrahlerFehler   :OUT STD_LOGIC_VECTOR (2 DOWNTO 0));

END hs;


ARCHITECTURE logic OF hs IS
    SIGNAL Tempsensor  :STD_LOGIC_VECTOR (2 DOWNTO 0);
BEGIN

PROCESS(Temperatur, Tempsensor)
BEGIN

    IF    Temperatur < "10010" THEN
           Tempsensor(2) <= '1';
           TempsensorNODE(2) <= Tempsensor(2);

    ELSIF Temperatur > "11010" THEN
           Tempsensor(1) <= '1';
           TempsensorNODE(1) <= Tempsensor(1);

    ELSIF Temperatur <= "11010" OR Temperatur >= "10010" THEN
           Tempsensor(0) <= '1';
           TempsensorNODE(0) <= Tempsensor(0);
    END IF;





 IF TagNacht = '1' THEN

  WITH Tempsensor SELECT                  //Hier ist der Fehler
    
    FensterHeizstrahlerFehler(0) <=
                      '1' WHEN "111",
                      '1' WHEN "110",
                      '1' WHEN "101",
                      '1' WHEN "011",
                      '1' WHEN "000",
                      '0' WHEN OTHERS;
  WITH Tempsensor SELECT                  //Hier ist der Fehler
                      
    FensterHeizstrahlerFehler(2) <=
                      '1' WHEN "001",
                      '0' WHEN OTHERS;
  WITH Tempsensor SELECT                  //Hier ist der Fehler
                      
    FensterHeizstrahlerFehler(1) <=
                      '1' WHEN "100",
                      '0' WHEN OTHERS;
ELSE
    FensterHeizstrahlerFehler <= "000";

END IF;
  
END PROCESS;
END logic;

[line44 (Gast)]

versuch mal statt
IF TagNacht = '1' THEN

IF TagNacht == '1' THEN

wenn ich mich recht entsinne ist = eine zuweisung und == die abfrage.

korrigiert mich, wenn ich falsch liege

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

line44 schrieb:
> korrigiert mich, wenn ich falsch liege
Du liegst falsch.

Das Problem liegt darin, dass Concurrent-Syntaxelemente (nebenläufige 
Beschreibung) in einer sequentiellen Beschreibung (Prozess) verwendet 
werden:
with...select ist Concurrent und hat in einem Prozess nichts zu suchen.

So, damit ist der gemeldete Fehler behoben.

Ein Fauxpas ist auch noch drin, der für eine falsche Simulation sorgt:

PROCESS(Temperatur, Tempsensor)
BEGIN
:
:
IF TagNacht = '1' THEN

TagNacht fehlt in der Sensitivliste....

Was aber viel, viel schlimmer ist: das Design wird im echten Leben nie 
zuverlässig laufen!
Warum behaupte ich das und bin mir sogar noch sicher, dass ich Recht 
habe?
Sieh dir mal das hier an:

PROCESS(Temperatur, Tempsensor)
BEGIN

    IF    Temperatur < "10010" THEN
           Tempsensor(2) <= '1';
           TempsensorNODE(2) <= Tempsensor(2);

    ELSIF Temperatur > "11010" THEN
           Tempsensor(1) <= '1';
           TempsensorNODE(1) <= Tempsensor(1);

    ELSIF Temperatur <= "11010" OR Temperatur >= "10010" THEN
           Tempsensor(0) <= '1';
           TempsensorNODE(0) <= Tempsensor(0);
    END IF;

Und jetzt nehmen wir mal an, dass sich Temperatur von 11111 nach 00000 
ändert. Weil jetzt aber garantiert nicht alle Bits gleichzeitig 
umschalten, kann für einen kurzen Augenblick jeder beliebige Wert 
zwischen 11111 und 00000 auftreten. So auch 11011 oder 11000 
oderwasweißichauchimmer...
Und was wird jetzt diese Schaltung in diesen paar picoSekunden machen? 
Richtig: ein paar Speicherelemente bekommen mit, dass da was war, andere 
nicht und heraus kommt Müll. Nicht immer, aber einmal pro halbe Stunde 
oder einmal am Tag, oder jede Minute...
Kurz: diesen Fehler wirst du ewig suchen. Und viel dabei lernen!

So, und jetzt kommt der Fachbegriff zum Thema: du hast ein Latch gebaut. 
Eigentlich nicht nur eines, sondern viele....

[Hannes K. (chgruber)]

Viele Dank für die schnelle Antwort.
Die Funktionalität lassen wir mal außen vor, denn ich werde es nie 
benutzen.

Heißt das ich muss einfach vor dem With...select den Process schließen? 
Wenn ja, warum muss ich dann TagNacht in die Sensitivity list schreiben?
Könntest du mir den Code umschreiben?

[... (Gast)]

Hi,

du wenn du quasi eine Fallunterscheidung innerhalb eines Prozesses 
machen willst, kannst du

case Tempsensor is

   when Fall1 => Fensterheizstrahler(1) <= '1';
   ... hier die Fälle aufzählen
   default: Wertzuweisung, wenn kein Fall auftritt

end case;


benutzen.

Vielleicht ist es das was du suchst

Gruß