Giáo trình thực hành thiết kế vi mạch số bằng vhdl xilinx

Ths Tpương Thị Bích Ngà - ThS Nguyễn Đình Phú GIÁO TRÌNH THỰC HÀNH THIẾT KÊ VI MẠCH so BẰNG VHDL-XILINX Tài liệu thực hành dùngcho trường Đại học Cao đẳngchugênngành Điện- Điện tử - Cơdiện tử -Uiễnthông- Tựđộng diều khiển- Kỹ thuật máy tính V H D L OILINX, *-|| JTD O C s TM1638JDATA < = L E D _75; TM1638_ADDR < = X " C " ; MAIN_S TATE < = TM1638_XUAT_AD ; X U A T D IA CHI C , LED _74 WHEN T M 1638_L E D 74 = > TM16 8_DATA < = L E D _74; TM16 8_ADDR < = X " C " ; MAIN_S TATE < = TM16 8_XUAT_AD; — XUAT D IA CHI C , L ED _73 WHEN TM 1638_L E D 73 = > TM16 8_DATA < = L E D _73; TM16 8_ADDR < = X " C " ; MAIN_STATE < = TM16 8_XUAT_AD; — XUAT D IA CHI CA, LED_72 WHEN T M 1638_LED72 = > TM 1638 DATA < = LED ; ^ TM l6 8_ADDR < = X"CA" ; MAIN_S TATE < = TM1638_XUAT_AD; X U A T D IA CHI c c , LED_71 WHEN TM 1638_LED71 = > TM1638JDATA < = L E D _71; TM16 8_ADDR < = X"CC"; MAIN_STATE < = TM16 8_XUAT_AD; — XÜAT D IA CHI CE, LED_70 WHEN TM163 8_LED = > TM16 8_DATA < = L E D _70; TM16 8_ADDR < = X"CE"; MAIN_STATE < = TM l6 8_XUAT_AD; — XUAT DIA CHI C l , LED_DON(0 ) WHEN TM16 LEDDON_0 = > TM1638 DATA < = " 0 0 0 " & L E D _D O N (0); TM16 8~ADDR < = X " C l" ; MAIN_STATE < = TM l6 8_XUAT_AD; — XUAT DIA CHI C , LED_DON(1 ) WHEN TM16 8_LEDDON_l = > TM1638 DATA < = " 0 0 0 " & L E D _ D O N (l); TM16 8~ADDR < = X " C " ; MAINJSTATE < = TM1638_XUAT_AD; — XUAT DIA CHI C , LED_DON(2 ) WHEN TM16 8_LEDDON_2 = > TM1638 DATA < = " 0 0 0 " & L E D _D O N (2); TM1638~ADDR < = X "C 5"; MAIN_STATE < = TM1638_XUAT_AD ; XUAT DIA CHI C , LED_DON(3 ) WHEN TM16 8_LEDDON_3 = > TM16 8_DATA < = " 0 0 0 " & L E D _D O N (3); TM16 8_ADDR < = X C " ; MAIN_STATE < = TMl6 8_XUAT_AD; XUAT DIA CHI C , LED_DON(4 ) WHEN TM1638_LEDDON_4 => TM16 8_DATA < = " 0 0 0 " & LED_DON( ) ; TM16 8_ADDR < = X "C 9"; MAIN_STATE TM16 8_DATA < = " 0 0 0 " & LED_DON( ) ; TM16 8_ADDR TM16 8_DATA < = " 0 0 0 " & LED_DON( ) ; TM16 8_ADDR < = X "C F "; MAIN_STATE < = TM16 8_XUAT_AD ; — XUAT D IA CHI XX, LED_XX WHEN TM16 8_XUAT_AD => CASE TT_ST IS WHEN TO = > TM 1638_STB < = ' ' ; TM 1638_ENA < = ' ' ; TM1638_OUT < = T M 1638_A D D R (T T _B IT ); DL := DL + ; I F DL = HSC THEN TM1638_CLK < = ' ' ; DL : = ; T T_B IT < = T T _B IT + ; TT_ST < = TT_ST + ; E L S IF DL = H S C /2 THEN TM1638_CLK < = ' ' ; END I F ; WHEN = > TT_B IT < = ; DL := DL + ; IF DL = HSC THEN DL ;= ; TT_ST < = TT_ST + ; END I F ; —xxxxxxxxxxxxxxxxxxxxxxxx WHEN TO = > TM 1638_ENA < = ' ' ; TM1638_OUT < = T M 1638_D A T A (T T _B IT ); DL := DL + ; IF DL = HSC THEN TM1638_CLK < = ' ' ; DL : = ; TT_B IT < = TT_B IT + ; TT_ST < = TT_ST + ; E L S IF DL = H SC /2 THEN TM1638_CLK < = ' ’ ; END I F ; WHEN 17 = > TM 1638 STB I F TT_KHAC = '1 ' THEN TM16 8_LED_N < = TM 1638_LED; MAIN STATE 412 < = TM1638 L E D 77; ELSE TM16 8_LED_N < = TM 1638_LED_R; MAIN_STATE < = TM16 8_KEY_RD; END I F ; END CASE; END I F ; END PROCESS; en d B e h a v io r a l; Các chương trình “GIAIMA_7DOAN_CATHODE”: giải mã theo led anode chung đảo để giải mã cathode chung e n tity P ort GIAIMA_7DOAN_CATHODE i s ( SO_GIAIMA: i n STD_LOGIC_VECTOR (3 d ow n t o SSEG: o u t STD_LOGIC_VECTOR (7 d ow n t o ); 0)); e n d GIAIMA_7DOAN_CATHODE ; a r c h i t e c t u r e B e h a v i o r a l o f GIAIMA_7DOAN_CATHODE i s SIGNAL DAỤ_CHAM_1LED: STD_LOGIC: = ' ' ; SIGNAL SSEGA: STD_LOGIC_VECTOR(7 DOWNTO ) ; b e g in DAU_CHAM_1LED < = PROCESS '1'; ( SO_GIAIMA, DAU_CHAM_1 LED) BEGIN CASE SO_GIAIMA I S V X II WHEN X"0" = > SSEGA < = DAU_CHAM 1LED & " 0 0 0 " ; WHEN SSEGA < = DAU_CHAM_1LED & " 1 1 0 " ; SSEGA < = DAU_CHAM_1LED & " 0 0 " ; WHEN II A CM X V X II WHEN X"3" = > SSEGA < = DAU_CHAM_1LED & " 1 0 0 " ; WHEN SSEGA < = DAU_CHAM_1LED & " 0 1 0 " ; WHEN SSEGA < = DAU_CHAM_1LED & " 0 0 " ; II A in X II V X 00 WHEN X"6" = > SSEGA < = DAU_CHAM_1LED & " 0 0 " ; WHEN X"7" => SSEGA < = DAU_CHAM_1LED & " 1 1 0 " ; WHEN SSEGA < = DAU_CHAM_1LED & " 0 0 0 " ; WHEN SSEGA < = DAU_CHAM_1LED & " 0 0 0 " ; II A X ƠÍ II V > X SSEGA < = DAU_CHAM_1LED & " 0 0 " ; WHEN X"B" => SSEGA < = DAU_CHAM 1LED & " 0 0 1 " ; WHEN II V w X SSEGA < = DAU_CHAM_1LED & " 0 0 1 " ; II WHEN SSEGA < = DAU_CHAM_1LED & " 0 0 " ; A WHEN X Ỗ WHEN X"C" => SSEGA < = DAU_CHAM_1LED & " 0 1 " ; 413 WHEN OTHERS' = > SSEGA < = DAU_CHAM_1LED & " 0 1 " ; END CASE; END PROCESS; SSEG