реклама на сайте
подробности

 
 
2 страниц V   1 2 >  
Reply to this topicStart new topic
> помогите с оператором case и делением частоты, не работает(
gethan
сообщение Mar 17 2014, 15:25
Сообщение #1


Участник
*

Группа: Участник
Сообщений: 17
Регистрация: 23-02-14
Пользователь №: 80 654



Всем доброго времени суток!
Помогите разобраться с оператором 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 получается вот такая картина(.

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

Заранее благодарен)!
Эскизы прикрепленных изображений
Прикрепленное изображение
 
Go to the top of the page
 
+Quote Post
cerg19
сообщение Mar 17 2014, 15:47
Сообщение #2


Частый гость
**

Группа: Свой
Сообщений: 166
Регистрация: 12-05-09
Из: Нижний Новгород
Пользователь №: 48 978



Если честно не совсем понял где сигнал fm управляется в коде. Ннадо бы привести весь код программы(с читаемым форматированием).

Похоже что код написан так, что в некоторый момент выполняется условие перевода выхода fs в значение 1 и 0 одновременно.
Go to the top of the page
 
+Quote Post
tdocs.su
сообщение Mar 17 2014, 15:48
Сообщение #3


Частый гость
**

Группа: Участник
Сообщений: 143
Регистрация: 27-02-14
Из: Москва
Пользователь №: 80 728



Цитата(gethan @ Mar 17 2014, 19:25) *
Всем доброго времени суток!
Помогите разобраться с оператором case и делителем частоты. Решил сделать делитель частоты,но такой,чтобы можно было изменять частоту при изменении некоторого 5 разрядного числа, назовем его fm1.

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


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

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

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

Добрый совет - избавляйтесь от конструкций if-then-else. Потеряетесь (потеряетесь к чертовой матери!). Читайте в поисковиках "автоматное программирование для начинающих".


--------------------
Go to the top of the page
 
+Quote Post
gethan
сообщение Mar 17 2014, 16:05
Сообщение #4


Участник
*

Группа: Участник
Сообщений: 17
Регистрация: 23-02-14
Пользователь №: 80 654



Цитата(cerg19 @ Mar 17 2014, 19:47) *
Если честно не совсем понял где сигнал fm управляется в коде. Ннадо бы привести весь код программы(с читаемым форматированием).

Похоже что код написан так, что в некоторый момент выполняется условие перевода выхода fs в значение 1 и 0 одновременно.

fm<=f15;

сигнал fm это и есть наш желанный меандр
Go to the top of the page
 
+Quote Post
gethan
сообщение Mar 17 2014, 17:19
Сообщение #5


Участник
*

Группа: Участник
Сообщений: 17
Регистрация: 23-02-14
Пользователь №: 80 654



Цитата(cerg19 @ Mar 17 2014, 19:47) *
Если честно не совсем понял где сигнал fm управляется в коде. Ннадо бы привести весь код программы(с читаемым форматированием).

Похоже что код написан так, что в некоторый момент выполняется условие перевода выхода fs в значение 1 и 0 одновременно.


вот полный вариант
CODE

LIBRARY IEEE;
USE IEEE.std_logic_1164.all;
LIBRARY IEEE;
USE IEEE.std_logic_unsigned.all;
use IEEE.STD_LOGIC_ARITH.ALL;


ENTITY SinTR IS
GENERIC
(
koef : INTEGER
:= 2
--:= 3
--:= 1
);

PORT (

TAKT : in std_logic;
strob : in std_logic;
sdvig : in std_logic;
data_serial: in std_logic;
Clr : in std_logic;

fout : out std_logic;
Dfm : out std_logic;
fmod_out : out std_logic_vector (4 downto 0)

);

END SinTR;

ARCHITECTURE beh OF SinTR IS

signal fm1: std_logic_vector (4 downto 0) := ( others => '0' );
signal ff256 : std_logic_vector (3 downto 0);
signal freq2_5_1, f2_5, freq15, f15, f50k, freq50k, fm256, fm :std_logic := '0';
signal rs_s1, rs_s : std_logic_vector (41 downto 0):= (others => '0');

BEGIN
--
-- << TAKT >> == 15 MHz
--сначала делаем меандр до частоты 2,5 MHz, из него формируем уже частоту f50k (50 kHz)
frequency2_5MHz: process (TAKT)
variable f1: integer range 0 to koef :=0;
begin
if Clr = '1' then
f1 := 0;

freq2_5_1<='0';
ELSIF true THEN
IF rising_edge(TAKT) THEN
IF f1 = 0 THEN
f1:=koef;
freq2_5_1<='1';
ELSIF true THEN
f1:=f1-1;
freq2_5_1<='0';
END IF ;
END IF;
END IF ;
END PROCESS;

freq2_5MHz: process (TAKT)
begin
if clr='1' then
f2_5<='0';

elsif true then
if rising_edge (TAKT) then
if freq2_5_1='1' then
if f2_5='0' then
f2_5<='1';

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

end process;
-- делаем частоту f50k
frequency50kHz: process (f2_5)
variable f50k: integer range 0 to 25:=0;
begin
if Clr = '1' then
f50k := 0;

freq50k<='0';
ELSIF true THEN
IF rising_edge(f2_5) THEN
IF f50k = 0 THEN
f50k:=25;
freq50k<='1';
ELSIF true THEN
f50k:=f50k-1;
freq50k<='0';
END IF ;
END IF;
END IF ;
END PROCESS;

freq50kHz: process (f2_5)
begin
if clr='1' then
f50k<='0';

elsif true then
if rising_edge (f2_5) then
if freq50k='1' then
if f50k='0' then
f50k<='1';

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

end process;

Fout <= f50k;-- сигнал подаем на выходной порт



frequency1Hz: process (f50k, fm1) -- формируем частоту по тому же принципу, что и f50k, но добавляем case видимо как-то неправильно((
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

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;
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;


fm <= f15; --перезаписываем сигнал
Dfm <= fm; --на выходной порт
-----------дальше для загрузки fm1
mr1_1 : PROCESS ( strob )
BEGIN

IF rising_edge(strob) THEN
fm1<=rs_s1( 4 downto 0 );
END IF ;
END PROCESS;


fmod_out<=fm1;

msdvig : PROCESS ( sdvig )

BEGIN

IF rising_edge(sdvig) THEN

rs_s(41 downto 1)<=rs_s(40 downto 0);
rs_s(0)<=data_serial;
end if;

end process;




process (takt,clr,rs_s1)
begin
if clr = '1' then
rs_s1 <=( others => '0' );

elsif (takt'event and takt = '1') then
rs_s1(41 downto 0) <= rs_s(41 downto 0);

end if;
end process;

END beh;
Go to the top of the page
 
+Quote Post
cerg19
сообщение Mar 18 2014, 01:43
Сообщение #6


Частый гость
**

Группа: Свой
Сообщений: 166
Регистрация: 12-05-09
Из: Нижний Новгород
Пользователь №: 48 978



с читабельным форматированием это значит примерно вот так:

CODE
LIBRARY IEEE;
USE IEEE.std_logic_1164.all;
LIBRARY IEEE;
USE IEEE.std_logic_unsigned.all;
use IEEE.STD_LOGIC_ARITH.ALL;


ENTITY SinTR IS
GENERIC(
koef : INTEGER := 2 --:= 3 --:= 1
);

PORT (
TAKT : in std_logic;
strob : in std_logic;
sdvig : in std_logic;
data_serial : in std_logic;
Clr : in std_logic;

fout : out std_logic;
Dfm : out std_logic;
fmod_out : out std_logic_vector (4 downto 0)
);

END SinTR;

ARCHITECTURE beh OF SinTR IS

signal fm1 : std_logic_vector (4 downto 0) := ( others => '0' );
signal ff256 : std_logic_vector (3 downto 0);
signal freq2_5_1, f2_5, freq15, f15, f50k, freq50k, fm256, fm :std_logic := '0';
signal rs_s1, rs_s : std_logic_vector (41 downto 0):= (others => '0');

BEGIN
--
-- << TAKT >> == 15 MHz
--сначала делаем меандр до частоты 2,5 MHz, из него формируем уже частоту f50k (50 kHz)
frequency2_5MHz: process (TAKT)
variable f1: integer range 0 to koef :=0;
begin
if Clr = '1' then
f1 := 0;
freq2_5_1<='0';
ELSIF true THEN
IF rising_edge(TAKT) THEN
IF f1 = 0 THEN
f1:=koef;
freq2_5_1<='1';
ELSIF true THEN
f1:=f1-1;
freq2_5_1<='0';
END IF;
END IF;
END IF;
END PROCESS;

freq2_5MHz: process (TAKT)
begin
if clr='1' then
f2_5<='0';

elsif true then
if rising_edge (TAKT) then
if freq2_5_1='1' then
if f2_5='0' then
f2_5<='1';

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

end process;
-- делаем частоту f50k
frequency50kHz: process (f2_5)
variable f50k: integer range 0 to 25:=0;
begin
if Clr = '1' then
f50k := 0;

freq50k<='0';
ELSIF true THEN
IF rising_edge(f2_5) THEN
IF f50k = 0 THEN
f50k:=25;
freq50k<='1';
ELSIF true THEN
f50k:=f50k-1;
freq50k<='0';
END IF;
END IF;
END IF;
END PROCESS;

freq50kHz: process (f2_5)
begin
if clr='1' then
f50k<='0';

elsif true then
if rising_edge (f2_5) then
if freq50k='1' then
if f50k='0' then
f50k<='1';

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

end process;

Fout <= f50k;-- сигнал подаем на выходной порт

frequency1Hz: process (f50k, fm1) -- формируем частоту по тому же принципу, что и f50k, но добавляем case видимо как-то неправильно((
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
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;
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;


fm <= f15; --перезаписываем сигнал
Dfm <= fm; --на выходной порт
-----------дальше для загрузки fm1
mr1_1 : PROCESS ( strob )
BEGIN
IF rising_edge(strob) THEN
fm1<=rs_s1( 4 downto 0 );
END IF;
END PROCESS;


fmod_out<=fm1;

msdvig : PROCESS ( sdvig )
BEGIN
IF rising_edge(sdvig) THEN
rs_s(41 downto 1)<=rs_s(40 downto 0);
rs_s(0)<=data_serial;
end if;
end process;

process (takt,clr,rs_s1)
begin
if clr = '1' then
rs_s1 <=( others => '0' );
elsif (takt'event and takt = '1') then
rs_s1(41 downto 0) <= rs_s(41 downto 0);
end if;
end process;
END beh;


не ленитесь делать код читаемым.

Что касается самой проблемы, то возможно её решение в процессе mr1_1
Код
BEGIN
    IF rising_edge(strob) THEN
        fm1<=rs_s1( 4 downto 0 );
    END IF;
END PROCESS;


fm1 загружается не синхронно относительно тактовой частоты f50k. Попробуйте так:
Код
    mr1_1 : PROCESS (f50k)
    BEGIN
        IF rising_edge(f50k) THEN
            if strob = '1' then
                fm1<=rs_s1( 4 downto 0 );
            end if;
        END IF;
    END PROCESS;

при этом сигнал strob импульсный длительностью в 1 такт клока f50k

Сообщение отредактировал des00 - Mar 19 2014, 03:35
Go to the top of the page
 
+Quote Post
gethan
сообщение Mar 18 2014, 02:14
Сообщение #7


Участник
*

Группа: Участник
Сообщений: 17
Регистрация: 23-02-14
Пользователь №: 80 654



Цитата(cerg19 @ Mar 18 2014, 05:43) *
с читабельным форматированием это значит примерно вот так:


К сожалению не помогло, теперь еще и fm1 не грузится(
Эскизы прикрепленных изображений
Прикрепленное изображение
 
Go to the top of the page
 
+Quote Post
Dmitriyspb
сообщение Mar 18 2014, 02:37
Сообщение #8


Местный
***

Группа: Свой
Сообщений: 397
Регистрация: 21-11-12
Из: Россия г. Санкт-Петербург
Пользователь №: 74 498



Цитата(gethan @ Mar 17 2014, 19:25) *
Всем доброго времени суток!
Помогите разобраться с оператором case и делителем частоты. Решил сделать делитель частоты,но такой,чтобы можно было изменять частоту при изменении некоторого 5 разрядного числа, назовем его fm1.

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


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

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

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


Приветствую 1111493779.gif
Прочел вопрос и проникся crying.gif
Чтобы быть кратким, то совсем недавно писал я подобный модуль. Писал я на verilog, и по своей структуре у меня получился n-ое кол-во делителей опорной частоты и мультиплексор. Очень просто и сердито=))) А мультиплексор выбирал выход одного из необходимых делителей частоты. По сути выбирался коэффициент деления опорной частоты. Хотя на вход мультиплексора можно засунуть что угодно.
ЭТА ИНФОРМАЦИЯ К СВЕДЕНИЮ АВТОРА=)) Я не стал разбираться с Вашим написанным кодом, НО КАК-ТО УЖ МНОГО НАПИСАНО=)) Мне кажется можно упростить. Возможно я не прав, не судите строго=)))


