38张方乐VHDL实训报告

《38张方乐VHDL实训报告》由会员上传分享，免费在线阅读，更多相关内容在应用文档-天天文库。

1、实训报告目录一实训名称二实训要求及目的三实训仪器以及设备四实训内容及步骤五实训结果及分析11电子（2）班张方乐实训名称：双向移位寄存器。实训要求及目的：1设计一个双向移位寄存器，理解移位寄存器的工作原理，掌握串入并出端口控制的描述方法。2通过VHDL编程，实现双向移位寄存器，要求有一个方向控制端，一个时钟脉冲输入，一个异步清零端，一个数据输入端以及3位的并行数据输出端。3通过点阵显示移位效果。实训内容及步骤：一程序设计：设计双向移位寄存器的VHDL程序。二程序编写：利用QuartusII编程软件，程序详见附一。三程序写入开发板：把数据线和USB线接入电脑，打开开发板的电源，将程

2、序写进开发板。四检验双向移位寄存器实验验证，利用开发板的点阵验证显示双向移位寄存器及程序的正确性，并与理论对比，如果实验结果与理论相同则程序正确。祥见附二实验分析。五实验完毕，关掉电源。附一：libraryieee;useieee.std_logic_1164.all;entityshuangxiangisport(load:instd_logic;clk:instd_logic;left_right:instd_logic;d:instd_logic_vector(2downto0);q:bufferstd_logic_vector(2downto0);aj:instd_log

3、ic_vector(1downto0);w:outstd_logic_vector(7downto0));endshuangxiang；architectureoneofshuangxiangissignalaa:std_logic_vector(2downto0);signalclkout:std_logic;signalcounter:integerrange0to2;signalclkhz:std_logic;signalclkhx:std_logic;signalclkhc:std_logic;signalclkout1:std_logic;beginw<="011111

4、11";process(clk)variableclk1:integerrange0to2000;variableclk2:integerrange0to2000;beginifclk'eventandclk='1'thenifclk1=2000thenclk1:=0;ifclk2=2000thenclk2:=0;clkout<=notclkout;elseclk2:=clk2+1;endif;elseclk1:=clk1+1;endif;endif;endprocess;process(clkout)variableclk1:integerrange0to1500;variab

5、leclk2:integerrange0to1500;beginifclk'eventandclk='1'thenifclk1=1500thenclk1:=0;ifclk2=1500thenclk2:=0;clkhz<=notclkhz;elseclk2:=clk2+1;endif;elseclk1:=clk1+1;endif;endif;endprocess;process(clkhz)variableclk1:integerrange0to2000;variableclk2:integerrange0to2000;beginifclk'eventandclk='1'theni

6、fclk1=1000thenclk1:=0;ifclk2=1000thenclk2:=0;clkhx<=notclkhx;elseclk2:=clk2+1;endif;elseclk1:=clk1+1;endif;endif;endprocess;process(clkhx)variableclk1:integerrange0to3000;variableclk2:integerrange0to3000;beginifclk'eventandclk='1'thenifclk1=3000thenclk1:=0;ifclk2=3000thenclk2:=0;clkhc<=notclk

7、hc;elseclk2:=clk2+1;endif;elseclk1:=clk1+1;endif;endif;endprocess;process(clkout,clkhz,clkhx,clkhc,aj,clk)beginifaj<="00"thenclkout1<=clkout;elsifaj<="01"thenclkout1<=clkhz;elsifaj<="10"thenclkout1<=clkhx;elseclkout1<=clkhc;endif;endprocess;p