metodologia

Objetivo
Construi una dispositivo electrónico de instrumentación capaz de medir capacitores con una alta precisión
Esto contriburira a la identificación de capacitores dañanados en tarjetas para su posterior reparación

Partes del proyecto electrónico o diagramas de bloques





Diagramas y circuitos implementados

Lista de componentes y precios
CANTIDAD
COMPONENTE
PRECIO (Bs)
1PIC16F877A
30
1
LCD
80
1
CRISTAL
4MHz
4
1
RESISTENCIA
10K
1
1
RESISTENCIA
1K

1
RESISTENCIA
1.2K

1
RESISTENCIA
3.3K

1
RESISTENCIA
5.6K

1
CAPACITOR
100nF
3
1
CAPACITOR
1uF





TOTAL
118

Explicación del funcionamiento de los circuitos
el circuito físico implementado es muy sencillo básicamente diseñado para identificar diferencias de tensión enlos pines 19 y 20 del microprocesador
el programa implementado en este circuito es el siguiente
CODIGO EN MICROBASIC
program CAPACIMETRO_DIGITAL
dim LCD_RS as sbit at RB4_bit
LCD_EN as sbit at RB5_bit
LCD_D4 as sbit at RB0_bit
LCD_D5 as sbit at RB1_bit
LCD_D6 as sbit at RB2_bit
LCD_D7 as sbit at RB3_bit

LCD_RS_Direction as sbit at TRISB4_bit
LCD_EN_Directionas sbit at TRISB5_bit
LCD_D4_Direction as sbit at TRISB0_bit
LCD_D5_Direction as sbit at TRISB1_bit
LCD_D6_Direction as sbit at TRISB2_bit
LCD_D7_Direction as sbit at TRISB3_bit



' 16F628A 20mhz config word 3F2A display lcd 2x24 standard
' Capacimetro 5000uf to 0.1uf
' Usa il comparatore del pic
' pin RA0 _ resistenza 1.4k al positivo del condensatore (altro capo' a massa)
' pin RA1 _ resistenza di sicurezza da 1k al cursore del
' potenziometro da 5k e provvede ad alimentare il pin a 2.
' pin RA2 _ resistenza di sicurezza da 1k al positive del
' condensatore
' Comparatore C2out = COMCON bit 7 quando e’ a 1 l’ingresso e’ uguale
' ATTENTIONE non misurare condensatori carichi
' Scaricarli prima di effettuare la misura
' Oltre 5v puo’ dannegiarsi ilpic.....
' La misura non sara’ precisa perche’ dipende da V e altri fattori


dim text as string[6]
dim counter as word
dim a,b ,scale as byte

sub procedure display
Lcd_Cmd(_LCD_CLEAR)
LCD_Out(1,1,"El capacitor es de...")
delay_ms(1500)
Lcd_Cmd(_LCD_CLEAR)

LCD_Out(1,1,"C=")
WordToStr(counter,text)
b=strlen(text) 'TIP al displayABCD,E
LCD_Out(2,5,text) 'display ABCDE
LCD_CMD(_Lcd_Move_Cursor_Left) 'cursore a sx di 1 posizione
LCD_CHR_CP(",") 'display ABCD,
LCD_CHR_CP(text[b-1]) 'display ABCD,E
LCD_Out(2,12,"uF")
end sub

' T =time cst = R*C dopo 5 T completamento carica (uf,k,ms)

main:

' Carica: Vc=Vo(1-e^t/RC)
' Scarica: Vc= e^(-t/RC)' Dopo 0.7T La U del Cond e’ 1/2 della U applicata (5v)
' infatti con V0 = 5V --> t=(ln5 – ln2,5)R*C = 0,69*1400ohm*10^-6F
' ottengo un tempo di circa 1/1000sec ? f=1000Hz a fronte di 1uF
' ra1 (comp-) e’ settato a 1/2 * 5v circa 2.5v col potenziometro

CMCON = %00000101
' ra0,ra3=Dig,ra1=An- ,ra2=An+ ,comparatore cmcon bit7= out
PORTA =$00
PORTB = $FF
portd= 255
' InizializzaPORTB

TRISA = %11111110
' ra0 output a R 1.4k usato x caricare e scaricare C
TRISB = 0 ' PORTB e’ output x lcd
Delay_ms(1000) ' delay lcd
Lcd_Init() ' rb2=R/S,rb3=EN,rb4-7=D4-7 lcd
Lcd_Cmd(_LCD_CLEAR)

while TRUE
ClearBit(PortA,0) ' scarica capacita’ su R 1.4k
LCD_Out(1,9,"Discha 1")
Delay_ms(1000) ' scaricaproporzionale alla C

' value
if counter > 500 then LCD_Out(1,9,"Scharica 1") Delay_ms(1000) end if

if counter > 1000 then LCD_Out(1,9,"Scharica 2") Delay_ms(1000) end if
if counter > 2000 then LCD_Out(1,9," Scharica 3") Delay_ms(1000) end if
if counter > 3000 then LCD_Out(1,9," Scharica 4") Delay_ms(1000) end if
if counter > 4000 then LCD_Out(1,9," Scharica 5") Delay_ms(1000)...