八路彩灯控制程序
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
FPGA课程设计——8路彩灯控制程序
2013年12月12日
8路彩灯控制程序
一、设计任务
1.设计目的：
(1)了解及掌握时序电路及组合电路的基本结构常用数字电路
（2）通过ModelSim软件编写组合电路与时序电路混合的程序进行仿真和调试。
（3）74LS194 移位寄存器和74LS161 计数器的使用。
2.设计内容：
编写一个8路彩灯控制程序，要求彩灯有以下3种演示花型。
（1）8路彩灯同时亮灭；
（2）从左至右逐个亮（每次只有1路亮）；
（3）8路彩灯每次4路亮，4路灯灭，且灯灭相同，交替亮灭；
在演示过程中，只有当一种花型演示完毕才能转向其他演示花型。
二、设计方案论证
74LS161 是四位二进制同步加数器,74LS194 是一个4 位双向移位寄存器,它具有左移,右移,保持,清零等逻辑功能，八路彩灯控制器通过利用双向移位寄存器74LS194 的串行输入, 个并行输8 出端控制彩灯;双向移位寄存器74LS194 的控制端S1=0,S0=1 时,进行右移; S1=1,S0=0 时, 进行左移; 十六位计数器74LS161 可以从0000 到1111 进行计数. 利用十六位计数器74LS161 的功能实现自动循环.
（1）8路彩灯同时亮灭:
11111111
00000000
11111111
（2）从左至右逐个亮（每次只有1路亮）；
11111111
01111111
10111111
11011111
11101111
11110111
11111011
11111101
11111110
（3）8路彩灯每次4路亮，4路灯灭，且灯灭相同，交替亮灭11111111
00001111
11110000
三、结构及其工作原理
1.结构框图：
2.电路的原理图：
3.电路工作原理：
74LS161 是四位二进制同步加数器, 74LS194 是一个4 位双向移位寄存器,它具有左移,右移,保持,清零等逻辑功能, 八路彩灯控制器通过利用双向移位寄存器74LS194 的串行输入, 个并行输8 出端控制彩灯;双向移位寄存器74LS194 的控制端S1=0,S0=1 时,进行右移; S1=1,S0=0 时, 进行左移; 十六位计数器74LS161 可以从0000 到1111 进行计数. 利用十六位计数器74LS161 的功能实现自动循环.
四、主要元件
1.数字电路实验箱1 台
2.74LS161 芯片1 片
3.74LS194 芯片2 片
4.导线若干
五、仿真过程及结果
新建工程及文件，分别添加设计程序及测试程序，进行编译及纠错，编译通过后运行程序仿真进行调试得出结果。
设计模块：
module caideng(clk,ledout,reset);
input reset,clk;
output[7:0] ledout;
integer i;
reg[7:0] ledout; reg[2:0] count;
reg[4:0] count2; reg clkflag;
reg[1:0] in; always (posedge clk) begin
if(!reset)
count<=0;
else if(count<=3) begin
clkflag<=0;
count<=count+1; end
else if(count<7) begin
clkflag<=1;
count<=count+1; end
else if(count==7) begin
clkflag<=1;
count<=0;
end
else
begin
clkflag<=1;
count<=count+1; end
end
always (posedge clk) begin
if(!reset) count2<=0; else if(count2<=7) begin
in<=2'b00;
count2<=count2+1; end
else if(count2<=15) begin
in<=2'b01;
count2<=count2+1; end
else if(count2<23) begin
in<=2'b10;
count2<=count2+1; end
else if(count2==23) begin
in<=2'b10;
count2<=0;
end
else
begin
in<=2'bZZ;
count2<=0;
end
end
always(clkflag or count or in or reset) if(!reset)
ledout<=8'h00;
else
begin
case(in)
2'b00: if(clkflag) ledout=8'hFF;
else ledout=8'h00;
2'b01:
case(count)
'h0:ledout=8'h80;
'h1:ledout=8'h40;
'h2:ledout=8'h20;
'h3:ledout=8'h10;
'h4:ledout=8'h08;
'h5:ledout=8'h04;
'h6:ledout=8'h02;
'h7:ledout=8'h01;