--------------------
Победа - это когда N раз упал и N+1 раз встал.
Go to the top of the page
 
+Quote Post
gethan
сообщение Mar 18 2014, 04:24
Сообщение #9


Участник
*

Группа: Участник
Сообщений: 17
Регистрация: 23-02-14
Пользователь №: 80 654



Цитата(Dmitriyspb @ Mar 18 2014, 06:37) *
Приветствую 1111493779.gif
Прочел вопрос и проникся crying.gif
Чтобы быть кратким, то совсем недавно писал я подобный модуль. Писал я на verilog, и по своей структуре у меня получился n-ое кол-во делителей опорной частоты и мультиплексор. Очень просто и сердито=))) А мультиплексор выбирал выход одного из необходимых делителей частоты. По сути выбирался коэффициент деления опорной частоты. Хотя на вход мультиплексора можно засунуть что угодно.
ЭТА ИНФОРМАЦИЯ К СВЕДЕНИЮ АВТОРА=)) Я не стал разбираться с Вашим написанным кодом, НО КАК-ТО УЖ МНОГО НАПИСАНО=)) Мне кажется можно упростить. Возможно я не прав, не судите строго=)))

Спасибо за информацию!Да, я согласен с Вами,что можно использовать N делителей частоты и мультиплексор, но как раз от этого и хочется уйти) А что если N будет настолько велико, что не хватит ресурсов ПЛИС?)
Не могли бы Вы поделиться кодом своего блока делителя частоты,вдруг это поможет?)спасибо))
Go to the top of the page
 
