欧美极品高清xxxxhd,国产日产欧美最新,无码AV国产东京热AV无码,国产精品人与动性XXX,国产传媒亚洲综合一区二区,四库影院永久国产精品,毛片免费免费高清视频,福利所导航夜趣136

 找回密碼
 立即注冊

QQ登錄

只需一步,快速開始

搜索
查看: 9400|回復: 1
收起左側

STC89C51單片機主從雙機藍牙通訊 發送與接收程序及仿真

[復制鏈接]
ID:302531 發表于 2018-11-6 22:37 | 顯示全部樓層 |閱讀模式
分控制板和動作板,控制板上連接主機藍牙,轉動控制板上的電位器,動作板上連接的LED變亮
藍牙仿真原理圖如下(proteus仿真工程文件可到本帖附件中下載)
0.png 0.png

單片機源程序(發射)如下:
  1. #include <reg51.h>
  2. #include <I2C.H>
  3. #define uchar unsigned char
  4. #define uint  unsigned int

  5. uchar ad;
  6. #define  PCF8591 0x90    //PCF8591 地址

  7. void delay(uchar x)                                                          
  8. {
  9. uchar i,j;
  10. for(j=0;j<x;j++)  
  11.         for(i=0;i<110;i++);
  12. }

  13. /*******************************************************************
  14. ADC發送字節[命令]數據函數               
  15. *******************************************************************/
  16. bit ISendByte(unsigned char sla,unsigned char c)
  17. {
  18.    Start_I2c();              //啟動總線
  19.    SendByte(sla);            //發送器件地址
  20.    if(ack==0)return(0);
  21.    SendByte(c);              //發送數據
  22.    if(ack==0)return(0);
  23.    Stop_I2c();               //結束總線
  24.    return(1);
  25. }

  26. /*******************************************************************
  27. ADC讀字節數據函數               
  28. *******************************************************************/
  29. unsigned char IRcvByte(unsigned char sla)
  30. {  unsigned char c;

  31.    Start_I2c();          //啟動總線
  32.    SendByte(sla+1);      //發送器件地址
  33.    if(ack==0)return(0);
  34.    c=RcvByte();          //讀取數據0

  35.    Ack_I2c(1);           //發送非就答位
  36.    Stop_I2c();           //結束總線
  37.    return(c);
  38. }  


  39. /************主函數**********************/
  40. void main()
  41.     {
  42.          TMOD=0x20;
  43.          SCON=0x50;
  44.         TH1=0xFD;
  45.         TL1=0xFD;
  46.         TR1=1;
  47.          while(1)
  48.           {
  49.        ISendByte(PCF8591,0x43);
  50.        ad=IRcvByte(PCF8591);
  51.            SBUF=ad;
  52.            while(!TI);
  53.            TI=0;
  54.            delay(200);
  55.            delay(200);
  56.            delay(200);
  57.            delay(200);
  58.            delay(200);
  59.           
  60.           }
  61.     }
復制代碼

所有資料51hei提供下載(接收程序):
串口通信-雙機.rar (293.07 KB, 下載次數: 148)


回復

使用道具 舉報

ID:585483 發表于 2019-8-8 00:11 | 顯示全部樓層
非常感謝 希望有朝一日  我也能成為您這樣的大佬
回復

使用道具 舉報

您需要登錄后才可以回帖 登錄 | 立即注冊

本版積分規則

小黑屋|51黑電子論壇 |51黑電子論壇6群 QQ 管理員QQ:125739409;技術交流QQ群281945664

Powered by 單片機教程網

快速回復 返回頂部 返回列表