找回密码
 立即注册

QQ登录

只需一步,快速开始

搜索
查看: 2429|回复: 3
收起左侧

检测0~20MA电流传感器报警控制程序

[复制链接]
ID:280979 发表于 2019-11-17 22:08 | 显示全部楼层 |阅读模式
功能如下:
1、24VDC供电,输入端可识别4-20mA信号输入,可以根据用户任意设定电流值,进行继电器报警输出,输出形式常开+常闭;
2、用来实现高于某电流值继电器断开,当低于设定电流值继电器闭合,进而导通回路。
//#include<reg52.h>
#include<STC12C2052AD.h>                 //库文件
#include<intrins.h>
#define uchar unsigned char //宏定义字符型变量
#define uint  unsigned int        //宏定义整型变量                                                                                                                                                                                                t

/*声明 SFR 相关 与 的 IAP*/
sfr IAP_DATA = 0xE2;
sfr IAP_ADDRH = 0xE3;
sfr IAP_ADDRL = 0xE4;
sfr IAP_CMD = 0xE5;
sfr IAP_TRIG = 0xE6;
sfr IAP_CONTR = 0xE7;


#define ADC_POWER   0x80            //ADC 电源控制位
#define ADC_FLAG    0x10            //ADC 转换结束标志位
#define ADC_START   0x08            //ADC 开始转换控制位
#define ADC_SPEEDLL 0x00            //210 个时钟周期转换一次
#define ADC_SPEEDL  0x20            //420 个时钟周期转换一次
#define ADC_SPEEDH  0x40            //630 个时钟周期转换一次
#define ADC_SPEEDHH 0x60            //840 个时钟周期转换一次

/********************************************************************
                             IO口定义
********************************************************************/
uchar s1=0;
bit  write=0;
uint txian;
uint ADdate;
uchar txian1,dxian1;
uchar T0RH=0,T0RL=0;
uint ms=0;
uchar A1,A2,A3,A4;
uchar B1,B2;
uchar C1,C2,C3,C4;

bit bz=0;
sbit P10=P1^0;//数码管段
sbit P11=P1^1;//数码管段
sbit P12=P1^2;//数码管段
sbit P13=P1^3;//数码管段
sbit P14=P1^4;//数码管段
sbit P15=P1^5;//数码管段
sbit P16=P1^6;//数码管段
sbit P17=P1^7;//AD信号输入

sbit P30=P3^0;//按键输入
sbit P31=P3^1;//按键输入
sbit P32=P3^2;//数码管位
sbit P33=P3^3;//数码管位
sbit P34=P3^4;//数码管位
sbit P35=P3^5;//数码管位
sbit P37=P3^7; //继电器输出
bit ts=0;

bit bz1=0;
bit bz2=0;
/********************************************************************
                            定义 ISP/IAP/EEPROM 命令
*********************************************************************/
#define CMD_IDLE 0
#define CMD_READ 1
#define CMD_PROGRAM 2
#define CMD_ERASE 3

#define ENABLE_IAP 0x83//SYSCLK<12MH
#define IAP_ADDRESS 0x0000        //存储地址


/********************************************************************
禁用 ISP/IAP/EEPROM functionmake 单片机 在 一 安全 状态
*********************************************************************/
void IapIdle()
{
    IAP_CONTR = 0;           //
        IAP_CMD = 0;           //
        IAP_TRIG = 0;           //
        IAP_ADDRH = 0x80;  //
        IAP_ADDRL = 0;           //
}

/********************************************************************
                             读数据
*********************************************************************/

uchar IapReadByte(uint addr)
{
   uchar dat;
   IAP_CONTR = ENABLE_IAP;
   IAP_CMD = CMD_READ;
   IAP_ADDRL = addr;
   IAP_ADDRH = addr >> 8;
   IAP_TRIG = 0x46;
   IAP_TRIG = 0xb9;
   _nop_();
   dat = IAP_DATA;
   IapIdle();
   return dat;
}
/********************************************************************
                               写数据
*********************************************************************/

void IapProgramByte(uint addr, uchar dat)
{
   IAP_CONTR = ENABLE_IAP;
   IAP_CMD = CMD_PROGRAM;
   IAP_ADDRL = addr;
   IAP_ADDRH = addr >> 8;
   IAP_DATA = dat;
   IAP_TRIG = 0x46;
   IAP_TRIG = 0xb9;
   _nop_();
   IapIdle();
}
/********************************************************************
                               擦除数据
*********************************************************************/

void IapEraseSector(uint addr)
{
   IAP_CONTR = ENABLE_IAP;
   IAP_CMD = CMD_ERASE;
   IAP_ADDRL = addr;
   IAP_ADDRH = addr >> 8;
   IAP_TRIG = 0x46;
   IAP_TRIG = 0xb9;
   _nop_();
   IapIdle();
}

/********************************************************************
                            初始定义
*********************************************************************/
code uchar seg7code[10]={ 0x84,0xf6,0x8a,0xa2,0xf0,0xa1,0x81,0xb6,0x80,0xa0}; //显示段码 数码管字跟

