ENTITY  sels  IS                                 
　PORT(d0,d1,d2,d3:IN BIT;
       s   :INTEGER   RANGE  0 TO 3;
　　　　　　       out1  :OUT BIT);
　END  sels;

ARCHITECTURE  sels_arc  OF  sels  IS
BEGIN
  WITH  s  SELECT
　   out1 <=  d0  WHEN  0,
　　　　　d1  WHEN  1,
　　　　　d2  WHEN  2,
　　　　　d3  WHEN  3;
END sels_arc;

此例是一个六输入端口和一个输出端口的模块，四个输入是逻辑类型，两个输入是整数类型，程序对s敏感，判断s值后将d0、d1、d2或d3送到输出out1。

注：选择信号S提供四种选择，因此应是两位二进制代码，因此用粗线表示。

　　仍以四路数据选择器为例，图8-7示出此例的四输入数据选择器的符号，四输入数据选择器的第二个VHDL程序如下：

LIBRARY  ieee;
USE  ieee.std_logIC_1164.all;
ENTITY  mux4  IS
　PORT(I0,I1,I2,I3,A,B:IN std_logic;
　　　　　　　 Q          :OUT std_logic);
END  mux4;     

AB=00,Q=I0;

AB=10,Q=I1;

AB=01,Q=I2;

AB=11,Q=I3。

　　从程序的先后顺序看上去，四输入数据选择器的程序，好象不能工作，因为要用到的选择信号sel的值是以后计算出来的，事实上得出这种印像是来自计算sel在使用sel之后。但是，此程序是能够工作的，这就是因为VHDL语言的并行行为的特点，第一句和第二句是并行的。而第二句对信号A和B是敏感的，每当A和B的值变化时，将执行第二句来更新信号sel，第一句的程序对信号sel敏感，每当信号sel的值发生变化时，就执行第一句程序。 

ENTITY  sels  IS                                 
　PORT(d0,d1,d2,d3:IN BIT;
       s   :INTEGER   RANGE  0 TO 3;
　　　　　　       out1  :OUT BIT);
　END  sels;

ARCHITECTURE  sels_arc  OF  sels  IS
BEGIN
  WITH  s  SELECT
　   out1 <=  d0  WHEN  0,
　　　　　d1  WHEN  1,
　　　　　d2  WHEN  2,
　　　　　d3  WHEN  3;
END sels_arc;

此例是一个六输入端口和一个输出端口的模块，四个输入是逻辑类型，两个输入是整数类型，程序对s敏感，判断s值后将d0、d1、d2或d3送到输出out1。

注：选择信号S提供四种选择，因此应是两位二进制代码，因此用粗线表示。

　　仍以四路数据选择器为例，图8-7示出此例的四输入数据选择器的符号，四输入数据选择器的第二个VHDL程序如下：

LIBRARY  ieee;
USE  ieee.std_logic_1164.all;
ENTITY  mux4  IS
　PORT(I0,I1,I2,I3,A,B:IN std_logic;
　　　　　　　 Q          :OUT std_logic);
END  mux4;     

AB=00,Q=I0;

AB=10,Q=I1;

AB=01,Q=I2;

AB=11,Q=I3。

　　从程序的先后顺序看上去，四输入数据选择器的程序，好象不能工作，因为要用到的选择信号sel的值是以后计算出来的，事实上得出这种印像是来自计算sel在使用sel之后。但是，此程序是能够工作的，这就是因为VHDL语言的并行行为的特点，第一句和第二句是并行的。而第二句对信号A和B是敏感的，每当A和B的值变化时，将执行第二句来更新信号sel，第一句的程序对信号sel敏感，每当信号sel的值发生变化时，就执行第一句程序。 

　　　　PROCESS
　　　　VARIABLE  count:INTEGER:= 0;
　　　　BEGIN
　　　　count:= count+1;
　　　　WAIT FOR  1000 ns;
　　　　END PROCESS;

这个进程行为语句涉及到两个新问题，第一是在说明区说明了变量count为整数而且初始值为0。第二是最后一句“WAIT FOR 1000 ns;”，它是等待激活的语句。这个程序在PROCESS后无敏感信号，这样进程也许被无限期地挂起，但用了“WAIT FOR 1000 ns;”语句，使进程行为语句可以被激活。整个程序分析是这样的：当进程被激活后，要使 count加1，然后被挂起，等到1000ns以后再次激活进程语句，执行count加1。

