Convertidor A/D pic 12f675-16f628A

[p52besaj]

hola amigos, os dejo un código para que me ayudéis a terminarlo, porque no me compila.
Quiero diseñar un convertidor A/D con el pic 12f675 y con el pic 16f628A.

Mi circuito es un dimmer: el foco permanece en brillo alto con 42 V AC y en brillo bajo por debajo de los 26 V AC. Para el brillo bajo necesito disparar el triac a con un ángulo de retardo de 68.8º.
Mi código es el siguiente (para PIC 16f628A):
DEFINE PIC = 16F628A

luz var BYTE

TRISA = 0
TRISB = 1

ADCIN 0, luz

BRILLO ALTO:
PORTB.3= 1; aquí tengo 42V


BRILLO BAJO:
if luz < 153 then PORTB.3=0
pauseus 3811
PORTB.3=1
pauseus 6200
goto BRILLO BAJO
endif

goto BRILLO ALTO
END


GRACIAS A TODOS.

 

[chapin]

el pic 16f628A no tiene convertidores A/D , lo que si tiene son comparadores de tension. No te va a funcionar con ese pic.

 

[p52besaj]

hola amigos:

estoy tratando de diseñar un detector de cruce por cero para el pic 12f675 por interrupción externa. Por ello quiero disparar el triac durante 3 segundos una vez que la señal alterna haya pasado 16 veces por cero. Éste es el programa que he diseñado, pero no me funciona. Os agradezco de antemano vuestra generosa ayuda. incluyo documento adjunto que especifica el diseño de detector de cruce por cero. La salida de alimentación al pic es el puerto 3 (GPIO.4)

INTCON = %10110000
TRISIO = %0001011
OPTION_REG =%10100100
ADCON0 = 0
CMCON = 1

TMR0 = 0

busqueda_interrupciones:
GPIO.2 = 0
INTCON.7 = 1
goto busqueda_interrupciones
end

On interrupt

If INTCON.INTF = 1 Then
TMR0 = TMR0 + 1
if TMR0 = 16 Then

GPIO.4 = 1
Waitms 3000
GPIO.4 = 0
TMR0 = 0
Endif