--總控制模塊
library ieee;
use ieee.std_logic_1164.all;
entity ballctrl is
port(clr:in std_logic;--系統(tǒng)復(fù)位
	bain:in std_logic;--左球拍
	bbin:in std_logic;--右球拍
	serclka:in std_logic;--左拍準(zhǔn)確接球或發(fā)球
	serclkb:in std_logic;--右拍準(zhǔn)確接球或發(fā)球
	clk:in std_logic;--乒乓球燈移動(dòng)時(shí)鐘
	bdout:out std_logic;--球拍接球脈沖
	serve:out std_logic;--發(fā)球狀態(tài)信號(hào)
	serclk:out std_logic;--球拍正確接球信號(hào)
	ballclr:out std_logic;--乒乓球燈清零信號(hào)
	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;--球拍正確接球信號(hào)
bdout<=bd;--球拍接球脈沖
process(clr,clk,bd)
begin
if(clr='1' ) then	--系統(tǒng)復(fù)位
	serve<='1';		--系統(tǒng)處在發(fā)球狀態(tài)
	ballclr<='1';	--乒乓球燈清零
else				--系統(tǒng)正常
	if(bd='1')then 		--球拍發(fā)球或接球時(shí)
		ballclr<='1';	--乒乓球燈清零
		if(ser='1') then--球拍發(fā)球或準(zhǔn)確接球
			ballen<='1';--乒乓球燈使能允許
			serve<='0';	--系統(tǒng)處在接球狀態(tài)
		else			--接球
						--