數(shù)字電路課程設(shè)計：交通燈設(shè)計

電自08班周星星20080711126課 程 設(shè) 計 報 告課程設(shè)計課題：交通燈報告人：周星星 20080711126同組成員：包曉紅、李振明、徐林課程設(shè)計時間：12月05日-12月17日 課題：交通燈項目提綱:1-主要功能1.1-交通燈各個模式轉(zhuǎn)換表1.2-交通燈LCD顯示格式2-各個模塊程序2.1-交通燈LCD顯示模塊程序2.2-交通燈主控制模塊程序3- 原理圖 4-心得體會1、 主要功能本交通燈共有4個指示燈（南北主干道直走SN、南北主干道向左拐SWNE、東西主干道直走EW、東西主干道向左拐WNES），有 3種模式（白天模式、黑夜模式、緊急模式）。1.1交通燈各個模式轉(zhuǎn)換表A.白天模式 條件：復(fù)位信號R=0;正常/緊急信號CM=0;晝夜信號SWITCH=1.南北南北左拐東西東西左拐S0綠燈40s紅燈00s紅燈70s紅燈00sS1黃燈05s紅燈00s紅燈30s紅燈00sS2紅燈00s綠燈20s紅燈25s紅燈00sS3紅燈00s黃燈05s紅燈05s紅燈00sS4紅燈50s紅燈00s綠燈20s紅燈00sS5紅燈30s紅燈00s黃燈05s紅燈00sS6紅燈25s紅燈00s紅燈00s綠燈20sS7紅燈05s紅燈00s紅燈00s黃燈05s B.黑夜模式條件：復(fù)位信號R=0;正常/緊急信號CM=0;晝夜信號SWITCH=0.南北南北左拐東西東西左拐S0綠燈20s紅燈00s紅燈40s紅燈00sS1黃燈05s紅燈00s紅燈20s紅燈00sS2紅燈00s綠燈10s紅燈15s紅燈00sS3紅燈00s黃燈05s紅燈05s紅燈00sS4紅燈35s紅燈00s綠燈15s紅燈00sS5紅燈20s紅燈00s黃燈05s紅燈00sS6紅燈15s紅燈00s紅燈00s綠燈10sS7紅燈05s紅燈00s紅燈00s黃燈05s C.緊急模式 條件：復(fù)位信號R=0; 正常/緊急信號CM=1南北南北左拐東西東西左拐S0紅燈00s紅燈00s紅燈00s紅燈00s1.2交通燈LCD顯示格式SNSNEWEW燈燈燈燈2.各個模塊程序 2.1交通燈主控制模塊-交通燈主控制程序- 1.設(shè)置環(huán)境為十字路口。- 2.配置燈：南北向、東西向左走/直走右走指示燈各一。- 3.采用6000000分頻，以期達到秒脈沖計時的效果。- 4.具備緊急、白天、夜晚三種模式；復(fù)位后可任意切換。LIBRARY IEEE;USE IEEE.STD_LOGIC_1164.ALL;USE IEEE.STD_LOGIC_UNSIGNED.ALL;USE IEEE.STD_LOGIC_ARITH.ALL; entity JTD is port (CPIN,R ,SWITCH,CM:IN STD_LOGIC; SN,SWNE,EW,WNES :OUT STD_LOGIC_VECTOR(7 DOWNTO 0); EWRYG,SNRYG,SWNERYG,WNESRYG：OUT STD_LOGIC_VECTOR(2 DOWNTO 0) );end entity;-器件名稱：JTD- 端口及其作用：- CPIN: 時鐘脈沖輸入 R: 復(fù)位信號輸入-SWITCH: 白天/夜間模式切換信號輸入- CM: 正常/緊急模式切換信號輸入-SN: 南北向倒計時輸出 SWNE: 南北向左指燈倒計時輸出-EW: 東西向倒計時輸 WNES: 東西向左指燈倒計時輸出architecture JGT of JTD isSIGNAL CTEW,CTSN,CTSWNE,CTWNES：STD_LOGIC_VECTOR(7 DOWNTO 0);SIGNAL CPCT: INTEGER RANGE 0 TO 6000000;SIGNAL CP: STD_LOGIC;TYPE STATES IS (S0,S1,S2,S3,S4,S5,S6,S7);SIGNAL S: STATES;-實體名稱：JGT-定義信號和類型變量：-CTSN: 南北向倒計時影子信-CTSWNE: 南北向左指燈倒計時影子信號-CTEW: 東西向倒計時影子信號-CTWNES: 東西向左指燈倒計時影子信號- CP: 內(nèi)置時鐘信號 CPCT: CP脈沖計時信號- S: 狀態(tài)切換變量，僅可以取S0到S7共8個不同的值BEGINPROCESS(CPIN,R)BEGINIF R=1 THEN CPCT=6000000;ELSIF CPIN=1 AND CPIN EVENT THEN IF CPCT=0 THEN CPCT=6000000;CP=NOT CP; ELSE CPCT=CPCT-1; END IF;END IF;END PROCESS;-延時進程-作用：為下面的主進程提供合適的激勵-采用6000000分頻，保證數(shù)據(jù)經(jīng)過足夠長的時間后被改變。PROCESS(SWITCH,CM,CP,R)BEGINIF CM=0 THENIF SWITCH=1 THENIF R=1 THENS=S0;CTSN=X28;CTEW=X46;CTWNES=X00;CTSWNE=X00;SNRYG=001;EWRYG=100;SWNERYG=100;WNESRYGIF CTSN=X01 THEN S=S1;CTSN=X05;CTEW=X1E;SNRYG=010;EWRYG=100；SWNERYG=100;WNESRYG=100; ELSE CTSN=CTSN-1;CTEWIF CTSN=X01 THEN S=S2;CTEW=X19;CTSN=X00;CTSWNE=X14; SWNERYG=001;EWRYG=001;WNESRYG=100;SNRYG=100; ELSE CTSN=CTSN-1;CTEWIF CTSWNE=X01 THEN S=S3;CTSWNE=X05;CTEW=X05; SWNERYG=010;EWRYG=100; WNESR YG=100;SNRYG=100; ELSE CTSWNE=CTSWNE-1;CTEWIF CTSWNE=X01 THEN S=S4;CTSN=X32;CTSWNE=X00;CTEW=X14; SNRYG=100;EWRYG=001;SWNERYG=100;WNESRYG=100; ELSE CTSWNE=CTSWNE-1;CTEWIF CTEW=X01 THEN S=S5;CTSN=X1E;CTEW=X05; SNRYG=100;EWRYG=010;SWNERYG=100;WNESRYG=100; ELSE CTSN=CTSN-1;CTEWIF CTEW=X01 THEN S=S6;CTSN=X19;CTWNES=X14;CTEW=X00; SNRYG=100;WNESRYG=001;SWNERYG=100;EWRYG=100; ELSE CTSN=CTSN-1;CTEWIF CTWNES=X01 THEN S=S7;CTSN=X05;CTWNES=X05; SNRYG=100;EWRYG=010;SWNERYG=100;WNESRYG=100; ELSE CTSN=CTSN-1;CTWNESIF CTWNES=X01 THEN S=S0;CTSN=X28; CTEW=X46;CTWNES=X00; SNRYG=001;EWRYG=100;SWNERYG=100;WNESRYG=100; ELSE CTSN=CTSN-1;CTWNESNULL; END CASE; END IF;ELSIF SWITCH=0 THENIF R=1 THENS=S0;CTSN=X14;CTEW=X28;CTWNES=X00;CTSWNE=X00;SWNERYG=100;WNESRYG=100;SNRYG=001;EWRYGIF CTSN=X01 THEN S=S1;CTSN=X05;CTEW=X14; SNRYG=010;EWRYG=100;SWNERYG=100;WNESRYG=100; ELSE CTSN=CTSN-1;CTEWIF CTSN=X01 THEN S=S2;CTEW=X05;CTSN=X00;CTSWNE=X0F; SWNERYG=001;EWRYG=100;SNRYG=100;WNESRYG=100; ELSE CTSN=CTSN-1;CTEWIF CTSWNE=X01 THEN S=S3;CTSWNE=X05;CTEW=X05; SWNERYG=010;EWRYG=100;SNRYG=100;WNESRYG=100; ELSE CTSWNE=CTSWNE-1;CTEWIF CTSWNE=X01 THEN S=S4;CTSN=X23;CTSWNE=X00;CTEW=X0F; SNRYG=100;EWRYG=001;SWNERYG=100;WNESRYG=100; ELSE CTSWNE=CTSWNE-1;CTEWIF CTEW=X01 THEN S=S5;CTSN=X14;CTEW=X05; SNRYG=100;EWRYG=010;SWNERYG=100;WNESRYG=100; ELSE CTSN=CTSN-1;CTEWIF CTEW=X01 THEN S=S6;CTSN=X0F;CTEW=X00;CTWNES=X0A; SNRYG=100;WNESRYG=001;SWNERYG=100;EWRYG=100; ELSE CTSN=CTSN-1;CTEWIF CTWNES=X01 THEN S=S7;CTSN=X05;CTWNES=X05; SNRYG=100;EWRYG=100;SWNERYG=100;WNESRYG=010; ELSE CTSN=CTSN-1;CTWNESIF CTWNES=X01 THEN S=S0;CTSN=X14;CTEW=X28;CTWNES=X00; SNRYG=001;EWRYG=100;SWNERYG=100;WNESRYG=100; ELSE CTSN=CTSN-1;CTWNESNULL; END CASE;END IF;END IF;ELSIF CM=1THENCTSN=X00 ;CTEW=X00;CTSWNE=X00 ;CTWNES=X00;EWRYG=100;SNRYG=100;WNESRYG=100;SWNERYG=100 ;END IF;END PROCESS;-采用16進制計數(shù)，故需要在輸出時將數(shù)據(jù)進行轉(zhuǎn)換PROCESS(CTEW,CTSN,CTSWNE,CTWNES)BEGINIF CTEWX0A THEN EW=CTEW; ELSIF CTEWX14 THEN EW=CTEW+6; ELSIF CTEWX1E THEN EW=CTEW+12; ELSIF CTEWX28 THEN EW=CTEW+18; ELSIF CTEWX32 THEN EW=CTEW+24; ELSIF CTEWX3C THEN EW=CTEW+30; ELSIF CTEWX46 THEN EW=CTEW+36; ELSE EW=CTEW+42;END IF;IF CTSNX0A THEN SN=CTSN; ELSIF CTSNX14 THEN SN=CTSN+6; ELSIF CTSNX1E THEN SN=CTSN+12; ELSIF CTSNX28 THEN SN=CTSN+18; ELSIF CTSNX32 THEN SN=CTSN+24; ELSIF CTSNX3C THEN SN=CTSN+30; ELSIF CTSNX46 THEN SN=CTSN+36; ELSE SN=CTSN+40;END IF;IF CTSWNEX0A THEN SWNE=CTSWNE; ELSIF CTSWNEX14 THEN SWNE=CTSWNE+6; ELSIF CTSWNEX1E THEN SWNE=CTSWNE+12; ELSIF CTSWNEX28 THEN SWNE=CTSWNE+18; ELSIF CTSWNEX32 THEN SWNE=CTSWNE+24; ELSIF CTSWNEX3C THEN SWNE=CTSWNE+30;ELSE SWNE=CTSWNE+36;END IF;IF CTWNESX0A THEN WNES=CTWNES; ELSIF CTWNESX14 THEN WNES=CTWNES+6; ELSIF CTWNESX1E THEN WNES=CTWNES+12; ELSIF CTWNESX28 THEN WNES=CTWNES+18; ELSIF CTWNESX32 THEN WNES=CTWNES+24; ELSIF CTWNESX3C THEN WNES=CTWNES+30;ELSE WNES=CTWNES+36;END IF;END PROCESS;END JGT;2.2交通燈LCD顯示模塊-交通燈LCD顯示程序- 1.與FPGA Peripherals庫中LCD16X2A元件相適應(yīng)- 2.采用65535分頻作為掃描脈沖LIBRARY IEEE;USE IEEE.STD_LOGIC_1164.ALL;USE IEEE.STD_LOGIC_UNSIGNED.ALL;entity JTDLCD is port (CPIN,R,BUSY :IN STD_LOGIC; EW,SWNE,WNES,SN：IN STD_LOGIC_VECTOR(7 DOWNTO 0); EWRYG,SWNERYG,WNESRYG,SNRYG : IN STD_LOGIC_VECTOR(2 DOWNTO 0); CLK,RST,STROBE,OUTLINE : OUT STD_LOGIC; DATA : OUT STD_LOGIC_VECTOR(7 DOWNTO 0); ADDR : OUT STD_LOGIC_VECTOR(3 DOWNTO 0) );end entity ;architecture JGT of JTDLCD is TYPE STATES IS (S0,S1,S2,S3,S4); SIGNAL S: STATES; SIGNAL LCDPT : INTEGER RANGE 0 TO 24; SIGNAL CPCT : INTEGER RANGE 0 TO 65535; SIGNAL CP: STD_LOGIC; SIGNAL ASCEW,ASCSWNE,ASCWNES,ASCSN : STD_LOGIC_VECTOR(7 DOWNTO 0);beginPROCESS(CPIN,R)BEGINCLK=CPIN;IF R=1 THEN CPCT=65535;ELSIF CPIN=1 AND CPIN EVENT THEN IF CPCT=0 THEN CPCT=65535;CP=NOT CP; ELSE CPCT=CPCT-1; END IF;END IF;END PROCESS;PROCESS(CP,R) BEGIN IF R=1 THEN S=S0;LCDPT=0;RST S=S1;LCDPT=0;RST RST=0;STROBE=0; IF BUSY=0 THEN LCDPT=LCDPT+1; IF LCDPT=13 THEN S=S3; ELSE S S=S1;STROBE STROBE=0; IF BUSY=0 THEN IF LCDPT=24 THEN LCDPT=13; ELSE LCDPT=LCDPT+1; END IF; S STROBE=1;S NULL; END CASE;END IF;END PROCESS;PROCESS(LCDPT)BEGINCASE LCDPT IS WHEN0=NULL; -LCDPT=0,NULLWHEN 1= DATA=01010011;ADDR=0001;OUTLINE DATA=01001110;ADDR=0010;OUTLINE DATA=01010011;ADDR=0100;OUTLINE DATA=01001110;ADDR=0101;OUTLINE DATA=00111100;ADDR=0110;OUTLINE=0; - DATA=00101101;ADDR=0111;OUTLINE DATA=01000101;ADDR=1000;OUTLINE DATA=01010111;ADDR=1001;OUTLINE DATA=01000101;ADDR=1011;OUTLINE DATA=01010111;ADDR=1100;OUTLINE DATA=00111100;ADDR=1101;OUTLINE=0; - DATA=00101101;ADDR=1110;OUTLINEDATA=ASCSN;ADDR=0001;OUTLINEDATA=0011&SN(7DOWNTO4);ADDR=0010;OUTLINEDATA=0011&SN(3 DOWNTO 0);ADDR=0011;OUTLINEDATA=ASCSWNE;ADDR=0100;OUTLINEDATA=0011&SWNE(7 DOWNTO 4);ADDR=0101;OUTLINEDATA=0011&SWNE(3 DOWNTO 0);ADDR=0110;OUTLINEDATA=ASCEW;ADDR=1000;OUTLINEDATA=0011&EW(7 DOWNTO 4);ADDR=1001;OUTLINEDATA=0011&EW(3 DOWNTO 0);ADDR=1010;OUTLINEDATA=ASCWNES;ADDR=1011;OUTLINEDATA=0011&WNES(7 DOWNTO 4);ADDR=1100;OUTLINEDATA=0011&WNES(3 DOWNTO 0);ADDR=1101;OUTLINE NULL;END CASE;END PROCESS;PROCESS(EWRYG)BEGIN -EW ；RYG 顯示CASE EWRYG ISWHEN 100 = ASCEW ASCEW ASCEW NULL;END CASE;END PROCESS;PROCESS(SNRYG) -SN： RYG 顯示BEGINCASE SNRYG ISWHEN 100 = ASCSN ASCSN ASCSN NULL;END CASE;END PROCESS;PROCESS(SWNERYG)BEGIN -SWNE:RYG 顯示CASE SWNERYG ISWHEN 100 = ASCSWNE ASCSWNE ASCSWNE NULL;END CASE;END PROCESS;PROCESS(WNESRYG) -WNES:RYG 顯示BEGINCASE WNESRYG ISWHEN 10