51实现gsm的发短信收短信的程序

经过两周多的奋斗，终于能用单片机发送一个简单的英文短信了。。。哈哈。。

以下是源码：

#include<reg52.h>
#include<intrins.h>
#define uint  unsigned int
#define uchar unsigned char
#define KEY0_OK  1
#define KEY1_OK  2
#define KEY2_OK  3
#define KEY3_OK  4
sbit SENSER=P3^7;
sbit LCDE=P2^7;   //enable bit，LCDE--P2.7
sbit RS=P2^6;     //register select bit，RS--P2.6
sbit RW=P2^5;     //read or write select bit，RW--P2.5
sbit BF=P0^7;     //busy mark bit，BF--P0.7
sbit LED0=P1^0;
sbit LED1=P1^1;
sbit LED2=P1^2;
sbit LED3=P1^3;
sbit KEY0=P1^4;
sbit KEY1=P1^5;
sbit KEY2=P1^6;
sbit KEY3=P1^7;
uchar TEM_ARR[10]=0;
uchar HELLO[7]="HELLO";
uchar WAIT[9]="WAITING";
uchar REC_BUF[20]=0;
uchar key_mark=0;
uchar key0_mark=0;
uchar record=1;
void Delay_1us_(uint temp);
void Delay_ms(uint i);
void Display_son(uchar *p,uchar temp);
void Display(uchar temp);
void manage_data(uint temp);
unsigned char BusyTest(void);
void Init_1602();
void Write_Com(uchar dictate);
void Write_Data(uchar Data);
void Key_detect();
void Reset_18b20();
void Write_byte_18b20_(uchar temp);
uchar Read_byte_18b20_();
uint Get_tem_18b20();
void Send_data(uchar dat);
void Send_arr(uchar arr_capacity,uchar *p);
void Send_com(uchar *p);
void Arring_initialize();
void Init_Timer();
void GSM_receive();
void main()
{
 Init_Timer();
 Init_1602();
 Reset_18b20();
 Arring_initialize();
 while(1)
 {
  Key_detect();
  GSM_receive();
  Display(key_mark);
 }
}
/************KEY DETECT FUNCTION*************************************************************************************/
void Key_detect()
{
 if(KEY0==0)
 {
  Delay_1us_(10);
  if(KEY0==0)     //chose the one to be sended
  {
   if(key0_mark<2)
   key0_mark++;
   else
   key0_mark=0;
   LED0=0;
   key_mark=KEY0_OK;
  }
  while(!KEY0);
  LED0=1;
 }
 if(KEY1==0)        //affirm send samething
 {
  Delay_1us_(10);
  if(KEY1==0)
  {
   key_mark=KEY1_OK;
   LED1=0;
  }
  while(!KEY1);
  LED1=1;
 }
 if(KEY2==0)        //display temperature
 {
  Delay_1us_(10);
  if(KEY2==0)
  {
   key_mark=KEY2_OK;
   LED2=0;
  }
  while(!KEY2);
  LED2=1;
 }
 if(KEY3==0)      //transform the model of send
 {
  Delay_1us_(10);
  if(KEY3==0)
  {
   key_mark=KEY3_OK;
   LED3=0;
  }
  while(!KEY3);
  LED3=1;
 }
}
/***********************temperature**************************************************************************************/
/**************************************************
 *function:   18b20 reset
 *parameter:  none
 *return:   none
 *modify:   none
************************************************/
void Reset_18b20()
{
 SENSER=1;
 SENSER=0;
 Delay_1us_(55);
 SENSER=1;
 Delay_1us_(10);
 Delay_1us_(1);
}
/**************************************************
 *function:   write one byte to 18b20
 *parameter:  uchar
 *return:   none
 *modify:   none
************************************************/
void Write_byte_18b20_(uchar temp)
{
 uchar i;
 for(i=0;i<8;i++)
 {
  SENSER=0;
  _nop_();
  _nop_();
  SENSER=temp&0x01;
  Delay_1us_(5);
  SENSER=1;
  temp>>=1;
 }
}
 
 /**************************************************
 *function:   read one byte from 18b20
 *parameter:  none
 *return:   byte
 *modify:   none
************************************************/
uchar Read_byte_18b20_()
{
 uchar i,flag=0;
 for(i=0;i<8;i++)
 {
  SENSER=0;
  flag>>=1;
  SENSER=1;
  if(SENSER)
  flag|=0x80;
  Delay_1us_(6);                
 }
 return flag;
}
/**************************************************
 *function:   get temperture from 18b20
 *parameter:  none
 *return:   uint temperture
 *modify:   flag_h/l
************************************************/
uint Get_tem_18b20()
{ 
 
 uchar flag_l=0,flag_h=0;    //record temperture high and low byte
 uint flag;
 ES=0;
 TR0=0;
 Reset_18b20();
    Write_byte_18b20_(0xcc);      //skip rom
    Write_byte_18b20_(0x7f);        //set 11 bit (0.125)
 Reset_18b20();
 Delay_1us_(1);
 Write_byte_18b20_(0xcc);    //skip serial number check
 Write_byte_18b20_(0x44);     //transport temperture
 Delay_1us_(50000);
 Delay_1us_(50000);
 Reset_18b20();
 Delay_1us_(1);
 Write_byte_18b20_(0xcc);    //skip serial number check
 Write_byte_18b20_(0xbe);    //read command
 Delay_1us_(1);
 flag_l=Read_byte_18b20_();    // read low byte    
 flag_h=Read_byte_18b20_();    //read high byte
 flag=flag_h*256+flag_l;
 ES=1;
 TR0=1;
 return flag; 
}
/**********************display*****************************************************************************************/
/**************************************************
 *function:   Delay 1 um
 *parameter:  uint
 *return:   none
 *modify:   none
************************************************/
void Delay_1us_(uint temp)
{
 while(temp--);
}
/*毫秒延时*/
void Delay_ms(uint i)
{
 unsigned int j;
 for(;i>0;i--)
 {
  for(j=0;j<125;j++)
  {;}
 }
}
/*****************************
****serve for display()
******************************/
void Display_son(uchar *p,uchar temp)
{
 uchar i;
 ES=0;
 Write_Com(0x80+1);
 for(i=0;i<temp;i++)
 { if(p[i]==0) break; Write_Data(p[i]); }
 Write_Com(0x80+0x40+1);
 for(i=0;i<16;i++)
 {
  //if(REC_BUF[i]==0) break;
  Write_Data(REC_BUF[i]);
 }
 ES=1;
 record=1;
 key_mark=0;
}
/*****************************
***head display function
********************************/
void Display(uchar temp)
{
 uint temperature;
 temperature=Get_tem_18b20();
 switch(temp)
 {
  case KEY0_OK:
   switch(key0_mark)
   {
    case 1: manage_data(temperature);
    Display_son(TEM_ARR,6);
    break;
    case 2: Display_son(HELLO,6);
    break;
   }
   break;
  case KEY1_OK:      //sending
   switch(key0_mark)
   {
    case 1: Display_son(TEM_ARR,6);
    Send_arr(sizeof(TEM_ARR),TEM_ARR);
    //Send_data(0x0D);
     //Send_data(0x0A);
    //EA=1;
    Delay_ms(1500);
    //EA=0;
    break;
    case 2: Display_son(HELLO,6);
    Send_arr(sizeof(HELLO),HELLO);
    //Send_data(0x0D);
     //Send_data(0x0A);
    //EA=1;
    Delay_ms(1500);
    //EA=0;
    break;
   }
   break;
  case KEY2_OK:
   manage_data(Get_tem_18b20());
   Display_son(TEM_ARR,6);
   break;
  case KEY3_OK:break;
 }
}
/******manage temperature data*********/
void manage_data(uint temp)
{
 uchar container[]={'0','1','2','3','4','5','6','7','8','9','a','b','c','d','e','f'};
 uchar hundred_R,ten_R,ge_R;
 uint record;
 record=(temp*0.125)*5;
 hundred_R=record/1000;
 ten_R=(record%1000)/100;
 ge_R=(record%100)/10;
 TEM_ARR[0]=container[hundred_R];
 TEM_ARR[1]=container[ten_R];
 TEM_ARR[2]=container[ge_R];
}
/*****************************************************
*function：check if busy
*parameter:  none
*return：result  result=1，busy;result=0，free
*modify:   none
***************************************************/
unsigned char BusyTest(void)
{
 bit result;
 RS=0;         //根据规定，RS为低电平，RW为高电平时，可以读状态
 RW=1;
 LCDE=1;          //LCDE=1，才允许读写
 Delay_1us_(5);           //给硬件反应时间 
 result=BF;    //将忙碌标志电平赋给result
 LCDE=0;
 return result;
}
/*****************************************************
*function：initialize 1602
*parameter:  none
*return：  none
*modify:  none
***************************************************/
void Init_1602()
{
 LCDE=0X00;
 Write_Com(0x38);
 Write_Com(0x0E);
 Write_Com(0x06);
 Write_Com(0x80);
}
 /*****************************************************
函数功能：将模式设置指令或显示地址写入液晶模块
入口参数：dictate
***************************************************/
void Write_Com(uchar dictate)
{  
 while(BusyTest()==1);  //如果忙就等待
 RS=0;                  //根据规定，RS和RW同时为低电平时，可以写入指令
 RW=0;  
 LCDE=0;                //LCDE置低电平(根据表8-6，写指令时，LCDE为高脉冲，
                   // 就是让LCDE从0到1发生正跳变，所以应先置"0"
 Delay_1us_(1);           //给硬件反应时间
 P0=dictate;            //将数据送入P0口，即写入指令或地址
 Delay_1us_(1);          //给硬件反应时间             
 LCDE=1;                //LCDE置高电平
 Delay_1us_(1);            //给硬件反应时间
 LCDE=0;                //当LCDE由高电平跳变成低电平时，液晶模块开始执行命令
}
/*****************************************************
函数功能：将数据(字符的标准ASCII码)写入液晶模块
入口参数：Data(为字符常量)
***************************************************/
void Write_Data(uchar Data)
{
 while(BusyTest()==1); 
 RS=1;             //RS为高电平，RW为低电平时，可以写入数据
 RW=0;
 LCDE=0;           //LCDE置低电平(根据表8-6，写指令时，E为高脉冲，
      // 就是让LCDE从0到1发生正跳变，所以应先置"0"
 P0=Data;          //将数据送入P0口，即将数据写入液晶模块
 Delay_1us_(1);            //给硬件反应时间
 LCDE=1;           //LCDE置高电平
 Delay_1us_(1);            //给硬件反应时间
 LCDE=0;           //当LCDE由高电平跳变成低电平时，液晶模块开始执行命令
}
/*******************send message**********************************************************************************************/
/***************
****mcu send data to sim300
***************************/
void Send_data(uchar dat) /*发送数据函数*/
{
     SBUF =dat;
     while(!TI);
     TI = 0;
}
/**************************
****mcu send arr to sim300
***************************/
void Send_arr(uchar arr_capacity,uchar *p) /*发送数组函数*/
{
 uchar m;
 for(m=0;m<arr_capacity;m++)
 Send_data(p[m]);
}
/****************************
***mcu send comend to sim300
********************
void Send_com(uchar *p) /*通过串口发送字符串
{
 while(*p)
 {
  Send_data(*p);
  p++;
 }
 Send_data(0x0D);
 Send_data(0x0A);
}

/*********ARRING initialize****************/
void Arring_initialize()
{
 uchar i=1;
 for( i=0;i<20;i++)
  REC_BUF[i]=0;
 for( i=0;i<3;i++)
  TEM_ARR[i]=0;
 //HELLO[]="HELLO";
 //WAIT[]="WAITING";
 for(i=3;i<9;i++)
    TEM_ARR[i]=0x20;
 REC_BUF[1]='A';
 
}
/******************************
  中断的初始化
  ****************************/
