b.txt

来自「毕业设计中的12层电梯信号的控制程序VHDL」· 文本 代码 · 共 57 行

ctrlight: PROCESS(reset,buttonclk)
        BEGIN 
          IF  reset='1' THEN
stoplight<="000000000000";fuplight<="000000000000";fdnlight<="000000000000";
            ELSE
                IF (buttonclk'EVENT AND buttonclk='1') THEN
                   IF clearup='1'  THEN
stoplight(position)<='0';  fuplight(position)<='0';
                   ELSE
                       IF    f1upbutton='1'   THEN  fuplight(1)<='1';
                       ELSIF f2upbutton='1'   THEN  fuplight(2)<='1';
                       ELSIF f3upbutton='1'   THEN  fuplight(3)<='1';
                       ELSIF f4upbutton='1'   THEN  fuplight(4)<='1';
                       ELSIF f5upbutton='1'   THEN  fuplight(5)<='1';
                       ELSIF f6upbutton='1'   THEN  fuplight(6)<='1';
                       ELSIF f7upbutton='1'   THEN  fuplight(7)<='1';
                       ELSIF f8upbutton='1'   THEN  fuplight(8)<='1';
                       ELSIF f9upbutton='1'   THEN  fuplight(9)<='1';
                       ELSIF f10upbutton='1'   THEN  fuplight(10)<='1';
                       ELSIF f11upbutton='1'   THEN  fuplight(11)<='1';
                    END IF;
                    END IF;
                   IF cleardn='1' THEN
stoplight(position)<='0';fdnlight(position)<='0';
                   ELSE
                       IF    f2dnbutton='1' THEN  fdnlight(2)<='1';
                       ELSIF f3dnbutton='1' THEN  fdnlight(3)<='1';
                       ELSIF f4dnbutton='1' THEN  fdnlight(4)<='1';
                       ELSIF f5dnbutton='1' THEN  fdnlight(5)<='1';
                       ELSIF f6dnbutton='1' THEN  fdnlight(6)<='1';
                       ELSIF f7dnbutton='1' THEN  fdnlight(7)<='1';
                       ELSIF f8dnbutton='1' THEN  fdnlight(8)<='1';
                       ELSIF f9dnbutton='1' THEN  fdnlight(9)<='1';
                       ELSIF f10dnbutton='1' THEN  fdnlight(10)<='1';
                       ELSIF f11dnbutton='1' THEN  fdnlight(11)<='1';
                       ELSIF f12dnbutton='1' THEN  fdnlight(12)<='1';
                       END IF;
                    END IF;
                   IF    stop1button='1'  THEN  stoplight(1)<='1';
                   ELSIF stop2button='1'  THEN  stoplight(2)<='1';
                   ELSIF stop3button='1'  THEN  stoplight(3)<='1';
                   ELSIF stop4button='1'  THEN  stoplight(4)<='1';
                   ELSIF stop5button='1'  THEN  stoplight(5)<='1';
                   ELSIF stop6button='1'  THEN  stoplight(6)<='1';
                   ELSIF stop7button='1'  THEN  stoplight(7)<='1';
                   ELSIF stop8button='1'  THEN  stoplight(8)<='1';
                   ELSIF stop9button='1'  THEN  stoplight(9)<='1';
                   ELSIF stop10button='1'  THEN  stoplight(10)<='1';
                   ELSIF stop11button='1'  THEN  stoplight(11)<='1';
                   ELSIF stop12button='1'  THEN  stoplight(12)<='1';
                  END IF;
                  END IF;
                 END IF;
                 END PROCESS ctrlight;
                 LED<=CONV_STD_LOGIC_VECTOR(position,8);
END a;