--總控制模塊
library ieee;
use ieee.std_logic_1164.all;
entity ballctrl is
port(clr:in std_logic;--系統復位
	bain:in std_logic;--左球拍
	bbin:in std_logic;--右球拍
	serclka:in std_logic;--左拍準確接球或發球
	serclkb:in std_logic;--右拍準確接球或發球
	clk:in std_logic;--乒乓球燈移動時鐘
	bdout:out std_logic;--球拍接球脈沖
	serve:out std_logic;--發球狀態信號
	serclk:out std_logic;--球拍正確接球信號
	ballclr:out std_logic;--乒乓球燈清零信號
	ballen:out std_logic);--乒乓球燈使能
end ballctrl;
architecture ful of ballctrl is
signal bd:std_logic;
signal ser:std_logic;
begin
bd<=bain or bbin;
ser<=serclka or serclkb;
serclk<=ser;--球拍正確接球信號
bdout<=bd;--球拍接球脈沖
process(clr,clk,bd)
begin
if(clr='1' ) then	--系統復位
	serve<='1';		--系統處在發球狀態
	ballclr<='1';	--乒乓球燈清零
else				--系統正常
	if(bd='1')then 		--球拍發球或接球時
		ballclr<='1';	--乒乓球燈清零
		if(ser='1') then--球拍發球或準確接球
			ballen<='1';--乒乓球燈使能允許
			serve<='0';	--系統處在接球狀態
		else			--接球
						--