拔河游戲設計VHDL代碼Quartus仿真

名稱：拔河游戲設計VHDL代碼Quartus仿真

軟件：Quartus

語言：VHDL

代碼功能：

拔河游戲通常是由兩隊人數相等的選手在河界兩側各執(zhí)繩索的一端，聞令后用力拉繩，以將對方拉出河界為勝。而在電子拔河游戲中，這一過程被轉化為電子信號的處理和顯示。使用led模擬繩子，通過按鍵按下的快慢來都發(fā)力。

設計指標：

電路使用9個發(fā)光二極管表示拔河的“電子繩”,開機后只有中間一個發(fā)亮,此即拔河的中心點。游戲甲乙雙方各持一個按鈕,迅速地不斷地按動產生脈沖,誰按得快,亮點向誰方向移動,每按一次,亮點移動一次。亮點移到任一方終端二極管,這一方就獲勝,此時雙方按鈕均無作用,輸出保持,只有復位后才使亮點恢復到中心。由裁判下達比賽開始命令后,甲乙雙方才能輸入信號,否則輸入信號無效。用數碼管顯示獲勝者的盤數,每次比賽結束自動給獲勝方加分。

FPGA代碼Verilog/VHDL代碼資源下載：www.hdlcode.com

演示視頻：

設計文檔：

1.工程文件

2.程序文件

3.程序編譯

4.RTL圖

5.仿真圖

整體仿真圖

控制模塊

按鍵檢測模塊

顯示模塊

部分代碼展示:

LIBRARY?ieee;
???USE?ieee.std_logic_1164.all;
???USE?ieee.std_logic_unsigned.all;
--控制模塊
ENTITY?bahe_ctrl?IS
???PORT?(
??????clk???????:?IN?STD_LOGIC;--標準時鐘
??????reset_n????????:?IN?STD_LOGIC;--復位信號，低有效?
reset_cnt????????:?IN?STD_LOGIC;--計數復位信號，低有效?
??????shift1???????:?IN?STD_LOGIC;--選手1
??????shift2???????:?IN?STD_LOGIC;--選手2
??????led????????????:?OUT?STD_LOGIC_VECTOR(8?DOWNTO?0);--9個led
???win1_times?????:OUT?STD_LOGIC_VECTOR(15?DOWNTO?0);--1號獲勝次數
???win2_times?????:OUT?STD_LOGIC_VECTOR(15?DOWNTO?0)--2號獲勝次數
???);
END?bahe_ctrl;
ARCHITECTURE?behave?OF?bahe_ctrl?IS
???
???TYPE?State_type?IS?(s_idle,?s_start,?s_left_shift,?s_right_shift,?s_win_1,?s_win_2);??--?定義狀態(tài)
???SIGNAL?state?:?State_Type;????--?創(chuàng)建信號
???SIGNAL?game_led??????:?STD_LOGIC_VECTOR(8?DOWNTO?0)?:=?"000010000";
SIGNAL?win1_num??????:?STD_LOGIC_VECTOR(15?DOWNTO?0)?:=?"0000000000000000";
SIGNAL?win2_num??????:?STD_LOGIC_VECTOR(15?DOWNTO?0)?:=?"0000000000000000";
BEGIN
???PROCESS?(clk)
???BEGIN
??????IF?(clk'EVENT?AND?clk?=?'1')?THEN
?????????IF?((NOT(reset_n))?=?'1')?THEN
????????????state?--復位狀態(tài)
?????????????????????state?--游戲中
??????????????????IF?(game_led?=?"100000000")?THEN
?????????????????????state?<=?s_win_1;--1號贏
??????????????????ELSIF?(game_led?=?"000000001")?THEN
?????????????????????state?<=?s_win_2;--2號贏
??????????????????ELSIF?(shift1?=?'1')?THEN
?????????????????????state?<=?s_left_shift;--led左移
??????????????????ELSIF?(shift2?=?'1')?THEN
?????????????????????state?<=?s_right_shift;--led右移
??????????????????ELSE
?????????????????????state?--led左移
??????????????????state?--led右移
??????????????????state?
??????????????????state?
??????????????????state?
????????????END?CASE;
?????????END?IF;
??????END?IF;
???END?PROCESS;
???
???
???PROCESS?(clk)
???BEGIN
??????IF?(clk'EVENT?AND?clk?=?'1')?THEN
?????????IF?((NOT(reset_n))?=?'1')?THEN--復位
????????????game_led?<=?"000010000";
?????????ELSIF?(state?=?s_left_shift)?THEN
????????????game_led?<=?(game_led(7?DOWNTO?0)?&?'0');--led左移
?????????ELSIF?(state?=?s_right_shift)?THEN
????????????game_led?<=?('0'?&?game_led(8?DOWNTO?1));--led右移
?????????END?IF;
??????END?IF;
???END?PROCESS;

點擊鏈接獲取代碼文件：http://www.hdlcode.com/index.php?m=home&c=View&a=index&aid=1516