找回密碼
 立即注冊

QQ登錄

只需一步，快速開始

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

藍牙+1602+8盞燈+蜂鳴器+指示燈+Proteus仿真程序

[復(fù)制鏈接]
ID:582515 發(fā)表于 2020-1-13 10:35 | 顯示全部樓層 |閱讀模式
通過手機APP(HC-06串口助手)連接藍牙模塊，發(fā)送0-9的數(shù)據(jù)，1602顯示出相應(yīng)的數(shù)據(jù)。

實物實現(xiàn)的結(jié)果

實物實現(xiàn)的結(jié)果

仿真原理圖如下（proteus仿真工程文件可到本帖附件中下載）
51hei.png

單片機源程序如下:
  1. #include<reg51.h>
  2. #include<intrins.h>
  3. #define uchar unsigned char
  4. #define uint unsigned int
  5. #define out P0
  6. sbit RS=P2^0;
  7. sbit RW=P2^1;
  8. sbit E=P2^2;
  9. sbit led8=P2^5;//指示燈
  10. sbit fmq=P2^4;        //蜂鳴器


  13. void delay(uint z)//延時函數(shù)
  14. {
  15.       uint x,y;
  16.         for(x=z;x>0;x--)
  17.                 for(y=120;y>0;y--);

  19. }


  22. void check_busy(void) //讀狀態(tài)
  23. {
  24.   uchar dt;
  25.   do
  26.   {
  27.     dt=0xff;
  28.         E=0;
  29.         RS=0;
  30.         RW=1;
  31.         E=1;
  32.         dt=out;
  33.   }while(dt&0x80);
  34.   E=0;
  35. }

  37. void write_command(uchar com)//寫命令
  38. {
  39.   check_busy();
  40.   E=0;
  41.   RS=0;
  42.   RW=0;
  43.   out=com;
  44.   E=1;
  45.   _nop_();
  46.   E=0;
  47.   delay(1);
  48. }

  50. void write_data(uchar dat)//寫數(shù)據(jù)
  51. {
  52.   check_busy();
  53.   E=0;
  54.   RS=1;
  55.   RW=0;
  56.   out=dat;
  57.   E=1;
  58.   _nop_();
  59.   E=0;
  60.   delay(1);
  61. }

  63. void LCD_initial(void)//初始化
  64. {
  65.         write_command(0x38);
  66.         _nop_();
  67.         write_command(0x0C);
  68.         _nop_();
  69.         write_command(0x06);
  70.         _nop_();
  71.         write_command(0x01);
  72.         delay(1);
  73. }

  75. void string(uchar ad,uchar *s)//顯示函數(shù)
  76. {
  77.         write_command(ad);
  78.         while(*s>0)
  79.         {
  80.                 write_data(*s++);
  81.                 delay(100);
  82.         }
  83. }

  85. void main()
  86. {
  87.   uchar temp=0;
  88.   TMOD=0x20;
  89.   TH1=0xfd;
  90.   TL1=0xfd;
  91.   SCON=0x50;
  92.   PCON=0x00;
  93.   TR1=1;
  94.   LCD_initial();

  96.                 string(0x80,"Bluetooth Test");
  97.                 string(0xc0,"Receive Figure:");
  98.   while(1)
  99.   {
  100.     while(RI==0);
  101.         RI=0;
  102.         temp=SBUF;
  103.         switch(temp)
  104.         {
  105.                 case 0:       
  106.                 write_command(0xcf);
  107.                 write_data('0'+temp);
  108.                 break;
  109.                
  110.                 case 1:
  111.                 write_command(0xcf);
  112.                 write_data('0'+temp);
  113.                 break;

  115.                 case 2:
  116.                 write_command(0xcf);
  117.                 write_data('0'+temp);
  118.                 break;

  120.                 case 3:
  121.                 write_command(0xcf);
  122.                 write_data('0'+temp);
  123.                 break;

  125.                 case 4:
  126.                 write_command(0xcf);
  127.                 write_data('0'+temp);
  128.                 break;

  130.                 case 5:
  131.                 write_command(0xcf);
  132.                 write_data('0'+temp);
  133.                 break;

  135.                 case 6:
  136.                 write_command(0xcf);
  137.                 write_data('0'+temp);
  138.                 break;

  140.                 case 7:
  141.                 write_command(0xcf);
  142.                 write_data('0'+temp);
  143.                 break;

  145.                 case 8:
  146.                 write_command(0xcf);
  147.                 write_data('0'+temp);
  148.                 break;

  150.                 case 9:
  151.                 write_command(0xcf);
  152.                 write_data('0'+temp);
  153.                 break;               
  154.         }
  155.   }
  156. }
復(fù)制代碼

所有資料51hei提供下載:
藍牙 1602 8盞燈 蜂鳴器 指示燈 仿真.zip (167.77 KB, 下載次數(shù): 51)

評分

參與人數(shù) 1黑幣 +50 收起 理由
admin + 50 共享資料的黑幣獎勵！

查看全部評分

回復(fù)

使用道具 舉報

ID:699249 發(fā)表于 2020-2-29 22:03 | 顯示全部樓層
好像沒有proteus的工程文件
回復(fù)

使用道具 舉報

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

本版積分規(guī)則

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

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

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