基于STC15W4K32单片机仿真《跑马灯》

1、 编 程 软 件：keil5版本。  

2、仿 真 软 件：Proteus8.12。据说8.9版本也可以。  

3、单片机选型：STC15W4K32S4  

4、学 习 目 标：单片机头文件与库函数“intrins.h”--循环左移右移 

5、程 序 文 件 ：

/**********************************************************************
项目名称：基于STC15W4K32单片机仿真《跑马灯》
项目作者：LCY
项目版本：V1.0
项目说明：控制LED灯左移右移 
学习目标：1、学习intrins.h 函数（循环左移、右移）
起止日期：2022年12月3号-2022年12月3号
**********************************************************************/
#include <stc15.h>    //头文件
#include <intrins.h>  //左移右移头文件与库函数
#define uchar unsigned char
#define uint  unsigned int
    
uchar temp;
/**********************************************************************
函 数 名：调用的子函数
函数功能：除主函数外，其余函数统称为子函数，当子函数在主函数后面时，
          必须在前面声明调用的子函数。
**********************************************************************/
void delay_1ms(uint x);
/**********************************************************************
函 数 名：主函数
函数功能：程序运行必须要用的函数，有且只有1个。主函数里面尽量只包含
          子函数名，不要写指令
**********************************************************************/
void main(void)    
{     
    uchar temp=0XFE;         //temp变量赋初始值0XFE，1111 1110

  P0M0 = 0x00; P0M1 = 0x00; //GPIO初始化，设置为准双向口
  P1M0 = 0x00; P1M1 = 0x00; //GPIO初始化，设置为准双向口
  P2M0 = 0x00; P2M1 = 0x00; //GPIO初始化，设置为准双向口
  P3M0 = 0x00; P3M1 = 0x00; //GPIO初始化，设置为准双向口
  P4M0 = 0x00; P4M1 = 0x00; //GPIO初始化，设置为准双向口
  P5M0 = 0x00; P5M1 = 0x00; //GPIO初始化，设置为准双向口
  P6M0 = 0x00; P6M1 = 0x00; //GPIO初始化，设置为准双向口
  P7M0 = 0x00; P7M1 = 0x00; //GPIO初始化，设置为准双向口
    while(1)  
    {
    P0=temp;               //temp值送给P0端口；
        delay_1ms(3000);       //延时3000ms，相当于3s,可以任意修改。可以控制速度
    temp=_crol_(temp,1);   //temp循环左移1位；
//  temp=_cror_(temp,1);     //temp循环右移1位；
    }
}
/**********************************************************************
函 数 名：1毫秒延时函数
函数功能：x值可以随意设置，Xms。
**********************************************************************/
void delay_1ms(uint x)
{
    uint y,z;
    for(y=x;y>0;y--)
     for(z=110;z>0;z--);
}