1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
| library IEEE;
use IEEE.STD_LOGIC_1164.ALL;
use std.textio.all; -- this library has to be used
use ieee.std_logic_textio.all; -- this library has to be used
use work.set_of_data_items.all;
entity teste is
--generic ( M : integer := 4;
-- N : integer := 16 );
Port ( seg: out STD_LOGIC_VECTOR(6 downto 0);
an: out STD_LOGIC_VECTOR(7 downto 0);
clk: in STD_LOGIC );
end teste;
architecture Behavioral of teste is
--metodo para ler valores de um ficheiro
impure function read_array (input_data : in string) return set_of_16items is --metodo para ler do ficheiro
file my_file : text is in input_data;
variable line_name : line;
variable a_name : set_of_16items;
begin
for i in set_of_8items'range loop
readline (my_file, line_name);
read (line_name, a_name(i));
end loop;
return a_name;
end function;
signal array_name : set_of_16items := read_array("data.txt"); --nome do ficheiro
signal array1 : set_of_16items;
signal first_set,second_set: set_of_8items;
signal val1,val2,val3,val4,val5,val6,val7,val8: std_logic_vector(3 downto 0);
begin
first_set<=(array_name(0),array_name(1),array_name(2),array_name(3),array_name(4),array_name(5),array_name(6),array_name(7));
second_set<=(array_name(8),array_name(9),array_name(10),array_name(11),array_name(12),array_name(13),array_name(14),array_name(15));
val8<=array1(15)(31 downto 28);
val7<=array1(15)(27 downto 24);
val6<=array1(15)(23 downto 20);
val5<=array1(15)(19 downto 16);
val4<=array1(15)(15 downto 12);
val3<=array1(15)(11 downto 8);
val2<=array1(15)(7 downto 4);
val1<=array1(15)(3 downto 0);
sort16items: entity work.merge16to16
port map(first_set,second_set,array1);
DispCont: entity work.EightDisplayControl
port map(clk,val1,val2,val3,val4,val5,val6,val7,val8,an,seg);
end Behavioral; |