; if;
end if; if; if; O3_A1=O3_nT1 and O3_A2=O3_nT2 and O3_nT1=O3_nT2 then O3_B1=O3_T1 and O3_B2=O3_T2 and O3_T1=O3_T2 then O3_A3=O3_nT3 and O3_A4=O3_nT4 and O3_nT3=O3_nT4 then O3_B3=O3_T3 and O3_B4=O3_T4 and O3_T3=O3_T4 then O3_A1 /=O3_A3 and O3_A2 /=O3_A4 then:=«1»; <= «0»; - лампа ОР2ПС1 несправна if; if; if; if ; if;
- порушення парафазного або імпульсного сигналу на входах А і В Blok=«0» O3:=0;- Лампа ОР1ПС2 неісправнаif; if; if; process;
- знімання інформації з вогневими РЕЛЕ 2 переїзної СВІТЛОФОРА 2;: processO4_T1, O4_T2, O4_T3, O4_T4: STD_LOGIC; O4_nT1, O4_nT2, O4_nT3, O4_nT4: STD_LOGIC; O4_A1, O4_A2, O4_A3, O4_A4: STD_LOGIC; O4_B1, O4_B2, O4_B3, O4_B4: STD_LOGIC; Blok: STD_LOGIC:=«0»;
- ____
- тривалість імпульсів і провалів: 5 ms _ | | __ | | _P1=«1»- Якщо переїзд закритif ClkL=«1» thenO4_T «event and O4_T =» 1 «- Якщо прийшов фронт сигналу Тfor 1.5 ms; _A1:=O4_A; _B1:=O4_B; _T1:=O4_T; _nT1:=O4_nT; for 1.5 ms; _A2:=O4_A; _B2:=O4_B; _T2:=O4_T; _nT2:=O4_nT; for 3.5 ms; _A3:=O4_A; _B3:=O4_B; _T3:=O4_T; _nT3:=O4_nT; for 1.5 ms; _A4:=O4_A; _B4:=O4_B; _T4:=O4_T; _nT4:=O4_nT; O4_A1=O4_T1 and O4_A2=O4_T2 and O4_T1=O4_T2 then O4_B1=O4_nT1 and O4_B2=O4_nT2 and O4_nT1=O4_nT2 then O4_A3=O4_T3 and O4_A4= O4_T4 and O4_T3=O4_T4 then O4_B3=O4_nT3 and O4_B4=O4_nT4 and O4_nT3=O4_nT4 then O4_A1 /=O4_A3 and O4_A2 /=O4_A4 then:=»1«; <= »1 ';- Лампа ОР2ПС2 ісправнаif; if;
end if; if; if; O4_A1=O4_nT1 and O4_A2=O4_nT2 and O4_nT1=O4_nT2 then O4_B1=O4_T1 and O4_B2=O4_T2 and O4_T1=O4_T2 then O4_A3=O4_nT3 and O4_A4=O4_nT4 and O4_nT3=O4_nT4 then O4_B3=O4_T3 and O4_B4=O4_T4 and O4_T3=O4_T4 then O4_A1 /=O4_A3 and O4_A2 /=O4_A4 then:=«1»; <= «0»; - лампа ОР2ПС2 несправна if; if; if; if ; if;
- порушення парафазного або імпульсного сигналу на входах А і В Blok=«0» O4 <= 0;- Лампа ОР2ПС2 неісправнаif; if; if; process;
- КОНТРОЛЬ ХАРЧУВАННЯ фідер: process (F1, F2) F1=«1» and F2=«1» FStatus <= «11»; if; F1=«0» and F2=«1» FStatus <= «01»; if; F1=«1» and F2=«0» FStatus <= «10»; if; F1=«0» and F2=«0» FSatus <= «00»; if; process;
- ВИЗНАЧЕННЯ СТАНУ ПЕРЕЇЗДУ
ПР: process (P1, P2, P3) Var: integer range 0 to 3:=0; (var=0 and P1=«1» and P2=«0» and P3= «0») or
(var=0 and Close1=«0» and P2=«0» and P3=«1») Close <= «1»;:=1; if; (var =1 and P1=«1» and P2=«1» and P3=«0») or
(var=1 and P1=«0» and P2=«1» and P3=«1») var:=2; if; (var=2 and P2=« 0 ») var:=3; if; (var=3 and P1 =« 0 »and P2 =« 0 »and P3 =« 0 ») var:=0; Close <= «0»; if; process;
- миготінням ЛАМП переїзної СВІТЛОФОРІВ: process (Close) TIMER: TIME:=1000 ms; Close=«1» ClkL <= not ClkL after TIMER; if; process;
- закритий переїзд: process (Close) Close=«1» if CLKl=«1» K1 <= CLK;- Почергове миготіння <= CLK - ламп переїзних <= «1»;- Звукова сигналізація <= «1»; if K1 <= «0»; <= «0»; <= «1» <= «1»; if; if K1 <= «0»; <= «0»; <= «0»; <= «0»; if; process;: process ()
- ПЕРЕДАЧА В ЛІНІЮ ІНФОРМАЦІЇ ПРО СТАН АПС: process (SendInfo) start_read: boolean:=false; last_bit: boolean:=false; num_bit: integer:=0; adress: STD_LOGIC_VECTOR (0 to 4) :=«0111»; data: STD_LOGIC_VECTOR (0 to 6); SendInfo=«1» thenfalling_edge (Synchr) th...
