搜索
bottom↓
回复: 3

现在采用HR6P61L芯片搞个项目 大家谁有ADC的模块程序啊

[复制链接]
(272645746)

出0入0汤圆

发表于 2013-4-11 16:51:33 | 显示全部楼层 |阅读模式
如题,C语言和汇编都有最好了。多谢!
(272644891)

出0入0汤圆

发表于 2013-4-11 17:05:48 | 显示全部楼层
请版主上传个应用历程吧!
(272642142)

出0入0汤圆

发表于 2013-4-11 17:51:37 | 显示全部楼层
流浪飞鸟 发表于 2013-4-11 17:05
请版主上传个应用历程吧!

#include <HR6P61L.H>
#define uchar  unsigned char
#define uint   unsigned int


section1 uchar  ADC_Time_CNT;
section1 uchar  PA_Buf;
section1 uchar  PB_Buf;
section1 uint   ADC_One_Time_BUF;
section1 sbit   ADC_Display_ok;


union
{
         uint   temp;
        struct {
         uchar  temp_L;                        //低8位
         uchar         temp_H;                         //高8位
                                 }ADC_Result;
}ADC;







void  int_IO_RAM(void);
void  ADC_Work_PRO(void);
void  ADC_Result_Arrange(void);
void        ADC_Result_Display(void);




main()
{
        int_IO_RAM();
        while(1)
        {
                ADC_Work_PRO();
                if(ADC_Display_ok==1)
                        {
                                ADC_Display_ok=0;
                                ADC_Result_Arrange();
                                ADC_Result_Display();       
                        }
        }
}

void int_IO_RAM()
{
        __asm{               
                movi 0b00000001                        // 1010 1111    PA0-USB接口输出电压检测 PA1-
                                                                tris PA
                movi 0b11110000
                                                                tris PB
                         };       
        PA = 0x00;
        PAWPUC = 0b11111111;//无弱上拉使能
                                PB = 0x00;
        PBWPUC = 0b11111111;//无弱上拉使能
        ADCRL=0;
        ADCRH=0;
        ADC.ADC_Result.temp_L=0;
        ADC.ADC_Result.temp_H=0;
        ADC.temp=0;
        ADC_Time_CNT=0;
        
        
//初始化ADC模块  PA0/AN0通道设为ADC CHANNEL
        ADCC2=0b00000001;
        //ADC模块时钟设置寄存器 ADCS<7-5> 011=FOSC/8  100=FOSC/16 101=FOSC/32  ADIE=中断使能位 0=禁止 1=使能  <3-0>=未用
        ADCC1=0b10001111; //16分频     ADCC1=0b01101111;  // 8分频        ADCC1=0b10001111; 16分频
        // 右对齐ADFM=1  VCFG-VREF参考电压设置0-VDD 1-VREF ADIF=中断标志位 CHS<4-2>--000=通道0 001=通道1 GO/DONE=使能ADC转换 ADON=工作模块使能位
                          ADCC0=0b10000001;  //通道0    通道1  ADCC0=0b10000101;      
}


void ADC_Work_PRO()
{
        //初始化ADC模块  PA0/AN0通道设为ADC CHANNEL
  ADCC2=0b00000001;
        GO_DONE = 1;
        while(GO_DONE);
        ADC_One_Time_BUF=ADCRH;
        ADC_One_Time_BUF=ADC_One_Time_BUF<<8;
        ADC_One_Time_BUF+= ADCRL;
        ADC.temp+=ADC_One_Time_BUF;
        ADC_One_Time_BUF=0;
        ADC_Time_CNT++;
        if(ADC_Time_CNT>=8)
                {
                        ADC_Time_CNT=0;
                        ADC_Display_ok=1;
                        //初始化ADC模块  PA0/AN0通道设为ADC CHANNEL
      ADCC2=0b00000000;
                }
}

void ADC_Result_Arrange()
{
        //8次ADC累加和 除以8求平均值
        ADC.temp=ADC.temp>>3;
        //用于调整显示IO口 低8位为PB1 PB0 PA7 PA6 PA5 PA4 PA3 PA2   高2位为 PB3 PB2
        ADC.temp=ADC.temp<<1;
        PA_Buf=ADC.ADC_Result.temp_L;
                ADC.temp=ADC.temp<<1;
                PA_Buf&=0b00111111;
        PA_Buf|=(ADC.ADC_Result.temp_L&0b11000000);
        PB_Buf=ADC.ADC_Result.temp_H;
}


