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
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
|
---------------------------------------------------------------------------------------------
-- circuit affhex_pmodssd.vhd
---------------------------------------------------------------------------------------------
-- Université de Sherbrooke - Département de GEGI
-- Version : 2.0
-- Nomenclature : 0.8 GRAMS
-- Date : revision 23 octobre 2018
-- Auteur(s) : Réjean Fontaine, Daniel Dalle
-- Technologies : FPGA Zynq (carte ZYBO Z7-10 ZYBO Z7-20)
--
-- Outils : vivado 2016.1 64 bits, vivado 2018.2
---------------------------------------------------------------------------------------------
-- Description:
-- Affichage sur module de 2 chiffes (7 o_Segents) sur PmodSSD
-- reference https://reference.digilentinc.com/reference/pmod/pmodssd/start
-- PmodSSD Reference Manual Doc: 502-126 Digilent, Inc.
--
-- Revisions
-- mise a jour D Dalle 22 octobre 2018 corrections, simplifications
-- mise a jour D Dalle 15 octobre documentation affhex_pmodssd_sol_v0.vhd
-- mise a jour D Dalle 12 septembre pour eviter l'usage d'une horloge interne
-- mise a jour D Dalle 7 septembre, calcul des constantes.
-- mise a jour D Dalle 5 septembre 2018, nom affhexPmodSSD, 6 septembre :division horloge
-- module de commande le l'afficheur 2 o_Segents 2 digits sur pmod
-- Daniel Dalle revision pour sortir les signaux du connecteur Pmod directement
-- Daniel Dalle 30 juillet 2018:
-- revision pour une seule entre sur 8 bits affichee sur les deux chiffres Hexa
--
-- Creation selon affhex7segx4v3.vhd
-- (Daniel Dalle, Réjean Fontaine Universite de Sherbrooke, Departement GEGI)
-- 26 septembre 2011, revision 12 juin 2012, 25 janvier 2013, 7 mai 2015
-- Contrôle de l'afficheur a sept o_Segent (BASYS2 - NEXYS2)
-- horloge 100MHz et diviseur interne
---------------------------------------------------------------------------------------------
-- À faire :
--
--
--
---------------------------------------------------------------------------------------------
library IEEE;
use IEEE.STD_LOGIC_1164.ALL;
entity septSegments_encodeur is Port(
i_AFF : in STD_LOGIC_VECTOR(3 downto 0); -- caractère à afficher
o_CharacterePourSim : out string(1 to 1); -- pour simulation seulement
o_Seg : out STD_LOGIC_VECTOR(6 downto 0)); -- encodage 7-segments
end septSegments_encodeur;
architecture Behavioral of septSegments_encodeur is
-- fonction réservée pour l'affichage en simulation seulement
function segment2String(display : std_logic_vector( 6 downto 0))
return string is variable v_ReturnString : string(1 to 1);
begin
case display is
when "0111111" => v_ReturnString := "0"; -- 0
when "0000110" => v_ReturnString := "1"; -- 1
when "1011011" => v_ReturnString := "2"; -- 2
when "1001111" => v_ReturnString := "3"; -- 3
when "1100110" => v_ReturnString := "4"; -- 4
when "1101101" => v_ReturnString := "5"; -- 5
when "1111101" => v_ReturnString := "6"; -- 6
when "0000111" => v_ReturnString := "7"; -- 7
when "1111111" => v_ReturnString := "8"; -- 8
when "1101111" => v_ReturnString := "9"; -- 9
when "1110111" => v_ReturnString := "A"; -- A
when "1111100" => v_ReturnString := "B"; -- b
when "0111001" => v_ReturnString := "C"; -- C
when "1011110" => v_ReturnString := "D"; -- d
when "1111001" => v_ReturnString := "E"; -- E
when "1110001" => v_ReturnString := "F"; -- F
when "1000000" => v_ReturnString := "-"; -- négatif
when "1010000" => v_ReturnString := "r"; -- r pour erreur
when others => v_ReturnString := "_"; -- code non reconnu
end case;
return v_ReturnString;
end segment2String;
signal s_Seg : STD_LOGIC_VECTOR(6 downto 0);
begin
-- correspondance des o_Segents des afficheurs
o_Segent: process (i_AFF)
begin
case i_AFF is
-- "gfedcba"
when "0000" => s_Seg <= "0111111"; -- 0
when "0001" => s_Seg <= "0000110"; -- 1
when "0010" => s_Seg <= "1011011"; -- 2
when "0011" => s_Seg <= "1001111"; -- 3
when "0100" => s_Seg <= "1100110"; -- 4
when "0101" => s_Seg <= "1101101"; -- 5
when "0110" => s_Seg <= "1111101"; -- 6
when "0111" => s_Seg <= "0000111"; -- 7
when "1000" => s_Seg <= "1111111"; -- 8
when "1001" => s_Seg <= "1101111"; -- 9
when "1010" => s_Seg <= "1110111"; -- A
when "1011" => s_Seg <= "1111100"; -- B
when "1100" => s_Seg <= "0111001"; -- C
when "1101" => s_Seg <= "1000000"; -- neg. (-)
when "1110" => s_Seg <= "1111001"; -- E
when "1111" => s_Seg <= "1010000"; -- r (for "Er")
when others => s_Seg <= "0001000"; -- undefined ("_")
end case;
end process;
o_CharacterePourSim <= segment2String(s_Seg);
o_Seg <= s_Seg ;
end Behavioral;
|
