VHDL Text für die Ertönung eines 1 kHz Tons

> Platzsparender ...
Bei Teilern von z.B. 50MHz nach 2kHz (=25000) und dann von 1ms nach 
500ms (=500) würde ich das so nicht sagen. Das wird für einen kleinen 
Teiler von 260 in dem WP271 in Frage gestellt. Allerdings sei so eine 
Schieberegister-Lösung eventuell einfacher und praktischer:

1

This solution is larger than the counter-based pulse generator, 

2

but the simplicity of this technique makes it practical.

> Ob man das Ganze noch als einfach und praktisch ansehen kann, ist die
> andere Frage ;-)
So einen asynchronen Zähler würde ich bestenfalls machen, wenn ich 
wirklich kein einziges FF mehr freihabe.. :-o


> Der Divider von 1 KHz auf 500 Hz braucht in beiden Fällen nur 1 LUT.
Es ging ursprünglich um 1ms (= 1kHz) und 500ms (= Piepdauer)  ;-)

Danke erst mal für die Tips!

Ich weiß jetzt nicht genau, ob ich das Prellen meines Schalters (in dem 
Fall der Taste "south") mitberücksichtigen muß. Die Prellzeit beträgt 
200ms.


Für das Prellen habe ich:



FOLGEZUSTANDSBERECHNUNG: process (taste,ZUSTAND)
  begin
    case ZUSTAND is
    when A => if A = '1' THEN FOLGEZUSTAND <= B;
      else FOLGEZUSTAND <= A;
      end if ;
      F <= '0', ci <= '0';
    when B => if co = '1' THEN FOLGEZUSTAND <= C;
      else FOLGEZUSTAND <= B;
      end if;
      F <= '0', ci <= '1';
    when C => THEN FOLGEZUSTAND <= D;
      F <= '1', ci <= '1';
    when D => A = '0' THEN FOLGEZUSTAND <= E;
      else FOLGEZUSTAND <= D;
      end if ;
      F <= '0', ci <= '0';
    when E => if co = '1' THEN FOLGEZUSTAND <= F;
      else FOLGEZUSTAND <= E;
      end if ;
      F <= '0', ci <= '1';
    when F => THEN FOLGEZUSTAND <= A;
      F <= '0',ci <= '1';
    end case;
  end process FOLGEZUSTANDSBERECHNUNG;

FOLGEZUSTANDSBERECHNUNG: process (taste,ZUSTAND)
  begin
    case ZUSTAND is
    when A => if B = '1' THEN FOLGEZUSTAND <= B;
      else FOLGEZUSTAND <= A;
      end if ;
      F <= '0', ci <= '0';
    when B => if co = '1' THEN FOLGEZUSTAND <= C;
      else FOLGEZUSTAND <= B;
      end if;
      F <= '0', ci <= '1';
    when C => THEN FOLGEZUSTAND <= D;
      F <= '1', ci <= '1';
    when D => B = '0' THEN FOLGEZUSTAND <= E;
      else FOLGEZUSTAND <= D;
      end if ;
      F <= '0', ci <= '0';
    when E => if co = '1' THEN FOLGEZUSTAND <= F;
      else FOLGEZUSTAND <= E;
      end if ;
      F <= '0', ci <= '1';
    when F => THEN FOLGEZUSTAND <= A;
      F <= '0',ci <= '1';
    end case;
  end process FOLGEZUSTANDSBERECHNUNG;


ZUSTANDSAUSGABE: process (ZUSTAND)
  begin
    CASE ZUSTAND is
      when A => STATE <= "000";
      when B => STATE <= "001";
      when C => STATE <= "010";
      when D => STATE <= "100";
      when E => STATE <= "101";
      when F => STATE <= "110";
    end case;
  end process ZUSTANDSAUSGABE;


Irgendwelche Anmerkungen oder Tips?

 Wie gesagt soll beim Drücken der Taste south für eine halbe Sekunde ein 
1kHz-Ton ertönen.

1

 FOLGEZUSTANDSBERECHNUNG: process (taste,ZUSTAND)

Unvollständige Sensitivliste, B und co fehlen --> fehlerhafte Simulation

