设为首页收藏本站
开启辅助访问 切换到宽版

 找回密码
 立即注册

QQ登录

只需一步，快速开始

热门： 51单片机 | 24小时必答区 | 单片机教程 | 单片机DIY制作 | STM32 | Cortex M3 | 模数电子 | 电子DIY制作 | 音响/功放 | 拆机乐园 | Arduino | 嵌入式OS | 程序设计

搜索
»论坛 › 嵌入式/单片机论坛 › 51单片机 › 蓝牙+1602+8盏灯+蜂鸣器+指示灯+Proteus仿真程序
返回列表 发新帖
查看: 3287|回复: 1
收起左侧

蓝牙+1602+8盏灯+蜂鸣器+指示灯+Proteus仿真程序

[复制链接]
ID:582515 发表于 2020-1-13 10:35 | 显示全部楼层 |阅读模式
通过手机APP(HC-06串口助手)连接蓝牙模块，发送0-9的数据，1602显示出相应的数据。

实物实现的结果

实物实现的结果

仿真原理图如下（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)//延时函数
  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) //读状态
  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)//写数据
  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)//显示函数
  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. }
复制代码

所有资料51hei提供下载:
蓝牙 1602 8盏灯 蜂鸣器 指示灯 仿真.zip (167.77 KB, 下载次数: 51)

评分

参与人数 1黑币 +50 收起 理由
admin + 50 共享资料的黑币奖励！

查看全部评分

回复

使用道具 举报

ID:699249 发表于 2020-2-29 22:03 | 显示全部楼层
好像没有proteus的工程文件
回复

使用道具 举报

返回列表 发新帖
高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

手机版|小黑屋|51黑电子论坛 |51黑电子论坛6群 QQ 管理员QQ:125739409;技术交流QQ群281945664

Powered by 单片机教程网

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