8路抢答器verilog语言程序

/********************************************************************************Copyright(c),AllrightreservedProjectname:八路抢答器Filename:choose8_1.vAuthor:THECEmail:[e-mail]=============================================================================Description:八路抢答器Calledby:choose8_1.vFiletree:choose8_1.v=============================================================================RevisionHistory：DateByVer.ChangeDescription------------------------------------------------------------------------------2012-12-26THEC1.0首次归档********************************************************************************/`timescale1ns/100psmodulechoose8_1(inputclk,inputrst,input[7:0]keyin,outputreg[2:0]sel,outputreg[7:0]display);reg[9:0]count;regclk_1hz,flag;reg[4:0]t;reg[3:0]disp;reg[3:0]data;always@(negedgeclk)if(count999)count=count+1;elsebegincount=0;clk_1hz=~clk_1hz;endalways@(posedgeclkornegedgerst)beginif(!rst)begindata=4'b1010;flag=1'b0;endelseif(!flag&&t)case(keyin[7:0])8'b00000001:begindata=4'b0001;flag=1;end8'b00000010:begindata=4'b0010;flag=1;end8'b00000100:begindata=4'b0011;flag=1;end8'b00001000:begindata=4'b0100;flag=1;end8'b00010000:begindata=4'b0101;flag=1;end8'b00100000:begindata=4'b0110;flag=1;end8'b01000000:begindata=4'b0111;flag=1;end8'b10000000:begindata=4'b1000;flag=1;enddefault:begindata=data;flag=flag;endendcaseelse;endalways@(posedgeclk_1hzornegedgerst)beginif(!rst)t=30;elseif(t0&&!flag)t=t-1;elset=t;endalways@(posedgeclkornegedgerst)beginif(!rst)sel[2:0]=3'b000;elsebeginsel[2:0]=sel[2:0]+3'b001;endendalways@(*)begincase(sel[2:0])3'b000:disp[3:0]=t/10;3'b001:disp[3:0]=t%10;3'b010:disp[3:0]=4'b1111;3'b011:disp[3:0]=4'b1010+clk_1hz;3'b100:disp[3:0]=4'b1010+clk_1hz;3'b101:disp[3:0]=4'b1010+clk_1hz;3'b110:disp[3:0]=4'b1111;3'b111:disp[3:0]=data;endcaseendalways@(*)begincase(disp)4'b0000:display[7:0]=8'b01111110;//04'b0001:display[7:0]=8'b00110000;//14'b0010:display[7:0]=8'b01101101;//24'b0011:display[7:0]=8'b01111001;//34'b0100:display[7:0]=8'b00110011;//44'b0101:display[7:0]=8'b01011011;//54'b0110:display[7:0]=8'b01011111;//64'b0111:display[7:0]=8'b01110000;//74'b1000:display[7:0]=8'b01111111;//84'b1001:display[7:0]=8'b01111011;//94'b1010:display[7:0]=8'b00000001;//-default:display[7:0]=8'b00000000;//全灭endcaseendendmodule