标题: 用单片机对机械式电度表进行改进 附源程序 [打印本页]
作者: 风158    时间: 2018-8-11 13:45
标题: 用单片机对机械式电度表进行改进 附源程序
电动车是吃得多才能跑的远，为方便测试电动车电瓶的容量，前段时间在某宝入手了一个机械式电度表，到手只有十几元。不过便宜没好货，这货经常停走。检查发现是机械计数器阻力太大造成的。于是采用单片机对其进行改进，改进思路是用单片机记录电度表的光耦输出脉冲，转换成电度数用数码管显示出来。另外还分时显示了充电器功率（瓦数）和充电时间（小时数）。程序见附件。


单片机源程序如下:
  1. #define MAIN_Fosc                11059200L        //定义主时钟
  2. //#include<reg52.h>
  3. #include        "STC15Fxxxx.H"
  4. #define uchar unsigned char
  5. #define uint unsigned int

  7. sbit COUNT_IN=P3^2;
  8. unsigned code table[]={0xc0,0xf9,0xa4,0xb0,0x99,0x92,0x82,0xf8,0x80,0x90};
  9. #define   DataPort P1;
  10. sbit led1=P3^4;
  11. sbit led2=P3^5;
  12. sbit led3=P3^6;
  13. sbit led4=P3^7;

  15. unsigned long count;
  16. unsigned long  kwh;
  17. unsigned int w,h;
  18. float s;
  19. bit flag;

  21. void init()
  22. {
  23.    IT0=1;        //INT0负跳变触发        
  24.    TMOD=0x01;//定时器工作于方式1
  25.    TH0=0x3c;          //50ms
  26.    TL0=0xb0;
  27.    EA=1; //CPU开中断总允许
  28.    ET0=1;//开定时中断
  29.    EX0=1;//开外部INTO中断
  30.    TR0=1;//启动定时
  31. }
  32. //========================================================================
  33. // 函数: void  Delayms(unsigned int ms)
  34. // 描述: 延时函数。
  35. // 参数: ms,要延时的ms数, 这里只支持1~65535ms. 自动适应主时钟.
  36. // 返回: none.
  37. // 版本: VER1.0
  38. // 日期: 2013-4-1
  39. // 备注:
  40. //========================================================================
  41. void  Delayms(unsigned int ms)
  42. {
  43.      unsigned int i;
  44.          do{
  45.              i = MAIN_Fosc / 13000;
  46.                   while(--i)        ;   //14T per loop
  47.      }while(--ms);
  48. }
  49. //**********************************************
  50. void EXINT0() interrupt 0
  51. {
  52. //  kwh=kwh+.000625;
  53.   count++;         //累计电度表输出脉冲个数
  54. }

  56. void time0() interrupt 1
  57. {
  58.   TH0=0x3c;
  59.   TL0=0xb0;         //50ms（实测每次循环52.9514ms，使用STC15W408AS内部时钟，11.0592Mhz，环境温度29℃）
  60.   s=s+.0529514;          //累计秒数
  61. }

  63. void display_SMG_kwh(void)
  64. {
  65.    P1=table[kwh/1000];
  66.    led1= 0;
  67.    Delayms(5);
  68.    led1 = 1;

  70.    P1=table[kwh%1000/100]&0x7f;
  71.    led2 = 0;
  72.    Delayms(5);
  73.    led2 = 1;

  75.    P1=table[kwh%100/10];
  76.    led3 = 0;
  77.    Delayms(5);
  78.    led3 = 1;

  80.    P1=table[kwh%10];
  81.    led4 = 0;
  82.    Delayms(5);
  83.    led4 = 1;
  84. }

  86. void display_SMG_w(void)
  87. {
  88.    P1=table[w%10000/1000];
  89.    led1= 0;
  90.    Delayms(5);
  91.    led1 = 1;

  93.    P1=(table[w%1000/100]);
  94.    led2 = 0;
  95.    Delayms(5);
  96.    led2 = 1;

  98.    P1=table[w%100/10];
  99.    led3 = 0;
  100.    Delayms(5);
  101.    led3 = 1;

  103.    P1=table[w%10];
  104.    led4 = 0;
  105.    Delayms(5);
  106.    led4 = 1;
  107. }

  109. void display_SMG_h(void)
  110. {
  111.    P1=0x8b;
  112. //   P1=table[h/1000];
  113.    led1= 0;
  114.    Delayms(5);
  115.    led1 = 1;

  117.    P1=table[h%1000/100];
  118.    led2 = 0;
  119.    Delayms(5);
  120.    led2 = 1;

  122.    P1=table[h%100/10]&0x7f;
  123.    led3 = 0;
  124.    Delayms(5);
  125.    led3 = 1;

  127.    P1=table[h%10];
  128.    led4 = 0;
  129.    Delayms(5);
  130.    led4 = 1;
  131. }

  133. void main()
  134. {
  135.   unsigned char a;
  136.   init();
  137.   while(1)
  138.   {
  139.    for(a=0;a<=50;a++)
  140.    {
  141.     kwh=count*.0625;               //用电度数=电度表闪灯次数*.000625kwh/1000*100，(2位小数)
  142.     display_SMG_kwh();
  143.    }
  144.    for(a=0;a<=50;a++)
  145.    {
  146.     w=kwh*1000*3600/s;                   //用电瓦数=累计千瓦时*1000*3600/累计秒数
  147.     display_SMG_w();
  148.    }
  149.    for(a=0;a<=50;a++)
  150.    {
  151.     h=s/360;                            //用电小时数=累计秒数/3600*10,(1位小数)
  152. ……………………

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

所有资料51hei提供下载:
STC15W408AS+电度表smg4.rar (47.84 KB, 下载次数: 17)


作者: zmc419    时间: 2022-11-2 09:37
请介绍的再详细些，多上些图。



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