实验报告1.设计任务要求，实现功能的描述。
两人乒乓游戏机是用8个发光二极管代表乒乓球台，，用发光二极管的移动来代表球的移动。
在游戏机的两侧各设一个开关，用来控制发球和击球。
两人按照比赛规则来按动开关。
当甲方按动开关，甲方的第一盏灯亮，然后发光二极管依次由甲向乙移动。
代表球的移动。
当球过网后到达乙方的倒数第二盏灯时，乙方可击球。
若乙方提前或是没有击中球，则甲方的记分牌自动加分。
然后重新发球，比赛继续进行。
一直进行到有一方的记分牌到达11分，该局结束。
胜方的局数加1。
重新开始一局。
2.设计思路和总体框图.首先，设置了一个可枚举类型的参量，用来控制整个过程。
其中包括未发球时的等待状态，灯顺序点亮的状态，因为灯亮的顺序有两个，一个是向甲方，一个是向乙方。
所以，相应的状态设了两个。
在此参量的控制下，整个程序实现其基本功能。
在各个状态时，实现灯的点亮和判断是否有键按下，再判断是否加分，是否加局数，是否清零。
状态转移图：3.分块电路设计（1）分频与防抖动设计了该程序中需要用到的所有时钟。
注意的是按键的扫描周期一定要高于灯亮的周期。
由于实验中有按键，加了防抖动的程序。
此程序是书中有的。
（2）状态的描述。
根据可枚举型的参变量作为敏感信号。
根据他的变化决定灯的走向和判断是否有键按下。
（3）状态的输出根据状态描述的状态决定灯的亮否，以及设计了一个标志信号f，用它来判断是否满足加分的条件。
因为数码管显示的是两位的数，用一个内嵌循环来计数。
（4）显示控制和译码输出利用片选信号决定选通哪一个数码管。
并且，给共阴极七段数码赋值显示数字。
4．总体电路图（图形法）5．仿真波形6．源程序library ieee;use ieee.std_logic_1164.all;use ieee.std_logic_unsigned.all;entity pingpang isport(clk,sa,sb:in std_logic;ball: buffer std_logic_vector(0 to 7);score:out std_logic_vector(0 to 6);con:buffer std_logic_vector(0 to 3));end pingpang;architecture tennis of pingpang issignal clk1 : std_logic;signal tmp1: integer range 0 to 100000;signal clk2 : std_logic;signal tmp2: integer range 0 to 24;signal flag: std_logic;type states is(s0,s1,s2,s3,s4,s5,s6);signal state:states;signal stop,s,ql:std_logic;signal scorea1,scorea2,scoreb1,scoreb2:std_logic_vector(0 to 3); signal dd:integer range 0 to 100;beginp1:process (clk)beginif(clk'event and clk='1')thenif(tmp1=100000) thentmp1<=0;clk1<=not clk1;elsetmp1<=tmp1+1;end if ;end if ;end process p1;p2:process (clk1)beginif(clk1'event and clk1='1')thenif(tmp2=24) thentmp2<=0;clk2<=not clk2;elsetmp2<=tmp2+1;end if ;end if ;end process p2;p3:process(clk2)variable ballvar:integer range 0 to 9; beginif(clk2'event and clk2='1')thenif(stop='1') thenif(flag='0') thenif (ballvar<8)thenballvar:=ballvar+1;else ballvar:=0;end if ;elseif(ballvar>1)thenballvar:=ballvar-1;else ballvar:=9;end if;end if;elseballvar:=0;end if;case ballvar iswhen 1=>ball<="10000000";when 2=>ball<="01000000";when 3=>ball<="00100000";when 4=>ball<="00010000";when 5=>ball<="00001000";when 6=>ball<="00000100";when 7=>ball<="00000010";when 8=>ball<="00000001";when others=>ball<="00000000";end case;end if;end process p3;p4:process(clk1)beginif(clk1'event and clk1='1')thencase state iswhen s0=>stop<='0';if(ql='1')thenscorea1<="0000";scorea2<="0000";scoreb1<="0000";scoreb2<="0000";ql<='0';elseif(dd=100)thendd<=0;if (sa='1' and sb='0')thenstate<=s1;elsif(sa='0' and sb='1') thenstate<=s4;else state<=s0;end if;else dd<=dd+1;end if;end if;when s1=>stop<='1';if (sa='1' and sb='0')thenstate<=s1;end if;flag<='0';if(sa='0' and sb='1' ) thenstate<=s3;elsif(ball="00001000")thenstate<=s2;else state<=s1;end if;when s2=>stop<='1';flag<='0';if (sa='1' and sb='0' and ball/="00001000")then state<=s6;elsif(sa='0' and sb='1') thenstate<=s4;elsif(ball="00000000") thenstate<=s3;else state<=s2;end if;when s3=>stop<='0';if(scorea2="0001" and scorea1="0001")thenql<='1';elseql<='0';if(scorea1="1001")thenscorea2<=scorea2+1;scorea1<="0000";elsescorea1<=scorea1+1;end if;end if;state<=s0;when s4=>stop<='1';if (sa='0' and sb='1')thenstate<=s4;end if;flag<='1';if(sa='1' and sb='0') thenstate<=s6;elsif(ball="00010000") thenstate<=s5;else state<=s4;end if;when s5=>stop<='1';flag<='1';if (sa='0' and sb='1' and ball/="00010000")then state<=s3;elsif(sa='1' and sb='0') thenstate<=s1;elsif(ball="00000000") thenstate<=s6;else state<=s5;end if;when s6=>stop<='1';if(scoreb2="0001" and scoreb1="0001")thenql<='1';elseql<='0';if(scoreb1="1001")thenscoreb2<=scoreb2+1;scoreb1<="0000";elsescoreb1<=scoreb1+1;end if;end if;state<=s0;end case;end if;end process p4;p5:process(clk1)variable count:integer range 0 to 3; beginif(clk1'event and clk1='1')thenif(count<3)thencount:=count+1;else count:=0;end if;case count iswhen 0=>con<="0111";when 1=>con<="1011";when 2=>con<="1101";when 3=>con<="1110";end case;end if;end process p5;p6:process(con)variable s:std_logic_vector(0 to 3); beginif(con="0111")thens:=scorea1;elsif(con="1011")thens:=scorea2;elsif(con="1101")thens:=scoreb1;elsif(con="1110")thens:=scoreb2;end if;case s iswhen "0000"=>score<="1111110";--0 when "0001"=>score<="0110000";--1when "0010"=>score<="1101101";--2when "0011"=>score<="1111001";--3when "0100"=>score<="0110011";--4when "0101"=>score<="1011011";--5when "0110"=>score<="1011111";--6when "0111"=>score<="1110000";--7when "1000"=>score<="1111111";--8when "1001"=>score<="1111011";--9when others=>score<="0000000";end case;end process p6;end tennis;7.故障及问题分析(1)延时设置不正确，导致数码管无法正常显示，后来发现是把数码管相关的两个延时概念搞混了，把数码管本身的显示延时和数字刷新延时搞反了，导致数码管无法正常显示．(2)一开始没设置防抖程序,结果发现在某些特定的时刻波动开关就会造成程序不正常运行.后来在必要位置加上防抖程序才使程序基本正常运行,看来防抖很必要啊.(3)在最后验收的时候老师竟然发现了一个逻辑错误,哎,至今没发现原因及解决方案……8．总结和结论该次实验，使我对一些语句的执行有了更深的体会。
