找回密码
 立即注册

QQ登录

只需一步,快速开始

搜索
查看: 43316|回复: 98
收起左侧

闲时做的一个电流 电压表头,用的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:70035 发表于 2025-11-25 13:20 | 显示全部楼层
电路图纸一并就更好了
回复

使用道具 举报

ID:59884 发表于 2025-11-20 13:36 | 显示全部楼层
谢谢楼主分享!
回复

使用道具 举报

ID:1107340 发表于 2025-9-18 20:42 | 显示全部楼层

感谢楼主分享,确实能有个电路图就好了!
回复

使用道具 举报

ID:195666 发表于 2024-12-27 11:28 | 显示全部楼层

楼主附个电路就好了
回复

使用道具 举报

ID:673647 发表于 2024-11-19 08:00 | 显示全部楼层
谢谢分享!学习一下!
回复

使用道具 举报

ID:43600 发表于 2024-11-19 01:39 | 显示全部楼层
程序很陽春,僅僅完成基礎功能,還需努力才有實用價值。
回复

使用道具 举报

ID:588624 发表于 2024-11-10 00:46 | 显示全部楼层
学习了,留着不时之需,感谢!
回复

使用道具 举报

ID:272119 发表于 2021-6-9 08:24 | 显示全部楼层
uchar ADC_POSITION;       ---- 请问这是默认0x00? 看一直没有赋值直接ad启动转换时调用.
回复

使用道具 举报

ID:835949 发表于 2021-6-8 23:12 | 显示全部楼层
PCB和图纸谁有画好的能分享吗?
回复

使用道具 举报

ID:933476 发表于 2021-6-5 17:59 | 显示全部楼层
虽然有点疑问,但很受用
回复

使用道具 举报

ID:353063 发表于 2021-6-2 09:20 | 显示全部楼层
刚学单片机,想收藏学习一下,可惜币不够
回复

使用道具 举报

ID:104472 发表于 2021-5-30 22:50 | 显示全部楼层
精彩,给伙伴点赞。
回复

使用道具 举报

ID:856401 发表于 2021-1-9 21:00 | 显示全部楼层
很好的东西,留下一个脚印。
回复

使用道具 举报

ID:86450 发表于 2021-1-8 06:58 | 显示全部楼层
占个位置,回头再看
回复

使用道具 举报

ID:26628 发表于 2021-1-7 15:13 | 显示全部楼层
mark 留用
回复

使用道具 举报

ID:381390 发表于 2020-12-30 17:46 | 显示全部楼层

学习一下 谢谢
回复

使用道具 举报

ID:45026 发表于 2020-8-4 15:19 | 显示全部楼层
很不错的东西,值得学习,。。。。。。。哈哈
回复

使用道具 举报

ID:672895 发表于 2020-4-15 17:14 | 显示全部楼层
留一个记号,备用
回复

使用道具 举报

ID:642957 发表于 2020-4-11 22:55 | 显示全部楼层
不错的电路,适合初学者
回复

使用道具 举报

ID:691573 发表于 2020-3-31 09:10 | 显示全部楼层
谢谢楼主分享,空了也整个玩玩。电压表电流表用的很多
回复

使用道具 举报

ID:675521 发表于 2020-3-29 18:38 | 显示全部楼层

留一个记号,备用。
回复

使用道具 举报

ID:100749 发表于 2020-3-21 12:46 来自触屏版 | 显示全部楼层
也想做一个,正在找资料
回复

使用道具 举报

ID:372579 发表于 2020-3-14 10:13 | 显示全部楼层
留着一哈偶备用
回复

使用道具 举报

ID:232619 发表于 2020-3-13 09:30 | 显示全部楼层
牛,楼主威武!!!
回复

使用道具 举报

ID:100749 发表于 2020-3-7 15:55 来自触屏版 | 显示全部楼层
回头有也做一个
回复

使用道具 举报

ID:702057 发表于 2020-3-4 07:54 来自触屏版 | 显示全部楼层
高啊!非常喜欢,有空一定试试!
回复

使用道具 举报

ID:697723 发表于 2020-3-1 21:26 来自触屏版 | 显示全部楼层
楼主确定用得是stc15w401as?是15w408as吧,程序不止k吧
回复

使用道具 举报

ID:327070 发表于 2020-2-2 16:08 | 显示全部楼层
学习一下谢谢
回复

使用道具 举报

ID:259035 发表于 2020-2-1 15:54 | 显示全部楼层

谢谢楼主分享!!!感谢楼主精彩分享
回复

使用道具 举报

ID:686739 发表于 2020-2-1 07:34 来自触屏版 | 显示全部楼层
学习了,谢谢楼主
回复

使用道具 举报

ID:381390 发表于 2020-1-8 18:58 | 显示全部楼层
谢谢楼主分享!!!
回复

使用道具 举报

ID:381390 发表于 2020-1-8 18:58 | 显示全部楼层
谢谢楼主分享!!!
回复

使用道具 举报

ID:675619 发表于 2019-12-27 19:14 | 显示全部楼层
收藏了,留着学习
回复

使用道具 举报

ID:671776 发表于 2019-12-27 11:04 | 显示全部楼层
谢谢,我也留个记号备用
回复

使用道具 举报

ID:602894 发表于 2019-12-27 06:38 来自触屏版 | 显示全部楼层
交流电流能显示吗
回复

使用道具 举报

ID:663561 发表于 2019-12-18 20:59 | 显示全部楼层
有个电路图就好啦
回复

使用道具 举报

ID:667494 发表于 2019-12-18 16:19 | 显示全部楼层
占个位置,回头再看
回复

使用道具 举报

ID:248392 发表于 2019-12-18 09:12 | 显示全部楼层
学习中,不错资料
回复

使用道具 举报

ID:617981 发表于 2019-11-5 13:01 | 显示全部楼层

谢谢楼主分享!!!
回复

使用道具 举报

ID:632444 发表于 2019-11-3 11:26 | 显示全部楼层
学习下,最近在琢磨电压无线回传,好玩
回复

使用道具 举报

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

本版积分规则

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

Powered by 单片机教程网

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