标题: 使用单片机+bh1750FVI光强传感控制灯的开关程序 [打印本页]
作者: jkla    时间: 2020-5-4 18:03
标题: 使用单片机+bh1750FVI光强传感控制灯的开关程序
给GY-30数字光强测量传感器写了一个驱动，根据IIC通信协议和GY-30的数据手册编写，期间一个问题缠绕我许久：每次接收完数据时，主机向从机发送一个ACK，很必要，要不然测出的数据不准确。我把测出的数据显示在了LCD1602上，并且可以根据光强值来控制灯的开关。后续我会推出控制灯的亮度的设计。数据手册和代码献上。


单片机源程序如下:
  1. #include "lcd.h"
  2. #include "BH1750FVI.h"

  4. uchar brach[] = {"Lighty Intensity"};
  5. uchar str[] = {"Lx"};
  6. uint dat;
  7. float Light_intensity = 0.0f;
  8. uchar Wr, Qr, Br, Sr, Gr;       //光强值的万位,千位,百位,十位,个位
  9. //uchar respond =0;                                //IIC调试用

  11. sbit Light = P2^2;

  13. void delay_ms(unsigned int k)
  14. {
  15.         unsigned int i, j;
  16.         for(i = 0; i < k; i++)
  17.         {
  18.                  for(j = 0; j < 121; j++);
  19.         }
  20. }

  22. void Sys_Init(void)
  23. {
  24.         Light = 1;
  25.         LcdInit();
  26.         BH1750_Init();
  27. }

  29. void Set_BH1750(void)
  30. {
  31.         WriteData_to_BH1750(0x01);
  32. //        respond = c;
  33.         WriteData_to_BH1750(0x10);  //设置为高分辨率模式
  34. //        respond        += 0x30;
  35.         delay_ms(180);
  36. }
  37. void datapros(uint Light_intensity)
  38. {
  39.         Wr = Light_intensity / 10000;
  40.         Wr = Wr + 0x30;
  41.         Qr = Light_intensity % 10000 / 1000;
  42.         Qr = Qr + 0x30;
  43.         Br = Light_intensity % 1000 / 100;
  44.         Br = Br + 0x30;
  45.         Sr = Light_intensity % 100 / 10;
  46.         Sr = Sr + 0x30;
  47.         Gr = Light_intensity % 10;
  48.         Gr = Gr + 0x30;       
  49. }
  50. void main(void)
  51. {
  52.         Sys_Init();
  53.         while(1)
  54.         {
  55.                  LcdShowStr(0,0,brach);
  56.                 Set_BH1750();
  57. //                DisplayOneChar(12,1,respond);   IIC调试用
  58.                 RecvData_f_BH1750();          //连续读数据
  59.                 dat = buff[0];
  60.                 dat = (dat << 8) | buff[1];

  62.                 Light_intensity = (float)dat / 1.2;
  63.                 datapros(Light_intensity);    //数据处理
  64.                 DisplayOneChar(3,1,Wr);
  65.                 DisplayOneChar(4,1,Qr);
  66.                 DisplayOneChar(5,1,Br);
  67.                 DisplayOneChar(6,1,Sr);
  68.                 DisplayOneChar(7,1,Gr);

  70.                 LcdShowStr(9,1,str);

  72.                 if(Light_intensity <= 20)
  73.                         Light = 0;
  74.                 else
  75.                         Light = 1;
  76.         }
  77. }
复制代码

所有资料51hei提供下载:
数字光强测量计.rar (40.75 KB, 下载次数: 28)
bh1750FVI-中文数据手册.pdf (1.5 MB, 下载次数: 14)


作者: jkla    时间: 2020-5-10 20:24
实际测试中出现了失误，最大值只测到54612lx，究其原因是换算公式中：Lighty_intensity = (float)dat / 1.2;
作者: jkla    时间: 2020-5-10 20:25
将1.2 改为1.0即可
作者: jkla    时间: 2020-5-10 20:26
实际测试中出现了错误，最大值为65535，但只能测到54612lx，究其原因是换算公式有问题：Lighty_intensity = （float）dat / 1.2; 将1.2改为1.0或者删除即可。



欢迎光临 (http://www.51hei.com/bbs/) Powered by Discuz! X3.1