找回密码
 立即注册

QQ登录

只需一步,快速开始

搜索
查看: 30954|回复: 94
收起左侧

闲时做的一个电流 电压表头,用的stc15单片机

  [复制链接]
ID:57620 发表于 2017-3-1 12:59 | 显示全部楼层 |阅读模式
1488343160889_编辑.jpg 1488343178717_编辑.jpg 电压表头.png
做的电压表头,受限于单片机的AD转换精度是10位的,用5V电源,分辨率只有5MV.加了电流取样电路,也可以作为电流检测使用。如果需要高精度。设置了2.5V的431取样电路,可以把电源的变动矫正过来。也可以作为低电压检测用

源程序:
  1. /*   采用STC15W401AS单片机。12M晶振。三位数码管显示电压值。*/
  2.                                              
  3. #include "STC15F408.h"
  4. #include <intrins.h>

  5. #define uchar unsigned char  
  6. #define uint  unsigned int   


  7. #define ADC_POWER  0x80                   //AD电源控制位
  8. #define ADC_FLAG 0x10                           //转换结束标志位。1 结束
  9. #define ADC_START 0x08                           //开始转换位
  10. #define ADC_SPEEDLL 0x00                  //转换速度540个时钟
  11. uchar ADC_POSITION;               //0x00 AD通道位置P1.0, 0x01 AD通道位置P1.1

  12. sbit bai=P1^2;
  13. sbit shi=P1^4;
  14. sbit ge=P1^5;

  15. uchar s1,sec;
  16. uint adval=0;                   //AD转换值
  17. uint  show;            //电压值
  18. uint  show1;                     //基准电压

  19. uchar code table[]={0xF5,0x05,0xD3,0x57,0x27,0x76,0xF6,0x15,0xF7,0x77,0x40};          //P3数码管数字0-9
  20. uchar code table1[]={0xFD,0x0D,0xDB,0x5F,0x2F,0x7E,0xFE,0x1D,0xFF,0x7F,0x40};          //P3数码管数字0-9带小数点

  21. /*****************************************

  22. 系统初始化
  23. *****************************************/
  24. void system_init(void)
  25. {
  26.    
  27.    TMOD=0x01;                        //定时器0工作在方式1,的定时模式
  28.    ET0=1;                            //定时器0中断允许
  29.    EA=1;                             //系统中断允许
  30.    TR0=1;                            //定时器1和定时器0开始定时
  31.    TH0=(65536-30000)/256;                       //定时器0的初值30ms
  32.    TL0=(65536-30000)%256;                                 
  33.    sec=59;
  34.    P3M1=0x00;
  35.    P3M0=0xff;
  36.    P5M1=0x00;
  37.    P5M0=0xff;
  38.    P1M1=0x00;
  39.    P1M0=0x1c;
  40. }
  41. /********************************************************
  42. * 函数名称:delay
  43. * 输    入:z 延时时间
  44. * 输    出:无
  45. * 功能描述: 毫秒级延时
  46. ********************************************************/
  47. void delay(uchar n) //延时n ms
  48. {  
  49.     uchar a,b,c;
  50.     for(c=n;c>0;c--)
  51.         for(b=222;b>0;b--)
  52.             for(a=12;a>0;a--);
  53. }

  54. /********************显示温度值***************************/

  55. void display()
  56. {  
  57.   uchar c,d,e,f;
  58.   uint         su;
  59.   if(show1>850)
  60.      c=d=e=10;
  61.   else
  62.      {
  63.       su=show;
  64.           c=su/100;                    //分离温度的各位数值
  65.           f=su%100;
  66.           d=f/10;   
  67.           e=f%10;
  68.          }
  69.   P3=table1[c];                                                  //显示百位
  70.   P5=table[c];
  71.   bai=1;
  72.   delay(5);
  73.   bai=0;
  74.        
  75.   P3=table[d];                                        //显示十位
  76.   P5=table[d];
  77.   shi=1;
  78.   delay(5);
  79.   shi=0;
  80.        
  81.   P3=table[e];                                        //显示个位
  82.   P5=table[e];
  83.   ge=1;
  84.   delay(5);
  85.   ge=0;
  86.           
  87. }

  88. /*****************************************************
  89. ** 函数名称: void adc_isr() interrupt 5
  90. ** 功能描述: AD中断,获取AD数据
  91. ** 输   入: 无
  92. ** 输   出: show
  93. ** 全局变量: show
  94. ** 调用模块: Delay_ms
  95. ********************************************************/
  96. get_ad()
  97. {                   
  98.         ADC_CONTR=ADC_POWER|ADC_SPEEDLL|ADC_START|ADC_POSITION;     //启动ADC转换
  99.         _nop_();
  100.         _nop_();
  101.         _nop_();
  102.         _nop_();
  103.                                                              //默认ADRJ=0; 高8位+低2位
  104.             while(!(ADC_CONTR & ADC_FLAG));                      //等待ADC转换结束

  105.         ADC_CONTR &= ~ADC_FLAG;                              //必须软件清0
  106.             adval=ADC_RES;                                       //00000000 00000011  高8位
  107.             adval=ADC_RES<<2|ADC_RESL;                           //00000011 11111111 右对齐 高8位+低2位         // a|b;                                    
  108.                 adval=adval/1.024;        
  109.         return (adval);
  110. }

  111. /******************取20次AD转换值 求平均值*****************/
  112. AD_work()
  113. {
  114.         uint advalf=0;                    //定义处理后的数值AD_val为浮点数
  115.         uchar i;
  116.         for(i=0;i<50;i++)
  117.            {
  118.                 advalf=advalf+get_ad();   //转换20次求平均值(提高精度)
  119.                 delay(2);

  120. ………余下程序请下载附件………

复制代码

0.png
完整代码下载:
电压表头.rar (27.61 KB, 下载次数: 561)

评分

参与人数 1黑币 +100 收起 理由
admin + 100

查看全部评分

回复

使用道具 举报

ID:105451 发表于 2017-3-1 22:45 | 显示全部楼层
留一个记号,备用。
回复

使用道具 举报

ID:112693 发表于 2017-3-2 08:53 | 显示全部楼层
牛,楼主威武!!!
回复

使用道具 举报

ID:73795 发表于 2017-3-2 10:53 | 显示全部楼层
占个位置,回头再看
回复

使用道具 举报

ID:136688 发表于 2017-3-3 12:28 | 显示全部楼层
谢谢楼主分享!!!
回复

使用道具 举报

ID:113235 发表于 2017-3-30 11:05 | 显示全部楼层
谢谢分享,留个记号,准备试试
回复

使用道具 举报

ID:16695 发表于 2017-4-22 08:49 | 显示全部楼层
学习中,不错资料
回复

使用道具 举报

ID:187675 发表于 2017-4-22 21:05 | 显示全部楼层
留一个记号,备用。
回复

使用道具 举报

ID:135361 发表于 2017-6-5 13:45 | 显示全部楼层
非常好
回复

使用道具 举报

ID:102702 发表于 2017-6-5 16:46 | 显示全部楼层
楼主附个电路就好了
回复

使用道具 举报

ID:138707 发表于 2017-6-6 15:10 | 显示全部楼层
楼主附个电路就好了
回复

使用道具 举报

ID:68429 发表于 2017-9-25 19:45 来自手机 | 显示全部楼层
学习一下 谢谢
回复

使用道具 举报

ID:90566 发表于 2017-9-28 22:06 来自手机 | 显示全部楼层
收藏备用
回复

使用道具 举报

ID:236597 发表于 2017-9-29 16:14 | 显示全部楼层
....看起来非常不错·
回复

使用道具 举报

ID:231936 发表于 2017-9-29 16:31 | 显示全部楼层
发个电路图分享。
回复

使用道具 举报

ID:167337 发表于 2017-9-30 09:19 | 显示全部楼层
谢谢楼主分享好资源!没有电路原理图仿制有难度哦!
回复

使用道具 举报

ID:90566 发表于 2017-10-17 15:24 | 显示全部楼层
显示电流不】
回复

使用道具 举报

ID:95509 发表于 2017-10-18 13:44 | 显示全部楼层
谢谢楼主分享!!学习!
回复

使用道具 举报

ID:124729 发表于 2017-11-3 19:41 | 显示全部楼层
谢谢楼主分享,值得学习
回复

使用道具 举报

ID:76133 发表于 2017-11-16 14:52 | 显示全部楼层

谢谢楼主分享
回复

使用道具 举报

ID:76133 发表于 2017-11-16 14:53 | 显示全部楼层
谢谢楼主分享
回复

使用道具 举报

ID:76133 发表于 2017-11-17 11:18 | 显示全部楼层
谢谢楼主分享
回复

使用道具 举报

ID:250129 发表于 2017-12-2 21:15 | 显示全部楼层
谢谢,我也留个记号备用
回复

使用道具 举报

ID:34298 发表于 2017-12-8 16:32 | 显示全部楼层
测量范围是多少呢
回复

使用道具 举报

ID:64913 发表于 2017-12-8 23:29 | 显示全部楼层
测量范围是多少呢楼主。。。。。
回复

使用道具 举报

ID:289512 发表于 2018-3-9 16:22 | 显示全部楼层
谢谢分享,留个记号,准备试试
回复

使用道具 举报

ID:120014 发表于 2018-3-16 13:20 | 显示全部楼层
谢谢楼主分享.
回复

使用道具 举报

ID:34298 发表于 2018-3-17 10:25 | 显示全部楼层
范围多少
回复

使用道具 举报

ID:286719 发表于 2018-3-22 18:29 | 显示全部楼层
没有测试范围和电路图吗?
回复

使用道具 举报

ID:67356 发表于 2018-4-11 17:08 来自手机 | 显示全部楼层
谢谢,涨知识了,下载
回复

使用道具 举报

ID:335063 发表于 2018-10-30 06:46 来自手机 | 显示全部楼层
看着不错哦
回复

使用道具 举报

ID:66287 发表于 2018-10-31 09:51 | 显示全部楼层
楼主真牛!谢谢分享!
回复

使用道具 举报

ID:408833 发表于 2018-11-2 10:30 | 显示全部楼层
楼主可以帮我免费写个程序吗
回复

使用道具 举报

ID:149992 发表于 2018-12-18 20:00 | 显示全部楼层
谢谢楼主共享,先收藏
回复

使用道具 举报

ID:149992 发表于 2018-12-22 10:57 | 显示全部楼层
感谢楼主分享,确实能有个电路图就好了!!!
回复

使用道具 举报

ID:436591 发表于 2018-12-22 17:02 | 显示全部楼层
谢谢楼主分享,空了也整个玩玩。电压表电流表用的很多
回复

使用道具 举报

ID:288930 发表于 2019-1-19 13:34 | 显示全部楼层
谢谢分享!
回复

使用道具 举报

ID:412814 发表于 2019-2-1 20:32 | 显示全部楼层
谢谢楼主,学习了。
回复

使用道具 举报

ID:468209 发表于 2019-2-2 15:39 来自手机 | 显示全部楼层
支持一下
回复

使用道具 举报

ID:76133 发表于 2019-2-19 10:30 | 显示全部楼层
学习一下 谢谢
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

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

Powered by 单片机教程网

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