/********************************************************************
                            延时函数
*********************************************************************/
void delay(uchar t)
{
  uchar i,j;
   for(i=0;i<t;i++)
   {
            for(j=130;j>0;j--);
         { ;
         }
   }
}
/********************************************************************
                            显示函数 接通时间
*********************************************************************/        
//void tong(uchar tdate) //显示函数
void tong() //显示函数
{
          C3=txian%100/10;
          C4=txian%10;         
      P32=0;P33=0;P34=0;P35=0;
          P1=seg7code[0];
          P32=1;P33=0;P34=0;P35=0;
          delay(80);
          P32=0;P33=0;P34=0;P35=0;  
      P1=seg7code[0];
          P32=0;P33=1;P34=0;P35=0;
          delay(80);
          P32=0;P33=0;P34=0;P35=0;  
             P1=seg7code[C3];
          P32=0;P33=0;P34=0;P35=1;
          delay(80);
          P32=0;P33=0;P34=0;P35=0;  
             P1=seg7code[C4];
          P32=0;P33=0;P34=1;P35=0;
          delay(80);
          P32=0;P33=0;P34=0;P35=0;  
}
void tong1() //显示函数
{
          C3=A1%100/10;
          C4=A1%10;         
      P32=0;P33=0;P34=0;P35=0;
          P1=seg7code[0];
          P32=1;P33=0;P34=0;P35=0;
          delay(80);
          P32=0;P33=0;P34=0;P35=0;  
      P1=seg7code[0];
          P32=0;P33=1;P34=0;P35=0;
          delay(80);
          P32=0;P33=0;P34=0;P35=0;  
             P1=seg7code[C3];
          P32=0;P33=0;P34=0;P35=1;
          delay(80);
          P32=0;P33=0;P34=0;P35=0;  
             P1=seg7code[C4];
          P32=0;P33=0;P34=1;P35=0;
          delay(80);
          P32=0;P33=0;P34=0;P35=0;  
}

/********************************************************************
                         AD转换初始化程序
*********************************************************************/

void InitADC()
{
    P1 = P1M0 = P1M1 = 0xFf;        //设置P1口为开漏模式,使用AD功能
        ADC_DATA = 0;                   //AD数据寄存器清空
    ADC_CONTR = ADC_POWER | ADC_SPEEDLL;//打开AD电源,转换周期210
    delay(80);                       //延时
}

/********************************************************************
                         AD转换控制程序
*********************************************************************/


uchar GetADCResult(uchar px)          //转换输出的数据 (PX为通道口)
{
    ADC_CONTR = ADC_POWER | ADC_SPEEDLL |px| ADC_START;//开始转换
    _nop_();                        //延时一个机器周期
    _nop_();                                                //延时一个机器周期
    _nop_();                                                //延时一个机器周期
    _nop_();                                                //延时一个机器周期
    while (!(ADC_CONTR & ADC_FLAG));//等待转换结束
    ADC_CONTR &= ~ADC_FLAG;         //关闭AD转换
    return ADC_DATA;                //返回数据
}
                  
void key()
{
if(P30==0){tong1();}else{tong();}
if((P31==0)&&(bz2==0)){delay(80);if(P31==0){bz2=1;A1++;if(A1>=21){A1=0;};}}if((P31==1)&&(bz2==1)){delay(80);if(P31==1){bz2=0;write=1;}}
}

//定时器0初始化
void t0_init(unsigned char ms0)           //ms0最大71
{
        /***********************************************
        一个机器周期=12*时钟周期。
        11059200为时钟周期,一共为11059200/12=921600,就是每秒为921600Hz,
    八位定时器 最大计时     0.2777778ms
        十六位定时器最大计时          71.111111ms
        11.0592MHz除12为921600Hz,就是一秒921600次机器周期,10ms=9216次机器周期。
  65536-9216=56320(dc00)
  TH0=0xdc,TL0=0x00
        ***********************************************/
         long tmp;  //临时变量
     tmp = 11059200 / 12;
         tmp = (tmp * ms0) / 1000;
         tmp = 65536 - tmp;
         tmp = tmp + 3;
         T0RH = (unsigned char)(tmp>>8);
         T0RL = (unsigned char)tmp;                                          
     TMOD &=0XF0;
         TMOD |=0X01;  //方式一  一共四种方式   GATE0 C/T0  M0_1  M0_0         C/T0选择时钟计数还是外部计数  方式0是十三位定时器 ,方式1是十六位定时器,方式2是八位自动 方式4是两个八位
         TH0=T0RH;
         TL0=T0RL;
         ET0=1;   //使能T0中断
         EA=1;
         TR0=1;
}
/********************************************************************
                               主函数
*********************************************************************/
void main()

{   
    unsigned char flag=1,flag2=0;;
        B1 = IapReadByte(0x01);                //读取0x01中的数据  并附给ca
    A1=B1;
        InitADC(); //AD转换初始化
        P37=0;
        P1M0=0X80;
    P1M1=0XFF;
        P3M0=0X00;
    P3M1=0Xff;
        while(1)
        {
        txian=GetADCResult(7)/12;
    key();
   if(txian>=A1){P37=0;}else P37=1;
   if(write==1)
  {
   write=0;
   B1=A1;
   IapEraseSector(0);
   IapProgramByte(0x01,B1);

  }
        }                 
}


应用举例接线.JPG

检测0~20MA电流传感器报警控制.rar

41.92 KB, 下载次数: 52, 下载积分: 黑币 -5

数字量显示可编程模块原理图及PCB图.rar

228.61 KB, 下载次数: 49, 下载积分: 黑币 -5

回复

使用道具 举报

ID:65956 发表于 2019-11-18 08:17 | 显示全部楼层
谢谢分享,学习参考
回复

使用道具 举报

ID:99341 发表于 2019-11-18 12:23 | 显示全部楼层
能不能用AT89C2051直接代用
回复

使用道具 举报

ID:45334 发表于 2019-11-19 18:12 | 显示全部楼层
做人要厚道
回复

使用道具 举报

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

本版积分规则

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

Powered by 单片机教程网

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