【正文】 WHEN 4 = CASE led_row IS WHEN 10111111 = led_row=01111111。led_col=11111111。led_col=11111111。led_col=11111111。led_col=11111111。led_col=11111111。led_col=11111111。led_col=11111111。led_col=11111111。led_col=00011111。 END CASE。 WHEN OTHERS = led_row=01111111。 WHEN 01111111 = led_row=11111110。 WHEN 11111110 = led_row=11111101。 WHEN 11111101 = led_row=11111011。 WHEN 11111011 = led_row=11110111。 WHEN 11110111 = led_row=11101111。 WHEN 11101111 = led_row=11011111。 WHEN 11011111 = led_row=10111111。 WHEN 2 = CASE led_row IS WHEN 10111111 = led_row=01111111。led_col=11111111。led_col=11111111。led_col=11111111。led_col=11111111。led_col=11111111。led_col=11111111。led_col=11111111。led_col=11111111。led_col=01111111。 END CASE。 WHEN OTHERS = led_row=01111111。 WHEN 01111111 = led_row=11111110。 WHEN 11111110 = led_row=11111101。 WHEN 11111101 = led_row=11111011。 WHEN 11111011 = led_row=11110111。 WHEN 11110111 = led_row=11101111。 WHEN 11101111 = led_row=11011111。 WHEN 11011111 = led_row=10111111。 ELSE daojishi CASE count_down IS WHEN 0 = CASE led_row IS WHEN 10111111 = led_row=01111111。led_col=00000000。led_col=00000000。led_col=00000000。led_col=00000000。led_col=00000000。led_col=00000000。led_col=00000000。led_col=00000000。led_col=00000000。 END CASE。 WHEN OTHERS = led_row=01111111。 WHEN 01111111 = led_row=11111110。 WHEN 11111110 = led_row=11111101。 WHEN 11111101 = led_row=11111011。 WHEN 11111011 = led_row=11110111。 WHEN 11110111 = led_row=11101111。 WHEN 11101111 = led_row=11011111。 WHEN 11011111 = led_row=10111111。 ELSIF led=3 THEN X CASE led_row IS WHEN 10111111 = led_row=01111111。led_col=11111111。led_col=00000000。led_col=01000010。led_col=10100101。led_col=00000000。led_col=01000010。led_col=00100100。led_col=00011000。led_col=00000000。 END CASE。 WHEN OTHERS = led_row=01111111。 WHEN 01111111 = led_row=11111110。 WHEN 11111110 = led_row=11111101。 WHEN 11111101 = led_row=11111011。 WHEN 11111011 = led_row=11110111。 WHEN 11110111 = led_row=11101111。 WHEN 11101111 = led_row=11011111。 WHEN 11011111 = led_row=10111111。 THEN IF led=1 THEN jiong CASE led_row IS WHEN 10111111 = led_row=01111111。event AND clk_scan=39。1 點(diǎn)陣顯示Led=4，分別代表囧、笑臉、X、nullCount_down=0、2 END IF。系統(tǒng)故障 END CASE。指示數(shù)字猜測 WHEN over = ld_out=1111。指示游戲開始 WHEN s2 = ld_out=0010。 THEN CASE state IS WHEN idle = ld_out=1000。event AND clk_scan=39。 END PROCESS p7。 END CASE。 END IF。 y4=0000000。 y2=0000000。 THEN key2=0000000。 IF tf=39。 count6:=0。039。 END IF。 count11:=0。 If count11=1000 THEN done=39。 num_a=count5。139。039。039。139。 END IF。 ELSIF x4=y3 THEN count6:=count6+1。 ELSIF x4=y1 THEN count6:=count6+1。 END IF。 ELSIF x3=y4 THEN count6:=count6+1。 ELSIF x3=y1 THEN count6:=count6+1。 END IF。 ELSIF x2=y4 THEN count6:=count6+1。 ELSIF x2=y1 THEN count6:=count6+1。 END IF。 ELSIF x1=y4 THEN count6:=count6+1。 ELSIF x1=y2 THEN count6:=count6+1。 count6:=0。 END CASE。 END IF。 count2:=0。 END IF。 count2:=3。 END IF。 count2:=2。 END IF。 count2:=1。 END CASE。 END CASE。 WHEN 1101 = key2=data9。 END CASE。 WHEN 1110 = key2=data6。 WHEN 1011 = key2=data4。 END CASE。 WHEN 1110 = key2=data2。 WHEN 1011 = key2=data0。039。 END CASE。 END IF。 count1:=0。 END IF。 count1:=3。 END IF。 count1:=2。 END IF。 count1:=1。 END CASE。 END CASE。 WHEN 1101 = key1=data9。 END CASE。 WHEN 1110 = key1=data6。 WHEN 1011 = key1=data4。 END CASE。 WHEN 1110 = key1=data2。 WHEN 1011 = key1=data0。039。039。139。039。 count6:=0。 count2:=0。 key2=0000000。039。 num_b=0。 y4=0000000。 y2=0000000。 x4=0000000。 x2=0000000。139。 BEGIN IF clk_scan39。 VARIABLE count6:INTEGER RANGE 0 TO 4:=0。 VARIABLE count2:INTEGER RANGE 0 TO 3:=0。 END PROCESS p6。 WHEN OTHERS = seg_b=0000000。 WHEN 3 = seg_b=data3。 WHEN 1 = seg_b=data1。 END CASE。 WHEN 4 = seg_a=data4。 WHEN 2 = seg_a=data2。 數(shù)字傳輸將判斷所得A、B顯示在數(shù)碼管上P6:PROCESS(num_a,num_b) trans num to seg BEGIN CASE num_a IS WHEN 0 = seg_a=data0。 END IF。 END CASE。 WHEN 1101 = scan=1110。 WHEN 0111 = scan=1011。139。 鍵盤掃描P5:PROCESS(clk_scan) scan BEGIN IF clk_scan39。 END IF。 cat_out=cat。 WHEN OTHERS =NULL。seg=0000000。seg=y4。seg=y3。seg=y2。seg=y1。seg=seg_b。seg=seg_a。 END CASE。 WHEN OTHERS = cat=011111。 WHEN 111101 = cat=111110。 WHEN 111011 = cat=111101。 WHEN 110111 = cat=111011。 WHEN 101111 = cat=110111。 WHEN 011111 = cat=101111。 WHEN s3 = CASE cat IS WHEN 111110 = cat=011111。seg=0000000。seg=y4。seg=y3。seg=y2。seg=y1。seg=seg_b。seg=seg_a。 END CASE。 WHEN OTHERS = cat=011111。 WHEN 111101 = cat=111110。 WHEN 111011 = cat=111101。 WHEN 110111 = cat=111011。 WHEN 101111 = cat=110111。 WHEN 011111 = cat=101111。 WHEN s1 = CASE cat IS WHEN 111110 = cat=011111。seg=0000000。seg=0000000。seg=0000000。seg=00000