+Quote Post
Dmitriyspb
сообщение Mar 18 2014, 04:47
Сообщение #10


Местный
***

Группа: Свой
Сообщений: 397
Регистрация: 21-11-12
Из: Россия г. Санкт-Петербург
Пользователь №: 74 498



Цитата(gethan @ Mar 18 2014, 08:24) *
Спасибо за информацию!Да, я согласен с Вами,что можно использовать N делителей частоты и мультиплексор, но как раз от этого и хочется уйти) А что если N будет настолько велико, что не хватит ресурсов ПЛИС?)
Не могли бы Вы поделиться кодом своего блока делителя частоты,вдруг это поможет?)спасибо))


На глаза попадется, отправлю=)
Там обычный счетчики, каждый из которого сбрасываются от разных констант....тем самым и получил различные длительности.

А если от этого уйти, тогда можно взять одЫн счетчик и сбрасывать его, сравнивая с переменной заданной величиной. Т.о. шаг деления будет равен периоду дискретизации опорной частоты.

Если есть ограниченный набор каких-то фиксированных некоррелированных частот, тогда просто мультиплексируем их.
Если есть возможность пользоваться опорной частотой, тогда можно реализовать на основе счетчика.

Цитата
А что если N будет настолько велико, что не хватит ресурсов ПЛИС?)

