проект по МИУС Купрієнко Олексія
-
-------------------------------------------------------------------------------------------IEEE;IEEE.STD_LOGIC_1164.all;IEEE.STD_LOGIC_ARITH.all;IEEE.STD_LOGIC_UNSIGNED.all;mine is
(: in STD_LOGIC; - контроль наявності напруги на фідері 1: in STD_LOGIC; - контроль наявності напруги на фідері 2: in STD_LOGIC;: in STD_LOGIC;: out STD_LOGIC_VECTOR (1 downto 0); : in STD_LOGIC;: out STD_LOGIC; _nT: in STD_LOGIC; - P1 - Шляхове реле 1_A: in STD_LOGIC; _B: in STD_LOGIC; _T: in STD_LOGIC; _nT: in STD_LOGIC; - P2 - Шляхове реле 2_A: in STD_LOGIC; _B: in STD_LOGIC; _T: in STD_LOGIC; _nT: in STD_LOGIC; - P1 - Шляхове реле 1_A: in STD_LOGIC; _B: in STD_LOGIC; _T: in STD_LOGIC; _nT: in STD_LOGIC; - O1 - ОР1 переїзного св.1_A : in STD_LOGIC; _B: in STD_LOGIC; _T: in STD_LOGIC; _nT: in STD_LOGIC; - O2 - ОР2 переїзного св.1_A: in STD_LOGIC; _B: in STD_LOGIC; _T: in STD_LOGIC; _nT: in STD_LOGIC; - O3- ОР1 переїзного св.2_A: in STD_LOGIC; _B: in STD_LOGIC; _T: in STD_LOGIC; _nT: in STD_LOGIC; - O4 - ОР2 переїзного св.2_A: in STD_LOGIC; _B: in STD_LOGIC; _T: in STD_LOGIC;: out STD_LOGIC;: out STD_LOGIC;
-K1, K2-вихідний вектор управління світлофорами: out STD_LOGIC;: out STD_LOGIC; - сигнал видачі в лінію інформації про стан АПС: in STD_LOGIC - синхронізація передачі
); mine; mine of mine is
- СПИСОК СИГНАЛІВ, ВИКОРИСТОВУЮТЬСЯ В ПРОГРАММЕClose: STD_LOGIC:=«0»; - закрити переездP1: STD_LOGIC:=«0»; - ПР1 замкнутоP2: STD_LOGIC:=«0»;- ПР2 замкнутоP3: STD_LOGIC:=«0»; - ПР3 замкнуто
- БЛОК СИГНАЛІВ, ВІДПОВІДНИХ ПОРТАМ ПЛІСO1: STD_LOGIC; O2: STD_LOGIC; O3: STD_LOGIC; O4: STD_LOGIC; <= not CLK after 0.1 ms; process; <= Not Synchr after 10 ns; process; <= not SendInfo after 3600 s; process;
- знімання інформації з дорожнім реле 1; ПРОВОДИТЬСЯ ПОСТІЙНО: processP1_T1, P1_T2, P1_T3, P1_T4: STD_LOGIC; P1_nT1, P1_nT2, P1_nT3, P1_nT4: STD_LOGIC; P1_A1, P1_A2, P1_A3, P1_A4: STD_LOGIC; P1_B1, P1_B2, P1_B3, P1_B4: STD_LOGIC; Blok: STD_LOGIC:=« 0 »;
- ____
- тривалість імпульсів і провалів: 5 ms _ | | __ | | _P1_T «event and P1_T =» 1 «- Якщо прийшов фронт сигналу Тfor 1.5 ms; _A1:=P1_A; _B1:=P1_B; _T1:=P1_T; _nT1:=P1_nT; for 1.5 ms; _A2:=P1_A; _B2:=P1_B; _T2:=P1_T; _nT2:=P1_nT; for 3.5 ms; _A3:=P1_A; _B3:=P1_B; _T3:=P1_T; _nT3:=P1_nT; for 1.5 ms; _A4:=P1_A; _B4:=P1_B; _T4:=P1_T; _nT4:=P1_nT; P1_A1=P1_T1 and P1_A2=P1_T2 and P1_T1=P1_T2 then P1_B1=P1_nT1 and P1_B2=P1_nT2 and P1_nT1=P1_nT2 then P1_A3=P1_T3 and P1_A4= P1_T4 and P1_T3=P1_T4 then P1_B3=P1_nT3 and P1_B4=P1_nT4 and P1_nT3=P1_nT4 then P1_A1 /=P1_A3 and P1_A2 /=P1_A4 then:=»1«; <= »1 ';- Колійне реле 1 замкнутоif; if;
end if; if; if; P1_A1=P1_nT1 and P1_A2=P1_nT2 and P1_nT1=P1_nT2 then P1_B1=P1_T1 and P1_B2=P1_T2 and P1_T1=P1_T2 then P1_A3=P1_nT3 and P1_A4=P1_nT4 and P1_nT3=P1_nT4 then P1_B3=P1_T3 and P1_B4=P1_T4 and P1_T3=P1_T4 then P1_A1 /=P1_A3 and P1_A2 /=P1_A4 then:=«1»; <= «0»;- Колійне реле 1 разомкнутоif; if; if; if; if;
- порушення парафазного або імпульсного сигналу на входах А і В Blok=«0» then <= «0»; if; if; process;
- знімання інформації з дорожнім реле 2; ПРОВОДИТЬСЯ ПОСТІЙНО: processP2_T1, P2_T2, P2_T3, P2_T4: STD_L...