void ADC_Result_Display()
{
        PA=PA_Buf;
        PB=PB_Buf;
        ADC.temp=0;
}
(272641573)

出0入0汤圆

发表于 2013-4-11 18:01:06 | 显示全部楼层
汇编的程序供参考
ADC模块初始化:
BANK    2
        MOVI    0x1F                    ;设置AN0,AN1,AN2,AN3,AN4为模拟I/O口,AN5为数字I/O口
        MOVA    ADCC2                   ;
        CLR     ADCC0                   ;参考电压VDD,转换结果格式左对齐
        MOVI    0X80                    ;AD中断禁止,ADC时钟FOSC/16
        MOVA    ADCC1        

;AD采样子程序
;***********************************************************        
AD_SAMPLE        
        BANK    2                       ;取按键采集值,连续采6次,去掉最大最小,除以4
        CLR     ad_acc_l                ;清采样值累加寄存器
        CLR     ad_acc_h
        CLR     ad_count                ;清采样次数
FIRST_SAMPLE
        BSS     ADCC0,GO_DONE           ;启动第一次AD转换
        JBC     ADCC0,GO_DONE           ;检测启动位,转换完成该位自动清零,跳过下条指令
        JUMP    $-1                     ;转换没有完成返回上一条继续检测
        MOV     ADCRH,0                 ;第一次采样把结果赋给ad_max、ad_min和ad_acc_l
        MOVA    ad_max     
        MOVA    ad_min
        MOVA    ad_acc_l
LATTER_SAMPLE        
        BSS     ADCC0,GO_DONE           ;启动第2~6次AD转换
        JBC     ADCC0,GO_DONE           ;检测启动位,转换完成该位自动清零,跳过下条指令
        JUMP    $-1                     ;转换没有完成返回上一条继续检测
        MOV     ADCRH,0                 ;第二次采样把结果累加到ad_acc_l
        ADD     ad_acc_l,1
        JBC     PSW,C
        INC     ad_acc_h,1
COMPARE_MAX
        MOV     ad_max,0                ;如果此次采样值大于原来的ad_max,则取代原来的ad_max
        SUB     ADCRH,0
        JBS     PSW,C
        JUMP    COMPARE_MIN
        MOV     ADCRH,0
        MOVA    ad_max
COMPARE_MIN
        MOV     ADCRH,0                 ;如果此次采样值小于原来的ad_min,则取代原来的ad_min
        SUB     ad_min,0
        JBS     PSW,C
        JUMP    AD_RESULT
        MOV     ADCRH,0
        MOVA    ad_min
AD_RESULT
        INC     ad_count,1              ;记录AD采样的次数
        MOVI    .5
        SUB     ad_count,0              ;ad_count=9时结束AD采样
        JBS     PSW,Z
        JUMP    LATTER_SAMPLE           ;没到6次,继续采
                                        ;到6次,计算采样结果
        MOV     ad_max,0                ;从累加的结果中减去最大值和最小值
        SUB     ad_acc_l,1
        JBS     PSW,C
        DEC     ad_acc_h
        MOV     ad_min,0
        SUB     ad_acc_l,1
        JBS     PSW,C
        DEC     ad_acc_h
                                        ;<ad_acc_h:ad_acc_l>右移2次,即除以4
        BCC     PSW,C
        RR      ad_acc_h,1
        RR      ad_acc_l,1
        BCC     PSW,C
        RR      ad_acc_h,1
        RR      ad_acc_l,1
        
        MOV     ad_acc_l,0
        BANK    0
        MOVA    ad_resultbuf               ;最后采样的结果保存在ad_resultbuf里
        BANK    1
        MOVA    ad_resultbuf1               ;最后采样的结果保存在ad_resultbuf1里
        RETIA   0X00
回帖提示: 反政府言论将被立即封锁ID 在按“提交”前,请自问一下:我这样表达会给举报吗,会给自己惹麻烦吗? 另外:尽量不要使用Mark、顶等没有意义的回复。不得大量使用大字体和彩色字。
您需要登录后才可以回帖 登录 | 注册

本版积分规则

手机版|Archiver|amobbs.com 阿莫电子论坛 ( 公安交互式论坛备案:44190002001997 粤ICP备09047143号 )

GMT+8, 2021-12-1 07:47

© Since 2004 www.amobbs.com, 原www.ourdev.cn, 原www.ouravr.com

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