【正文】
39。 THENDLY = Q(5)。 子文件定義代碼ARCHITECTURE a OF COUNTER60 ISSIGNAL Q : STD_LOGIC_VECTOR (5 DOWNTO 0) 。USE 。 主文件聲明代碼COMPONENT COUNTER60PORT( CP : IN STD_LOGIC。Q = Q+1。 END IF。139。Event AND CP=39。 about 250 HzENB = 001 WHEN (S=0 OR S=1) ELSE010 WHEN (S=2 OR S=3) ELSE100 WHEN (S=4 OR S=5) ELSE000。CY60 : OUT STD_LOGIC)。EC : IN STD_LOGIC。ELSIF CP39。 END IF。039。CLR : IN STD_LOGIC。BIN : OUT STD_LOGIC_VECTOR (5 DOWNTO 0)。BEGINPROCESS (CP,RST)BEGINIF RST = 39。139。 WHEN Q=24 OR CLR=39。139。End Block SEVEN_SEGMENT。因此,必須加上彈跳消除電路,除去短脈沖,避免誤操作的發(fā)生。 DLY_OUT : OUT STD_LOGIC。Begin PROCESS (CP) 計(jì)數(shù)器計(jì)數(shù) BeginIF CP39。 產(chǎn)生 25HZ脈沖SAMPLE = Q(1) AND NOT D0。 THEND1 = D0。 Debounce O/PNDLY =S NOR DLY。 D0 = DLY。USE 。 BIN : OUT STD_LOGIC_VECTOR (5 DOWNTO 0)。 S : IN STD_LOGIC。SIGNAL DBH : STD_LOGIC_VECTOR (5 DOWNTO 0)。SIGNAL SEG : STD_LOGIC_VECTOR( 6 DOWNTO 0)。039。Q = Q+1。 Binary_BCD : BlockBEGINBCD = 00000000 WHEN BIN = 0 ELSE00000001 WHEN BIN = 1 ELSE00000010 WHEN BIN = 2 ELSE00000011 WHEN BIN = 3 ELSE00000100 WHEN BIN = 4 ELSE00000101 WHEN BIN = 5 ELSE00000110 WHEN BIN = 6 ELSE00000111 WHEN BIN = 7 ELSE00001000 WHEN BIN = 8 ELSE00001001 WHEN BIN = 9 ELSE00010000 WHEN BIN = 10 ELSE00010001 WHEN BIN = 11 ELSE00010010 WHEN BIN = 12 ELSE00010011 WHEN BIN = 13 ELSE00010100 WHEN BIN = 14 ELSE00010101 WHEN BIN = 15 ELSE00010110 WHEN BIN = 16 ELSE00010111 WHEN BIN = 17 ELSE00011000 WHEN BIN = 18 ELSE00011001 WHEN BIN = 19 ELSE00100000 WHEN BIN = 20 ELSE00100001 WHEN BIN = 21 ELSE00100010 WHEN BIN = 22 ELSE00100011 WHEN BIN = 23 ELSE00100100 WHEN BIN = 24 ELSE00100101 WHEN BIN = 25 ELSE00100110 WHEN BIN = 26 ELSE00100111 WHEN BIN = 27 ELSE00101000 WHEN BIN = 28 ELSE00101001 WHEN BIN = 29 ELSE00110000 WHEN BIN = 30 ELSE00110001 WHEN BIN = 31 ELSE00110010 WHEN BIN = 32 ELSE00110011 WHEN BIN = 33 ELSE00110100 WHEN BIN = 34 ELSE00110101 WHEN BIN = 35 ELSE00110110 WHEN BIN = 36 ELSE00110111 WHEN BIN = 37 ELSE00111000 WHEN BIN = 38 ELSE00111001 WHEN BIN = 39 ELSE01000000 WHEN BIN = 40 ELSE01000001 WHEN BIN = 41 ELSE01000010 WHEN BIN = 42 ELSE01000011 WHEN BIN = 43 ELSE01000100 WHEN BIN = 44 ELSE01000101 WHEN BIN = 45 ELSE01000110 WHEN BIN = 46 ELSE01000111 WHEN BIN = 47 ELSE01001000 WHEN BIN = 48 ELSE01001001 WHEN BIN = 49 ELSE01010000 WHEN BIN = 50 ELSE01010001 WHEN BIN = 51 ELSE01010010 WH