我接一個放大電路讓電壓放大.用pic量測鋰電池電壓.把電
壓傳回vb上面秀出來.下面程式應該如何修改呢?可以幫幫
我嘛.
PROCESSOR P16F877
INCLUDE <P16F877.INC>
;連續取96點的資料在回傳至電腦
;中段時間&取樣時間點=10US
;PIC採20MHZ計時中斷0-->當作取樣時間
;在一次回傳96byte回電腦

#DEFINE SIMVAL .10 ;取樣點
#DEFINE AD_INT_START H'A0'
;數值儲存位址 <0A0H~EFH>
#DEFINE TX_DATA_REG H'A0'
;傳送資料起始傳送位址 <ADDRESS 0A0H>
#DEFINE USART_BOUND_RATE D'21' ;設定非
同步鮑率<57600BPS>

AD_CC EQU 20H
;A/D轉換完成值所暫存的位址
TX_DD EQU 22H
;判斷傳96筆資料給VB所暫存的位址
RC_DATA_2 EQU 26H
;
PORTD_OUT EQU 27H


ORG 0000H
NOP
GOTO MAIN_ST

;------------------------------------------------中斷程式
ORG 0004H
NOP
BANKSEL ADCON0
AD_TRN
BSF ADCON0,GO
;開始轉換
BTFSC ADCON0,GO
;判斷是否轉換完成
GOTO $-1
MOVF ADRESH,W ;A/D
Result Register
MOVWF AD_CC
CALL SAVEINT
;呼叫續存96筆資料副程式
EE_END
BCF PIR1,TMR2IF
;RESET TIMER2
BANKSEL PIE1
RETFIE

;------------------------------------------------程式啟始
MAIN_ST
CALL SET232
;設定RS232參數，啟動GIE、PEIE
BANKSEL PR2
;設定週期PR2-->>BNAK1
MOVLW SIMVAL
;剛好為1/60/128=130Us取樣時間
MOVWF PR2
BANKSEL TRISD

MOVLW H'00'
;設定PORTD為輸出模式
MOVWF TRISD
BANKSEL T2CON
MOVLW B'00000101' ;1:4預
除、1:1後除
MOVWF T2CON
;設定TIMER2
MAIN
MOVLW D'80'
MOVWF TX_DD
MOVLW H'00'
MOVWF RC_DATA_0
MOVWF RC_DATA_1
MOVWF RC_DATA_2
MAIN1
CALL RC_IN
;呼叫資料接收副程式

MOVF RC_DATA_2,W
;比對是否已按了顯示控制波型(I'73')
SUBLW D'73'
BTFSS STATUS,Z
GOTO $+3
CALL AD1
;啟用AD轉換器CH1
GOTO MAIN3
MOVF RC_DATA_2,W
;比對是否已按了顯示輸入波型(J'74')
SUBLW D'74'
BTFSS STATUS,Z
GOTO $+3
CALL AD0
;啟用AD轉換器CH0
GOTO MAIN3
MOVF RC_DATA_2,W
;比對是否已按了顯示輸出波型(K'75')
SUBLW D'75'
BTFSS STATUS,Z
GOTO MAIN2
CALL AD3
;啟用AD轉換器CH3
GOTO MAIN3

MAIN2
MOVF RC_DATA_1,W
SUBLW D'55'
CALL DUTY_CYCLE
MOVWF PORTD_OUT
MOVF RC_DATA_0,W
SUBLW D'69'
CALL FREQUENCY
IORWF PORTD_OUT,W
MOVWF PORTD
GOTO MAIN1

MAIN3
MOVLW AD_INT_START
;數值儲存起始位址
MOVWF FSR

BANKSEL PIE1
BSF PIE1,TMR2IE
;啟動計時中斷2
BTFSC PIE1,TMR2IE
;判斷是否已續存128筆資料
GOTO $-1
MOVLW TX_DATA_REG
;數值儲存起始位址
MOVWF FSR
CALL TX_OUT
;呼叫資料傳送副程式
DECFSZ TX_DD
;判斷是否續傳96筆資料回VB
GOTO $-2
GOTO MAIN

--------------------------------------------------------------------------------
想哭 位置：61.219.150.130 時間：2004/09/28-03:59:21
回應主題：RE:徵高手,如何書寫pic程式.來量測鋰電池電壓 第 6 篇回應

