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

 找回密码
 立即注册

QQ登录

只需一步，快速开始

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

搜索
»论坛 › 嵌入式/单片机论坛 › 51单片机 › 基于STC89C51单片机的光强检测程序
返回列表 发新帖
查看: 1722|回复: 0
打印 上一主题 下一主题
收起左侧

基于STC89C51单片机的光强检测程序

[复制链接]
跳转到指定楼层
楼主
ID:952422 发表于 2021-7-20 09:56 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式
最近学习了AD 觉得光敏检测很有意思
于是就根据光敏检测的值点个灯吧

使用的普中51 A2开发板
原理图在附件

源代码 如下
  1. #include <reg52.h>

  3. #define XPT2046_VBAT 0xAC
  4. unsigned int ADvalue;
  5. unsigned int led_num=0;

  7. sbit XPT2046_CS=P3^5;  
  8. sbit XPT2046_DCLK=P3^6;
  9. sbit XPT2046_DIN=P3^4;
  10. sbit XPT2046_DOUT=P3^7;

  12. void Delay(unsigned int xms)
  13. {
  14.         unsigned char i, j;
  15.         while(xms--)
  16.         {
  17.                 i = 2;
  18.                 j = 239;
  19.                 do
  20.                 {
  21.                         while (--j);
  22.                 } while (--i);
  23.         }
  24. }

  26. unsigned int XPT2046_ReadAD(unsigned char Command)
  27. {
  28.         unsigned int ADValue=0;
  29.         unsigned char i;
  30.         XPT2046_DCLK=0;
  31.         XPT2046_CS=0;
  32.         
  33.         for(i=0;i<8;i++)
  34.         {
  35.                 XPT2046_DIN=Command&(0x80>>i);
  36.                 XPT2046_DCLK=1;
  37.                 XPT2046_DCLK=0;
  38.         }
  39.         
  40.         for(i=0;i<16;i++)
  41.         {
  42.                         XPT2046_DCLK=1;
  43.                         XPT2046_DCLK=0;
  44.                         if(XPT2046_DOUT)
  45.                         {
  46.                                 ADValue|=(0x8000>>i);
  47.                         }
  48.         }
  49.         XPT2046_CS=1;
  50.         return ADValue>>8;
  51. }

  53. void led_light()
  54. {
  55.         switch(led_num)
  56.         {
  57.                 case 1:P2=0xfe;break;
  58.                 case 2:P2=0xfc;break;
  59.                 case 3:P2=0xf8;break;
  60.                 case 4:P2=0xf0;break;
  61.                 case 5:P2=0xe0;break;
  62.                 case 6:P2=0xc0;break;
  63.                 case 7:P2=0x80;break;
  64.                 case 8:P2=0x00;break;
  65.         }
  66. }

  68. void pd()
  69. {
  70.         if(ADvalue>0&&ADvalue<=10)
  71.                 led_num=1;
  72.         else if(ADvalue>10&&ADvalue<=18)
  73.                 led_num=2;
  74.         else if(ADvalue>18&&ADvalue<=26)
  75.                 led_num=3;
  76.         else if(ADvalue>26&&ADvalue<=34)
  77.                 led_num=4;
  78.         else if(ADvalue>34&&ADvalue<=42)
  79.                 led_num=5;
  80.         else if(ADvalue>42&&ADvalue<=50)
  81.                 led_num=6;
  82.         else if(ADvalue>50&&ADvalue<=52)
  83.                 led_num=7;
  84.         else if(ADvalue>52)
  85.                 led_num=8;
  86. }

  88. void main()
  89. {
  90.         while(1)
  91.         {
  92.                 ADvalue=XPT2046_ReadAD(XPT2046_VBAT);
  93.                 Delay(5);
  94.                 pd();
  95.                 led_light();
  96.         }
  97. }
复制代码

Keil代码工程51hei附件下载：
光强灯.zip (20.84 KB, 下载次数: 25)
A2开发板原理图(1).pdf (227.86 KB, 下载次数: 16)

评分

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

查看全部评分

分享到:  QQ好友和群QQ好友和群 QQ空间QQ空间 腾讯微博腾讯微博 腾讯朋友腾讯朋友
收藏收藏1 分享淘帖 顶顶 踩踩
回复

使用道具 举报

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

本版积分规则

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

Powered by 单片机教程网

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