关于AD转换结果问题

windirection

关于AD转换结果问题 [复制链接]

 

;***********************************************************
                               org                          000h          ;定义程序存放区域的起始地址
                        goto                        main
                        org                        0004h
                        bcf                        pir1,0
                        bcf                        t1con,0
                               movlw                tmr1lb
                        movwf                tmr1l
                        movlw                tmr1hb
                          movwf                tmr1h
                        bsf                        t1con,0
                        comf                r1
                        btfsc                r1,0
                        bsf                        adcon0,2
                        retfie
main        nop
                      bsf                          status,5
                       movlw                 0x00
                       movwf                  trisd
                movlw                0x01
                       movwf                  trisa
                bsf                        pie1,0
                movlw                0x0e
                movwf                adcon1
                       bcf                          status,5     ;恢复到文件寄存器体0
                clrf                decimal
                clrf                hundred
                clrf                thousand
                clrf                r0
                movlw                0x0
                movwf                porta
                movwf                portd
                movlw                0x34
                movwf                t1con
                movlw                0xc0
                movwf                intcon
                movlw                tmr1lb
                movwf                tmr1l
                movlw                tmr1hb
                movwf                tmr1h
                bsf                        t1con,0
                movlw            0x41
                movwf                adcon0
start                nop
                        call                display
                        call                ad_conversion
                        goto                start
;******************************************
;*************ad conversion value*************
ad_conversion
                        btfsc                adcon0,2
                        goto                exit
                        movf                adresh,0
                        movwf                ad_value
                        clrf                decimal
                        clrf                hundred
                        clrf                thousand
                        clrf                r0
                        clrf                r
;*********************************************
                        movf                ad_value,0
                        sublw                ad_4v
                        btfsc                status,0
                        goto                next
                        movlw                0x04
                        movwf                thousand
                        movlw                ad_4v
                        subwf                ad_value,1
                        btfsc                status,2
                        goto                exit
                        goto                result
;**********************************************
next                        movf                ad_value,0
                        sublw                ad_3v
                        btfsc                status,0
                        goto                next0
                        movlw                0x03
                        movwf                thousand
                        movlw                ad_3v
                        subwf                ad_value,1
                        btfsc                status,2
                        goto                exit
                        goto                result
;*********************************************
next0                movf                ad_value,0
                        sublw                ad_2v
                        btfsc                status,0
                        goto                next1
                        incf                thousand
                        incf                thousand
                        movlw                ad_2v
                        subwf                ad_value,1
                        btfsc                status,2
                        goto                exit
                        goto                result
;*********************************************
next1                movf                ad_value,0
                        sublw                ad_1v
                        btfsc                status,0
                        goto                result
                        incf                thousand
                        movlw                ad_1v
                        subwf                ad_value,1
                        btfsc                status,2
                        goto                exit
                        goto                result
;*********************************
result                clrf                status
result0                movlw                0x02
                        addwf                decimal,1
                        decfsz                ad_value,1
                        btfsc                status,2
                        goto                result0
;*********************************
                        movf                decimal,0
                        movwf                r0
lp_deci                movf                r0,0
                        movwf                decimal
                        movlw                0x0a
                        subwf                r0,1
                        btfsc                status,0
                        goto                exit
                        incf                hundred
                        goto                lp_deci
;*****************************************
exit                        nop
                        return
;******************************************
;                                Display
;******************************************
display
               
                        movf                  decimal,0
            call        numb
            movwf                  portd
            movlw                  0x08
            movwf                  porta
            call   delay
;******************************************
                        movf                  hundred,0
            call        numb
            movwf                  portd
            movlw                  0x10
            movwf                  porta
            call   delay
;******************************************
                        movf                  thousand,0
            call        numb
            movwf                  portd
            movlw                  0x20
            movwf                  porta
            call   delay
                        return
;******************************************
;                                Delay
;******************************************
delay                  
                                movlw   0xff
                          movwf   71h
lp1                            decfsz    71h,1
                               goto     lp1
                               return     
;******************************************
;                                Table
;******************************************
numb                      addwf        pcl,1
                retlw        0x3f
                retlw        0x06
                retlw        0x5b
                retlw        0x4f
                retlw        0x66
                retlw        0x6d
                retlw        0x7d
                retlw        0x07
                retlw        0x7f
                retlw        0x6f
                        end

