Розробка проекту з використанням оператора CASE

Розробка проекту з використанням оператора IF THEN

SUBDESIGN progect_IF

(

A,B,C,D:INPUT;

Y:OUTPUT;

)

BEGIN

IF (A,B,C,D)==0

THEN Y=VCC;

ELSIF (A,B,C,D)==3

THEN Y=VCC;

ELSIF (A,B,C,D)==5

THEN Y=VCC;

ELSIF (A,B,C,D)==6

THEN Y=VCC;

ELSIF (A,B,C,D)==9

THEN Y=VCC;

ELSIF (A,B,C,D)==12

THEN Y=VCC;

ELSIF (A,B,C,D)==15

THEN Y=VCC;

END IF;

END;

SUBDESIGN progect_CASE

(

A,B,C,D:INPUT;

Y:OUTPUT;

)

BEGIN

CASE (A,B,C,D) IS

WHEN 0 => Y=VCC;

WHEN 3 => Y=VCC;

WHEN 5 => Y=VCC;

WHEN 6 => Y=VCC;

WHEN 9 => Y=VCC;

WHEN 12 => Y=VCC;

WHEN 15 => Y=VCC;

END CASE;

END;

8. Розробка проекту з використанням логічних операторів

SUBDESIGN progect_op

(A,B,C,D:INPUT;

Y:OUTPUT;)

BEGIN

Y=NOT A AND NOT B AND NOT C AND NOT D --0

OR NOT A AND NOT B AND C AND D --3

OR NOT A AND B AND NOT C AND D --5

OR NOT A AND B AND C AND NOT D --6

OR A AND NOT B AND NOT C AND D --9

OR A AND B AND NOT C AND NOT D --12

OR A AND B AND C AND D; --15

END;

9. Розробка проекту з використанням шини і оператора CASE

SUBDESIGN progect_sh

(

A[4..1]:INPUT;

Y:OUTPUT;

)

BEGIN

CASE A[] IS

WHEN 0 => Y=VCC;

WHEN 3 => Y=VCC;

WHEN 5 => Y=VCC;

WHEN 6 => Y=VCC;

WHEN 9 => Y=VCC;

WHEN 12 => Y=VCC;

WHEN 15 => Y=VCC;

END CASE;

END;

10. Розробка проекту з використанням шини і оператора CASE і чисел різних систем числення

SUBDESIGN progect_sh_r

(

A[4..1]:INPUT;

Y:OUTPUT;

)

BEGIN

CASE A[] IS

WHEN B"0000" => Y=VCC;

WHEN B"0011" => Y=VCC;

WHEN O"5" => Y=VCC;

WHEN O"6" => Y=VCC;

WHEN 9 => Y=VCC;

WHEN H"C" => Y=VCC;

WHEN H"F" => Y=VCC;

END CASE;

END;

Розробка проекту з використанням оператора FOR GENERATE

SUBDESIGN progect_for

(A[3..0]:INPUT;

Y:OUTPUT;)

BEGIN

FOR k IN 0 TO 15 GENERATE

If A[]==0#A[]==3#A[]==5#A[]==6#A[]==9#A[]==12#A[]==15

THEN

Y=VCC;

ELSE

Y=GND;

END IF;

END GENERATE;

END;

Дата добавления: 2014-01-11