;------------------------------------------------設定RS232參數，啟
動GIE、PEIE副程式
SET232
BANKSEL SPBRG ;BANK1
MOVLW USART_BOUND_RATE ;設定非
同步鮑率<57600BPS>
MOVWF SPBRG
;
MOVLW B'00100100' ;載入常
數24H到TXSTA
MOVWF TXSTA
BANKSEL RCSTA
;BANK0
MOVLW B'10010000'
MOVWF RCSTA
BANKSEL PIE1
;BANK1
MOVLW B'11000000' ;致能全
域及通訊埠接收中斷
MOVWF INTCON

RETURN

;------------------------------------------------判斷及續存128筆資
料副程式
SAVEINT
MOVF AD_CC,W
MOVWF INDF
INCF FSR,F
;將FSR位址指向下一個位址
MOVF FSR,W

SUBLW H'F0'
BTFSS STATUS,Z ;判斷是
否已續存96筆資料
GOTO ASDOUT
BANKSEL PIE1
BCF PIE1,TMR2IE
;停止計時中斷2
ASDOUT
CLRF STATUS
RETURN

;------------------------------------------------AD0轉換副程式
AD0
;使用CH0通道
BANKSEL ADCON1
; ADCON1 is in bank1 ; 3 ch(AN0)/0 refs
MOVLW B'00000100' ; select
left(0) justified (d7)
MOVWF ADCON1
BANKSEL ADCON0
MOVLW B'10000001' ; select
Fosc/8(01), AN0(000)
MOVWF ADCON0
; a/d done(2), x(0), a/d ON(1)
BSF STATUS,RP0
BSF TRISA,0
BCF STATUS,RP0
RETURN

;------------------------------------------------AD1轉換副程式
AD1
;使用CH1通道
BANKSEL ADCON1
; ADCON1 is in bank1 ; 3 ch(AN0)/0 refs
MOVLW B'00000100' ; select
left(0) justified (d7)
MOVWF ADCON1
BANKSEL ADCON0
MOVLW B'10001001' ; select
Fosc/8(01), AN0(000)
MOVWF ADCON0
; a/d done(2), x(0), a/d ON(1)
BSF STATUS,RP0
BSF TRISA,1
BCF STATUS,RP0
RETURN


--------------------------------------------------------------------------------
想哭 位置：61.219.150.130 時間：2004/09/28-03:59:41
回應主題：RE:徵高手,如何書寫pic程式.來量測鋰電池電壓 第 7 篇回應

;------------------------------------------------AD3轉換副程式
AD3
;使用CH0通道
BANKSEL ADCON1
; ADCON1 is in bank1 ; 3 ch(AN0)/0 refs
MOVLW B'00000100' ; select
left(0) justified (d7)
MOVWF ADCON1
BANKSEL ADCON0
MOVLW B'10011001' ; select
Fosc/8(01), AN0(000)
MOVWF ADCON0
; a/d done(2), x(0), a/d ON(1)
BSF STATUS,RP0
BSF TRISA,3
BCF STATUS,RP0
RETURN

;------------------------------------------------接收VB資料副程式
RC_IN

CLRF STATUS

BTFSS PIR1,RCIF ;判斷
PIR1,RCIF是否有接收到一筆資料
GOTO $-1

MOVF RCREG,W

MOVWF RC_DATA_0
;把接收到的資料儲存至RC_DATA_0
CLRF STATUS
;
BTFSS PIR1,RCIF ;判斷
PIR1,RCIF是否有接收到一筆資料
GOTO $-1

MOVF RCREG,W

MOVWF RC_DATA_1
;把接收到的資料儲存至RC_DATA_1
CLRF STATUS
BTFSS PIR1,RCIF ;判斷
PIR1,RCIF是否有接收到一筆資料
GOTO $-1

MOVF RCREG,W

MOVWF RC_DATA_2
;把接收到的資料儲存至RC_DATA_1
CLRF STATUS
RETURN

;------------------------------------------------資料傳送回VB副程
式
TX_OUT
MOVF INDF,W
BANKSEL TXREG
MOVWF TXREG
;USART Transmit Data Register
BTFSS PIR1,TXIF ;延遲時
間到STOP-BIT傳送完畢
GOTO $-1
BCF PIR1,TXIF
BSF STATUS,RP0
BTFSS TXSTA,TRMT
;延遲時間到TXSR移出所有資料
GOTO $-1
BCF TXSTA,TRMT
INCF FSR,F
CLRF STATUS
RETURN
END