51单片机控制TC35 之发送TEXT短信——MADE BY lyq
led",1);delayms_1000ms();
lcd_disp_str(" ",1);
}
}
/***********************设置短消息中心******************************
*功 能: 串口发送数组命令到TC35, AT+CSCA=“+8613800531500”回车
*形 参: uchar *canter 短消息中心 “+8613800531500”
*返 回 值:
*备 注:
*****************************************************************/
void Set_CENTER(uchar *center)
{
uchar *p,i=ATwaits; //ATwaits=10
//lcd_disp_str(RsBuf,1);
while(i--) //测试10次,在某一次成功就退出
{
RsPoint=0;
SendString("AT+CSCA="); //设置短消息中心
SendASC(");
SendString(center); //短消息中心号码
SendASC(");
SendASC(\r); //发送回车指令//
//****************************等待应答"OK"
ES=1; //必须中断 // 串口中断应许
delayms_100ms();//等待接受数据完成//delayms_1000ms();delayms_1000ms();
p=mystrstr(RsBuf,"OK"); //接收到的数据存在RsBuf
if(p!=NULL) //接收到"OK"
{
lcd_disp_str("Set_CENTER is OK",1);
lcd_disp_str("CENTER contimue! ",2);
delayms_1000ms();delayms_1000ms();//delayms_1000ms();delayms_1000ms();
lcd_disp_str(" ",1);
lcd_disp_str(" ",2);
break;
}
lcd_disp_str("Set_CENTER failed",1);delayms_1000ms();
lcd_disp_str(" ",1);
}
}
/***********************发送TEXT短信息********************************
*功 能: TEXT模式发送短信息
*形 参: char *dialnum 目的号码+8613333333333 char *text发送内容
*返 回 值: 1 发送成功 0 发送失败
*备 注:发送TEXT短信息 之前应该先 1,设置短消息模式 AT+CMGF=? (0)=PDU (1)=TEXT
2,设置短消息中心 AT+CSCA=“+8613800531500”回车
*****************************************************************/
char TransmitText(char *dialnum,char *text) //发送号码 发送内容,字母或数字
{
uchar i=Sendwaits,j=Sendwaits;
uchar *p;
SendString("AT+CMGS="); //信息发送指令 AT+CMGS=//
///////////////////////////////
SendASC(");
SendString(dialnum); //手机号码的引号丢了!!!!!!!!! 已经加上
SendASC(");
////////////////////////////////////
SendASC(\r); //发送回车指令//
RsPoint=0; //清空接收缓冲区
//delayms_1000ms();
while(i--)
{
delayms_100ms();
p=mystrstr(RsBuf,">");//">"
if(p!=NULL) //如果接受到 > 发送text
{
///////Get">"////////////////////////////
SendString(text);
RsPoint=0; //清空接收缓冲区
SendString("\x1a\r");//\x1a结束符(相当CTRL+Z) \r回车符
//delayms_100ms();
while(j--)
{
delayms_100ms();
p=mystrstr(RsBuf,"OK");
if(NULL!=p)
{
//发送成功
lcd_disp_str("Transmit already",1);
return 1;
}
lcd_disp_str("wait Transmit! ",1);
delayms_1000ms();
lcd_disp_str(" ",1);
}
}
//else lcd_disp_str("Transmit failure",1);
}
return 0;
}
/***********************字符串查找********************************
*功 能: 查找字符串
*形 参: char *s, char *t ;在s中查找t
*返 回 值: s_temp(t在s中的位置)成功 0 (失败 )
*备 注:
*****************************************************************/
char *mystrstr(char *s, char *t)
{
char *s_temp; /*the s_temp point to the s*/
char *m_temp; /*the mv_tmp used to move in the loop*/
char *t_temp; /*point to the pattern string*/
if (NULL == s || NULL == t) return NULL;
/*s_temp point to the s string*/
for (s_temp = s; *s_temp != \0; s_temp++)
{
/*the move_tmp used for pattern loop*/
m_temp = s_temp;
/*the pattern string loop from head every time*/
for (t_temp = t; *t_temp == *m_temp; t_temp++, m_temp++);
/*if at the tail of the pattern string return s_tmp*/
if (*t_temp == \0) return s_temp;
}
return NULL;
}
// 通讯中断接收程序 中断函数无返回值
void uart_rx(void) interrupt 4 using 3 //放在这里 和放在main()里面是一样的
{
EA=0;
if((RsPoint
{
RI=0;
RsBuf[RsPoint++]=SBUF;
//RsBuf[RsPoint]=0x00; //将下一个数据清零
//SendASC(RsBuf[RsPoint-1]);
//lcd_disp_str(RsBuf ,2);
}
EA=1;
}
51单片机TC35发送TEXT短 相关文章:
- Windows CE 进程、线程和内存管理(11-09)
- RedHatLinux新手入门教程(5)(11-12)
- uClinux介绍(11-09)
- openwebmailV1.60安装教学(11-12)
- Linux嵌入式系统开发平台选型探讨(11-09)
- Windows CE 进程、线程和内存管理(二)(11-09)