LIBRARY  ieee;
USE  ieee.std_logic_1164.all;
USE  ieee.std_logic_arith.all;
ENTITY  decoder   IS
      PORT(sel : IN UNSIGNED(2  DOWNTO  0);
　　           dout : OUT UNSIGNED(7  DOWNTO  0));
END  decoder;
ARCHITECTURE  decoder_arc  OF  decoder  IS
　　SIGNAL  sel1 :INTEGER;
    BEGIN
        PROCESS(sel)
　        BEGIN
　　         sel1 <= CONV_INTEGER(sel);
         　　CASE  sel1  IS
　　           WHEN  0  =>  dout <= (‘0’,’0’,’0’,’0’,’0’,’0’,’0’,’1’) AFTER  5 ns;
　　           WHEN  1  =>  dout <= (‘0’,’0’,’0’,’0’,’0’,’0’,’1’,’0’) AFTER  5 ns;
　　           WHEN  2  =>  dout <= (‘0’,’0’,’0’,’0’,’0’,’1’,’0’,’0’) AFTER  5 ns;
　　           WHEN  3  =>  dout <= (‘0’,’0’,’0’,’0’,’1’,’0’,’0’,’0’) AFTER  5 ns;
　　           WHEN  4  =>  dout <= (‘0’,’0’,’0’,’1’,’0’,’0’,’0’,’0’) AFTER  5 ns;
　　           WHEN  5  =>  dout <= (‘0’,’0’,’1’,’0’,’0’,’0’,’0’,’0’) AFTER  5 ns;
　　           WHEN  6  =>  dout <= (‘0’,’1’,’0’,’0’,’0’,’0’,’0’,’0’) AFTER  5 ns;
　　           WHEN OTHERS => dout <= (‘1’,’0’,’0’,’0’,’0’,’0’,’0’,’0’) AFTER 5 ns;
　　         END  CASE;
        END  PROCESS;
END  decoder_arc;

每当在进程敏感表中的输入信号sel的值发生变化时，进程中的顺序语句就被执行。此例中进程语句内部首先通过转换函数CONV_INTEGER，将sel无符号数值转换到整数值sel1，然后CASE语句根据敏感表中的信号sel1的值，使8个输出端口之一为高电平，这是一句判别语句，直到满足条件为止。另外，此例不像上例需等待1000ns以后再激活进程，而是只要sel的值一发生改变就使进程激活，从第一句执行直到满足条件后再被挂起。

ENTITY  reg   IS
     PORT(d,clk:IN BIT;
              q1,q2:OUT  BIT);
END  reg;
ARCHITECTURE  reg_arc  OF  reg  IS
     BEGIN
        PROCESS
          BEGIN
            WAIT  UNTIL  clk= ‘1’;
　　             q1 <=  d;
          END  PROCESS;
        PROCESS
          BEGIN
            WAIT  UNTIL  clk= ‘0’;
　              q2 <=  d;
          END  PROCESS;
END  reg_arc;

此例中用到了另一个等待进程语句WAIT UNTIL，从程序中可以看出结构体中有两个进程，两个进程语句的行为是并行的，第一个进程表示D触发器是高电平有效，因为进程语句中的信号d传到q1要等到clk为高电平，才能激活进程，完成数据的传输。第二个进程语句中，信号传到q2要等到clk为低电平才能完成，也就是clk低电平时，才能激活第二个进程行为语句。

LIBRARY  ieee;
    USE ieee.std_logic_1164.all;
    ENTITY  alarm  IS
         PORT(smoke,door,water:IN std_logic;
                     en,alarm_en :IN std_logic;
                    fire_alarm,burg_alarm,water_alarm:OUT std_logic);
    END  alarm;
   ARCHITECTURE  alarm_arc  OF  alarm  IS
        BEGIN
             PROCESS(smoke,door,water,en,alarm_en)
                BEGIN
                   IF ((smoke= ‘1’) AND (en= ‘0’))  THEN
                       fire_alarm <=  ‘1’;
                  ELSE
                      fire_alarm <=  ‘0’;
                  END IF;
                  IF ((door= ‘1’) AND ((en= ‘0’) AND (alarm_en= ‘0’)))  THEN
                     burg_alarm <=  ‘1’;
                  ELSE
                     burg_alarm <=  ‘0’;
                 END IF;
                 IF ((water= ‘1’) AND (en= ‘0’)) THEN
                      water_alarm <=  ‘1’;
                 ELSE
                     water_alarm <=  ‘0’;
                END IF;
            END  PROCESS;
 END  alarm_arc;

