• 大小: 27KB
    文件类型: .rar
    金币: 1
    下载: 0 次
    发布日期: 2021-06-18
  • 语言: 其他
  • 标签: 电子沙漏  

资源简介

电子沙漏全套代码 PCB原理图

资源截图

代码片段和文件信息

#include 
#define uint unsigned int
#define uchar unsigned char  
 
#define time 3    //秒   填写数值 改变沙漏时间 

sbit  K2=P3^2; //如发现 沙漏反向 ~~~反重力。。。对调两K 即可
sbit  K1=P3^3;

uchar a[5]={0X0F0X8E0XCC0XE80XF0}; 
uchar b[5]={0XF00x710x330x170x0f};
uchar c[5]={0x020x010x020x010x02};

  
void delay(uint s) 
{
uint ijk;
s=s*10;
for(k=0;k for(j=0;j<760;j++)
for(i=0;i<25;i++);
}

void flowdown()
{ uint i;
for(i=0;i<5;i++)
{ P2=a[i];
P0=c[i]; 
delay(time);}
}

void flowup()
{ uint i;
for(i=0;i<5;i++)
{ P2=b[i];
P0=c[i]; 
delay(time);}
}

void full()
{
uchar TP;
if(K2==1){
T=0XF0;
P=0X02;}
else if(K1==1){
T=0x0F;
P=0X01;}
P2=T;
P0=P;
delay(1);
P2=0x00;
P0=0x00;
delay(1);
}

void main()
{
P2M1=0x00;
P2M0=0xff;
P0M1=0x00;
P0M0=0xff; 
while(1)
{
if(K1==0){ 
flowdown();
while(K2==1)
full();}
if(K2==0){
flowup();
while(K1==1)
full();}
}
}








 属性            大小     日期    时间   名称
----------- ---------  ---------- -----  ----

     文件       4784  2016-11-30 01:11  沙漏\main

     文件       1060  2016-11-30 13:44  沙漏\main.c

     文件       1220  2016-11-30 01:11  沙漏\main.hex

     文件         56  2016-11-30 01:11  沙漏\main.lnp

     文件       3539  2016-11-30 01:11  沙漏\main.LST

     文件       8188  2016-11-30 01:11  沙漏\main.M51

     文件       4674  2016-11-30 01:11  沙漏\main.OBJ

     文件        171  2016-11-30 13:44  沙漏\main.plg

    .......     55633  2016-11-30 13:44  沙漏\main.uvopt

     文件      13398  2013-10-30 20:38  沙漏\main.uvproj

    .......     55632  2016-11-30 13:44  沙漏\main_uvopt.bak

     文件       6376  2013-10-30 20:38  沙漏\STARTUP.A51

     文件      14068  2016-11-30 01:11  沙漏\STARTUP.LST

     文件        749  2016-11-30 01:11  沙漏\STARTUP.OBJ

     文件      17735  2013-10-30 20:47  沙漏\stc12c5a60s2.h

     目录          0  2016-11-30 13:44  沙漏

----------- ---------  ---------- -----  ----

               187283                    16


评论

共有 条评论

相关资源