【正文】 next_state=over。 ELSE next_state=s3。 END IF。 WHEN over = IF st=39。139。 THEN next_state=idle。 ELSIF tf=39。039。 THEN IF tm=39。039。 THEN next_state=s2。 ELSE next_state=over。 END IF。 ELSE next_state=over。 END IF。 WHEN OTHERS =next_state=idle。 END CASE。 END IF。 END PROCESS p1。 p2:PROCESS(clk) fenping VARIABLE count3:INTEGER:=0。 VARIABLE count4:INTEGER:=0。 BEGIN IF clk39。event AND clk=39。139。 THEN IF count4=24999 THEN clk_scan=NOT clk_scan。 count4:=0。 IF count3=24999999 THEN clk_tm=NOT clk_tm。 count3:=0。 ELSE count3:=count3+1。 END IF。 ELSE count3:=count3+1。 count4:=count4+1。 END IF。 END IF。 END PROCESS p2。 p3:PROCESS(clk_tm,count_clear,tf,bee) count down BEGIN IF tf=39。139。 THEN led=2。 ELSIF count_clear=39。139。 THEN count_down=0。 led=4。 tm=39。039。 ELSIF bee=39。139。 THEN led=3。 ELSIF state=s2 THEN IF clk_tm39。event AND clk_tm=39。139。 THEN IF count_down=64 THEN tm=39。139。 count_down=0。 led=1。 ELSE count_down=count_down+1。 led=0。 END IF。 END IF。 ELSE NULL。 END IF。 END PROCESS p3。 p4:PROCESS(clk_scan)display seg BEGIN IF clk_scan39。event AND clk_scan=39。139。 THEN CASE state IS WHEN idle = CASE cat IS WHEN 111110 = cat=011111。seg=0000000。 WHEN 011111 = cat=101111。seg=0000000。 WHEN 101111 = cat=110111。seg=0000000。 WHEN 110111 = cat=111011。seg=0000000。 WHEN 111011 = cat=111101。seg=0000000。 WHEN 111101 = cat=111110。seg=0000000。 WHEN OTHERS = cat=011111。seg=0000000。 END CASE。 WHEN s1 = CASE cat IS WHEN 111110 = cat=011111。seg=0000000。 WHEN 011111 = cat=101111。seg=0000000。 WHEN 101111 = cat=110111。seg=x1。 WHEN 110111 = cat=111011。seg=x2。 WHEN 111011 = cat=111101。seg=x3。 WHEN 111101 = cat=111110。seg=x4。 WHEN OTHERS = cat=011111。seg=0000000。 END CASE。 WHEN s2 = CASE cat IS WHEN 111110 = cat=011111。seg=seg_a。 WHEN 011111 = cat=101111。seg=seg_b。 WHEN 101111 = cat=110111。seg=y1。 WHEN 110111 = cat=111011。seg=y2。 WHEN 111011 = cat=111101。seg=y3。 WHEN 111101 = cat=111110。seg=y4。 WHEN OTHERS = cat=011111。seg=0000000。 END CASE。 WHEN s3 = CASE cat IS WHEN 111110 = cat=011111。seg=seg_a。 WHEN 011111 = cat=101111。seg=seg_b。 WHEN 101111 = cat=110111。seg=y1。 WHEN 110111 = cat=111011。seg=y2。 WHEN 111011 = cat=111101。seg=y3。 WHEN 111101 = cat=111110。seg=y4。 WHEN OTHERS = cat=011111。seg=0000000。 END CASE。 WHEN over = CASE cat IS WHEN 111110 = cat=011111。seg=seg_a。 WHEN 011111 = cat=101111。seg=seg_b。 WHEN 101111 = cat=110111。seg=y1。 WHEN 110111 = cat=111011。seg=y2。 WHEN 111011 = cat=111101。seg=y3。 WHEN 111101 = cat=111110。seg=y4。 WHEN OTHERS = cat=011111。seg=0000000。 END CASE。 WHEN OTHERS =NULL。 END CASE。 cat_out=cat。 seg_out=seg。 END IF。 END PROCESS p4。 p5:PROCESS(clk_scan) scan BEGIN IF clk_scan39。event AND clk_scan=39。139。 THEN CASE scan IS WHEN 1110 = scan=0111。 WHEN 0111 = scan=1011。 WHEN 1011 = scan=1101。 WHEN 1101 = scan=1110。 WHEN OTHERS = scan=0111。 END CASE。 scan_out=scan。 END IF。 END PROCESS p5。 p6:PROCESS(num_a,num_b) trans num to seg BEGIN CASE num_a IS WHEN 0 = seg_a=data0。 WHEN 1 = seg_a=data1。 WHEN 2 = seg_a=data2。 WHEN 3 = seg_a=data3。 WHEN 4 = seg_a=data4。 WHEN OTHERS = seg_a=0000000。 END CASE。 CASE num_b IS WHEN 0 = seg_b=data0。 WHEN 1 = seg_b=data1。 WHEN 2 = seg_b=data2。 WHEN 3 = seg_b=data3。 WHEN 4 = seg_b=data4。 WHEN OTHERS = seg_b=0000000。 END CASE。 END PROCESS p6。 p7:PROCESS(clk_scan) key in VARIABLE count1:INTEGER RANGE 0 TO 3:=0。 VARIABLE count2:INTEGER RANGE 0 TO 3:=0。 VARIABLE count5:INTEGER RANGE 0 TO 4:=0。 VARIABLE count6:INTEGER RANGE 0 TO 4:=0。 VARIABLE count11:INTEGER :=0。 BEGIN IF clk_scan39。event AND clk_scan=39。139。 THEN CASE state IS WHEN idle = x1=0000000。 x2=0000000。 x3=0000000。 x4=0000000。 y1=0000000。 y2=0000000。 y3=0000000。 y4=0000000。 num_a=0。 num_b=0。 tf=39。039。 key1=0000000。 key2=0000000。 count1:=0。 count2:=0。 count5:=0。 count6:=0。 done=39。039。 count_clear=39。139。 bee=39。039。 WHEN s1 = count_clear=39。039。 CASE key_row IS WHEN 0111 = CASE scan IS WHEN 0111 = key1=data3。 WHEN 1011 = key1=data0。 WHEN 1101 = key1=data1。 WHEN 1110 = key1=data2。 WHEN OTHERS = NULL。 END CASE。 WHEN 1011 = CASE scan IS WHEN 0111 = key1=data7。 WHEN 1011 = key1=data4。 WHEN 1101 = key1=data5。 WHEN 1110 = key1=data6。 WHEN OTHERS = NULL。 END CASE。 WHEN 1101 = CASE scan IS WHEN 1011 = key1=data8。 WHEN 1101 = key1=data9。 WHEN OTHERS = NULL。 END CASE。 WHEN OTHERS = NULL。 END CASE。 CASE count1 IS WHEN 0 = IF key1 /= x4 THEN x1=key1。 count1:=1。 ELSE NULL。 END IF。 WHEN 1 = IF key1 /= x1 THEN x2=key1。 count1:=2。 ELSE NULL。 END IF。 WHEN 2 = IF key1 /= x2 THEN x3=key1。 count1:=3。 ELSE NULL。 END IF。 WHEN 3 =