- 5
- 0
- 约1.88千字
- 约 3页
- 2018-05-05 发布于河南
- 举报
51单片机控制TC35发送短信
#include reg52.h
#define uint unsigned int
#define uchar unsigned char
sbit A=P1^0;
//**********函数定义**********//
void main(void); //主函数
void Ini_UART(void); //串口初始化
void Delay(void); //延时
void Delay1(uint z);
void CMGF(void); //设置发送数据为TXET格式
void CMGS(void); //设置目的手机号码
void SEND(void); //发送字符串
void main(void)
{
Ini_UART(); //串口初始化
Delay();
if(A==0)
{
CMGF();
Delay1(3000);
CMGS();
Delay1(3000);
SEND();
Delay1(3000);
}
}
void Ini_UART(void)
{
SCON=0x50; //UART方式1:8位UART; REN=1:允许接收
PCON=0x00; //SMOD=0:波特率不加倍
TMOD=0x20; //T1方式2,用于UART波特率
TH1=0xFD;
TL1=0xFD; //UART波特率设置:9600
TR1=1;
}
void Delay(void)
{
uint i,j;
for(i=0;i10;i++)
{
for(j=0;j1000;j++);
}
}
void Delay1(uint z)
{
uint x,y;
for(x=z;x0;x--)
for(y=110;y0;y--);
}
void CMGF(void)
{
uchar code mode[10]= {0x41,0x54,0x2B,0x43,0x4D,0x47,0x46,0x3D,0x31,0x0D}; //AT+CMGF=1回车
uint i;
for(i=0;i10;i++)
{
SBUF=mode[i];
while(TI==0);
TI=0;
}
}
void CMGS(void)
{
uchar code mode[20]= {0x41,0x54,0x2B,0x43,0x4D,0x47,0x53,0x3D,0x31,0x33,0x38,0x33,0x39,0x31,0x31,0x30,0x34,0x31,0x35,0x0D}; //AT+CMGS车
uint i;
for(i=0;i20;i++)
{
SBUF=mode[i];
while(TI==0);
TI=0;
}
}
void SEND(void) //发送字符串
{
uchar code mode[10]={0x48,0x69,0x21,0x6E,0x69,0x68,0x61,0x6F,0x2E,0x1a}; //hi!nihao.
uint i;
for(i=0;i10;i++)
{
SBUF=mode[i];
while(TI==0);
TI=0;
}
}
您可能关注的文档
- 市场调查与预测(宋潇潇20081110).doc
- 话术(邀请话术).doc
- 液氨灌区管理制度.doc
- 物流运输防盗管理.doc
- 2013高考立体几何命题动向专题四高考立体几何命题动向.doc
- 信息71注重经济发展同资源环境相协调大力发展循环经济.doc
- 2011DIY字体设计大赛活动总结.doc
- §9.4直线、圆的位置关系1.ppt
- 灿烂的遗产韩文剧本28.doc
- 探究影响滑动摩擦力大小的因素ppt.ppt
- 人教版九年级英语Unit 4曾害怕课件3a-4c.pdf
- 雅思口语考题回顾:朗阁海外考试研究中心2019年10月10日Part 1考题总结.pdf
- 2026届高三地理一轮复习课件小专题河流袭夺.pptx
- 【名师原创】复习专题5 三角函数 作者:合肥市第八中学 蒲荣飞名师工作室.docx
- 高中数学一轮复习 微专题2 抽象函数.docx
- 高中数学——复习专题4 空间向量与立体几何.docx
- 高中数学一轮复习 微专题3 空间几何体中的截面、轨迹问题.docx
- 高中数学一轮复习 微专题4 空间几何体的最值、范围问题.docx
- 导流洞施工质量通病防治手册.docx
- 江苏省徐州市第一中学、徐市第三中学等五校2026届高三上学期12月月考历史试题含答案.docx
最近下载
- 驱动电机及控制技术中职全套教学课件.pptx
- 创意简约卡通小清新医疗静脉输液的安全通用PPT模板.pptx VIP
- 标准图集-12J003-室外工程.pdf VIP
- 基于单片机的出租车计价器设计.docx VIP
- 实施指南《GB_T28698-2012滚动轴承电机用深沟球轴承技术条件》实施指南.docx VIP
- 新型水处理技术推广商业计划书.doc
- 期末复习+课件-2025-2026学年浙教版科学七年级上册科学.pptx VIP
- 我国航海教育管理研究的开题报告.docx VIP
- 新解读《GB_T 28698-2012滚动轴承 电机用深沟球轴承 技术条件》.pptx VIP
- 盆底康复治疗临床诊疗指南.docx VIP
原创力文档

文档评论(0)