《数字集成电路设计实验（fpga）》源代码汇 实验1-29

1、top_led_flow.v文件`timescale1ns/1psmoduletop_led_flow(inputwireclk,//板载50MHzinputwirerst_n,//按键复位（低有效）outputwire[7:0]led//8个LED);wireclk_en;clk_divu_clk_div(.clk(clk),.rst_n(rst_n),.clk_en(clk_en));shift_ledu_shift_led(.clk(clk),.rst_n(rst_n),.en(clk_en),.q(led));endmodule2、clk_div.v文件moduleclk_div#(parameterDIV=12_500_000//50MHz/4Hz,再除2得4Hz,#参数符号引入)(inputwireclk,//50MHzinputwirerst_n,//低有效复位outputregclk_en//4Hz单周期脉冲);localparamCNT_W=$clog2(DIV);//参数需要的位宽计算reg[CNT_W-1:0]cnt;always@(posedgeclkornegedgerst_n)beginif(!rst_n)begincnt<={CNT_W{1'b0}};clk_en<=1'b0;endelseif(cnt==DIV-1)begincnt<={CNT_W{1'b0}};clk_en<=1'b1;endelsebegincnt<=cnt+1'b1;clk_en<=1'b0;endendendmodule3、shift_led.v文件moduleshift_led(inputwireclk,inputwirerst_n,inputwireen,//来自分频器的4Hz脉冲outputreg[7:0]q//8位输出，直接驱动LED);always@(posedgeclkornegedgerst_n)beginif(!rst_n)q<=8'b0000_0001;//复位后点亮第0位elseif(en)beginq<={q[6:0],q[7]};//循环左移endendendmodule4、led_flow.xdc约束文件#时钟周期约束create_clock-period20.000-nameclk[get_portsclk]#管脚约束set_property-dict{PACKAGE_PINU18IOSTANDARDLVCMOS33}[get_portsclk]set_property-dict{PACKAGE_PINN16IOSTANDARDLVCMOS33}[get_portsrst_n]##############8位LED（低电平点亮）################LED7-0对应FPGA管脚：W18W19R16R17W20V20P18N17高电平驱动亮set_property-dict{PACKAGE_PINN17IOSTANDARDLVCMOS33}[get_portsled[0]]set_property-dict{PACKAGE_PINP18IOSTANDARDLVCMOS33}[get_portsled[1]]set_property-dict{PACKAGE_PINV20IOSTANDARDLVCMOS33}[get_portsled[2]]set_property-dict{PACKAGE_PINW20IOSTANDARDLVCMOS33}[get_portsled[3]]set_property-dict{PACKAGE_PINR17IOSTANDARDLVCMOS33}[get_portsled[4]]set_property-dict{PACKAGE_PINR16IOSTANDARDLVCMOS33}[get_portsled[5]]set_property-dict{PACKAGE_PINW19IOSTANDARDLVCMOS33}[get_portsled[6]]set_property-dict{PACKAGE_PINW18IOSTANDARDLVCMOS33}[get_portsled[7]]1、约束文件top_60s.xdc#时钟create_clock-period20.000-nameclk[get_portssys_clk]set_property-dict{PACKAGE_PINU18IOSTANDARDLVCMOS33}[get_portssys_clk]set_property-dict{PACKAGE_PINN16IOSTANDARDLVCMOS33}[get_portssys_rst_n]#段选seg[7:0]set_property-dict{PACKAGE_PINJ14IOSTANDARDLVCMOS33}[get_ports{seg[0]}]set_property-dict{PACKAGE_PINN18IOSTANDARDLVCMOS33}[get_ports{seg[1]}]set_property-dict{PACKAGE_PINM19IOSTANDARDLVCMOS33}[get_ports{seg[2]}]set_property-dict{PACKAGE_PINL16IOSTANDARDLVCMOS33}[get_ports{seg[3]}]set_property-dict{PACKAGE_PINM15IOSTANDARDLVCMOS33}[get_ports{seg[4]}]set_property-dict{PACKAGE_PINN20IOSTANDARDLVCMOS33}[get_ports{seg[5]}]set_property-dict{PACKAGE_PINU20IOSTANDARDLVCMOS33}[get_ports{seg[6]}]set_property-dict{PACKAGE_PINU19IOSTANDARDLVCMOS33}[get_ports{seg[7]}]#位选sel[5:0]：我们只用到低端两位set_property-dict{PACKAGE_PINP19IOSTANDARDLVCMOS33}[get_ports{sel[0]}]set_property-dict{PACKAGE_PINT20IOSTANDARDLVCMOS33}[get_ports{sel[1]}]#sel[2]~sel[5]未用，随便接几个未用端口set_property-dict{PACKAGE_PINM20IOSTANDARDLVCMOS33}[get_ports{sel[2]}]set_property-dict{PACKAGE_PINK14IOSTANDARDLVCMOS33}[get_ports{sel[3]}]set_property-dict{PACKAGE_PINN17IOSTANDARDLVCMOS33}[get_ports{sel[4]}]set_property-dict{PACKAGE_PINP18IOSTANDARDLVCMOS33}[get_ports{sel[5]}]2、clk_div文件`timescale1ns/1psmoduleclk_div(inputwireclk_in,//50MHzinputwirerst_n,outputregclk_out);localparamMAX=25_000_000;//50M÷2=25M→0.5s翻转一次reg[24:0]cnt;always@(posedgeclk_inornegedgerst_n)beginif(!rst_n)begincnt<=25'd0;clk_out<=1'b0;endelseif(cnt==MAX-1'b1)begincnt<=25'd0;clk_out<=~clk_out;endelsecnt<=cnt+1'b1;endendmodule3、counter_60s.v文件modulecounter_60s(inputwireclk_1hz,inputwirerst_n,outputreg[3:0]ones,outputreg[3:0]tens);always@(posedgeclk_1hzornegedgerst_n)beginif(!rst_n)beginones<=4'd0;tens<=4'd0;endelseif(tens==4'd5&&ones==4'd9)begin//59->00tens<=4'd0;ones<=4'd0;endelseif(ones==4'd9)beginones<=4'd0;tens<=tens+1'b1;endelsebeginones<=ones+1'b1;endendendmodule4、seg_scan.v文件moduleseg_scan(inputwireclk,//50MHzinputwirerst_n,inputwire[3:0]ones,//个位inputwire[3:0]tens,//十位outputreg[5:0]sel,//位选低有效outputreg[7:0]seg//段选高有效，a~g+dp);//1kHz扫描时钟localparamDIV=50_000;//50M/1k=50k，需要1k扫描reg[15:0]cnt;regscan_clk;always@(posedgeclkornegedgerst_n)beginif(!rst_n)begincnt<=16'd0;scan_clk<=1'b0;endelseif(cnt==DIV-1'b1)begincnt<=16'd0;scan_clk<=~scan_clk;endelsecnt<=cnt+1'b1;end//位选计数regbit_sel;always@(posedgescan_clkornegedgerst_n)beginif(!rst_n)bit_sel<=1'b0;elsebit_sel<=~bit_sel;end//段码表（共阳，低有效）function[7:0]dec7;input[3:0]num;case(num)4'h0:dec7=8'b0011_1111;//04'h1:dec7=8'b0000_0110;//14'h2:dec7=8'b0101_1011;//24'h3:dec7=8'b0100_1111;//34'h4:dec7=8'b0110_0110;//44'h5:dec7=8'b0110_1101;//54'h6:dec7=8'b0111_1101;//64'h7:dec7=8'b0000_0111;//74'h8:dec7=8'b0111_1111;//84'h9:dec7=8'b0110_1111;//9default:dec7=8'b0000_0000;//全灭endcaseendfunctionalways@(*)beginsel=6'b000000;//先全部熄灭（关键）case(bit_sel)1'b0:beginsel=6'b000001;//个位seg=dec7(ones);end1'b1:beginsel=6'b000010;//十位seg=dec7(tens);enddefault:beginsel=6'b000000;//其它时刻保持全灭seg=8'b00000000;endendcaseendendmodule5、top_60s.v文件`timescale1ns/1psmoduletop_60s(inputwiresys_clk,//50MHzinputwiresys_rst_n,//低有效复位outputwire[5:0]sel,//位选（2位，低有效）outputwire[7:0]seg//段选（低有效）);wireclk_1hz;wire[3:0]ones,tens;//----------例化----------clk_divu_clk_div(.clk_in(sys_clk),.rst_n(sys_rst_n),.clk_out(clk_1hz));counter_60su_counter(.clk_1hz(clk_1hz),.rst_n(sys_rst_n),.ones(ones),.tens(tens));seg_scanu_scan(.clk(sys_clk),.rst_n(sys_rst_n),.ones(ones),.tens(tens),.sel(sel),.seg(seg));endmodulereg[7:0]cnt;/*捕获rx的下降沿，即起始信号*/regtrigger_r0;regcount[3:0];wireneg_tri;always@(posedgeclk16xornegedgerst_n)/*下降沿使用全局时钟来捕获的，其实用clk16x来捕获也可以*/beginif(!rst_n)begintrigger_r0<=1'b0;endelsebegintrigger_r0<=rx;endendassignneg_tri=trigger_r0&~rx;//----------------------------------------------/*countercontrol*/regcnt_en;always@(posedgeclk16xornegedgerst_n)beginif(!rst_n)cnt_en<=1'b0;elseif(neg_tri==1'b1)/*如果捕获到下降沿，则开始计数*/cnt_en<=1'b1;elseif(cnt==8'd152)cnt_en<=1'b0;end//---------------------------------------------/*countermodule，对采样时钟进行计数*/always@(posedgeclk16xornegedgerst_n)beginif(!rst_n)cnt<=8'd0;elseif(cnt_en)//cnt<=cnt+1'b1;cnt<=cnt+1;elsecnt<=8'd0;end//---------------------------------------------/*receivemodule*/regStopBit_r;always@(posedgeclk16xornegedgerst_n)beginif(!rst_n)beginDataReceived<=8'b0;count=0;endelseif(cnt_en)case(cnt)8'd24:beginDataReceived[0]<=rx;count=count+1;end/*在各个采样时刻，读取接收到的数据*/8'd40:beginDataReceived[1]<=rx;count=count+1;end8'd56:beginDataReceived[2]<=rx;count=count+1;end8'd72:beginDataReceived[3]<=rx;count=count+1;end8'd88:beginDataReceived[4]<=rx;count=count+1;end8'd104:beginDataReceived[5]<=rx;count=count+1;end8'd120:beginDataReceived[6]<=rx;count=count+1;end8'd136:beginDataReceived[7]<=rx;count=count+1;endendcaseendalways@(posedgeclk16xornegedgerst_n)beginif(!rst_n)DataReady<=1'b0;elseif(cnt==8'd152)DataReady<=1'b1;//接收到停止位后，给出数据准备好标志位elseDataReady<=1'b0;endinitialbeginclk16x=0;rst_n=0;rx=0;#2rst_n=1;#2rst_n=0;#2rst_n=1;#2rx=1;#32rx=0;#64rx=1;#128rx=0;#64rx=1;#32rx=0;#32rx=1;#100$finish;endalwaysbegin#1clk16x=~clk16x;end/*capturetherisingedgeofTransEn*/reg[7:0]cnt;regTransEn_r;wirepos_tri;always@(posedgeclk16xornegedgerst_n)beginif(!rst_n)TransEn_r<=1'b0;elseTransEn_r<=TransEn;endassignpos_tri=~TransEn_r&TransEn;/**whentherisingedgeofDataEncomesup,loadtheDatatobuffer*/reg[7:0]ShiftReg;always@(posedgepos_triornegedgerst_n)beginif(!rst_n)ShiftReg<=8'b0;elseShiftReg<=DataToTrans;end//----------------------------------------------/*countercontrol*/regcnt_en;always@(posedgeclk16xornegedgerst_n)beginif(!rst_n)begincnt_en<=1'b0;BufFull<=1'b0;endelseif(pos_tri==1'b1)begincnt_en<=1'b1;BufFull<=1'b1;endelseif(cnt==8'd160)begincnt_en<=1'b0;BufFull<=1'b0;endend//---------------------------------------------/*countermodule*/always@(posedgeclk16xornegedgerst_n)beginif(!rst_n)cnt<=8'd0;elseif(cnt_en)cnt<=cnt+1;elsecnt<=8'd0;end//---------------------------------------------/*transmitmodule*/always@(posedgeclk16xornegedgerst_n)beginif(!rst_n)begintx<=1'b1;endelseif(cnt_en)case(cnt)8'd0:tx<=1'b0;8'd16:tx<=ShiftReg[0];8'd32:tx<=ShiftReg[1];8'd48:tx<=ShiftReg[2];8'd64:tx<=ShiftReg[3];8'd80:tx<=ShiftReg[4];8'd96:tx<=ShiftReg[5];8'd112:tx<=ShiftReg[6];8'd128:tx<=ShiftReg[7];8'd144:tx<=1'b1;endcaseelsetx<=1'b1;endinitialbeginclk16x=0;rst_n=1;TransEn=0;DataToTrans=0;#2rst_n=0;#2DataToTrans=8'b10110010;#2rst_n=1;#2TransEn=1;#1000$finish;endalwaysbegin#1clk16x=~clk16x;endlibraryieee;useieee.std_logic_1164.all;useieee.std_logic_arith.all;useieee.std_logic_unsigned.all;--------------------------------------------------------------------entityexp4isport(clk:instd_logic;--定义动态扫描时钟信号key:instd_logic_vector(3downto0);--定义四位输入信号ledag:outstd_logic_vector(6downto0);--定义七位输出信号del:outstd_logic_vector(2downto0)--定义八位数码管位置显示信号);endexp4;architecturewhbkrcofexp4isbeginprocess(clk)variabledount:std_logic_vector(2downto0);beginifclk'eventandclk='1'then--检测时钟上升沿dount:=dount+1;--计数器dount累加endif;del<=dount;endprocess;process(key)begincasekeyiswhen"0000"=>ledag<="0111111";when"0001"=>ledag<="0000110";when"0010"=>ledag<="1011011";when"0011"=>ledag<="1001111";when"0100"=>ledag<="1100110";when"0101"=>ledag<="1101101";when"0110"=>ledag<="1111101";when"0111"=>ledag<="0000111";when"1000"=>ledag<="1111111";when"1001"=>ledag<="1101111";when"1010"=>ledag<="1110111";when"1011"=>ledag<="1111100";when"1100"=>ledag<="0111001";when"1101"=>ledag<="1011110";when"1110"=>ledag<="1111001";when"1111"=>ledag<="1110001";whenothers=>null;endcase;endprocess;endwhbkrc;libraryieee;useieee.std_logic_1164.all;useieee.std_logic_arith.all;useieee.std_logic_unsigned.all;--------------------------------------------------------------------entityexp5isport(inclk:instd_logic;--定义时钟信号data:instd_logic_vector(7downto0);--输入控制的数据fout:outstd_logic--分频输出);endexp5;--------------------------------------------------------------------architecturebehaveofexp5issignalfull:std_logic;beginprocess(inclk)variablecdount1:std_logic_vector(7downto0);beginifinclk'eventandinclk='1'then--检测时钟上升沿ifcdount1="11111111"then--最大值时，装载数据cdount1:=data;full<='1';elsecdount1:=cdount1+1;full<='0';endif;endif;endprocess;process(full)variablecdount2:std_logic;beginiffull'eventandfull='1'then--检测时钟上升沿，不是clk时钟cdount2:=notcdount2;ifcdount2='1'thenfout<='1';elsefout<='0';endif;endif;endprocess;endbehave;---16x16点阵显示汉字libraryieee;useieee.std_logic_1164.all;useieee.std_logic_arith.all;useieee.std_logic_unsigned.all;--------------------------------------------------------------------entityexp11isport(clk:instd_logic;--时钟输入keyc:outstd_logic_vector(15downto0);--点阵列控制keyr:outstd_logic_vector(15downto0)--点阵行显示);endexp11;--------------------------------------------------------------------architecturebehaveofexp11issignalcdount:std_logic_vector(3downto0);signaldount:std_logic_vector(8downto0);signalS:std_logic_vector(3downto0);beginprocess(clk)--显示时序控制beginifclk'eventandclk='1'thendount<=dount+1;ifdount=255thenifS=15thenS<="0000";elses<=S+1;endif;s<=s+1;elses<=S;endif;ifcdount<15thencdount<=cdount+1;elsecdount<="0000";endif;endif;endprocess;process(cdount,s)begincasecdountiswhen"0000"=>keyc<="0000000000000001";--列选择(lg7088Ah)when"0001"=>keyc<="0000000000000010";when"0010"=>keyc<="0000000000000100";when"0011"=>keyc<="0000000000001000";when"0100"=>keyc<="0000000000010000";when"0101"=>keyc<="0000000000100000";when"0110"=>keyc<="0000000001000000";when"0111"=>keyc<="0000000010000000";when"1000"=>keyc<="0000000100000000";when"1001"=>keyc<="0000001000000000";when"1010"=>keyc<="0000010000000000";when"1011"=>keyc<="0000100000000000";when"1100"=>keyc<="0001000000000000";when"1101"=>keyc<="0010000000000000";when"1110"=>keyc<="0100000000000000";when"1111"=>keyc<="1000000000000000";whenothers=>keyc<="0000000000000000";endcase;ifs="0000"thencasecdountiswhen"0000"=>keyr<="1101111111100011";--列显示字形码：欢--0表示不亮，1表示亮when"0001"=>keyr<="1100111111000011";when"0010"=>keyr<="1010001110011011";when"0011"=>keyr<="1011000000111011";when"0100"=>keyr<="1011110000011011";when"0101"=>keyr<="1001000010000011";when"0110"=>keyr<="1101011111000011";when"0111"=>keyr<="1100111111100001";when"1000"=>keyr<="1110001111100001";when"1001"=>keyr<="1111000000010001";when"1010"=>keyr<="1111100000010111";when"1011"=>keyr<="1110000111110111";when"1100"=>keyr<="1100011111010111";when"1101"=>keyr<="1000111111000111";when"1110"=>keyr<="1001111111100011";when"1111"=>keyr<="1001111111110011";whenothers=>keyr<="1111111111111111";endcase;elsifs="0001"thencasecdountiswhen"0000"=>keyr<="1011111110111111";--列显示字形码：迎when"0001"=>keyr<="1001111110111101";when"0010"=>keyr<="1100000000100001";when"0011"=>keyr<="1100000000100011";when"0100"=>keyr<="1100111111110111";when"0101"=>keyr<="1011100000000111";when"0110"=>keyr<="1011100000000111";when"0111"=>keyr<="1011110011110011";when"1000"=>keyr<="1011111011111011";when"1001"=>keyr<="1010000000000011";when"1010"=>keyr<="1010000000000111";when"1011"=>keyr<="1011110111110111";when"1100"=>keyr<="1011100111110111";when"1101"=>keyr<="1011100000000111";when"1110"=>keyr<="1011110000000111";when"1111"=>keyr<="1011111111111111";whenothers=>keyr<="1111111111111111";endcase;elsifs="0010"thencasecdountiswhen"0000"=>keyr<="1111111101111111";--列显示字形码：使when"0001"=>keyr<="1111111100111111";when"0010"=>keyr<="1000000000011111";when"0011"=>keyr<="1000000000000111";when"0100"=>keyr<="1011111111000001";when"0101"=>keyr<="1011110000010001";when"0110"=>keyr<="1001110000010011";when"0111"=>keyr<="1100011011010111";when"1000"=>keyr<="1110011011010111";when"1001"=>keyr<="1110000000000001";when"1010"=>keyr<="1110100000000001";when"1011"=>keyr<="1100111011010111";when"1100"=>keyr<="1100111011010111";when"1101"=>keyr<="1001110000010111";when"1110"=>keyr<="1001110000010111";when"1111"=>keyr<="1101111111110111";whenothers=>keyr<="1111111111111111";endcase;elsifs="0011"thencasecdountiswhen"0000"=>keyr<="1111111111111111";--列显示字形码：用when"0001"=>keyr<="1001111111111111";when"0010"=>keyr<="1100011111111111";when"0011"=>keyr<="1110000000000001";when"0100"=>keyr<="1111100000000001";when"0101"=>keyr<="1111111011011101";when"0110"=>keyr<="1111111011011101";when"0111"=>keyr<="1111111011011101";when"1000"=>keyr<="1000000000000001";when"1001"=>keyr<="1000000000000001";when"1010"=>keyr<="1111111011011101";when"1011"=>keyr<="1101111011011101";when"1100"=>keyr<="1001111011011101";when"1101"=>keyr<="1000000000000001";when"1110"=>keyr<="1100000000000001";when"1111"=>keyr<="1111111111111111";whenothers=>keyr<="1111111111111111";endcase;elsifs="0100"thencasecdountiswhen"0000"=>keyr<="1111111111111111";--列显示字形码：嵌when"0001"=>keyr<="1111111110111111";when"0010"=>keyr<="1100000000010011";when"0011"=>keyr<="1100000000010011";when"0100"=>keyr<="1110110110110111";when"0101"=>keyr<="1100000000010111";when"0110"=>keyr<="1000000000010111";when"0111"=>keyr<="1001111010110001";when"1000"=>keyr<="1100111001110001";when"1001"=>keyr<="1110011100010111";when"1010"=>keyr<="1110000010010111";when"1011"=>keyr<="1111000010110111";when"1100"=>keyr<="1100011010110011";when"1101"=>keyr<="1000111000110011";when"1110"=>keyr<="1001111100111111";when"1111"=>keyr<="1101111111111111";whenothers=>keyr<="1111111111111111";endcase;elsifs="0101"thencasecdountiswhen"0000"=>keyr<="1011111111111111";--列显示字形码：入when"0001"=>keyr<="1001111111111111";when"0010"=>keyr<="1101111111111111";when"0011"=>keyr<="1110111111111111";when"0100"=>keyr<="1110001111111101";when"0101"=>keyr<="1111000011111001";when"0110"=>keyr<="1111110000010001";when"0111"=>keyr<="1111111100000011";when"1000"=>keyr<="1111111100001111";when"1001"=>keyr<="1111111000111111";when"1010"=>keyr<="1111100011111111";when"1011"=>keyr<="1111000111111111";when"1100"=>keyr<="1100011111111111";when"1101"=>keyr<="1000111111111111";when"1110"=>keyr<="1001111111111111";when"1111"=>keyr<="1101111111111111";whenothers=>keyr<="1111111111111111";endcase;elsifs="0110"thencasecdountiswhen"0000"=>keyr<="1111111111100111";--列显示字形码：式when"0001"=>keyr<="1101111111100111";when"0010"=>keyr<="1001111011001111";when"0011"=>keyr<="1000111011001111";when"0100"=>keyr<="1100000011001111";when"0101"=>keyr<="1110000011001111";when"0110"=>keyr<="1110011011001111";when"0111"=>keyr<="1111011011001111";when"1000"=>keyr<="1111011000000001";when"1001"=>keyr<="1111100000000001";when"1010"=>keyr<="1110000111001111";when"1011"=>keyr<="1100011111001001";when"1100"=>keyr<="1001111111001001";when"1101"=>keyr<="1011111111001111";when"1110"=>keyr<="1000111111001111";when"1111"=>keyr<="1000111111100111";whenothers=>keyr<="1111111111111111";endcase;elsifs="0111"thencasecdountiswhen"0000"=>keyr<="1111101110011111";--列显示字形码：SOCwhen"0001"=>keyr<="1111001000001111";when"0010"=>keyr<="1111000011001111";when"0011"=>keyr<="1111100111011111";when"0100"=>keyr<="1111111111111111";when"0101"=>keyr<="1111110000111111";when"0110"=>keyr<="1111100000011111";when"0111"=>keyr<="1111001111001111";when"1000"=>keyr<="1111001111001111";when"1001"=>keyr<="1111100000011111";when"1010"=>keyr<="1111110000111111";when"1011"=>keyr<="1111111111111111";when"1100"=>keyr<="1111100000011111";when"1101"=>keyr<="1111001111001111";when"1110"=>keyr<="1111001111001111";when"1111"=>keyr<="1111101111011111";whenothers=>keyr<="1111111111111111";endcase;elsifs="1000"thencasecdountiswhen"0000"=>keyr<="1111111100111111";--列显示字形码：开when"0001"=>keyr<="1011111100111001";when"0010"=>keyr<="1001111100111001";when"0011"=>keyr<="1100111100111001";when"0100"=>keyr<="1110001100111001";when"0101"=>keyr<="1111000000000001";when"0110"=>keyr<="1111110000000001";when"0111"=>keyr<="1111111100111001";when"1000"=>keyr<="1111111100111001";when"1001"=>keyr<="1111111100111001";when"1010"=>keyr<="1000000000000001";when"1011"=>keyr<="1000000000000001";when"1100"=>keyr<="1111111100111001";when"1101"=>keyr<="1111111100111001";when"1110"=>keyr<="1111111100111001";when"1111"=>keyr<="1111111100111001";whenothers=>keyr<="1111111111111111";endcase;elsifs="1001"thencasecdountiswhen"0000"=>keyr<="1101111111111111";--列显示字形码：发when"0001"=>keyr<="1100111111101111";when"0010"=>keyr<="1110011111000001";when"0011"=>keyr<="1011001111000001";when"0100"=>keyr<="1011100011001111";when"0101"=>keyr<="1001110000001111";when"0110"=>keyr<="1101110000000001";when"0111"=>keyr<="1100100001000001";when"1000"=>keyr<="1110001101001111";when"1001"=>keyr<="1110001101001111";when"1010"=>keyr<="1110100001001111";when"1011"=>keyr<="1100110001001001";when"1100"=>keyr<="1001111111001001";when"1101"=>keyr<="1001111111001111";when"1110"=>keyr<="1101111111001111";when"1111"=>keyr<="1111111111001111";whenothers=>keyr<="1111111111111111";endcase;elsifs="1010"thencasecdountiswhen"0000"=>keyr<="1111111111111111";--列显示字形码：系when"0001"=>keyr<="1101111111111111";when"0010"=>keyr<="1100111011111011";when"0011"=>keyr<="1110010011011011";when"0100"=>keyr<="1111010001001011";when"0101"=>keyr<="1111101001001011";when"0110"=>keyr<="1101101000010011";when"0111"=>keyr<="1001111010010011";when"1000"=>keyr<="1000000010011011";when"1001"=>keyr<="1100000011001001";when"1010"=>keyr<="1111101010100101";when"1011"=>keyr<="1111101000110101";when"1100"=>keyr<="1111010001111101";when"1101"=>keyr<="1100010011111101";when"1110"=>keyr<="1100110111111101";when"1111"=>keyr<="1111111111111111";whenothers=>keyr<="1111111111111111";endcase;elsifs>10thencasecdountiswhen"0000"=>keyr<="1110111111011111";--列显示字形码：统when"0001"=>keyr<="1110110111011111";when"0010"=>keyr<="1110110011000111";when"0011"=>keyr<="1110010001000001";when"0100"=>keyr<="1111010100011001";when"0101"=>keyr<="1011010110011111";when"0110"=>keyr<="1001010101110111";when"0111"=>keyr<="1100011100110111";when"1000"=>keyr<="1110000000010111";when"1001"=>keyr<="1111100001000101";when"1010"=>keyr<="1111111101100001";when"1011"=>keyr<="1110000001110011";when"1100"=>keyr<="1100000001010111";when"1101"=>keyr<="1101111000010111";when"1110"=>keyr<="1100011000110111";when"1111"=>keyr<="1100011101110111";whenothers=>keyr<="1111111111111111";endcase;endif;endprocess;endbehave;----代码结束process(cdount,s)begincasecdountiswhen"0000"=>keyr<="0000";--列选择(lg7088Ah)when"0001"=>keyr<="0001";when"0010"=>keyr<="0010";when"0011"=>keyr<="0011";when"0100"=>keyr<="0100";when"0101"=>keyr<="0101";when"0110"=>keyr<="0110";when"0111"=>keyr<="0111";when"1000"=>keyr<="1000";when"1001"=>keyr<="1001";when"1010"=>keyr<="1010";when"1011"=>keyr<="101