標題: FSK調制與解調VHDL程序 [打印本頁]
作者: wang1587170 時間: 2018-1-8 17:25
標題: FSK調制與解調VHDL程序
8.10 FSK調制與解調VHDL程序
1. FSK調制VHDL程序
--文件名：PL_FSK
--功能：基于VHDL硬件描述語言，對基帶信號進行FSK調制
--最后修改日期：
library ieee;
use ieee.std_logic_arith.all;
use ieee.std_logic_1164.all;
use ieee.std_logic_unsigned.all;
entity PL_FSK is
port(clk :in std_logic; --系統時鐘
start :in std_logic; --開始調制信號
x :in std_logic; --基帶信號
y :out std_logic); --調制信號
end PL_FSK;
architecture behav of PL_FSK is
signal q1:integer range 0 to 11; --載波信號f1的分頻計數器
signal q2:integer range 0 to 3; --載波信號f2的分頻計數器
signal f1,f2:std_logic; --載波信號f1，f2
begin
process(clk) --此進程通過對系統時鐘clk的分頻，得到載波f1
begin
if clk'event and clk='1' then
if start='0' then q1<=0;
elsif q1<=5 then f1<='1';q1<=q1+1; --改變q1后面的數字可以改變，載波f1的占空比
elsif q1=11 then f1<='0';q1<=0; --改變q1后面的數字可以改變，載波f1的頻率
else f1<='0';q1<=q1+1;
end if;
end if;
end process;
process(clk) --此進程通過對系統時鐘clk的分頻，得到載波f2
begin
if clk'event and clk='1' then
if start='0' then q2<=0;
elsif q2<=0 then f2<='1';q2<=q2+1; --改變q2后面的數字可以改變，載波f2的占空比
elsif q2=1 then f2<='0';q2<=0; --改變q2后面的數字可以改變，載波f2的頻率
else f2<='0';q2<=q2+1;
end if;
end if;
end process;
process(clk,x) --此進程完成對基帶信號的FSK調制
begin
if clk'event and clk='1' then
if x='0' then y<=f1; --當輸入的基帶信號x=‘0’時，輸出的調制信號y為f1
else y<=f2; --當輸入的基帶信號x=‘1’時，輸出的調制信號y為f2
end if;
end if;
end process;
end behav;
1. FSK解調VHDL程序
--文件名：PL_FSK2
--功能：基于VHDL硬件描述語言，對FSK調制信號進行解調
--最后修改日期：
library ieee;
use ieee.std_logic_arith.all;
use ieee.std_logic_1164.all;
use ieee.std_logic_unsigned.all;
entity PL_FSK2 is
port(clk :in std_logic; --系統時鐘
start :in std_logic; --同步信號
x :in std_logic; --調制信號
y :out std_logic); --基帶信號
end PL_FSK2;
architecture behav of PL_FSK2 is
signal q:integer range 0 to 11; --分頻計數器
signal xx:std_logic; --寄存器
signal m:integer range 0 to 5; --計數器
begin
process(clk) --對系統時鐘進行q分頻
begin
if clk'event and clk='1' then xx<=x; --在clk信上升沿時，x信號對中間信號xx賦值
if start='0' then q<=0; --if語句完成Q的循環計數
elsif q=11 then q<=0;
else q<=q+1;
end if;
end if;
end process;
process(xx,q) --此進程完成FSK解調
begin
if q=11 then m<=0; --m計數器清零
elsif q=10 then
if m<=3 then y<='0'; --if語句通過對m大小，來判決y輸出的電平
else y<='1';
end if;
elsif xx'event and xx='1'then m<=m+1; --計xx信號的脈沖個數
end if;
end process;
end behav
作者: FFEGFIUEGUEGT 時間: 2018-1-9 20:46
這個程序你運行成功過嗎？為什么我運行起來顯示有三個警告啊
| 歡迎光臨 (http://www.raoushi.com/bbs/) |
Powered by Discuz! X3.1 |