помогите с оператором case и делением частоты, не работает( Опции

[gethan]

Всем доброго времени суток!
Помогите разобраться с оператором case и делителем частоты. Решил сделать делитель частоты,но такой,чтобы можно было изменять частоту при изменении некоторого 5 разрядного числа, назовем его fm1.

Может быть кому-то покажется странным, но вот мое творение для создания меандра:
нужно сделать так, чтобы при разных значениях fm1 выбирались разные значения переменной f15_1. Потом исходя из этого через выбранное количество отсчетов фронтов f50k формируются пички, и по ним в следующем процессе делается меандр.

Код

frequency1Hz: process (f50k, fm1)
    variable f15: integer range 0 to 641:=0;
    variable f15_1: integer range 0 to 641:=0;
    begin
if Clr = '1' then
         f15_1:=0;
         f15:=0;
         freq15<='0';
        ELSIF true THEN
if rising_edge(f50k) THEN
if f15_1 = 0 then
case fm1 is              -- выбор значений f15_1 при разных значениях fm1
        when "00000" =>
        f15_1 := 16;
        when "00010" =>
        f15_1 := 119;
        when "00011" =>
        f15_1 := 104;
        when "00100" =>
        f15_1 := 92;
        when "00101" =>
        f15_1 := 83;
        when "00110" =>
        f15_1 := 75;
        when "10110" =>
        f15_1 := 64;
        when "00111" =>
        f15_1 := 641;
        
  when others => null;
  end case;    
  end if;

  if f15=0 then          
        f15 := f15_1;  --присваиваем переменной выбранное значение
        freq15<='1';
          
  else
        f15:=f15-1;    -- отсчитываем назад до нуля и когда f15 снова станет 0, на длительность такта f50k появляется 1.
        freq15<='0';
  end if;
  end if;
  end if;
    
    END PROCESS;
    
    freq15Hz: process (f50k) --делаем меандр
   begin
if clr='1' then
    f15<='0';

elsif true then
    if rising_edge (f50k) then
    if freq15='1' then
    if f15='0' then
    f15<='1';

elsif true then
    f15<='0';
end if;
end if;
end if;
end if;

end process;

Но все это к сожалению не работает. Пытаюсь все это реализовать на АPA300 в Libero. После синтеза и просмотра результата в ModelSim получается вот такая картина(.

Подскажите,пожалуйста,где ошибка,что не так, почему не работает!

Заранее благодарен)!

Эскизы прикрепленных изображений

 

[gethan]

Написал вот такой код: там два процесса. Сначала делаем один меандр, потом по второму формируем другой.

CODE

frequancy8khz: process( f2_5) --частота f2_5 ранее сформированная частота из тактовой
variable f8k: integer range 0 to 19 := 0;
begin
IF clr ='1' THEN
f8k:=0;
ELSIF rising_edge( f2_5 ) THEN
IF f8k=0 THEN
f8k:=19;
else
f8k:=f8k-1;
end if;

IF f8k>9 THEN
freq8k<='1';

else
freq8k<='0';
end if;
end if;

end process;

f8k<=freq8k;

frequency15Hz_10: process (f8k)
variable f15_10: integer range 0 to 11 :=0;
BEGIN
if clr ='1' THEN
f15_10:=0;
ELSIF rising_edge( f8k ) THEN
if f15_10=0 THEN
f15_10:=11;
else
f15_10:=f15_10-1;

end if;

IF f15_10>6 THEN
freq15_10<='1';
else
freq15_10<='0';

end if;
end if;

END PROCESS;

Два одинаковых процесса,НО!!!!
почему-то в одном (в первом процессе для частоты f8k) количество rising_edge(f2_5) считается правильно, т.е. по 10 на нулевое значение и на единичное значение сигнала freq8k. А во втором процессе почему то считает ровно в 2 раза меньше, чем указано.
Как так? Помогите понять,почему так!?)
На рисунке сигнал dfm1 - это переназванный сигнал f15_10, который должен отсчитывать по 6 rising_edge сигнала f256out1(f8k). Но он отсчитывает только по 3, в два раза меньше,чем надо.(( В чем дело,не пойму! Помогите,пожалуйста!;)

Сообщение отредактировал gethan - Mar 23 2014, 13:10

Эскизы прикрепленных изображений

 

[sazh]

Написал вот такой код: там два процесса. Сначала делаем один меандр, потом по второму формируем другой.

Посмотрите в RTL что у Вас получилось.
Если б выложили файлы с тестбенчем, может кто и проанализировал. Как два взаимосвязанных счетчика реализовать.
Ох уж этот VHDL. Пора наверное что то подправить в консерватории.

[Maverick]

Ох уж этот VHDL. Пора наверное что то подправить в консерватории.

Старая поговорка гласит - "На вкус и цвет товарищей нет"
смысл затевать очередной халивар?