FOR  I  IN  1  TO  3  LOOP
                         a(i):= i*i;
                    END  LOOP;

此例中循环语句变量为I，循环范围为“1  TO  3”，语句部分是乘方。

• WHILE..LOOP语句

WHILE..LOOP循环语句的一般形式为：

< 循环标号> ：WHILE  < 条件>  LOOP
                                                < 语句> ；
                END  LOOP  < 循环标号> ；

循环的条件是布尔表达式，在每次执行循环前检查条件为真时执行循环，为假时结束循环。

WHILE  ( X< 10)  LOOP
                            X:= X＋1;
                   END  LOOP;

例题中语句部分执行的操作是加1，而表达式是X< 10。当X< 10为真时，执行语句部分X:= X+1，直到X等于10，表达式为假结束循环。

PROCESS (a)
           VARIABLE  int:INTEGER;
        BEGIN
            int:= a;
            FOR I IN 0 TO 255   LOOP
            IF (int <=  0) THEN
            EXIT;
            ELSE
               int:= int-1;
                  q(i) <= 3.1416/REAL(int*i);
            END IF;
          END  LOOP;
          Y <=  q;
       END  PROCESS;
              ┇

在进程语句内部，假定int的值总是大于零。如果int的值是负或为0，则会得到一个错误的条件并且不能完成计算。此时，IF语句中的条件表达式为真，执行EXIT语句终止循环，去执行循环语句外面的另一条赋值语句Y <=  q。循环语句还可以嵌套在另一个循环语句内部，使用EXIT语句，可以跳到较外的一个循环语句，也可以跳到循环最外部的程序，跳到哪里，视EXIT后面的标号而定，如：

EXIT  < 标号> ；

LIBRARY  ieee;
    USE ieee.std_logic_1164.all;
    ENTITY  alarm  IS
         PORT(smoke,door,water:IN std_logic;
                     en,alarm_en :IN std_logic;
                    fire_alarm,burg_alarm,water_alarm:OUT std_logic);
    END  alarm;
   ARCHITECTURE  alarm_arc  OF  alarm  IS
        BEGIN
             PROCESS(smoke,door,water,en,alarm_en)
                BEGIN
                   IF ((smoke= ‘1’) AND (en= ‘0’))  THEN
                       fire_alarm <=  ‘1’;
                  ELSE
                      fire_alarm <=  ‘0’;
                  END IF;
                  IF ((door= ‘1’) AND ((en= ‘0’) AND (alarm_en= ‘0’)))  THEN
                     burg_alarm <=  ‘1’;
                  ELSE
                     burg_alarm <=  ‘0’;
                 END IF;
                 IF ((water= ‘1’) AND (en= ‘0’)) THEN
                      water_alarm <=  ‘1’;
                 ELSE
                     water_alarm <=  ‘0’;
                END IF;
            END  PROCESS;
 END  alarm_arc;

FOR  I  IN  1  TO  3  LOOP
                         a(i):= i*i;
                    END  LOOP;

此例中循环语句变量为I，循环范围为“1  TO  3”，语句部分是乘方。

• WHILE..LOOP语句

WHILE..LOOP循环语句的一般形式为：

< 循环标号> ：WHILE  < 条件>  LOOP
                                                < 语句> ；
                END  LOOP  < 循环标号> ；

循环的条件是布尔表达式，在每次执行循环前检查条件为真时执行循环，为假时结束循环。

WHILE  ( X< 10)  LOOP
                            X:= X＋1;
                   END  LOOP;

例题中语句部分执行的操作是加1，而表达式是X< 10。当X< 10为真时，执行语句部分X:= X+1，直到X等于10，表达式为假结束循环。

PROCESS (a)
           VARIABLE  int:INTEGER;
        BEGIN
            int:= a;
            FOR I IN 0 TO 255   LOOP
            IF (int <=  0) THEN
            EXIT;
            ELSE
               int:= int-1;
                  q(i) <= 3.1416/REAL(int*i);
            END IF;
          END  LOOP;
          Y <=  q;
       END  PROCESS;
              ┇

在进程语句内部，假定int的值总是大于零。如果int的值是负或为0，则会得到一个错误的条件并且不能完成计算。此时，IF语句中的条件表达式为真，执行EXIT语句终止循环，去执行循环语句外面的另一条赋值语句Y <=  q。循环语句还可以嵌套在另一个循环语句内部，使用EXIT语句，可以跳到较外的一个循环语句，也可以跳到循环最外部的程序，跳到哪里，视EXIT后面的标号而定，如：

EXIT  < 标号> ；