对应程序:
//作者:安徽建筑工业学院08自动化一班 paladin
//QQ:905408963
#include reg52.h
#include intrins.h
#define uchar unsigned char
#define uint unsigned int
#define NOP4() {_nop_();_nop_();_nop_();_nop_();}
sbit SCL = P1^0;
sbit SDA = P1^1;
sbit SPK = P3^0;
uchar code HI_LIST[] =
{
0,226,229,232,233,236,238,240,241,242,245,246,247,248
};
uchar code LO_LIST[] =
{
0,4,13,10,20,3,8,6,2,23,5,26,1,4,3
};
uchar code Song_24C04[] =
{
1,2,3,1,1,2,3,1,3,4,5,3,4,5
};
uchar sidx;
void DelayMS(uint x)
{
uchar t;
while(x--)
{
for(t=120;t0;t--);
}
}
void Start()
{
SDA=1;SCL=1;NOP4();SDA=0;NOP4();SCL=0;
}
void Stop()
{
SDA=0;SCL=0;NOP4();SCL=1;NOP4();SDA=1;
}
void RACK()
{
SDA=1;NOP4();SCL=1;NOP4();SCL=0;
}
void NO_ACK()
{
SDA=1;SCL=1;NOP4();SCL=0;SDA=0;
}
void Write_A_Byte(uchar b)
{
uchar i;
for(i=0;i8;i++)
{
b=1;SDA=CY;_nop_();SCL=1;NOP4();SCL=0;
}
RACK();
}
void Write_IIC(uchar addr,uchar dat)
{
Start();
Write_A_Byte(0xa0);
Write_A_Byte(addr);
Write_A_Byte(dat);
Stop();
DelayMS(10);
}
uchar Read_A_Byte()
{
uchar i,b;
for(i=0;i8;i++)
{
SCL=1;b=1;B|=SDA;SCL=0;
}
return b;
}
uchar Read_Current()
{
uchar d;
Start();
Write_A_Byte(0xa1);
d=Read_A_Byte();
NO_ACK();
Stop();
return d;
}
uchar Random_Read(uchar addr)
{
Start();
Write_A_Byte(0xa0);
Write_A_Byte(addr);
Stop();
return Read_Current();
}
void T0_INT() interrupt 1
{
SPK=!SPK;
TH0=HI_LIST[sidx];
TL0=LO_LIST[sidx];
}
void main()
{
uchar i;
IE=0x82;
TMOD=0x00;
for(i=0;i14;i++)
{
Write_IIC(i,Song_24C04[i]);
}
while(1)
{
for(i=0;i14;i++)
{
sidx=Random_Read(i);
TR0=1;
DelayMS(300);
}
}
}
您可能关注的文档
最近下载
- 一种新金色分枝杆菌重组表达载体及其应用.pdf VIP
- 社区护理学题库及答案.pdf VIP
- 奥迪展车日常检查表_新.doc VIP
- 2023年06月国家国防科技工业局核技术支持中心社会招考聘用笔试历年难、易错考点试题含答案解析.docx
- 互联网舆情监控系统用户手册.doc
- 2025 南平邵武福建贝莱特生物科技有限公司“3.28”一般闪爆事故调查报告-南政综(2025)37号.pdf VIP
- 最新房产测量规范.docx VIP
- 人教版初中物理八年级下册同步第8章《运动和力》【B试卷 专项试卷】(易错训练38题7大考点).docx VIP
- 新编剑桥商务英语(高级)学生用书(第三版修订版)达姆特教材习题答案笔记及workbook答案.pdf
- 党支部书记2025年度组织生活会在学习贯彻党的创新理论方面、加强党性锤炼方面、发挥先锋模范作用方面、发挥先锋模范作用方面、改作风树新风方面五个方面存在的问题及整改措施.docx VIP
原创力文档

文档评论(0)