А у Вас та как?????????????????????=)))))))))))))))))))
Или вы собираетесь торговать этим модулем=)?!

Тут можно извращаться по разному. Я предлагаю самое простое. Какая задача та у Вас? Если вы отметили, что
Цитата
изменять частоту при изменении некоторого 5 разрядного числа

тогда у вас не более 32-х номиналов частот. У вас FPGA или CPLD?
Возьмите счетчик и сравнивайте его состояние с переменной величиной. Пусть он считает до 1... до 3 и т.д. В результате вы получите импульсную последовательность следующую с разной частотой.


--------------------
Победа - это когда N раз упал и N+1 раз встал.
Go to the top of the page
 
+Quote Post
gethan
сообщение Mar 18 2014, 05:42
Сообщение #11


Участник
*

Группа: Участник
Сообщений: 17
Регистрация: 23-02-14
Пользователь №: 80 654



Цитата(Dmitriyspb @ Mar 18 2014, 08:47) *
А если от этого уйти, тогда можно взять одЫн счетчик и сбрасывать его, сравнивая с переменной заданной величиной. Т.о. шаг деления будет равен периоду дискретизации опорной частоты.

Я так и пытаюсь сделать)сначала переменной присваиваю значение, которое выбирается из case,а затем работаю с выбранным значением. Как формируется меандр у меня: если переменная равно нулю,то ей присваивается значение N , и некому сигналу '1' на время равному одному такту опорной частоты. Затем происходит уменьшение N до нуля и все заново) и потом по 'пичкам' формируем меандр. Может быть и сложновато,но работало,пока не добавил case(( и где ошибка не вижу к сожалению...Помогите увидетьsm.gif

Цитата(Dmitriyspb @ Mar 18 2014, 08:47) *
Если есть ограниченный набор каких-то фиксированных некоррелированных частот, тогда просто мультиплексируем их.
Если есть возможность пользоваться опорной частотой, тогда можно реализовать на основе счетчика.

Все частоты, которые хочется получить, формируются из опорной. Вся проблема,наверное,в неправильной работе case((

Цитата(Dmitriyspb @ Mar 18 2014, 08:47) *
Если вы отметили, что

тогда у вас не более 32-х номиналов частот. У вас FPGA или CPLD?
Возьмите счетчик и сравнивайте его состояние с переменной величиной. Пусть он считает до 1... до 3 и т.д. В результате вы получите импульсную последовательность следующую с разной частотой.

Пытаюсь все это реализовать на Actel APA 300. 5 разрядное число приведено как пример.оно мб и больше)спасибо за ответы и советыsm.gif
Go to the top of the page
 
+Quote Post
Dmitriyspb
сообщение Mar 18 2014, 05:44
Сообщение #12


Местный
***

Группа: Свой
Сообщений: 397
Регистрация: 21-11-12
Из: Россия г. Санкт-Петербург
Пользователь №: 74 498



Цитата(gethan @ Mar 18 2014, 09:33) *
Я так и пытаюсь сделать)сначала переменной присваиваю значение, которое выбирается из case,а затем работаю с выбранным значением. Как формируется меандр у меня: если переменная равно нулю,то ей присваивается значение N , и некому сигналу '1' на время равному одному такту опорной частоты. Затем происходит уменьшение N до нуля и все заново) и потом по 'пичкам' формируем меандр. Может быть и сложновато,но работало,пока не добавил case(( и где ошибка не вижу к сожалению...Помогите увидетьsm.gif


Все частоты, которые хочется получить, формируются из опорной. Вся проблема,наверное,в неправильной работе case((


Там все проще=)) Ладно, ищите ошибку... если уверены что все именно так стоит оставить=)

Код там примитивный 10 - 20 строк=) Счетчик (5 разрядов) + компаратор + формирователь меандра (триггер с обратной связью через инвертор).
6 триггеров + логика.

А вы такой листинг программы залупили=))

