8路搶答器verilog語言程序

8路搶答器verilog語言程序8路搶答器verilog語言程序8路搶答器verilog語言程序8路搶答器verilog語言程序編制僅供參考審核批準生效日期地址：電話：傳真:郵編:/********************************************************************************Copyright(c),AllrightreservedProjectname:八路搶答器Filename:Author:THECEmail=============================================================================Description:八路搶答器Calledby:Filetree:=============================================================================RevisionHistory：DateByVer.ChangeDescription------------------------------------------------------------------------------2012-12-26THEC首次歸檔********************************************************************************/`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(count<999)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'b:begindata<=4'b1000;flag<=1;enddefault:begindata<=data;flag<=flag;endendcaseelse;endalways@(posedgeclk_1hzornegedgerst)beginif(!rst)t<=30;elseif(t>0&&!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;//0 4'b0001:display[7:0]=8'b00110000;//1 4'b0010:display[7:0]=8'b01101101;//2 4'b0011:display[7:0]=8'b01111001;//3 4'b0100:display[7:0]=8'b00110011;//4 4'b0101:display[7:0]=8'b01011011;//5 4'b0110:display[7:0]=8'b01011111;//6 4'b0111:display[7:0]=8'b01110000;//7 4'b1000:display[7:0]=8'b01111111;//8 4'b1001