windirection

哪位大神帮忙看下，这程序里面有两个大问题：一是AD精度不高，现在还不知道问题在哪里；二是小数点后面两位显示的数字不会变化，好象是被赋了个固定值一样不会变，这个就是用红色显示的那段程序有问题。哪位大神帮忙看下啊

windirection

我的转换思路是这样的：首先让adresh的值去减4V的值的数据，如果没有进位，就说明比4V大，然后再看有没有Z置，如果有就说明是4V，否则剩下的数据每减一下movlw   0x02； addwf      decimal,1。3V,2V,1,一样的道理。最后decimal里面的值去减10，每减一次10，hundred里面就加1，从而得到最后的结果去显示。
我所说的精度差，并不是最低位为20mV,而是整位数显示就已经很大。
本来我是还设了一个mV位的，后面还有两位修正值。但程序总是不正常，调试都没有办法，所以全部减了

chenbingjy

看汇编让人头大

windirection

chenbingjy 发表于 2017-9-24 18:53
看汇编让人头大

大神，帮忙看下。

chenbingjy

用什么显示啊？数码管吗？

windirection

chenbingjy 发表于 2017-9-24 19:02
用什么显示啊？数码管吗？

是的

windirection

这个样子，后面两个数字一动不动，那段程序看上去也没有什么问题啊

chenbingjy

前面的看懂了，result                clrf                status
result0                movlw                0x02
                        addwf                decimal,1
                        decfsz                ad_value,1
                        btfsc                status,2
                        goto                result0、
这几句不懂。

windirection

chenbingjy 发表于 2017-9-24 19:24
前面的看懂了，result                clrf                status
result0                movlw         ...

这个是减整数剩的值啊，比如说4。XX，3。XX，2。XX，1。XX，0。XX减了整数，剩下了XX，里面的值再每减1，decimal就加2，就是20mV

chenbingjy

windirection 发表于 2017-9-24 20:03
这个是减整数剩的值啊，比如说4。XX，3。XX，2。XX，1。XX，0。XX减了整数，剩下了XX，里面的值再每减1， ...

你显示调好了吗？比如单独显示123，不加AD

windirection

chenbingjy 发表于 2017-9-24 20:16
你显示调好了吗？比如单独显示123，不加AD

不加AD没有问题，这个程序都是复制过来，做电子钟里面的Display里面的程序。

windirection

chenbingjy 发表于 2017-9-24 20:16
你显示调好了吗？比如单独显示123，不加AD

关掉AD就是全部显示0

chenbingjy

windirection 发表于 2017-9-24 20:30
关掉AD就是全部显示0

我以前也用过汇编的，时间很久了。
我有个想法，你可以先算整数，不管毫伏。粗略看看准不准
如果准了，再把后边毫伏加上。这样可能比较容易查问题。

windirection

chenbingjy 发表于 2017-9-24 20:35
我以前也用过汇编的，时间很久了。
我有个想法，你可以先算整数，不管毫伏。粗略看看准不准
如果准了， ...

现在这个程序就是这样啊。整数误差也很大，可以显示0，1，2，3，4啊，后面的数都显示不出来了

chenbingjy

windirection 发表于 2017-9-24 20:51
现在这个程序就是这样啊。整数误差也很大，可以显示0，1，2，3，4啊，后面的数都显示不出来了

整数误差大，你就得检查你的算法了。
你可以仿真吗？如果可以仿真的话，你可以人为的赋给AD一个值，这个值你是知道的。、

然后，用你这个计算的程序跑一下，如果和你预期的一致，那就说明是AD采样的问题。
否则，就是你这段计算程序有错。

windirection

chenbingjy 发表于 2017-9-24 20:56
整数误差大，你就得检查你的算法了。
你可以仿真吗？如果可以仿真的话，你可以人为的赋给AD一个值，这个 ...

不会仿真啊。

chenbingjy

windirection 发表于 2017-9-24 21:04
不会仿真啊。

软仿真也不会吗？就是不用接硬件的仿真，用MPLAB就可以。

windirection

chenbingjy 发表于 2017-9-24 21:10
软仿真也不会吗？就是不用接硬件的仿真，用MPLAB就可以。

没有搞过，

windirection

windirection 发表于 2017-9-24 21:18
没有搞过，

我现在用的就是MPLAB 8.92