indicateur de voltage barre-graphe

IL y a 2 semaines je présentais une alimentation variable éconmique et je concluais l'article en disant que je songeais à ajouter un indicateur de voltage barre-graphe. C'est chose faite.

Schématique

Description

La barre de LEDs contients 10 LEDs qui sont branchées en Charlieplexing sur GP0,GP1,GP2 et GP5. GP4 est configuré en entrée analogique pour la lecture du voltage de sortie de l'alimentation qui varie de 1,25 à 5,5 volt. Le circuit a son propre régulateur de tension 5 volt (7805) branché à la sortie du pont redresseur de l'alimentation.

L'échelle progresse par échelon de 0,5volt mais la logique du code est conçu de sorte que si la valeur lue tombe entre 2 LEDs, ces deux LEDs sont allumées. On a donc environ 0,25 volt de résolution.

Le convertisseur A/N du PIC12F675 a 10 bits de résolution mais le programme utilise seulement les 8 bits les plus significatifs. Ici le calcul pour déterminer quel LED allumée en fonction de la lecture est une simple règle de 3. LED=Vi*10/256. Le programme fait la multiplication par 10 mais il n'est pas nécessaire de faire la division puisque la variable PRODHI contient déjà le résultat de cette division après la multiplication.

Code source

; NOM: voltmeter ; DESCRIPTION: voltmètre numérique/analogique utilisant une barre de ; LEDs pour afficher le voltage. ; AUTEUR: Jacques Deschênes ; DATE: 2012-11-14 include <p12f675.inc> radix dec __config _WDTE_OFF & _FOSC_INTRCIO T0DLY EQU 5 ; macros case macro n, address xorlw n bz address xorlw n endm F_ALT EQU 0 ; indicateurs pour alternance entre 2 LEDS F_2LED EQU 1 ; indicateurs pour 2 LEDs allumés cblock H'20' flags:1 ; indicateurs booléins ledq:1 ; numéro du LED résultant du Quotient. led_no:1 ; numéro du LED allumé. PRODLO:1 ; registre 16 bits pour multiplication PRODHI:1 dlycnt:2 ; compteur pour délais lectures ADC temp:2 endc org 0 rst_vector goto init org 4 isr_vector movfw ledq movwf led_no movlw 1 xorwf flags, F btfss flags, F_ALT goto isr01 btfsc flags, F_2LED incf led_no, F isr01 call led_on movlw T0DLY banksel TMR0 addwf TMR0 bcf INTCON, T0IF retfie tris_table addwf PCL, F dt H'3F' ; no LED dt H'3C' ; LED 1 dt H'3C' ; LED 2 dt H'39' ; LED 3 dt H'1D' ; LED 4 dt H'3A' ; LED 5 dt H'39' ; LED 6 dt H'1B' ; LED 7 dt H'1E' ; LED 8 dt H'1B' ; LED 9 dt H'1D' ; LED 10 dt H'3F' ; no LED gpio_table addwf PCL, F dt H'00' ; no LED dt H'02' ; LED 1 dt H'01' ; LED 2 dt H'04' ; LED 3 dt H'20' ; LED 4 dt H'01' ; LED 5 dt H'02' ; LED 6 dt H'20' ; LED 7 dt H'01' ; LED 8 dt H'04' ; LED 0 dt H'02' ; LED 10 dt H'00' ; no LED ; led_no {0-11} ; 0 et 11 pas de LED d'allumé led_on movlw 0 banksel GPIO movwf GPIO movfw led_no call tris_table banksel TRISIO movwf TRISIO movfw led_no call gpio_table banksel GPIO movwf GPIO return ; 8x8 bits multiply PRODHI:PRODLO=PRODLO*W ; arguments PRODLO et W ; REF: http://www.piclist.com/techref/microchip/math/mul/8x8.htm multiply clrf PRODHI clrf temp bsf temp, 3 rrf PRODLO,F loop skpnc addwf PRODHI,F rrf PRODHI,F rrf PRODLO,F decfsz temp goto loop return readadc_delay ; délais ~20msec. clrf dlycnt movlw 20 movwf dlycnt+1 nop decfsz dlycnt goto $-2 decfsz dlycnt+1 goto $-4 return init banksel OPTION_REG clrf OPTION_REG banksel WPU clrf WPU banksel ANSEL movlw (1<<ANS3) + (1<<ADCS0) ; entrée analogique sur GP4 et ADCclk=sysCLK/8 movwf ANSEL banksel ADCON0 movlw H'D' ; cannal 3, lecture aligné à gauche, Vref=Vdd movwf ADCON0 bsf INTCON, T0IE ; activation interruption sur TMR0 bcf INTCON, T0IF banksel TMR0 movlw T0DLY movwf TMR0 bsf INTCON, GIE ; activation des interruptions main banksel ADCON0 bsf ADCON0, GO_NOT_DONE ; démarre lecture ADC banksel ADCON0 ; resélectionne au cas ou il y aurait eu une interruption btfsc ADCON0, GO_NOT_DONE ; attend que l'indicateur revienne à zéro. goto $-2 ; ce qui indique la fin de la conversion A/N. banksel ADRESH movfw ADRESH ; ne garde que les 8 bits plus significatif movwf PRODLO movlw 10 ; multiplie la lecture par 10 call multiply bcf flags, F_2LED movlw H'C0' andwf PRODLO, F xorwf PRODLO, F skpnz bsf flags, F_2LED bcf INTCON, T0IE movfw PRODHI ; divise par 256 (tout comme) movwf ledq banksel TMR0 movlw T0DLY movwf TMR0 bsf INTCON, T0IE call readadc_delay goto main end