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 entr analogique sur gp4 et adcclk="sysCLK/8" movwf ansel banksel adcon0 movlw h cannal lecture align gauche vref="Vdd" bsf intcon t0ie activation interruption tmr0 bcf t0if t0dly gie des interruptions main go_not_done d adc res au cas ou il y aurait eu une btfsc attend que l revienne z goto ce qui indique la fin de conversion a adresh movfw ne garde les bits plus significatif prodlo multiplie par call multiply flags f_2led andwf f xorwf skpnz prodhi divise comme ledq readadc_delay end></ans3></p12f675.inc>