由于APEC假期推迟了一周,上周五我们才交实验报告,在这里我就不把自己的全部实验报告贴上来了。北邮或是其他学校的学生可以参考我的代码,并且欢迎提出交流
实验室里用的板子是EPM1270T144C5,内部时钟50MHz。我用的软件是Quartus9.0
实验基本要求:
(1)采用 8*8 双 {MOD}点阵显示电子沙漏的开机界面,如图2 所示。其中红 {MOD}LED 代表沙漏的上半部分沙粒VD0~VD15,绿 {MOD}LED 代表沙漏的下半部分VD0'~VD15'。
(2)用拨码开关 SW1 模拟重力感应器。当SW1 为低电平时,沙粒从VD0~VD15 向VD0'~VD15'移动;当SW1 为高电平时,沙粒从VD0'~VD15'向VD0~VD15 移动。
(3)按键 BTN0 作为计时启动停止按键,启动后沙粒即可按照SW1 设定的方向移动,以SW1 为低电平时为例,LED 移动的顺序与对应关系如图3 的①~⑯所示(若SW1为高电平,则点阵显示移动顺序为⑯~①)。每颗沙粒的移动时间为1 秒,当移动到图3 的○16时,若SW1 仍为低电平,则保持沙粒不动,但计时继续,直到SW1 的电平发生变化或者BTN0 计时停止。
(4)设计实现一个 60 秒计时器,当按键BTN0 启动时开始工作,用于在沙粒移动过程中进行计时校准,并用数码管DISP0~DISP1 显示计时结果。
3.提高要求:
(1)可以调节控制电子沙漏的流动速度。
(2)用多种方式呈现电子沙漏界面。
(3)自行设定沙粒的移动路径,显示每颗沙粒的移动过程。
(4)外接重力感应器,实现真实的电子沙漏功能。
(5)自拟其它功能。
这里就直接给出代码了,注释写的很详细,自己对于自己没有用到分模块的写法而感到惋惜,自己之前也是借鉴了一下一个点阵赛车的实验报告 http://wenku.baidu.com/view/02bfbd9d6bec0975f565e200.html
全段代码如下:
library ieee;
use ieee.std_logic_1164.all;
use ieee.std_logic_unsigned.all;
entity SandGlass is
port(
clk:in std_logic; --50MHZ自带晶振频率
reset: in std_logic; --启动停止键
direction: in std_logic; --方向控制键
showPath : in std_logic; --是否显示路径
speed : in std_logic; --加速键
beep: out std_logic; --蜂鸣器
row:out std_logic_vector(0 to 7); --点阵8行
colorRed:out std_logic_vector(0 to 7); --点阵8列,红点
colorGreen:out std_logic_vector(0 to 7); --点阵8列,绿点
cat :out std_logic_vector(5 downto 0); --数码管的6个位
seven:out std_logic_vector(6 downto 0)); --数码管的7位
end SandGlass ;
architecture a of SandGlass is
type figure is array(1 downto 0) of integer range 0 to 9;
signal shownum: figure; --数码管输出的数字
signal tim:std_logic; --扫描点阵和数码管的频率
signal timm:std_logic; --扫描点阵和数码管的频率
signal positiveMap:integer:=0; --正向刷新漏斗的标号
signal beep_count:integer range 0 to 1000000:=0;
signal beep_temp:std_logic; --蜂鸣器辅助信号
signal clk1:std_logic; --路径显示时沙漏的时钟
signal shuzi:integer:=1; --暂停按键计数器
signal clk2:std_logic; --常规沙漏的移动时钟
signal a:integer:=0; --辅助分频信号
signal count:integer:=0; --5秒倒数以及倒数后的状态标记
begin
clktim:process(clk) --分频模块
variable cout1: integer:=0;
variable cout2: integer:=0;
variable cout3: integer:=0;
variable cout4: integer:=0;
begin
if clk'event and clk = '1' then --扫描点阵和数码管
cout1:= cout1+1;
if cout1<= 25 then tim <= '0';
elsif cout1< 50 then tim <= '1';
else cout1:=0;
end if;
cout2:=cout2+1; --扫描按键
if cout2<= 4500000 then timm<='0';
elsif cout2< 9000000 then timm<='1';
else cout2:=0;
end if;
cout3:=cout3+1; --沙漏快速移动
if cout3<= 6250000 then clk1<='0';
elsif cout3< 12500000 then clk1<='1';
else cout3:=0;
end if;
cout4:=cout4+1; --时钟计时及沙漏常规移动
if cout4<= 25000000 then clk2<='0';
elsif cout4< 50000000 then clk2<='1';
else cout4:=0;
end if;
end if;
end process;
control:process(timm,reset,shuzi) --按键计数
begin
if (timm'event and timm='1') and (reset='1')then
shuzi<= shuzi+1;
end if;
end process;
controlsmg: process(clk2,shownum,shuzi,reset,count) --数码管控制
begin
if(shownum(1)<6) then
if reset='0' and (shuzi rem 2 =0) and (count=5)then
if (clk2'event and clk2='1') then
if(shownum(1)<=5) then
if(shownum(0)=9) then
shownum(0)<=0;
shownum(1)<=shownum(1)+1;
else
shownum(0)<= shownum(0)+1;
end if;
end if;
end if;
else
shownum(1)<=shownum(1);
shownum(0)<= shownum(0);
end if;
elsif( reset ='1') then
shownum(1)<=0;
shownum(0)<=0;
end if;
end process;
timeshow:process(reset,tim) --扫描显示数码管
variable sstate:integer range 0 to 1:=0;
begin
if tim'event and tim='1' then
--个位和十位快速轮流亮
sstate:=sstate+1;
case sstate is
when 1=>cat<="111101";
--个位亮
when 0=>cat<="111110";
--十位亮
end case;
case shownum(sstate) is
--显示数字
when 0=>seven<="1111110";
when 1=>seven<="0110000";
when 2=>seven<="1101101";
when 3=>seven<="1111001";
when 4=>seven<="0110011";
when 5=>seven<="1011011";
when 6=>seven<="1011111";
when 7=>seven<="1110000";
when 8=>seven<="1111111";
when 9=>seven<="1111011";
when others=>seven<="0000000";
end case;
end if;
end process;
beepfre_division:process(clk) --蜂鸣器分频
begin
if clk'event and clk = '1' then
beep_count <= beep_count+1;
if beep_count = 10 then
beep_count <= 0;
beep_temp <= not beep_temp;
end if;
end if;
end process;
beep_sound:process(beep_temp,shownum) --60秒到时蜂鸣器叫
begin
if shownum(1) =6 then
if beep_temp ='1' then
beep <= '1';
else beep<='0';
end if ;
else beep<='0';
end if;
end process;
secondscount:process(clk2,reset,shuzi,count)
--5秒倒数及倒数后的状态标记
begin
if reset='0' and (shuzi =1) then count<=0;
elsif(clk2'event and clk2='1')then
if (count<5)then
--5秒倒数
count<=count+1;
else
count<=5;
--倒数结束,保持游戏状态
end if;
end if;
end process;
sandMove: process(clk1,reset,shuzi,count,showPath,direction,shownum,positiveMap,speed) --沙漏移动
begin
if reset='0' and (shuzi rem 2 =0) then
if(clk1'event and clk1='1') and (shownum(1)<6)and(count=5) then
case showPath is --是否显示路径
when '0'=>
if (direction ='0') and (positiveMap <=50)and (positiveMap>=0) then --正向显示路径
positiveMap<= positiveMap +1;
if(positiveMap = 50) then
positiveMap <= 50;
end if;
elsif(direction ='1')and (positiveMap <=50)and (positiveMap>=0) then --反向显示路径
positiveMap <= positiveMap -1;
if( positiveMap = 0) then
positiveMap <=0;
end if;
else
positiveMap <= positiveMap;
end if;
when '1'=>
a<=a+1;
if(speed='0') then
case direction is
when '0'=> --常速正向标准沙漏
if (a>=3) and (positiveMap <=50)and (positiveMap>=0) and(count=5) then
case positiveMap is
when 0|1|2|3 =>
positiveMap<=4;
a<=0;
when 4|5|6|7=>
positiveMap<=8;
a<=0;
when 8|9|10|11=>
positiveMap<=12;
a<=0;
when 12|13|14|15=>
positiveMap<=16;
a<=0;
when 16|17|18|19=>
positiveMap<=20;
a<=0;
when 20|21|22|23=>
positiveMap<=24;
a<=0;
when 24|25|26|27=>
positiveMap<=28;
a<=0;
when 28|29|30=>
positiveMap<=31;
a<=0;
when 31|32|33=>
positiveMap<=34;
a<=0;
when 34|35|36=>
positiveMap<=37;
a<=0;
when 37|38|39=>
positiveMap<=40;
a<=0;
when 40|41|42=>
positiveMap<=43;
a<=0;
when 43|44=>
positiveMap<=45;
a<=0;
when 45|46=>
positiveMap<=47;
a<=0;
when 47|48=>
positiveMap<=49;
a<=0;
when 49|50=>
positiveMap<=50;
a<=0;
when others =>null;
end case;
else
positiveMap<=positiveMap;
end if;
when '1'=> --常速反向标准沙漏
if (a>=3)and (positiveMap <=50)and (positiveMap>=0) and(count=5) then
case positiveMap is
when 0|1|2|3|4 =>
positiveMap<=0;
a<=0;
when 8|5|6|7=>
positiveMap<=4;
a<=0;
when 12|9|10|11=>
positiveMap<=8;
a<=0;
when 16|13|14|15=>
positiveMap<=12;
a<=0;
when 20|17|18|19=>
positiveMap<=16;
a<=0;
when 24|21|22|23=>
positiveMap<=20;
a<=0;
when 28|25|26|27=>
positiveMap<=24;
a<=0;
when 31|29|30=>
positiveMap<=28;
a<=0;
when 34|32|33=>
positiveMap<=31;
a<=0;
when 37|35|36=>
positiveMap<=34;
a<=0;
when 40|38|39=>
positiveMap<=37;
a<=0;
when 43|41|42=>
positiveMap<=40;
a<=0;
when 45|44=>
positiveMap<=43;
a<=0;
when 47|46=>
positiveMap<=45;
a<=0;
when 49|48=>
positiveMap<=47;
a<=0;
when 50=>
positiveMap<=49;
a<=0;
when others =>null;
end case;
else
positiveMap<= positiveMap;
end if;
end case;
elsif(speed ='1') then
case direction is
when '0'=> --加速正向标准沙漏
if (a>=1) and (positiveMap <=50)and (positiveMap>=0) and(count=5) then
case positiveMap is
when 0|1|2|3 =>
positiveMap<=4;
a<=0;
when 4|5|6|7=>
positiveMap<=8;
a<=0;
when 8|9|10|11=>
positiveMap<=12;
a<=0;
when 12|13|14|15=>
positiveMap<=16;
a<=0;
when 16|17|18|19=>
positiveMap<=20;
a<=0;
when 20|21|22|23=>
positiveMap<=24;
a<=0;
when 24|25|26|27=>
positiveMap<=28;
a<=0;
when 28|29|30=>
positiveMap<=31;
a<=0;
when 31|32|33=>
positiveMap<=34;
a<=0;
when 34|35|36=>
positiveMap<=37;
a<=0;
when 37|38|39=>
positiveMap<=40;
a<=0;
when 40|41|42=>
positiveMap<=43;
a<=0;
when 43|44=>
positiveMap<=45;
a<=0;
when 45|46=>
positiveMap<=47;
a<=0;
when 47|48=>
positiveMap<=49;
a<=0;
when 49|50=>
positiveMap<=50;
a<=0;
when others =>null;
end case;
else
positiveMap<=positiveMap;
end if;
when '1'=> --加速反向标准沙漏
if (a>=1)and (positiveMap <=50)and (positiveMap>=0) and(count=5) then
case positiveMap is
when 0|1|2|3|4 =>
positiveMap<=0;
a<=0;
when 8|5|6|7=>
positiveMap<=4;
a<=0;
when 12|9|10|11=>
positiveMap<=8;
a<=0;
when 16|13|14|15=>
positiveMap<=12;
a<=0;
when 20|17|18|19=>
positiveMap<=16;
a<=0;
when 24|21|22|23=>
positiveMap<=20;
a<=0;
when 28|25|26|27=>
positiveMap<=24;
a<=0;
when 31|29|30=>
positiveMap<=28;
a<=0;
when 34|32|33=>
positiveMap<=31;
a<=0;
when 37|35|36=>
positiveMap<=34;
a<=0;
when 40|38|39=>
positiveMap<=37;
a<=0;
when 43|41|42=>
positiveMap<=40;
a<=0;
when 45|44=>
positiveMap<=43;
a<=0;
when 47|46=>
positiveMap<=45;
a<=0;
when 49|48=>
positiveMap<=47;
a<=0;
when 50=>
positiveMap<=49;
a<=0;
when others =>null;
end case;
else
positiveMap<= positiveMap;
end if;
end case;
end if;
end case;
end if;
end if;
end process;
Show: process(tim,reset,positiveMap) --沙漏点阵显示
variable kk:integer:=0;
begin
if(tim'event and tim='1') then
if(count=5) then --5秒倒计时完后
colorRed <= "00000000";
colorGreen <= "00000000";
row <= "11111111";
case positiveMap is --0~50种情况
when 0=>
if(kk<=7) then
case kk is
when 0 =>
row(kk)<='0'; colorGreen <="11111110";kk:=kk+1;
when 1=>
row(kk)<='0'; colorGreen<="01111100"; kk:=kk+1;
when 2=>
row(kk) <= '0'; colorGreen <="00111000"; kk:=kk+1;
when 3=>
row(kk) <= '0'; colorGreen <= "00010000"; kk:=kk+1;
when 4=>
row(kk) <= '0'; colorRed <= "00010000"; kk:=kk+1;
when 5=>
row(kk) <= '0'; colorRed <= "00111000"; kk:=kk+1;
when 6=>
row(kk) <= '0'; colorRed <= "01111100"; kk:=kk+1;
when 7=>
row(kk) <= '0'; colorRed <= "11111110"; kk:=kk+1;
when others =>kk:= kk+1;
end case;
else kk:=0;
end if;
when 1=>
if(kk<=7) then
case kk is
when 0 =>
row(kk)<='0'; colorGreen <="11111110";kk:=kk+1;
when 1=>
row(kk)<='0'; colorGreen<="01111100"; kk:=kk+1;
when 2=>
row(kk) <= '0'; colorGreen <="00111000"; kk:=kk+1;
when 3=>
row(kk) <= '0'; colorRed <="00010000";kk:=kk+1;
when 4=>
row(kk) <= '0'; colorRed <= "00010000"; kk:=kk+1;
when 5=>
row(kk) <= '0'; colorRed <= "00111000"; kk:=kk+1;
when 6=>
row(kk) <= '0'; colorRed <= "01111100"; kk:=kk+1;
when 7=>
row(kk) <= '0'; colorRed <= "11101110";colorGreen <="00010000"; kk:=kk+1;
when others =>kk:= kk+1;
end case;
else kk:=0;
end if;
when 2=>
if(kk<=7) then
case kk is
when 0 =>
row(kk)<='0'; colorGreen <="11111110";colorRed <="00000000";kk:=kk+1;
when 1=>
row(kk)<='0'; colorGreen<="01111100"; kk:=kk+1;
when 2=>
row(kk) <= '0'; colorGreen <="00101000";colorRed<="00010000"; kk:=kk+1;
when 3=>
row(kk) <= '0'; colorGreen <= "00010000"; kk:=kk+1;
when 4=>
row(kk) <= '0'; colorRed <= "00010000"; kk:=kk+1;
when 5=>
row(kk) <= '0'; colorRed <= "00111000"; kk:=kk+1;
when 6=>
row(kk) <= '0'; colorRed <= "01111100"; kk:=kk+1;
when 7=>
row(kk) <= '0'; colorRed <= "11101110";colorGreen <="00010000"; kk:=kk+1;
when others =>kk:= kk+1;
end case;
else kk:=0;
end if;
when 3=>
if(kk<=7) then
case kk is
when 0 =>
row(kk)<='0'; colorGreen <="11111110";colorRed <="00000000";kk:=kk+1;
when 1=>
row(kk)<='0'; colorGreen<="01101100"; colorRed<="00010000";kk:=kk+1;
when 2=>
row(kk) <= '0'; colorGreen <="00111000"; kk:=kk+1;
when 3=>
row(kk) <= '0'; colorGreen <= "00010000"; kk:=kk+1;
when 4=>
row(kk) <= '0'; colorRed <= "00010000"; kk:=kk+1;
when 5=>
row(kk) <= '0'; colorRed <= "00111000"; kk:=kk+1;
when 6=>
row(kk) <= '0'; colorRed <= "01111100"; kk:=kk+1;
when 7=>
row(kk) <= '0'; colorRed <= "11101110";colorGreen <="00010000"; kk:=kk+1;
when others =>kk:= kk+1;
end case;
else kk:=0;
end if;
when 4=>
if(kk<=7) then
case kk is
when 0 =>
row(kk)<='0'; colorGreen <="11101110";colorRed<="00010000";kk:=kk+1;
when 1=>
row(kk)<='0'; colorGreen<="01111100"; kk:=kk+1;
when 2=>
row(kk) <= '0'; colorGreen <="00111000"; kk:=kk+1;
when 3=>
row(kk) <= '0'; colorGreen <= "00010000"; kk:=kk+1;
when 4=>
row(kk) <= '0'; colorRed <= "00010000"; kk:=kk+1;
when 5=>
row(kk) <= '0'; colorRed <= "00111000"; kk:=kk+1;
when 6=>
row(kk) <= '0'; colorRed <= "01111100"; kk:=kk+1;
when 7=>
row(kk) <= '0'; colorRed <= "11101110";colorGreen <="00010000"; kk:=kk+1;
when others =>kk:= kk+1;
end case;
else kk:=0;
end if;
when 5=>
if(kk<=7) then
case kk is
when 0 =>
row(kk)<='0'; colorGreen <="11101110";colorRed <="00010000";kk:=kk+1;
when 1=>
row(kk)<='0'; colorGreen<="01111100"; kk:=kk+1;
when 2=>
row(kk) <= '0'; colorGreen <="00111000"; kk:=kk+1;
when 3=>
row(kk) <= '0'; colorGreen <= "00000000"; colorRed<="00010000";kk:=kk+1;
when 4=>
row(kk) <= '0'; colorRed <= "00010000"; kk:=kk+1;
when 5=>
row(kk) <= '0'; colorRed <= "00111000"; kk:=kk+1;
when 6=>
row(kk) <= '0'; colorRed <= "01111100"; kk:=kk+1;
when 7=>
row(kk) <= '0'; colorRed <= "11001110";colorGreen <="00110000"; kk:=kk+1;
when others =>kk:= kk+1;
end case;
else kk:=0;
end if;
when 6=>
if(kk<=7) then
case kk is
when 0 =>
row(kk)<='0'; colorGreen <="11101110";colorRed <="00010000";kk:=kk+1;
when 1=>
row(kk)<='0'; colorGreen<="01111100"; kk:=kk+1;
when 2=>
row(kk) <= '0'; colorGreen <="00011000";colorRed<="00100000"; kk:=kk+1;
when 3=>
row(kk) <= '0'; colorGreen <= "00010000"; kk:=kk+1;
when 4=>
row(kk) <= '0'; colorRed <= "00010000"; kk:=kk+1;
when 5=>
row(kk) <= '0'; colorRed <= "00111000"; kk:=kk+1;
when 6=>
row(kk) <= '0'; colorRed <= "01111100"; kk:=kk+1;
when 7=>
row(kk) <= '0'; colorRed <= "11001110";colorGreen <="00110000"; kk:=kk+1;
when others =>kk:= kk+1;
end case;
else kk:=0;
end if;
when 7=>
if(kk<=7) then
case kk is
when 0 =>
row(kk)<='0'; colorGreen <="11101110";colorRed <="00010000";kk:=kk+1;
when 1=>
row(kk)<='0'; colorGreen<="01011100"; colorRed<="00100000";kk:=kk+1;
when 2=>
row(kk) <= '0'; colorGreen <="00111000"; kk:=kk+1;
when 3=>
row(kk) <= '0'; colorGreen <= "00010000"; kk:=kk+1;
when 4=>
row(kk) <= '0'; colorRed <= "00010000"; kk:=kk+1;
when 5=>
row(kk) <= '0'; colorRed <= "00111000"; kk:=kk+1;
when 6=>
row(kk) <= '0'; colorRed <= "01111100"; kk:=kk+1;
when 7=>
row(kk) <= '0'; colorRed <= "11001110";colorGreen <="00110000"; kk:=kk+1;
when others =>kk:= kk+1;
end case;
else kk:=0;
end if;
when 8=>
if(kk<=7) then
case kk is
when 0 =>
row(kk)<='0'; colorRed <="00110000";colorGreen<="11001110";kk:=kk+1;
when 1=>
row(kk)<='0'; colorGreen<="01111100"; kk:=kk+1;
when 2=>
row(kk) <= '0'; colorGreen <="00111000"; kk:=kk+1;
when 3=>
row(kk) <= '0'; colorGreen <= "00010000"; kk:=kk+1;
when 4=>
row(kk) <= '0'; colorRed <= "00010000"; kk:=kk+1;
when 5=>
row(kk) <= '0'; colorRed <= "00111000"; kk:=kk+1;
when 6=>
row(kk) <= '0'; colorRed <= "01111100"; kk:=kk+1;
when 7=>
row(kk) <= '0'; colorRed <= "11001110";colorGreen <="00110000"; kk:=kk+1;
when others =>kk:= kk+1;
end case;
else kk:=0;
end if;
when 9=>
if(kk<=7) then
case kk is
when 0 =>
row(kk)<='0'; colorRed <="00110000";colorGreen<="11001110";kk:=kk+1;
when 1=>
row(kk)<='0'; colorGreen<="01111100"; kk:=kk+1;
when 2=>
row(kk) <= '0'; colorGreen <="00111000"; kk:=kk+1;
when 3=>
row(kk) <= '0'; colorRed <= "00010000"; kk:=kk+1;
when 4=>
row(kk) <= '0'; colorRed <= "00010000"; kk:=kk+1;
when 5=>
row(kk) <= '0'; colorRed <= "00111000"; kk:=kk+1;
when 6=>
row(kk) <= '0'; colorRed <= "01111100"; kk:=kk+1;
when 7=>
&nbs