Monoflop mit Spartan 3 und VHDL

Hmm Monoflop ... Ausgang für eine bestimmte Zeit auf High legen und dann 
kippt er von alleine wieder auf Low ...

Mein Tip: Prozess, der einen Counter hochzählt, je nach gewünschter 
Länge des High Pegels.
Wenn logisch 1 am Eingang anliegt wird der Ausgang auf 1 gesetzt und der 
Counter gestartet bis dieser den gewünschten Wert überschreitet. Ausgang 
wird wieder 0 gesetzt und Counter wird gestoppt.

Wenn Du es bis morgen nicht hinbekommst und keiner Dir ein Beispiel 
postet, dann mach ich mich mal dran ... geh jetzt aber erstmal ein wenig 
schlafen ^^

So, das wäre mein Vorschlag für dein Problem. Das ganze ist ein nicht 
nachtriggerbares Monoflop.

1

port(

2

  clk     : in std_logic;

3

  trigger : in std_logic;

4

  d_out   : out std_logic

5

);

6

7

8

process(clk,trigger)

9

  variable aktiv : std_logic := '0';

10

  variable counter : integer range 0 to ??? ; --such dir eine größe aus, je nach takt

11

begin

12

  if rising_edge(clk) then

13

    if trigger = '1' and aktiv = '0' then

14

      aktiv = '1';

15

      counter := ???;

16

    elsif aktiv = '1' then

17

      d_out <= '1';

18

      counter := counter - 1;

19

      if counter = 0 then

20

        aktiv := '0';

21

      end if;

22

    else

23

      d_out <= '0';

24

    end if;

25

  end if;

26

end;

Vielen Dank Thomas,

ich werde mich gleich mal ran machen und deinen Code ausprobieren.

Gruß Markus

Hallo Thomas,

hab deinen Code gerade getestet, aber tut nicht das was ich erwartet 
hätte, ich wollte z.B. auf eine Taste drücken und danach geht für eine 
bestimmte Zeit eine LED an und danach wieder aus. Aber entweder sie ist 
immer an oder geht gar nicht an. Aber dein Code müßte funktionieren, bin 
eigentlich alles Schritt für Schritt durhgegangen, naja ich versuchs 
noch etwas. Werde dann nochmal meinen Code posten.

Gruß Markus

Hi Markus,

bitte nicht den Code unverändert übernehmen. Und das Verhalten ist so, 
dass bei gedrückter Taste (Trigger = 1) der Ausgang für 1 Takt auf 0 
geht und dann gleich wieder auf 1. D.h. es gibt keine Flankentriggerung.
Die Variablen sind hier auch ungünstig.
Ich würde folgendes vorschlagen:

constant MONO_DELAY : integer := 20; -- Bsp.

signal cnt_q : integer range 0 to MONO_DELAY;
signal trig0_q : std_logic;
signal trig1_q : std_logic;

process(clk)
begin
   if rising_edge(clk) then
      trig0_q <= trigger;
      trig1_q <= trig0_q;

      if cnt_q > 0 then
         dout <= '1';
         cnt_q <= cnt_q -1;
      else
         dout <= '0';

         if trig0_q ='1' and trig1_q='0' then -- rising_edge trigger
            cnt_q <= MONO_DELAY;
         end if;
      end if;
   end if;
end process;

Guter Hinweis Mark, es lag wirklich nur an den Variablen bei mir. 
Signale drauß gemacht und schon ging es ohne Probleme.

Könntest auch ein RC-Kombination simulieren.

Hi, I am interested to know how trig1_q is updated in the code:

process(clk)
begin
   if rising_edge(clk) then
      trig0_q <= trigger;
      trig1_q <= trig0_q;

      if cnt_q > 0 then
         dout <= '1';
         cnt_q <= cnt_q -1;
      else
         dout <= '0';

         if trig0_q ='1' and trig1_q='0' then -- rising_edge trigger
            cnt_q <= MONO_DELAY;
         end if;
      end if;
   end if;
end process;

Thanks

Hi again,
I thought the code after the sensitivity list is sequential, therefore 
if trigger = 1 then trig0_q = 1 and triq1_q = 1.

So (if trig0_q ='1' and trig1_q='0' then) will never be true.