Sortieranlage vhdl metall und kunststoff

library ieee;

use ieee.std_logic_1164.all;

use ieee.numeric_std.all;

entity sortierer is

 generic (

 CNT_OFL : positive :=          ERGÄNZE ; -- Sekundentakt overflow

 TIME_WEG_K : positive :=       ERGÄNZE im Praktikum; -- Kunststoff-Werkstück, langer Weg

 TIME_WEG_M : positive :=        ERGÄNZE im Praktikum; -- Metall-Werkstück, kurzer Weg

 FWD : std_logic := '0';

 BCK : std_logic := '1';

 RUN : std_logic := '1';

 STP : std_logic := '0';

 WEG_K : std_logic := '0';

 WEG_M : std_logic := '1'

 );

 port (

 reset_n : in std_logic; -- Key3

 clk : in std_logic; --50 MHz

 oe_in : in std_logic; -- Switch 9

 opt_sens : in std_logic; -- optischer Sensor

 ind_sens : in std_logic; -- induktiv Sensor

 oe_n_out : out std_logic;

 weiche_out : out std_logic; -- Weg A / Weg B -Umschaltung

 motor_pwr_out : out std_logic; -- ...

 motor_dir_out : out std_logic -- Motor Drehrichtung

 );

end entity sortierer;

architecture arch of sortierer is

-- signals

signal cnt : unsigned(      ERGÄNZE        );

signal time_s : unsigned(4 downto 0);

signal weiche : std_logic;

signal motor_pwr : std_logic;

signal motor_dir : std_logic;

type main_state_t is (idle, ERGÄNZE );

signal main_state, next_main_state : main_state_t;

begin

sort_control : process(clk, reset_n) is

begin

 if (reset_n = '0') then

 ERGÄNZE

 elsif rising_edge(clk) then

 main_state <= next_main_state; -- z_reg

 -- fast counter, overflow = 1s

 if cnt = to_unsigned(CNT_OFL, cnt'length) or main_state = idle then

 cnt <= (others => '0');

 else

 cnt <= cnt + 1;

 end if;

 -- Sekunden timer

 if main_state = idle then -- reset timer

 time_s <= (others => '0');

 elsif cnt = CNT_OFL then

 time_s <= time_s + 1;

 end if;

 case main_state is

 when idle => -- warte auf opt_sens hi   

 ERGÄNZE

 when ……. =>

 ERGÄNZE

 when ……. =>

 ERGÄNZE

 when ……. =>

 ERGÄNZE 

 when ……. =>

 ERGÄNZE

 when ……. =>

 ERGÄNZE

 end case;

 end if;

 oe_n_out <= not oe_in; -- voltage translator active

 weiche_out <= weiche;

 motor_pwr_out <= motor_pwr;

motor_dir_out <= motor_dir;