跑马灯实验代码

格式：doc
大小：68.00 KB
文档页数：11

四、利用IRQ作为中断源，采用中断方式，利用8位DIP开关控制跑马灯的循环速度。
#include <hidef.h> /* common defines and macros */
#include "derivative.h" /* derivative-specific definitions */
PORTB=PORTA;
}
}
方法2：DIP开关低四位由A口低四位输入，经A口高四位送LED灯低四位输出
#include <hidef.h> /* common defines and macros */
#include "derivative.h" /* derivative-specific definitions */
for(j=0;j<10000;) j++;
}
void main(void)
{
unsigned char i,settime;
unsigned int j;
DDRB=0xFF;
PORTB=0x7F;
DDRA=0xF0;
flag=0;
asm ANDCC #$BF
EnableInterrupts;
i=0;
PORTB|=0x80;
if(PORTB==0xFF)
PORTB=0x7F;
}
}
void interrupt 6 IRQ(void)
{
flag=1;
}
**************************************************************************************************************************************************************
#include "derivative.h" /* derivative-specific definitions */
unsigned char flag;
void delay(unsigned int countert)
{
unsigned int i,j;
for(i=0;i<countert;i++)
DDRB=0xFF;
PORTB=0x7F;
DDRA=0xF0;
PORTA=PORTA|0x80;
flag=0;
asm ANDCC #$BF
EnableInterrupts;
i=0;
j=10;
m=2;
n=4;;
for(;;)
{
if(flag==1)
{
flag=0;
settime=PORTA&0x7f;
二、将PORTA口接8位DIP开关，在PORTB口的小灯上显示其状态。
方法1：DIP开关由A口输入，B口显示
#include <hidef.h> /* common defines and macros */
#include "derivative.h" /* derivative-specific definitions */
unsigned char flag;
const unsigned char patten[8]={0x80,0x40,0x20,0x10,0x08,0x04,0x02,0x01};
void delay(unsigned int countert)
{
unsigned int i,j;
for(i=0;i<countert;i++)
j=settime*10;
PORTA=PORTA&0x7f;
}
delay(j);
i++;
PORTB = ~patten[i%8];
void interrupt 6 IRQ(void)
{
flag=1;
}
个人理解的程序。实现功能为：在不按IRQ的时候显示的为所有灯都亮。每按动一下IRQ跑马灯就跑一次。
#include <hidef.h> /* common defines and macros */
三、利用IRQ作为中断源，采用中断方式，按动IRQ键后显示跑马灯。
#include <hidef.h> /* common defines and macros */
#include "derivative.h" /* derivative-specif
unsigned char flag;
const unsigned char patten[8]={0x80,0x40,0x20,0x10,0x08,0x04,0x02,0xቤተ መጻሕፍቲ ባይዱ1};
PORTB=0x7F;
i=0;
j=10;
for(;;)
{
delay(j);
i++;
PORTB = ~patten[i%8];
}
}
方法2：移位
#include <hidef.h> /* common defines and macros */
#include "derivative.h" /* derivative-specific definitions */
*******************************************************************************七、自己设计一种小灯的显示方式。（小灯的显示方式、开关与LED灯的对应关系、中断源的控制方式）
const unsigned char patten[8]={0x80,0x40,0x20,0x10,0x08,0x04,0x02,0x01};//表格应该是没用
void delay(unsigned int countert)
{
unsigned int i,j;
for(i=0;i<countert;i++)
j=10;
for(;;)
{
if(flag==1)
{
flag=0;
settime=PORTA;
j=settime*10;
}
delay(j);
PORTA=PORTA<<4;
}
}
void interrupt 5 XIRQ(void)
{
flag=1;
}
*******************************************************************************
五、利用XIRQ作为中断源，采用中断方式，利用8位DIP开关控制跑马灯的循环速度。
方法同四，只是中断函数不同：
Void interrupt 5 XIRQ(void)
{
flag=1;
}
**************************************************************************************************************************************************************
六、将PORTA口低4位接DIP开关，高4位接LED，将开关的状态显示在LED灯上，重复五
#include <hidef.h> /* common defines and macros */
#include "derivative.h" /* derivative-specific definitions */
void delay(unsigned int countert)
{
unsigned int i,j;
for(i=0;i<countert;i++)
for(j=0;j<10000;) j++;
}
void main(void)
{
unsigned char i;
unsigned int j;
DDRB=0xFF;
PORTB>>=1;
PORTB|=0x80;
if(PORTB==0xFF)PORTB=0x7F;
}
delay(j);
}
}
void interrupt 6 IRQ(void)
{
flag=1;
}
**************************************************************************************************************************************************************
unsigned int j;
DDRB=0xFF;
PORTB=0x7F;
DDRA=0xF0;
flag=0;
asm ANDCC #$BF
EnableInterrupts;
for(;;)
{
if(flag==1)
{
flag=0;
settime=PORTA;
j=settime*10;
}
delay(j);
PORTB>>=1;
for(j=0;j<10000;) j++;
}
void main(void)
{
unsigned char i;
unsigned int j;

实验报告跑马灯

实验报告一：实验名称跑马灯电路二：实验目的（1）掌握proteus软件的使用方法；（2）调试跑马灯电路的汇编语言；（3）绘制跑马灯原理图，实现电路的实现；三：实验要求跑马灯电路，即实现p1口上的8个发光二极管循环闪亮的电路。

四：实验仪器计算机，keil c51软件，proteus软件。

五：参考程序ORG 0000H ；程序入口AJMP MAIN ；转主程序ORG 30HMAIN:MOV R2,#16 ；将16送给R2MOV A,#0FEH ；将0FEH送给累加器ALOOP:MOV P1,A ；循环，将累加器A的值送给p1LCALL D1 ；长调子程序D1RL A ；累加器循环左移DJNZ R2,LOOP ；R2减1非0则转移到LOOPD1: MOV R4,#10 ；将10送给R4D2: MOV R5,#100 ；将100送给R5D3: MOV R6,#249 ；将249送给R6DJNZ R6,$ ；R6减1不为0，则原地等待DJNZ R5,D3 ；R5减1不为0，则转到D3DJNZ R4,D2 ；R4减1不为0，则转到D2RET ；返回主程序END六:试验步骤（1）进入keil c51系统的操作环境，并建立一个工程，输入汇编程序，对程序进行编译和链接：（2）：调试无误后运行程序并检查运行结果，检查正确后生成hex文件：（3）:在软件proteus中，绘制电路图，找到此实验需要用到的主要元器件及其符号：1：单片机AT89C51；2：电阻RES 10k；3:电容 CAP 30uF；4:晶振 CRYSTAL ；5;排阻 RESPACK-8；6：开关 BUTTON；7：发光二级管 LED；（4）绘制电路仿真图，然后将生成的hex文件下载到AT89C51中，并开始仿真，结果如下：七：实验结果程序仿真完成后，发光二级管会有规律的从左向右循环闪亮，直到时间结束后才会停下。

EDA实验跑马灯

实验题目：跑马灯设计一、设计任务：设计8个LED进行花式显示，设计4种显示模式：1、从左到右逐个点亮LED；2、从右到左逐个点亮LED；3、从两边到中间逐个点亮LED；4、从中间到两边逐个点亮LED。

使得四种模式循环切换，由复位键rst控制系统的运行与停止。

二、实验过程⒈设计思路:分析该题目出现的所有状态，用“00000000”表示s0，“10000000”表示s1,“01000000”表示s2，“00100000”表示s3，“00010000”表示s4，“00001000”表示s5，“00000100”表示s6，“00000010”表示s7，“00000001”表示s8，“10000001”表示s9，“01000010”表示s10，“00100100”表示s11，“00011000”表示s12，另外定义了一个中间变量pp，用来表示该种状态的下一个状态为何，用来满足四种状态模式的连接操作。

在程序的结构体中编写两种进程，时序进程和组合进程，它们分别用来控制时钟、复位等时序信息和具体的状态转换关系。

根据状态转换图，对每一种状态编写下一项的确定状态，用pp来引导。

同时在适当的位置，进行pp值的定义变化，分别是“00000000”、“10000000”、“00000001”、“00011000”、“10000001”。

⒉设计方案:将列写出的状态转换图用VHDL语言表达出来，设计好相应的输入输出端口及功能过程，进行设计处理，编译文件，修改其中的错误，再用波形图进行编辑仿真描述，以便检查其功能是否正确，最后下载链接到硬件设备上检查其功能。

⒊设计步骤:(1)用VHDL语言设计实现计数器：运行QuartusII软件，选择菜单File/New Project Wizard...,新建一个项目，选择cyclone系列的芯片;在此项目下新建VHDL文件，编写计数器代码：library ieee;use ieee.std_logic_1164.all;entity test3 isport(clk, reset,stop : in std_logic;qout : buffer std_logic_vector(7 downto 0));end test3;architecture be of test3 istype fsm_st is(s0, s1, s2, s3, s4, s5, s6, s7, s8, s9, s10, s11, s12);signal current_state, next_state : fsm_st;signal pp : std_logic_vector(1 downto 0);beginreg : process(reset, clk)beginif reset = '1' then current_state <= s0;elsif rising_edge(clk) thencurrent_state <= next_state;end if;end process;com : process(current_state, reset)begincase current_state iswhen s0 => qout <= "00000000";if( reset ='0' and stop='0') then next_state <= s1; pp <= "00"; end if;when s1 => qout <= "10000000";if (pp = "00" and stop='0') then next_state <= s2;elsif (pp = "01" and stop='0')then next_state <= s9; pp <= "10"; end if;when s2 => qout <= "01000000";if (pp = "00" and stop='0')then next_state <= s3;elsif (pp = "01" and stop='0')then next_state <= s1;end if;when s3 => qout <= "00100000";if (pp = "00" and stop='0') then next_state <= s4;elsif (pp = "01" and stop='0')then next_state <= s2;end if;when s4 => qout <= "00010000";if (pp = "00" and stop='0')then next_state <= s5;elsif( pp = "01" and stop='0')then next_state <= s3;end if;when s5 => qout <= "00001000";if( pp = "00" and stop='0')then next_state <= s6;elsif (pp = "01" and stop='0')then next_state <= s4;end if;when s6 => qout <= "00000100";if (pp = "00" and stop='0')then next_state <= s7;elsif( pp = "01" and stop='0')then next_state <= s5;end if;when s7 => qout <= "00000010";if (pp = "00" and stop='0')then next_state <= s8;elsif (pp = "01" and stop='0')then next_state <= s6;end if;when s8 => qout <= "00000001";if (pp = "00" and stop='0')then next_state <= s7; pp <= "01"; end if;when s9 => qout <= "10000001";if (pp = "10" and stop='0')then next_state <= s10;elsif (pp = "11" and stop='0')then next_state <= s1; pp <= "00"; end if;when s10 => qout <= "01000010";if (pp = "10" and stop='0')then next_state <= s11;elsif (pp = "11" and stop='0')then next_state <= s9;end if;when s11 => qout <= "00100100";if (pp = "10" and stop='0')then next_state <= s12;elsif (pp = "11" and stop='0')then next_state <= s10;end if;when s12 => qout <= "00011000";if (pp = "10" and stop='0') then next_state <= s11; pp <= "11"; end if;when others => null;end case;end process;end be;(2)将此文件进行编译.(3)新建一个vector waveform form波形图文件，设置为波形仿真。

单片机跑马灯实验

}
void hold(){
n=8;
while(1){
if(P2==K[4]){//一直按着K4键，逆序点亮跑马灯
oldK=K[4];
if(n==-1)n=7;//D0灯亮后点亮D7
while(n>=0){
out=D[n];
n--;
if(delay4(15))break;
}
}
if(P2==K[0]){//未按下K4键，一直正序点亮跑马灯
void hold(){
n=8;
while(1){
if(P2==K[4]){//一直按着K4键，逆序点亮跑马灯
oldK=K[4];
if(n==-1)n=7;//D0灯亮后点亮D7
while(n>=0){
out=D[n];
n--;
if(delay4(15))break;
}
}
if(P2==K[0]){//未按下K4键，一直正序点亮跑马灯
图43键控的流水灯
五、实验思考题
1、采用I/O口作为输出口时要考虑哪些因素？为什么实验装置中LED要串联一个电阻？
当作为输出口时候就是单片机向外发出数据，或者再产生拉电流，单片机的拉电流一般要比灌电流小，基本上就能点亮2,3个LED，功率很有限，所以一般时候必须用驱动芯片来驱动单片机的外围器件。串联电阻是为了保护电路。
while(1){//开机即正序点亮流水灯
forward();
if(P2!=K[0]){
break;
}
}
while(1){
out=AllOff;
if((P2&0x0f)!=0x0f){//检测有键按下
delay10ms();//延时10ms再去检测

网页制作中跑马灯的实现

实现跑马灯的方法很多，其中最简单的是采用一句Html代码来实现，我们在需要出现跑马灯效果的地方插入“<marquee>滚动的文字</marquee>”语句我们看一下下面的几个例子：1、左右弹来弹去的跑马灯代码：<marquee width=400 behavior=alternate direction=left align=middle border=1>弹来弹去跑马灯</marquee>设置behavior=alternate表示双向移动，direction=left表示运动方向向左。

marquee的宽度可以使用绝对象素值，例如width=200等这个值限定了跑马灯滚动的范围。

需要说明的是该效果在Netscape下是看不到的。

２、跑的很快的跑马灯只要在<marquee>标签内加上“scrollamount=30”参数即可。

３、带有超级链接的跑马灯代码：<marquee width=90%><a href=/target=_blank>带有超链接的跑马灯!点我试试？</a> <a href=/target=_blank>还有一条呢!点我试试？</a></marquee>参数用法介绍behavior=scroll, slide, alternate跑马方式：循环绕行，只跑一次就停住，来回往复运动direction=left,right跑马方向：从左向右，从右向左loop=100跑马次数：循环100次，如不写默认为一直循环width=100%,height=200跑马范围：宽为100%，高为200像素scrollamount=20跑马速度：数越大越快scrolldelay=500跑马延时：毫秒数，利用它可实现跃进式滚动hspace=20，vspace=20跑马区域与其它区域间的空白大小bgcolor=#00FFCC跑马区域的背景颜色尽管<marquee>参数不少，但毕竟不能实现复杂的和自定义的特殊跑马灯效果，而且还有浏览器限制，所以我们更多情况下会采用JavaScript来实现跑马灯。

下载提示

1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。

跑马灯实验代码

合集下载

实验报告跑马灯

EDA实验跑马灯

单片机跑马灯实验

网页制作中跑马灯的实现

文档推荐

最新文档

跑马灯实验代码

合集下载

实验报告跑马灯

EDA实验 跑马灯

单片机 跑马灯实验

网页制作中跑马灯的实现

文档推荐

最新文档

EDA实验跑马灯

单片机跑马灯实验