void Init_Timer()    
{
 
 TMOD=0X21;  //定时器0定时模式工作方式1
 TH0=(65536-912)/256;
 TL0=(65536-912)%256;
 PCON=0x00; ///波特率不加倍
 SCON=0x50; //串行工作方式1允许串行接收 
 TH1=0xFD; //实验板上晶振位11.0592MHZ,选择波特率为9600
 TL1=0xFD; //在相应计数器上赋值
 ES=1;  //串行中断开启
 TR1=1;  //开启定时器1
 ET0=1;   //定时器0打开
 TR0=1;   //启动定时器0
 EA=1;  //总中断开启
 
}
/***********receive data********************************************************************************************************/
/*******************************
***mcu receive data from sim300
******************************/
void receive(void) interrupt 4/*通过中断，串口接收数据*/
{   
 if(RI)
 {
  REC_BUF[record]=SBUF;
  record++;
  RI=0;
 }
}
/******************************/
void GSM_receive()
{
 //EA=1;
 //Delay_ms(6000);
 //EA=0;
 uint temperature=0;
 uchar i=1;
 
 if(REC_BUF[1]=='b')
 {
  temperature=Get_tem_18b20();
  manage_data(temperature);
     Send_arr(sizeof(TEM_ARR),TEM_ARR);
  Display_son(TEM_ARR,8);
  REC_BUF[1]=0;
 // Send_data(0x0D);
 // Send_data(0x0A);
 }
 else if(REC_BUF[1]!=0)
 {
  Display_son(HELLO,6);
  REC_BUF[1]=0;
 }
 if(key_mark==4)
 {
  for( i=1;i<20;i++)
  REC_BUF[i]=0X20;
  key_mark=0;
  Display_son(WAIT,8);
 }
     
}