ModelSim вам в таком случае в помощь=))


--------------------
Победа - это когда N раз упал и N+1 раз встал.
Go to the top of the page
 
+Quote Post
sazh
сообщение Mar 18 2014, 06:09
Сообщение #13


Гуру
******

Группа: Свой
Сообщений: 2 435
Регистрация: 6-10-04
Из: Петербург
Пользователь №: 804



Цитата(gethan @ Mar 18 2014, 08:42) *
Пытаюсь все это реализовать

видимо с помощью мультиплексора
when "00111" =>
f15_1 := 641;

when others => null;
end case;

when others => наверно желателен заданный период, отличный от нуля.
Go to the top of the page
 
+Quote Post
gethan
сообщение Mar 18 2014, 07:00
Сообщение #14


Участник
*

Группа: Участник
Сообщений: 17
Регистрация: 23-02-14
Пользователь №: 80 654



Цитата(Dmitriyspb @ Mar 18 2014, 09:44) *
Там все проще=)) Ладно, ищите ошибку... если уверены что все именно так стоит оставить=)

Поделитесь,пожалуйста,своим работающим кодом)буду очень признателенsm.gif
Go to the top of the page
 
+Quote Post
iosifk
сообщение Mar 18 2014, 10:14
Сообщение #15


Гуру
******

Группа: Модераторы
Сообщений: 4 011
Регистрация: 8-09-05
Из: спб
Пользователь №: 8 369



Цитата(gethan @ Mar 18 2014, 11:00) *
Поделитесь,пожалуйста,своим работающим кодом)буду очень признателенsm.gif

На самом деле есть и более простой вариант...
У Вас:
-- << TAKT >> == 15 MHz
--сначала делаем меандр до частоты 2,5 MHz, из него формируем уже частоту f50k (50 kHz)

Берем двухпортовый блок памяти - это ОЗУ результатов и параметров. Определяем поля в ОЗУ, сколько битов под длительность пересчета, сколько под флаги, сколько под результат.
К нему счетчик адресов и АЛУ, которое вычитает код до нуля, а по нулю - перезагружается...
И крутим адреса по "кругу". А "круг" - это не более, чем 15M/2,5M или даже 15М/50К, т.е. там получится вполне достаточно тактов.
Делаем простой механизм, который считывает результат, вычитает 1 и записывает результат обратно в память. А при достижении 0 сигнал идет на триггер, соотв. номеру канала и его переключает в инверсное...
Далее остается только занести данные о периоде в ОЗУ и прорва таймеров начнет считать...
У меня в "Кратком Курсе" нечто подобное описано в главе о многопоточности...


--------------------
www.iosifk.narod.ru
Go to the top of the page
 
+Quote Post

2 страниц V   1 2 >
Reply to this topicStart new topic
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 


RSS Текстовая версия Сейчас: 19th July 2025 - 00:51
Рейтинг@Mail.ru


Страница сгенерированна за 0.01544 секунд с 7
ELECTRONIX ©2004-2016