找回密码
 注册
查看: 148|回复: 2
打印 上一主题 下一主题

stm32单片机驱动TC35I GSM模块接打电话,收发短信

[复制链接]

该用户从未签到

跳转到指定楼层
1#
发表于 2022-7-27 10:49 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式

EDA365欢迎您登录!

您需要 登录 才可以下载或查看,没有帐号?注册

x
本程序用STM32驱动tc35i 收发短信打电话很实用
9 d4 b, i% F# I$ U   X' ^9 v* n, p, N8 a* Y% r7 o
单片机源程序如下:
: ^, Q: G* N8 T4 d! Q. [
  • #include"stm32f10x.h"
  • #include"uart.h"
  • #include"nvic.h"
  • #include"w25x.h"
  • #include"lcd.h"
  • #include"jm.h"
  • #include"gpio.h"
  • #include"tim2.h"
  • #include"clock.h"
  • extern u16 usarnum;
  • extern u16 jieshou[100];
  • extern u8 wei1;
  • u8 shu;
  • int main(void)
  • {
  •         u8 t=0;
  •         u8 k=0;
  •         u8 i,x;
  •         u32 kkk;
  •         u8 kk=0;
  •         TIM2_NVIC_Configuration();
  •         TIM2_Configuration();
  •         GPIO_Config();
  •         ling_0;
  •         Init_LCD();
  •         /*初始化中断向量*/
  •         NVIC_Config();
  •         /*uart串口初始化*/
  •         USART1_Config();
  •         USART1_Puts("AT&F\r");
  •         delay_ms(500);
  •         USART1_Puts("AT+CMGF=1\r");
  •         delay_ms(500);
  •     USART1_Puts("AT+CNMI=2,1\r");
  •         delay_ms(500);
  •         USART1_Puts("AT+CMGL=ALL\r");
  •         wei1=0;
  •         kkk=6000000;
  •         while(kkk--)
  •         {
  •                 IF(usarnum==0x4c)
  •                 {
  •                         wei1=0;
  •                 }
  •         }
  •         for(x=1;x<(jieshou[2]-0x2f);x++)    //删除所有短信
  •         {
  •                 USART1_Puts("AT+CMGD=");
  •                 USART1_Putc(0x30+x);
  •                 USART1_Puts("\r");
  •                 delay_ms(200);
  •         }
  •         W25X_FLASH_Init();
  •         W25X_ReleasePowerDown();
  •         jiemian_init();
  •         while(1)
  •         {
  •                  t=KEY_Check();                //矩阵键盘扫描
  •                  if(t)
  •                  {
  •                          switch(t)                        //出口1        输出键值
  •                          {
  •                          case 13:                                                   //打电话
  •                                           jiemian_tonghua();
  •                                          saomiao_tonghua();
  •                                          break;
  •                          case 15:duanxin_jiemian();                   //发短信
  •                                            saomiao_duanxin();
  •                                  break;
  •                          case 16:if(kk)                                        //查看短信
  •                                           {
  •                                                   USART1_Puts("AT+CMGR=");
  •                                                  USART1_Putc(shu);
  •                                                  USART1_Puts("\r");
  •                                                  wei1=0;
  •                                                  delay_ms(300);
  •                                                  xianshiduanxin();
  •                                                  shanduanxin();
  •                                                  wei1=0;
  •                                                  kk=0;
  •                                          }
  •                                           break;
  •                          }
  •                  }
  •                  k=zhuangtai();
  •                  if(k)
  •                 {
  •                    switch(k)
  •                    {
  •                              case 1:ling_1;laidian();laidian_saomiao();wei1=0;break;                  //检测来电
  •                           case 5:Chinesestr(24,120,"收到新信息",BLACK,WHITE);                          //检测短信
  •                                            Chinesestr(24,140,"请按  查看",BLACK,WHITE);
  •                                          LCD_ShowString(56,140," D"); kk=1;
  •                                          shu=jieshou[12];
  •                                          for(i=0;i<20;i++)
  •                                            {
  •                                                 jieshou=0;
  •                                          }
  •                                          k=0;
  •                                            break;
  •                    }        
  •                 }                                             
  •         }
  • }; o" t2 `3 c% w% L. V& R1 l
    4 M* J7 w6 c# e# X! I

3 V& O) s' _- n8 L& B

ADnRiAAUxVHv6U_o854.zip

332.33 KB, 下载次数: 0, 下载积分: 威望 -5

该用户从未签到

2#
发表于 2022-7-27 11:22 | 只看该作者
帮别人解决问题,自己也能提升,||ヽ(* ̄▽ ̄*)ノミ|Ю

该用户从未签到

3#
发表于 2022-7-27 14:15 | 只看该作者
恩,不错,确实张知识了,支持楼主
您需要登录后才可以回帖 登录 | 注册

本版积分规则

关闭

推荐内容上一条 /1 下一条

EDA365公众号

关于我们|手机版|EDA365电子论坛网 ( 粤ICP备18020198号-1 )

GMT+8, 2025-6-3 04:54 , Processed in 0.078125 second(s), 26 queries , Gzip On.

深圳市墨知创新科技有限公司

地址:深圳市南山区科技生态园2栋A座805 电话:19926409050

快速回复 返回顶部 返回列表