七段数码管显示程序

附录A八位七段数码管显示程序libraryieee;useledisport(clk:instd_logic; --ClockSignaldata_in:instd_logic_vector(7downto0);--databusledag:outstd_logic_vector(6downto0);--定义七位输出信号sel:outstd_logic_vector(2downto0)--ledagSelect);endled;architecturebehaveofledissignaldcount :std_logic_vector(2downto0);signaladh,adl:std_logic_vector(6downto0);signaladcount:std_logic_vector(7downto0);signaldin_h,din_l:std_logic_vector(3downto0);signalcoclk:std_logic;beginprocess(clk)--outenablesignalbeginif(clk'eventandclk='1')thenifadcount=""thencoclk<='1';when"0111"=>adh<="0000111"; when"0111"=>adh<="0000111"; --display7adcount<="00000000";elseadcount<=adcount+1;coclk<='0';endif;endif;endprocess;process(clk)--rdtheadcdatabeginif(clk'eventandclk='1')thendin_h<=data_in(7downto4);din_l<=data_in(3downto0);endif;endprocess;process(clk)begincasedin_his-display-display0-display1-display2-display3-display4-display5-display6when"0001"=>adh<="0000110";when"0010"=>adh<="1011011";when"0011"=>adh<="1001111";when"0100"=>adh<="1100110";when"0101"=>adh<="1101101";when"0110"=>adh<="1111101";when"1000"=>adh<="1111111"; when"1000"=>adh<="1111111"; --display8when"1101"=>adl<="1011110";when"1101"=>adl<="1011110";--displaydwhen"1001"=>adh<="1101111";when"1010"=>adh<="1110111";when"1011"=>adh<="1111100";when"1100"=>adh<="0111001";when"1101"=>adh<="1011110";when"1110"=>adh<="1111001";when"1111"=>adh<="1110001";whenothers=>adh<=adh;endcase;casedinliswhen"0000"=>ad<="0111111";when"0001"=>ad<="0000110";when"0010"=>ad<="1011011";when"0011"=>ad<="1001111";when"0100"=>ad<="1100110";when"0101"=>ad<="1101101";when"0110"=>ad<="1111101";when"0111"=>ad<="0000111";when"1000"=>ad<="1111111";when"1001"=>ad<="1101111";when"1010"=>ad<="1110111";when"1011"=>ad<="1111100";when"1100"=>ad<="0111001";-display9-displaya-displayb-displayc-displayd-displaye-displayf--nochange-display0-display1-display2-display3-display4-display5-display6-display7-display8-display9-displaya-displayb-displaycwhen"1110"=>adl<="1111001"; when"1110"=>adl<="1111001"; --displaye--displayf--displayf--nochangewhenothers=>adl<=adl;endcase;endprocess;process(coclk)--displayprocessbeginif(coclk'eventandcoclk='1')thendcount<=dcount+1;sel<=dcount;casedcountiswhen"000"=>ledag<="1000000";when"001"=>ledag<="1000000";when"010"=>ledag<="1000000";when"011"=>ledag<=adh;when"100"=>ledag<=adl;when"101"=>ledag<="10000