mirror of
https://github.com/RobotechLille/cdf2018-principal
synced 2024-11-21 23:56:04 +01:00
Communication du FPGA : Ajout des bases
This commit is contained in:
parent
98e1bde49d
commit
00fe416933
|
|
@ -3,19 +3,148 @@ use IEEE.STD_LOGIC_1164.ALL;
|
||||||
|
|
||||||
|
|
||||||
entity Principal is
|
entity Principal is
|
||||||
Port ( CLK : in STD_LOGIC;
|
Port ( CLK : in STD_LOGIC; -- Clock
|
||||||
LED : out STD_LOGIC_VECTOR (3 downto 0));
|
BTN : in STD_LOGIC; -- Reset
|
||||||
|
-- FA
|
||||||
|
IO : inout STD_LOGIC_VECTOR (21 downto 20);
|
||||||
|
-- Debug
|
||||||
|
LED : out STD_LOGIC_VECTOR (3 downto 0);
|
||||||
|
AN : out STD_LOGIC_VECTOR (3 downto 0);
|
||||||
|
A_TO_G : out STD_LOGIC_VECTOR (6 downto 0);
|
||||||
|
DOT : out STD_LOGIC
|
||||||
|
);
|
||||||
end Principal;
|
end Principal;
|
||||||
|
|
||||||
architecture Behavioral of Principal is
|
architecture Behavioral of Principal is
|
||||||
|
-- Blink led
|
||||||
signal pulse : std_logic := '0';
|
signal pulse : std_logic := '0';
|
||||||
signal count : integer range 0 to 49999999 := 0;
|
signal count : integer := 0;
|
||||||
|
|
||||||
|
-- General
|
||||||
|
signal reset : std_logic := '0';
|
||||||
|
|
||||||
|
-- Encoder
|
||||||
|
signal left : integer;
|
||||||
|
signal right : integer;
|
||||||
|
|
||||||
|
-- Sensors
|
||||||
|
signal front : integer;
|
||||||
|
signal back : integer;
|
||||||
|
signal frontTrigger : integer := 0;
|
||||||
|
signal backTrigger : integer := 0;
|
||||||
|
|
||||||
|
-- AF
|
||||||
|
component uart is
|
||||||
|
generic (
|
||||||
|
baud : positive := 9600;
|
||||||
|
clock_frequency : positive := 50_000_000
|
||||||
|
);
|
||||||
|
port (
|
||||||
|
clock : in std_logic;
|
||||||
|
reset : in std_logic;
|
||||||
|
data_stream_in : in std_logic_vector(7 downto 0);
|
||||||
|
data_stream_in_stb : in std_logic;
|
||||||
|
data_stream_in_ack : out std_logic;
|
||||||
|
data_stream_out : out std_logic_vector(7 downto 0);
|
||||||
|
data_stream_out_stb : out std_logic;
|
||||||
|
tx : out std_logic;
|
||||||
|
rx : in std_logic
|
||||||
|
);
|
||||||
|
end component;
|
||||||
|
|
||||||
|
constant BAUD_COUNT: std_logic_vector := x"1458"; -- 96000 Baud at 50 MHz
|
||||||
|
|
||||||
|
signal txData : std_logic_vector(7 downto 0);
|
||||||
|
signal txStb : std_logic := '0';
|
||||||
|
signal txAck : std_logic := '0';
|
||||||
|
|
||||||
|
signal rxData : std_logic_vector(7 downto 0);
|
||||||
|
signal rxStb : std_logic := '0';
|
||||||
|
|
||||||
|
constant A2FD_PING : std_logic_vector := x"50"; -- 'P'
|
||||||
|
|
||||||
|
type readStates is (readIdle);
|
||||||
|
signal readState : readStates := readIdle;
|
||||||
|
|
||||||
|
type sendMessages is (none, A2FD_PINGs);
|
||||||
|
signal resetSendMessageRead : std_logic := '0';
|
||||||
|
signal resetSendMessageSend : std_logic := '0';
|
||||||
|
signal sendMessage : sendMessages := none;
|
||||||
|
signal sendOffset : integer := 0;
|
||||||
|
|
||||||
|
-- Debug
|
||||||
|
component sevenseg is
|
||||||
|
Port (
|
||||||
|
data : in STD_LOGIC_VECTOR (15 downto 0);
|
||||||
|
clock : in STD_LOGIC;
|
||||||
|
anode : out STD_LOGIC_VECTOR (3 downto 0);
|
||||||
|
segment : out STD_LOGIC_VECTOR (6 downto 0);
|
||||||
|
dot : out STD_LOGIC
|
||||||
|
);
|
||||||
|
end component;
|
||||||
|
signal sevensegdata: std_logic_vector(15 downto 0);
|
||||||
|
signal fullseg: std_logic_vector(7 downto 0);
|
||||||
begin
|
begin
|
||||||
|
|
||||||
counter : process(CLK)
|
reset <= BTN;
|
||||||
|
|
||||||
|
FA: uart port map(
|
||||||
|
clock => CLK,
|
||||||
|
reset => reset,
|
||||||
|
data_stream_in => txData,
|
||||||
|
data_stream_in_stb => txStb,
|
||||||
|
data_stream_in_ack => txAck,
|
||||||
|
data_stream_out => rxData,
|
||||||
|
data_stream_out_stb => rxStb,
|
||||||
|
tx => IO(21),
|
||||||
|
rx => IO(20)
|
||||||
|
);
|
||||||
|
|
||||||
|
readsendFA : process(reset, rxStb, txAck)
|
||||||
begin
|
begin
|
||||||
if CLK'event and CLK = '1' then
|
if reset = '1' then
|
||||||
if count = 49999999 then
|
readState <= readIdle;
|
||||||
|
sendMessage <= none;
|
||||||
|
txStb <= '0';
|
||||||
|
sendOffset <= 0;
|
||||||
|
else
|
||||||
|
-- If read something
|
||||||
|
if rxStb = '1' then
|
||||||
|
if readState = readIdle then
|
||||||
|
case rxData is
|
||||||
|
when A2FD_PING => -- 'P'
|
||||||
|
sendMessage <= A2FD_PINGs; -- TODO Not so brutal
|
||||||
|
when others =>
|
||||||
|
end case;
|
||||||
|
end if;
|
||||||
|
end if;
|
||||||
|
|
||||||
|
-- Reset sending if UART module has begun sending (and has a copy of the byte)
|
||||||
|
if txAck = '1' then
|
||||||
|
txStb <= '0';
|
||||||
|
end if;
|
||||||
|
|
||||||
|
-- If what was sent is acknowledged and there is still something to send
|
||||||
|
if txStb = '0' then
|
||||||
|
case sendMessage is
|
||||||
|
when none =>
|
||||||
|
when A2FD_PINGs =>
|
||||||
|
txData <= A2FD_PING;
|
||||||
|
txStb <= '1';
|
||||||
|
sendMessage <= none;
|
||||||
|
end case;
|
||||||
|
end if;
|
||||||
|
end if;
|
||||||
|
end process;
|
||||||
|
|
||||||
|
-- Debug
|
||||||
|
blinkled : process(CLK, reset)
|
||||||
|
begin
|
||||||
|
if reset = '1' then
|
||||||
|
count <= 0;
|
||||||
|
pulse <= '0';
|
||||||
|
elsif CLK'event and CLK = '1' then
|
||||||
|
if count = 9999999 then
|
||||||
count <= 0;
|
count <= 0;
|
||||||
pulse <= not pulse;
|
pulse <= not pulse;
|
||||||
else
|
else
|
||||||
|
|
@ -23,7 +152,21 @@ begin
|
||||||
end if;
|
end if;
|
||||||
end if;
|
end if;
|
||||||
end process;
|
end process;
|
||||||
|
LED(3) <= pulse;
|
||||||
|
|
||||||
|
LED(2) <= txStb;
|
||||||
|
LED(1) <= rxStb;
|
||||||
|
LED(0) <= txAck;
|
||||||
|
|
||||||
|
debugSeg: sevenseg port map(
|
||||||
|
data => sevensegdata,
|
||||||
|
clock => CLK,
|
||||||
|
anode => AN,
|
||||||
|
segment => A_TO_G,
|
||||||
|
dot => DOT
|
||||||
|
);
|
||||||
|
sevensegdata(15 downto 8) <= rxData;
|
||||||
|
sevensegdata(7 downto 0) <= txData;
|
||||||
|
|
||||||
LED(3 downto 0) <= (others => pulse);
|
|
||||||
end Behavioral;
|
end Behavioral;
|
||||||
|
|
||||||
|
|
|
||||||
179
fpga/debug.ucf
Normal file
179
fpga/debug.ucf
Normal file
|
|
@ -0,0 +1,179 @@
|
||||||
|
# __ ____ _ __
|
||||||
|
# / |/ (_)_____________ / | / /___ _ ______ _
|
||||||
|
# / /|_/ / / ___/ ___/ __ \/ |/ / __ \ | / / __ `/
|
||||||
|
# / / / / / /__/ / / /_/ / /| / /_/ / |/ / /_/ /
|
||||||
|
# /_/ /_/_/\___/_/ \____/_/ |_/\____/|___/\__,_/
|
||||||
|
#
|
||||||
|
# Mercury BASEBOARD User Constraints File
|
||||||
|
# Revision 1.0.0 (03/25/2015)
|
||||||
|
# Copyright (c) 2015 MicroNova, LLC
|
||||||
|
# www.micro-nova.com
|
||||||
|
|
||||||
|
# system oscillators
|
||||||
|
NET "EXT_CLK" LOC = "P44" | IOSTANDARD = LVTTL ;
|
||||||
|
NET "CLK" LOC = "P43" | IOSTANDARD = LVTTL ;
|
||||||
|
NET "CLK" TNM_NET = "CLK";
|
||||||
|
TIMESPEC "TS_CLK" = PERIOD "CLK" 20 ns HIGH 50 %;
|
||||||
|
|
||||||
|
# PS/2
|
||||||
|
NET "PS2_DATA" LOC = "P13" | IOSTANDARD = LVTTL ;
|
||||||
|
NET "PS2_CLK" LOC = "P15" | IOSTANDARD = LVTTL ;
|
||||||
|
|
||||||
|
# Buttons
|
||||||
|
NET "USR_BTN" LOC = "P41" | IOSTANDARD = LVTTL ;
|
||||||
|
NET "BTN<0>" LOC = "P68" | IOSTANDARD = LVTTL ;
|
||||||
|
NET "BTN<1>" LOC = "P97" | IOSTANDARD = LVTTL ;
|
||||||
|
NET "BTN<2>" LOC = "P7" | IOSTANDARD = LVTTL ;
|
||||||
|
NET "BTN<3>" LOC = "P82" | IOSTANDARD = LVTTL ;
|
||||||
|
|
||||||
|
# VGA
|
||||||
|
NET "RED<0>" LOC = "P20" | IOSTANDARD = LVTTL ;
|
||||||
|
NET "RED<1>" LOC = "P32" | IOSTANDARD = LVTTL ;
|
||||||
|
NET "RED<2>" LOC = "P33" | IOSTANDARD = LVTTL ;
|
||||||
|
NET "GRN<0>" LOC = "P34" | IOSTANDARD = LVTTL ;
|
||||||
|
NET "GRN<1>" LOC = "P35" | IOSTANDARD = LVTTL ;
|
||||||
|
NET "GRN<2>" LOC = "P36" | IOSTANDARD = LVTTL ;
|
||||||
|
NET "BLU<0>" LOC = "P37" | IOSTANDARD = LVTTL ;
|
||||||
|
NET "BLU<1>" LOC = "P40" | IOSTANDARD = LVTTL ;
|
||||||
|
NET "HSYNC" LOC = "P16" | IOSTANDARD = LVTTL ;
|
||||||
|
NET "VSYNC" LOC = "P19" | IOSTANDARD = LVTTL ;
|
||||||
|
|
||||||
|
# SWITCHES
|
||||||
|
NET "SW<0>" LOC = "P59" | IOSTANDARD = LVTTL ;
|
||||||
|
NET "SW<1>" LOC = "P60" | IOSTANDARD = LVTTL ;
|
||||||
|
NET "SW<2>" LOC = "P61" | IOSTANDARD = LVTTL ;
|
||||||
|
NET "SW<3>" LOC = "P62" | IOSTANDARD = LVTTL ;
|
||||||
|
NET "SW<4>" LOC = "P64" | IOSTANDARD = LVTTL ;
|
||||||
|
NET "SW<5>" LOC = "P57" | IOSTANDARD = LVTTL ;
|
||||||
|
NET "SW<6>" LOC = "P56" | IOSTANDARD = LVTTL ;
|
||||||
|
NET "SW<7>" LOC = "P52" | IOSTANDARD = LVTTL ;
|
||||||
|
|
||||||
|
# 7 SEG
|
||||||
|
NET "AN<0>" LOC = "P50" | IOSTANDARD = LVTTL ;
|
||||||
|
NET "AN<1>" LOC = "P49" | IOSTANDARD = LVTTL ;
|
||||||
|
NET "AN<2>" LOC = "P85" | IOSTANDARD = LVTTL ;
|
||||||
|
NET "AN<3>" LOC = "P84" | IOSTANDARD = LVTTL ;
|
||||||
|
NET "A_TO_G<0>" LOC = "P72" | IOSTANDARD = LVTTL ;
|
||||||
|
NET "A_TO_G<1>" LOC = "P71" | IOSTANDARD = LVTTL ;
|
||||||
|
NET "A_TO_G<2>" LOC = "P70" | IOSTANDARD = LVTTL ;
|
||||||
|
NET "A_TO_G<3>" LOC = "P65" | IOSTANDARD = LVTTL ;
|
||||||
|
NET "A_TO_G<4>" LOC = "P77" | IOSTANDARD = LVTTL ;
|
||||||
|
NET "A_TO_G<5>" LOC = "P78" | IOSTANDARD = LVTTL ;
|
||||||
|
NET "A_TO_G<6>" LOC = "P83" | IOSTANDARD = LVTTL ;
|
||||||
|
NET "DOT" LOC = "P73" | IOSTANDARD = LVTTL ;
|
||||||
|
|
||||||
|
# PMOD
|
||||||
|
NET "PMOD<0>" LOC = "P5" | IOSTANDARD = LVTTL ;
|
||||||
|
NET "PMOD<1>" LOC = "P4" | IOSTANDARD = LVTTL ;
|
||||||
|
NET "PMOD<2>" LOC = "P6" | IOSTANDARD = LVTTL ;
|
||||||
|
NET "PMOD<3>" LOC = "P98" | IOSTANDARD = LVTTL ;
|
||||||
|
NET "PMOD<4>" LOC = "P94" | IOSTANDARD = LVTTL ;
|
||||||
|
NET "PMOD<5>" LOC = "P93" | IOSTANDARD = LVTTL ;
|
||||||
|
NET "PMOD<6>" LOC = "P90" | IOSTANDARD = LVTTL ;
|
||||||
|
NET "PMOD<7>" LOC = "P89" | IOSTANDARD = LVTTL ;
|
||||||
|
|
||||||
|
# AUDIO OUT
|
||||||
|
NET "AUDIO_OUT_R" LOC = "P88" | IOSTANDARD = LVTTL ;
|
||||||
|
NET "AUDIO_OUT_L" LOC = "P86" | IOSTANDARD = LVTTL ;
|
||||||
|
|
||||||
|
# memory & bus-switch
|
||||||
|
NET "SWITCH_OEN" LOC = "P3" | IOSTANDARD = LVTTL ;
|
||||||
|
NET "MEMORY_OEN" LOC = "P30" | IOSTANDARD = LVTTL ;
|
||||||
|
|
||||||
|
# flash/usb interface
|
||||||
|
NET "FPGA_CSN" LOC = "P39" | IOSTANDARD = LVTTL ;
|
||||||
|
NET "FLASH_CSN" LOC = "P27" | IOSTANDARD = LVTTL ;
|
||||||
|
NET "SPI_MOSI" LOC = "P46" | IOSTANDARD = LVTTL ;
|
||||||
|
NET "SPI_MISO" LOC = "P51" | IOSTANDARD = LVTTL ;
|
||||||
|
NET "SPI_SCK" LOC = "P53" | IOSTANDARD = LVTTL ;
|
||||||
|
|
||||||
|
# ADC interface
|
||||||
|
NET "ADC_MISO" LOC = "P21" | IOSTANDARD = LVTTL ;
|
||||||
|
NET "ADC_MOSI" LOC = "P10" | IOSTANDARD = LVTTL ;
|
||||||
|
NET "ADC_SCK" LOC = "P9" | IOSTANDARD = LVTTL ;
|
||||||
|
NET "ADC_CSN" LOC = "P12" | IOSTANDARD = LVTTL ;
|
||||||
|
# __ ____ _ __
|
||||||
|
# / |/ (_)_____________ / | / /___ _ ______ _
|
||||||
|
# / /|_/ / / ___/ ___/ __ \/ |/ / __ \ | / / __ `/
|
||||||
|
# / / / / / /__/ / / /_/ / /| / /_/ / |/ / /_/ /
|
||||||
|
# /_/ /_/_/\___/_/ \____/_/ |_/\____/|___/\__,_/
|
||||||
|
#
|
||||||
|
# Mercury User Constraints File
|
||||||
|
# Revision 1.0.142 (10/24/2012)
|
||||||
|
# Copyright (c) 2012 MicroNova, LLC
|
||||||
|
# www.micro-nova.com
|
||||||
|
|
||||||
|
# user LEDs and button
|
||||||
|
NET "LED<0>" LOC = "P13" | IOSTANDARD = LVTTL ;
|
||||||
|
NET "LED<1>" LOC = "P15" | IOSTANDARD = LVTTL ;
|
||||||
|
NET "LED<2>" LOC = "P16" | IOSTANDARD = LVTTL ;
|
||||||
|
NET "LED<3>" LOC = "P19" | IOSTANDARD = LVTTL ;
|
||||||
|
NET "BTN" LOC = "P41" | IOSTANDARD = LVTTL ;
|
||||||
|
|
||||||
|
# direct and global-clock I/O
|
||||||
|
NET "DIO<0>" LOC = "P20" | IOSTANDARD = LVTTL ;
|
||||||
|
NET "DIO<1>" LOC = "P32" | IOSTANDARD = LVTTL ;
|
||||||
|
NET "DIO<2>" LOC = "P33" | IOSTANDARD = LVTTL ;
|
||||||
|
NET "DIO<3>" LOC = "P34" | IOSTANDARD = LVTTL ;
|
||||||
|
NET "DIO<4>" LOC = "P35" | IOSTANDARD = LVTTL ;
|
||||||
|
NET "DIO<5>" LOC = "P36" | IOSTANDARD = LVTTL ;
|
||||||
|
NET "DIO<6>" LOC = "P37" | IOSTANDARD = LVTTL ;
|
||||||
|
NET "CIO<0>" LOC = "P40" | IOSTANDARD = LVTTL ;
|
||||||
|
NET "CIO<1>" LOC = "P44" | IOSTANDARD = LVTTL ;
|
||||||
|
|
||||||
|
# in-only pins
|
||||||
|
NET "INPIN<0>" LOC = "P68" | IOSTANDARD = LVTTL ;
|
||||||
|
NET "INPIN<1>" LOC = "P97" | IOSTANDARD = LVTTL ;
|
||||||
|
NET "INPIN<2>" LOC = "P7" | IOSTANDARD = LVTTL ;
|
||||||
|
NET "INPIN<3>" LOC = "P82" | IOSTANDARD = LVTTL ;
|
||||||
|
|
||||||
|
# level-shifted I/O
|
||||||
|
NET "IO<0>" LOC = "P59" | IOSTANDARD = LVTTL ;
|
||||||
|
NET "IO<1>" LOC = "P60" | IOSTANDARD = LVTTL ;
|
||||||
|
NET "IO<2>" LOC = "P61" | IOSTANDARD = LVTTL ;
|
||||||
|
NET "IO<3>" LOC = "P62" | IOSTANDARD = LVTTL ;
|
||||||
|
NET "IO<4>" LOC = "P64" | IOSTANDARD = LVTTL ;
|
||||||
|
NET "IO<5>" LOC = "P57" | IOSTANDARD = LVTTL ;
|
||||||
|
NET "IO<6>" LOC = "P56" | IOSTANDARD = LVTTL ;
|
||||||
|
NET "IO<7>" LOC = "P52" | IOSTANDARD = LVTTL ;
|
||||||
|
NET "IO<8>" LOC = "P50" | IOSTANDARD = LVTTL ;
|
||||||
|
NET "IO<9>" LOC = "P49" | IOSTANDARD = LVTTL ;
|
||||||
|
NET "IO<10>" LOC = "P85" | IOSTANDARD = LVTTL ;
|
||||||
|
NET "IO<11>" LOC = "P84" | IOSTANDARD = LVTTL ;
|
||||||
|
NET "IO<12>" LOC = "P83" | IOSTANDARD = LVTTL ;
|
||||||
|
NET "IO<13>" LOC = "P78" | IOSTANDARD = LVTTL ;
|
||||||
|
NET "IO<14>" LOC = "P77" | IOSTANDARD = LVTTL ;
|
||||||
|
NET "IO<15>" LOC = "P65" | IOSTANDARD = LVTTL ;
|
||||||
|
NET "IO<16>" LOC = "P70" | IOSTANDARD = LVTTL ;
|
||||||
|
NET "IO<17>" LOC = "P71" | IOSTANDARD = LVTTL ;
|
||||||
|
NET "IO<18>" LOC = "P72" | IOSTANDARD = LVTTL ;
|
||||||
|
NET "IO<19>" LOC = "P73" | IOSTANDARD = LVTTL ;
|
||||||
|
NET "IO<20>" LOC = "P5" | IOSTANDARD = LVTTL ;
|
||||||
|
NET "IO<21>" LOC = "P4" | IOSTANDARD = LVTTL ;
|
||||||
|
NET "IO<22>" LOC = "P6" | IOSTANDARD = LVTTL ;
|
||||||
|
NET "IO<23>" LOC = "P98" | IOSTANDARD = LVTTL ;
|
||||||
|
NET "IO<24>" LOC = "P94" | IOSTANDARD = LVTTL ;
|
||||||
|
NET "IO<25>" LOC = "P93" | IOSTANDARD = LVTTL ;
|
||||||
|
NET "IO<26>" LOC = "P90" | IOSTANDARD = LVTTL ;
|
||||||
|
NET "IO<27>" LOC = "P89" | IOSTANDARD = LVTTL ;
|
||||||
|
NET "IO<28>" LOC = "P88" | IOSTANDARD = LVTTL ;
|
||||||
|
NET "IO<29>" LOC = "P86" | IOSTANDARD = LVTTL ;
|
||||||
|
|
||||||
|
# memory & bus-switch
|
||||||
|
NET "switch_oen" LOC = "P3" | IOSTANDARD = LVTTL ;
|
||||||
|
NET "memory_oen" LOC = "P30" | IOSTANDARD = LVTTL ;
|
||||||
|
|
||||||
|
# flash/usb interface
|
||||||
|
NET "fpga_csn" LOC = "P39" | IOSTANDARD = LVTTL ;
|
||||||
|
NET "flash_csn" LOC = "P27" | IOSTANDARD = LVTTL ;
|
||||||
|
NET "spi_mosi" LOC = "P46" | IOSTANDARD = LVTTL ;
|
||||||
|
NET "spi_miso" LOC = "P51" | IOSTANDARD = LVTTL ;
|
||||||
|
NET "spi_sck" LOC = "P53" | IOSTANDARD = LVTTL ;
|
||||||
|
|
||||||
|
# ADC interface
|
||||||
|
NET "adc_miso" LOC = "P21" | IOSTANDARD = LVTTL ;
|
||||||
|
NET "adc_mosi" LOC = "P10" | IOSTANDARD = LVTTL ;
|
||||||
|
NET "adc_sck" LOC = "P9" | IOSTANDARD = LVTTL ;
|
||||||
|
NET "adc_csn" LOC = "P12" | IOSTANDARD = LVTTL ;
|
||||||
|
|
||||||
|
# CLOCK timing
|
||||||
|
|
@ -13,7 +13,7 @@ entity hedm is
|
||||||
clk : in STD_LOGIC; -- Horloge, la fréquence n'importe pas
|
clk : in STD_LOGIC; -- Horloge, la fréquence n'importe pas
|
||||||
chA : in STD_LOGIC; -- Canal A
|
chA : in STD_LOGIC; -- Canal A
|
||||||
chB : in STD_LOGIC; -- Canal B
|
chB : in STD_LOGIC; -- Canal B
|
||||||
counts : out -- Integer;
|
counts : out integer
|
||||||
);
|
);
|
||||||
end hedm;
|
end hedm;
|
||||||
|
|
||||||
|
|
@ -29,8 +29,8 @@ begin
|
||||||
Ap <= An;
|
Ap <= An;
|
||||||
Bp <= Bn;
|
Bp <= Bn;
|
||||||
|
|
||||||
An <= A;
|
An <= chA;
|
||||||
Bn <= B;
|
Bn <= chB;
|
||||||
|
|
||||||
-- On pourrait optimiser la logique avec un tableau de Karnaugh ou autres méthodes
|
-- On pourrait optimiser la logique avec un tableau de Karnaugh ou autres méthodes
|
||||||
-- de simplification d'algèbre de Boole, mais le "compilateur" pour FPGA fera un
|
-- de simplification d'algèbre de Boole, mais le "compilateur" pour FPGA fera un
|
||||||
|
|
|
||||||
|
|
@ -4,8 +4,13 @@ XILINX = /opt/Xilinx/14.7/ISE_DS/ISE
|
||||||
PROGRAMMER = mercpcl
|
PROGRAMMER = mercpcl
|
||||||
|
|
||||||
TOPLEVEL = Principal
|
TOPLEVEL = Principal
|
||||||
VHDSOURCE = $(TOPLEVEL).vhd
|
# Prod
|
||||||
CONSTRAINTS = mercury.ucf
|
# VHDSOURCE = $(TOPLEVEL).vhd uart.vhd
|
||||||
|
# CONSTRAINTS = mercury.ucf
|
||||||
|
# Debug
|
||||||
|
VHDSOURCE = $(TOPLEVEL).vhd $(wildcard *.vhd)
|
||||||
|
CONSTRAINTS = debug.ucf
|
||||||
|
|
||||||
|
|
||||||
# Implement design
|
# Implement design
|
||||||
# Allow unmatched LOC Constraints
|
# Allow unmatched LOC Constraints
|
||||||
|
|
|
||||||
68
fpga/sevenseg.vhd
Normal file
68
fpga/sevenseg.vhd
Normal file
|
|
@ -0,0 +1,68 @@
|
||||||
|
library IEEE;
|
||||||
|
use IEEE.STD_LOGIC_1164.ALL;
|
||||||
|
|
||||||
|
entity sevenseg is
|
||||||
|
Port (
|
||||||
|
data : in STD_LOGIC_VECTOR (15 downto 0);
|
||||||
|
clock : in STD_LOGIC;
|
||||||
|
anode : out STD_LOGIC_VECTOR (3 downto 0);
|
||||||
|
segment : out STD_LOGIC_VECTOR (6 downto 0);
|
||||||
|
dot : out STD_LOGIC
|
||||||
|
);
|
||||||
|
end sevenseg;
|
||||||
|
|
||||||
|
architecture structural of sevenseg is
|
||||||
|
|
||||||
|
signal digit: std_logic_vector(3 downto 0);
|
||||||
|
signal selector: integer range 0 to 3 := 0;
|
||||||
|
signal counter : integer range 0 to 199999 := 0;
|
||||||
|
|
||||||
|
begin
|
||||||
|
with selector select
|
||||||
|
anode <= "1110" when 0,
|
||||||
|
"1101" when 1,
|
||||||
|
"1011" when 2,
|
||||||
|
"0111" when 3,
|
||||||
|
"0000" when others;
|
||||||
|
|
||||||
|
with selector select
|
||||||
|
digit <= data(3 downto 0) when 0,
|
||||||
|
data(7 downto 4) when 1,
|
||||||
|
data(11 downto 8) when 2,
|
||||||
|
data(15 downto 12) when 3,
|
||||||
|
"0000" when others;
|
||||||
|
|
||||||
|
with digit select
|
||||||
|
segment <= "0000001" when "0000", -- 0
|
||||||
|
"1001111" when "0001", -- 1
|
||||||
|
"0010010" when "0010", -- 2
|
||||||
|
"0000110" when "0011", -- 3
|
||||||
|
"1001100" when "0100", -- 4
|
||||||
|
"0100100" when "0101", -- 5
|
||||||
|
"0100000" when "0110", -- 6
|
||||||
|
"0001111" when "0111", -- 7
|
||||||
|
"0000000" when "1000", -- 8
|
||||||
|
"0000100" when "1001", -- 9
|
||||||
|
"0001000" when "1010", -- A
|
||||||
|
"1100000" when "1011", -- b
|
||||||
|
"0110001" when "1100", -- C
|
||||||
|
"1000010" when "1101", -- d
|
||||||
|
"0110000" when "1110", -- E
|
||||||
|
"0111000" when "1111", -- F
|
||||||
|
"0000000" when others;
|
||||||
|
|
||||||
|
dot <= '1';
|
||||||
|
|
||||||
|
alternateur : process(clock)
|
||||||
|
begin
|
||||||
|
if clock'event and clock = '1' then
|
||||||
|
if counter = 0 then
|
||||||
|
selector <= selector + 1;
|
||||||
|
end if;
|
||||||
|
counter <= counter + 1;
|
||||||
|
end if;
|
||||||
|
end process;
|
||||||
|
|
||||||
|
|
||||||
|
end structural;
|
||||||
|
|
||||||
Loading…
Reference in a new issue