单片机系统设计与应用实例 教学课件 ppt 作者 韩志军 主编 第十三章.pptVIP

数字电压表设计-程序包的设计 library IEEE; use IEEE.STD_LOGIC_1164.all; package disp_driver is function display(a : in std_logic_vector(3 downto 0) ) return std_logic_vector; function bin_bcd(bin : in std_logic_vector(3 downto 0); flag : std_logic) return std_logic_vector; end disp_driver; 第十三章 ● 数字电压表设计-程序包的设计 package body disp_driver is function bin_bcd(bin : std_logic_vector;flag : std_logic) return std_logic_vector is variable bcd_x : std_logic_vector(11 downto 0); begin if(flag=0)then case bin is when 0000 = bcd_x:=000000000000; when 0001 = bcd_x:=000000000010; when 0010 = bcd_x:=00000000