Differences
This shows you the differences between two versions of the page.
| Last revision Both sides next revision | |||
|
vhdl_workshop:lab_3 [2017/02/10 15:35] SSE Minion created |
vhdl_workshop:lab_3 [2017/02/14 14:16] SSE Minion |
||
|---|---|---|---|
| Line 162: | Line 162: | ||
| end for; | end for; | ||
| end CFG_TB_DISP_DRV; | end CFG_TB_DISP_DRV; | ||
| + | </ | ||
| + | |||
| + | ===== Package ===== | ||
| + | **!! Only for LAB 3 !!** | ||
| + | <code vhdl P_DISPLAY.VHD> | ||
| + | library ieee; | ||
| + | use ieee.std_logic_1164.all; | ||
| + | |||
| + | package P_DISPLAY is | ||
| + | subtype T_DIGITS | ||
| + | subtype T_DISPLAY is std_ulogic_vector(6 downto 0); | ||
| + | | ||
| + | constant SEG_0 : std_ulogic_vector(6 downto 0):= " | ||
| + | constant SEG_1 : std_ulogic_vector(6 downto 0):= " | ||
| + | constant SEG_2 : std_ulogic_vector(6 downto 0):= " | ||
| + | constant SEG_3 : std_ulogic_vector(6 downto 0):= " | ||
| + | constant SEG_4 : std_ulogic_vector(6 downto 0):= " | ||
| + | constant SEG_5 : std_ulogic_vector(6 downto 0):= " | ||
| + | constant SEG_6 : std_ulogic_vector(6 downto 0):= " | ||
| + | constant SEG_7 : std_ulogic_vector(6 downto 0):= " | ||
| + | constant SEG_8 : std_ulogic_vector(6 downto 0):= " | ||
| + | constant SEG_9 : std_ulogic_vector(6 downto 0):= " | ||
| + | constant SEG_E : std_ulogic_vector(6 downto 0):= " | ||
| + | | ||
| + | -- pragma translate_off | ||
| + | procedure DISPLAY_DIGIT(signal DISPLAY: | ||
| + | -- pragma translate_on | ||
| + | end P_DISPLAY; | ||
| + | |||
| + | -- pragma translate_off | ||
| + | use std.textio.all; | ||
| + | package body P_DISPLAY is | ||
| + | ------------- | ||
| + | -- | ||
| + | -- | ||
| + | -- | ||
| + | -- 1 #5## | ||
| + | -- 2 # # | ||
| + | -- 3 4 0 | ||
| + | -- 4 # # | ||
| + | -- 5 #6## | ||
| + | -- 6 # # | ||
| + | -- 7 3 1 | ||
| + | -- 8 # # | ||
| + | -- 9 #2## | ||
| + | -- | ||
| + | ------------- | ||
| + | | ||
| + | constant ACTIVE_SEG: character := '#'; | ||
| + | constant EMPTY_SEG: | ||
| + | | ||
| + | -- Width and height of a digit | ||
| + | constant WIDTH: integer := 8; | ||
| + | constant HEIGHT: integer := 9; | ||
| + | | ||
| + | -- Datatypes to store the complete display in a matrix | ||
| + | subtype T_MATRIX_ROW | ||
| + | type T_DISP_MATRIX is array (1 to HEIGHT) of T_MATRIX_ROW; | ||
| + | | ||
| + | -- Definition of the appearance of the 6 segments | ||
| + | subtype T_DIGIT_ROW is bit_vector(1 to WIDTH); | ||
| + | type T_SEG_DEF | ||
| + | type T_DIGIT_DEF is array (0 to 6) of T_SEG_DEF; | ||
| + | constant DIGIT_DEF: T_DIGIT_DEF : | ||
| + | " | ||
| + | " | ||
| + | " | ||
| + | " | ||
| + | " | ||
| + | " | ||
| + | " | ||
| + | " | ||
| + | |||
| + | | ||
| + | " | ||
| + | " | ||
| + | " | ||
| + | " | ||
| + | " | ||
| + | " | ||
| + | " | ||
| + | " | ||
| + | |||
| + | | ||
| + | " | ||
| + | " | ||
| + | " | ||
| + | " | ||
| + | " | ||
| + | " | ||
| + | " | ||
| + | " | ||
| + | |||
| + | | ||
| + | " | ||
| + | " | ||
| + | " | ||
| + | " | ||
| + | " | ||
| + | " | ||
| + | " | ||
| + | " | ||
| + | |||
| + | | ||
| + | " | ||
| + | " | ||
| + | " | ||
| + | " | ||
| + | " | ||
| + | " | ||
| + | " | ||
| + | " | ||
| + | |||
| + | | ||
| + | " | ||
| + | " | ||
| + | " | ||
| + | " | ||
| + | " | ||
| + | " | ||
| + | " | ||
| + | " | ||
| + | |||
| + | | ||
| + | " | ||
| + | " | ||
| + | " | ||
| + | " | ||
| + | " | ||
| + | " | ||
| + | " | ||
| + | " | ||
| + | | ||
| + | procedure DISPLAY_DIGIT(signal DISPLAY: | ||
| + | file OUTFILE : TEXT is out " | ||
| + | | ||
| + | variable L : line; | ||
| + | variable DISP_TEXT: string(T_MATRIX_ROW' | ||
| + | | ||
| + | variable DISP_MATRIX: | ||
| + | variable COL_L: integer; | ||
| + | variable COL_R: integer; | ||
| + | | ||
| + | begin | ||
| + | -- Clear the display | ||
| + | DISP_MATRIX := (others => (others => ' | ||
| + | | ||
| + | -- Loop over all segments | ||
| + | for SEGMENT in 0 to 6 loop | ||
| + | if DISPLAY(SEGMENT) = ' | ||
| + | -- Copy the matrix to the final display | ||
| + | -- Loop over all rows of the display | ||
| + | for ROW in T_SEG_DEF' | ||
| + | DISP_MATRIX(ROW)(T_DIGIT_ROW' | ||
| + | DISP_MATRIX(ROW)(T_DIGIT_ROW' | ||
| + | DIGIT_DEF(SEGMENT)(ROW); | ||
| + | end loop; | ||
| + | end if; | ||
| + | end loop; | ||
| + | | ||
| + | -- Write the matrix to a textfile | ||
| + | for I in T_DISP_MATRIX' | ||
| + | -- Start with an empty line | ||
| + | DISP_TEXT := (others => EMPTY_SEG); | ||
| + | | ||
| + | for J in T_MATRIX_ROW' | ||
| + | if DISP_MATRIX(I)(J) = ' | ||
| + | DISP_TEXT(J) := ACTIVE_SEG; | ||
| + | end if; | ||
| + | end loop; | ||
| + | | ||
| + | -- Write the line | ||
| + | write(L, DISP_TEXT); | ||
| + | writeline(OUTFILE, | ||
| + | end loop; | ||
| + | | ||
| + | end DISPLAY_DIGIT; | ||
| + | end P_DISPLAY; | ||
| + | -- pragma translate_on | ||
| </ | </ | ||