找回密碼
 立即注冊(cè)

QQ登錄

只需一步,快速開(kāi)始

搜索
查看: 9171|回復(fù): 1
收起左側(cè)

STC89C51單片機(jī)主從雙機(jī)藍(lán)牙通訊 發(fā)送與接收程序及仿真

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

單片機(jī)源程序(發(fā)射)如下:
  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發(fā)送字節(jié)[命令]數(shù)據(jù)函數(shù)               
  15. *******************************************************************/
  16. bit ISendByte(unsigned char sla,unsigned char c)
  17. {
  18.    Start_I2c();              //啟動(dòng)總線
  19.    SendByte(sla);            //發(fā)送器件地址
  20.    if(ack==0)return(0);
  21.    SendByte(c);              //發(fā)送數(shù)據(jù)
  22.    if(ack==0)return(0);
  23.    Stop_I2c();               //結(jié)束總線
  24.    return(1);
  25. }

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

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

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


  39. /************主函數(shù)**********************/
  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.     }
復(fù)制代碼

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


回復(fù)

使用道具 舉報(bào)

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

使用道具 舉報(bào)

本版積分規(guī)則

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

Powered by 單片機(jī)教程網(wǎng)

快速回復(fù) 返回頂部 返回列表