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

 找回密码
 立即注册

QQ登录

只需一步，快速开始

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

搜索
»论坛 › 嵌入式/单片机论坛 › PIC单片机 › PIC16F873A单片机的照度测量项目原理图与源代码
返回列表 发新帖
查看: 5316|回复: 1
收起左侧

PIC16F873A单片机的照度测量项目原理图与源代码

[复制链接]
ID:275894 发表于 2018-1-14 17:05 | 显示全部楼层 |阅读模式
基于PIC16F873A的照度测量C语言代码。
可以使用Labview以RS232接口和PC通信，并获取实时数据
1.png
2.png 0.png

单片机源程序如下:

  2. #include <pic.h>           //调用PIC16F87XA单片机的头文件


  5. __CONFIG(HS&WDTDIS&LVPDIS);

  7. #define U5A  RC0           //4位数码管单元的U5(74HC138)的A脚接在RB0口上
  8. #define U5B  RC1           //4位数码管单元的U5(74HC138)的B脚接在RB1口上
  9. #define U5C  RC2           //4位数码管单元的U5(74HC138)的C脚接在RB2口上

  11. unsigned char temp1;
  12. unsigned char temp2;

  14. const unsigned char LED[28]=
  15. {
  16. 0x3F,/*0*/        
  17. 0x06,/*1*/        
  18. 0x5B,/*2*/        
  19. 0x4F,/*3*/        
  20. 0x66,/*4*/        
  21. 0x6D,/*5*/        
  22. 0x7D,/*6*/        
  23. 0x07,/*7*/        
  24. 0x7F,/*8*/        
  25. 0x6F,/*9*/        
  26. 0x77,/*A*/        
  27. 0x7C,/*b*/        
  28. 0x39,/*C*/        
  29. 0x58,/*c*/        
  30. 0x5E,/*d*/        
  31. 0x79,/*E*/        
  32. 0x71,/*F*/        
  33. 0x76,/*H*/        
  34. 0x74,/*h*/        
  35. 0x38,/*L*/        
  36. 0x54,/*n*/        
  37. 0x37,/*N*/        
  38. 0x5C,/*o*/        
  39. 0x73,/*P*/        
  40. 0x50,/*r*/        
  41. 0x78,/*t*/        
  42. 0x3E,/*U*/        
  43. 0x40,/*-*/
  44. };
  45. //---------------------------------------
  46. //A/D转换用寄存器设置
  47. unsigned int  ADbuf;   //设置16位的unsigend int型寄存器用来暂存转换结果
  48. unsigned int adcbuf[16];


  51. void main(void)            //主函数,单片机开机后就是从这个函数开始运行
  52. {
  53.         unsigned char buf;   
  54.         unsigned char USARTbuf;

  56.     unsigned char c=0;     //定义一个char型变量，做延时用
  57.     unsigned char e=0;     //定义一个char型变量，做延时用

  59.         unsigned char i;
  60.         unsigned char b;
  61.         unsigned char d=0;     //定义一个char型变量，控制显示位置
  62.     TRISA=0B11111111;      //初始化RA5-RA0的输出方向
  63.    TRISC=0B11111000;           //RB0-3设置为输出
  64.         TRISB=0B00000000;           //RD设置为输出
  65.     PORTA=0B00000000;      //初始化RA5-RA0数值
  66.     PORTB=0B00000000;      //初始化RB7-RB0的数值
  67.     PORTB=0B00000000;      //初始化RD7-RD0的数值


  70.     //****A/D模块初始化****
  71.     //ADCON1=0B10001110;     //RA0为A/D输入口;ADFM=1,转换后数据右移,ADRESL为低8位数据
  72.      ADCON1=0B10001111;     //RA0为A/D输入口;ADFM=1,转换后数据右移,ADRESL为低8位数据
  73. //设置RA2=Vref-(GND),RA3=Vref+
  74. /*
  75. 详细分析该设置：
  76. ADFM=1,结果右移，ADRESH寄存器的高六位读作“0”
  77. bit6~4未用，以0设置
  78. bit3~0 RA0作为模拟信号输入端，其余引脚（RA1~7）都是数字信号输入端

  80. */

  82.     ADIE=0;                //禁止A/D中断
  83.     //*********************

  85.         //*****USART串口初始化*****
  86.     SPBRG=25;              //设置波特率为9600，误差0.16%
  87.     BRGH=1;                //设置高速波特率
  88.     SYNC=0;                //SYNC=0为异步模式，SYNC=1为同步模式
  89.     SPEN=1;                //允许串口操作
  90.     CREN=1;                //CREN=0禁止连续接收，CREN=1允许连续接收
  91.     TXIE=0;                //禁止发送中断
  92.     RCIE=0;                //禁止接收中断
  93.     TX9=0;                 //TX9=0为8位发送，TX9=1为9位发送
  94.     RX9=0;                 //RX9=0为8位接收，RX9=1为9位接收
  95.     TXEN=1;                //TXEN=0为禁止发送，TXEN=1为允许发送
  96.    

  98.     while(1)               //死循环,单片机初始化后,将一直运行这1个死循环
  99.     {
  100.                 for(i=0;i<16;i++)  //连续采样16次，然后取平均数
  101.                 {
  102.     //***启动一次A/D转换***
  103.                 ADCON0=0B00000001;     //选择AN0通道准备进行A/D转换,启动A/D模块
  104. /*
  105. 详细分析该设置：
  106. ADCS1:ADCS0=00,fosc/2;4MHz/2=2MHz?
  107. CHS2:CHS0=000,选择模拟通道RA0
  108. GO/DONE=0,未进行A/D转换，A/D转换完成后该位自动清零
  109. bit1=0,该位未用
  110. ADON=1，打开A/D转换器的工作状态
  111. */
  112.                 asm("NOP");            //略做延时
  113.                 asm("NOP");            //略做延时
  114.                 asm("NOP");            //略做延时
  115.                 asm("NOP");            //略做延时
  116.                 ADGO=1;                //开始进行A/D转换
  117.                 while(ADGO) continue;  //等待A/D转换结束
  118.                 adcbuf[i]=ADRESH*256+ADRESL;  
  119.            
  120.     //*********************   
  121.                 }
  122.                 ADbuf=0;
  123.                 for(i=0;i<16;i++)            
  124.                 {
  125.                         ADbuf+=adcbuf[i];           //把连续转换了16次的AD值加在一起
  126.                 }
  127.                 ADbuf=ADbuf/16;                 //除以16，算16次采样的平均值
  128.         
  129.                 ADbuf=(int)(((float)ADbuf/1023)*1000);            //将0-1023换算成电压值000-1000

  131.             temp1=ADbuf/100;
  132.             temp2=ADbuf%100;

  134.       if(ADbuf<999)
  135. {  

  137.          PORTB=0;           //关一次显示，以免显示出鬼影
  138.                if(++d>3) d=0;     //先将d加1，然后判断是否大于3，大于3归零
  139.                if(d==0)           //如果d=0,显示千位
  140.                {
  141.            U5A=0;         //U5A=0,U5B=0,U5C=0,选通数码管的千位进行显示
  142.            U5B=0;         //U5A=0,U5B=0,U5C=0,选通数码管的千位进行显示
  143.            U5C=0;         //U5A=0,U5B=0,U5C=0,选通数码管的千位进行显示
  144.            PORTB=LED[(ADbuf%10000)/1000];       //将要显示的f的千位提取出来查表后送显示
  145.                }
  146.                else if(d==1)      //如果d=1,显示百位
  147.                {
  148.            U5A=1;         //U5A=1,U5B=0,U5C=0,选通数码管的百位进行显示
  149.            U5B=0;         //U5A=1,U5B=0,U5C=0,选通数码管的百位进行显示
  150.            U5C=0;         //U5A=1,U5B=0,U5C=0,选通数码管的百位进行显示
  151.            PORTB=LED[(ADbuf%1000)/100]; //将要显示的f的百位提取出来查表后送显示
  152.                }
  153.                else if(d==2)      //如果d=2,显示十位
  154.                {
  155.            U5A=0;         //U5A=0,U5B=1,U5C=0,选通数码管的十位进行显示
  156.            U5B=1;         //U5A=0,U5B=1,U5C=0,选通数码管的十位进行显示
  157.            U5C=0;         //U5A=0,U5B=1,U5C=0,选通数码管的十位进行显示
  158.            PORTB=LED[(ADbuf%100)/10];   //将要显示的f的十位提取出来查表后送显示
  159.                }
  160.                else if(d==3)      //如果d=3,显示个位
  161.                {
  162.            U5A=1;         //U5A=1,U5B=1,U5C=0,选通数码管的个位进行显示
  163.            U5B=1;         //U5A=1,U5B=1,U5C=0,选通数码管的个位进行显示
  164.            U5C=0;         //U5A=1,U5B=1,U5C=0,选通数码管的个位进行显示
  165.            PORTB=LED[ADbuf%10];         //将要显示的f的个位提取出来查表后送显示
  166.                }
  167.   }   

  169. if(ADbuf>999)
  170. {
  171.          PORTB=0;           //关一次显示，以免显示出鬼影
  172.                if(++d>3) d=0;     //先将d加1，然后判断是否大于3，大于3归零
  173.                if(d==0)           //如果d=0,显示千位
  174.                {
  175.            U5A=0;         //U5A=0,U5B=0,U5C=0,选通数码管的千位进行显示
  176.            U5B=0;         //U5A=0,U5B=0,U5C=0,选通数码管的千位进行显示
  177.            U5C=0;         //U5A=0,U5B=0,U5C=0,选通数码管的千位进行显示
  178.            PORTB=LED[15];       //将要显示的f的千位提取出来查表后送显示
  179.                }
  180.                else if(d==1)      //如果d=1,显示百位
  181.                {
  182.            U5A=1;         //U5A=1,U5B=0,U5C=0,选通数码管的百位进行显示
  183.            U5B=0;         //U5A=1,U5B=0,U5C=0,选通数码管的百位进行显示
  184.            U5C=0;         //U5A=1,U5B=0,U5C=0,选通数码管的百位进行显示
  185.            PORTB=LED[15]; //将要显示的f的百位提取出来查表后送显示
  186.                }
  187.                else if(d==2)      //如果d=2,显示十位
  188.                {
  189.            U5A=0;         //U5A=0,U5B=1,U5C=0,选通数码管的十位进行显示
  190.            U5B=1;         //U5A=0,U5B=1,U5C=0,选通数码管的十位进行显示
  191.            U5C=0;         //U5A=0,U5B=1,U5C=0,选通数码管的十位进行显示
  192.            PORTB=LED[0];   //将要显示的f的十位提取出来查表后送显示
  193.                }
  194.                else if(d==3)      //如果d=3,显示个位
  195.                {
  196.            U5A=1;         //U5A=1,U5B=1,U5C=0,选通数码管的个位进行显示
  197.            U5B=1;         //U5A=1,U5B=1,U5C=0,选通数码管的个位进行显示
  198.            U5C=0;         //U5A=1,U5B=1,U5C=0,选通数码管的个位进行显示
  199.            PORTB=LED[10];         //将要显示的f的个位提取出来查表后送显示
  200. ……………………

  202. …………限于本文篇幅 余下代码请从51黑下载附件…………
复制代码

所有资料51hei提供下载:
illuminometer.rar (176.22 KB, 下载次数: 45)
回复

使用道具 举报

ID:606233 发表于 2020-5-25 07:09 | 显示全部楼层
谢谢分享
回复

使用道具 举报

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

本版积分规则

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

Powered by 单片机教程网

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