Aber das ist nicht so schlimm. Schlimm ist der Aufwand, den du treibst. 
Eine Abfrage auf eine steigende bzw. fallende Flanke geht ganz einfach 
mit einem Schieberegister:
http://www.lothar-miller.de/s9y/categories/5-Entprellung

Und die Geschichte mit dem Debuggen über
ZUSTANDSAUSGABE: process (ZUSTAND)
geht auch wesentlich kompakter. Siehe 
http://www.lothar-miller.de/s9y/categories/37-FSM
Also einfach so:

1

   STATE  <= std_logic_vector(to_unsigned(ZUSTAND'pos(ZUSTAND),3));

Dazu solltest du aber die

1

use IEEE.numeric_std.ALL;

verwenden, sonst braucht du andere Umwandlungsroutinen von Integer nach 
Vektor.

> Wie gesagt soll beim Drücken der Taste south für eine halbe Sekunde
> ein 1kHz-Ton ertönen.

1

 signal count500us : integer range 0 to 24999; -- bei 50MHz : pro halbe ms --> 25000 Takte

2

 signal count500ms : integer range 0 to 1000;   

3

4

 process begin

5

    wait until rising_edge(clk);

6

    if (count500us < 24999) then 

7

       count500us <= count500us+1; 

8

    else 

9

       if (count500ms < 1000) then

10

           beeper <= not beeper;

11

           count500ms <= count500ms+1;

12

       else

13

           beeper <= '0';

14

       end if;

15

    end if;

16

    if taster_flanke = '1' then 

17

       count500us <= 0;

18

       count500ms <= 0; 

19

    end if;

20

 end process;

Hallo!


Ich hab deins so übernommen und dann so hingeschrieben:

signal count500us : std_logic_vector range 0 to 24999; -- bei 50MHz : 
pro halbe ms --> 25000 Takte
signal count500ms : std_logic_vector range 0 to 1000;

 process begin
    wait until rising_edge(clk);
    if (count500us < 24999) then
       count500us <= count500us+1;
    else
       if (count500ms < 1000) then
           beeper <= not beeper;
           count500ms <= count500ms+1;
       else
           beeper <= '0';
       end if;
    end if;
    if bcd_south = '1' then
       count500us <= 0;
       count500ms <= 0;
    end if;
 end process;




Synthesize war in Ordnung, nur ein paar Warnungen!


Vielen herzlichen Dank

Hab den Kommentar von Marc erst nach meinem letzten Kommentar gelesen!

Ist das so richtig, meine Marc's Aussage?

signal count500us : std_logic_vector integer range 0 to 24999; -- bei 
50MHz : pro halbe ms --> 25000 Takte
 signal count500ms : std_logic_vector integer range 0 to 1000;

 process begin
    wait until rising_edge(clk);
    if (count500us < 24999) then
       count500us <= count500us+1;
    else
       if (count500ms < 1000) then
           count500us <= 0;
           beeper <= not beeper;
           count500ms <= count500ms+1;
       else
           beeper <= '0';
       end if;
    end if;
    if bcd_south = '1' then
       count500us <= 0;
       count500ms <= 0;
    end if;
 end process;


So in etwa?

@ Slam Jam
> Ich hab deins so übernommen
Hast du jetzt tatsächlich anderthalb Tage gewartet, bis einer eine 
Lösung hinkritzelt?  :-o

> Ist das so richtig, meine Marc's Aussage?
Wird schon stimmen...  :-o
Aber ich denke, du solltest das einfach mal so ein wenig mental 
nachvollziehen. Warum meint Marc wohl, dass es sinnvoll wäre, beim 
Überlauf den Zähler auch mal zurückzusetzen?

> Synthesize war in Ordnung, nur ein paar Warnungen!
Ja klar, du verwendest ja auch die alten Synopsys-Libs.

@ Marc
Du hast recht, die Zeile fehlt, aber das stimmt nicht:
> ein Summer mit 25 MHz funktioniert schlecht
Denn es ist komplizierter.
Der Zähler count500us wird als 15-Bit Zähler realisiert. Also würde von 
25000 bis 32767 der Beeper mit jedem Takt toggeln, dann aber von 0 bis 
24999 wieder Ruhe geben. Weil bis dahin aber schon längst der count500ms 
fertig ist, ist fast schlagartig nach dem Piepsanfang schon wieder 
Ruhe...

> Danach ist Ruhe.
Gut so ;-)