【正文】 。 when 10001 = q1 =00000110000000100000000000000000。 when 10010 = q1 =10000110000000000000000000000000。 when 10011 = q1 =10000100100000000000000000000000。 when others = q1 =(others=39。039。)。 end case。 else if(count=10011)then 翻轉 if(count1=11)then count1=(others=39。039。)。 count=(others=39。039。)。 sign= not sign。 else count1=count1+1。 count=(others=39。039。)。 end if。 else count=count+1。 end if。 case count1 is when 00 = q2 =01100000。 when 01 = q2 =11011010。 when 10 = q2 =11110010。 when others=q2 =01100110。 end case。 case count is 翻轉狀態(tài) when 00000 = q1 =10000000100000001000000000000000。 when 00001 = q1 =10000100100000000000000000000000。 when 00010 = q1 =10000110000000000000000000000000。 when 00011 = q1 =00000110000000100000000000000000。 when 00100 = q1 =00000010000000100000001000000000。 when 00101 = q1 =00000000000000100000001000000010。 when 00110 = q1 =00000000000000000000001000100010。 when 00111 = q1 =00000000000000000000000000110010。 when 01000 = q1 =00000000000000000001000000110000。 when 01001 = q1 =00000000000100000001000000010000。 when 01010 = q1 =00010000000100000001000000000000。 when 01011 = q1 =00011000000100000000000000000000。 when 01100 = q1 =00011010000000000000000000000000。 when 01101 = q1 =00001010000000100000000000000000。 when 01110 = q1 =00000010000000100000001000000000。 when 01111 = q1 =00000000000000100000001000000010。 when 10000 = q1 =00000000000000000000001001000010。 when 10001 = q1 =00000000000000000000000011000010。 when 10010 = q1 =00000000000000001000000011000000。 when 10011 = q1 =00000000100000001000000010000000。 when others = q1 =(others=39。039。)。 end case。 end if。end if。end process。q=q1。t=q2。end。（4）頂層模塊2. Verilog程序module Snake(CLK, RST, SCAN, SEG7)。 input CLK, RST。 //復位按鍵低有效,輸入時鐘20MHz output[1:8] SCAN。 //數碼管選擇信號 output[1:8] SEG7。 //數碼管顯示信號 reg[1:8] SCAN, SEG7,q。 reg[23:0] count。 reg clk_2HZ。 reg sign。 //蛇行方向 reg[31:0] snak。 //蛇行狀態(tài) reg[4:0] loop。 //每圈狀態(tài) reg[1:0] loopn。 //行進圈數 reg[2:0] st。 always@(posedge CLK)begin //分頻模塊產生2Hz時鐘 if (count==9999999)begin count=0。 clk_2HZ=1。 end else begin count=count+1。 clk_2HZ=0。 end end always@(posedge clk_2HZ)begin if (RST==0) begin loop=0。 loopn=0。 sign=0。 snak=0。 q=0。 end else begin if (sign==0)begin //正轉 if (loop==19)begin if (loopn==3)begin loopn=0。 sign=~sign。 end else loopn=loopn+1。 loop=0。 end else begin loop=loop+1。 end case (loopn) 0: q ={839。B0110_000,sign}。 1: q ={839。B1101_101,sign}。 2: q ={839。B1111_001,sign}。 default: q ={839。B0110_011,sign}。 endcase case (loop) //正轉狀態(tài) 539。B00000: snak=3239。B10000000100000001000000000000000。 539。B00001: snak=3239。B00000000100000001000000010000000。 539。B00010: snak=3239。B00000000000000001000000011000000。 539。B00011: snak=3239。B00000000000000000000000011000010。 539。B00100: snak=3239。B00000000000000000000001001000010。 539。B00101: snak=3239。B00000000000000100000001000000010。 539。B00110: snak=3239。B00000010000000100000001000000000。 539。B00111: snak=3239。B00001010000000100000000000000000。 539。B01000: snak=3239。B00011010000000000000000000000000。 539。B01001: snak=3239。B00011000000100000000000000000000。 539。B01010: snak=3239。B00010000000100000001000000000000。 539。B01011: snak=3239。B00000000000100000001000000010000。 539。B01100: snak=3239。B00000000000000000001000000110000。 539。B01101: snak=3239。B00000000000000000000000000110010。 539。B01110: snak=3239。B00000000000000000000001000100010。 539。B01111: snak=3239。B00000000000000100000001000000010。 539。B10000: snak=3239。B00000010000000100000001000000000。 539。B10001: snak=3239。B00000110000000100000000000000000。 539。B10010: snak=3239。B10000110000000000000000000000000。 539。B10011: snak=3239。B10000100100000000000000000000000。 default: snak=3239。B00000000000000000000000000000000。 endcase end else begin //反轉 if (loop==19)begin if (loopn==3)begin loopn=0。 sign=~sign。 end else loopn=loopn+1。 loop=0。 end else begin loop=loop+1。 end case (loopn) 0: q ={839。B0110_000,sign}。 1: q =839。B1101_1010。 2: q =839。B1111_0010。 default: q =839。B0110_0110。 endcase case (loop) //反轉狀態(tài) 539。B00000: snak=3239。B10000000100000001000000000000000。 539。B00001: snak=3239。B10000100100000000000000000000000。 539。B00010: snak=3239。B10000110000000000000000000000000。 539。B00011: snak=3239。B00000110000000100000000000000000。 539。B00100: snak=3239。B00000010000000100000001000000000。 539。B00101: snak=3239。B00000000000000100000001000000010。 539。B00110: snak=3239。B00000000000000000000001000100010。 539。B00111: snak=3239。B00000000000000000000000000110010。 539。B01000: snak=3239。B00000000000000000001000000110000。 539。B01001: snak=3239。B00000000000100000001000000010000。 539。B01010: snak=3239。B00010000000100000001000000000000。 539。B01011: snak=3239。B00011000000100000000000000000000。 539。B01100: snak=3239