Si me refiero a la EEPROM, y precisamente hoy he encontrado la solucion que me comentas del grabador. tengo un pickit 2 y permite esa opción, gracias a los dos.
He modificado el programa añadiendo interupciones para gestionar mejor las lecturas de los ADC, que permiten modificar los valores de la entrega de potencia (es un mando de slot) y ahora me enfrento a un nuevo problema, resulta que mediante la simulacion en el PIC, parece funcionar todo bien , pongo el oscilador y veo la frecuencia de salida del PWM y regula bien, y en cambio pongo el PIC en el mando y a partir que incremento la entrada del ADC1 ya me entrega toda la potencia en el mando.
En cambio si reinstalo el programa tal como estaba anteriormente sin usar interrupciones funciona bien, ¿alguna idea de que hago mal o de que puede ser ?
Por cierto que el uso de la memoria EEPROM es porque me planteo hacer un nuevo mando que use un USB y poder grabar solo los datos de la memoria desde el PC (Casi na!!, y mas si ya me atasco ahora)
Sal U2
'***************************************************************************************
'NOMBRE: 16F88_MandoJEVO_01
'MICRO: PIC16f88
'Version: 2.0
'Utilización de interrupciones
''**************************************************************************************
Define CONF_WORD = 0x2f50
Define CONF_WORD_2 = 0x3ffc
Define CLOCK_FREQUENCY = 8
'Define ADC_SAMPLEUS = 10
'Define ADC_CLOCK = 5
Dim duty(15) As Byte 'Duty Cicle
Dim curva(15) As Byte 'Curva grabada
Dim vg As Byte 'Valor gatillo
Dim ca As Byte 'Curva actual
Dim cn As Byte 'Curva nueva
Dim mca As Byte 'Modificacion curva actual P5
Dim mcn As Byte 'Modificacion curva nueva P5
Dim asa As Byte 'Antispin Actual P4
Dim asn As Byte 'Antispin nuevo P4
Dim ai As Byte 'Contador inicio
Dim af As Byte 'Contador fin
Dim a As Byte 'contador
Dim b As Byte
Dim va(4) As Byte
Dim mc(3) As Byte
Dim i As Byte
'---------------Variables el timer-------------------
Dim t1_ms As Byte 'Base de tiempos del timer 1
Dim t1_ms_t As Byte 'Contiene el valor de t1_ms
Dim t2_ms As Byte 'Base de tiempos del timer 2
Dim t2_ms_t As Byte 'Contiene el valor de t2_ms
Dim t3_ms As Byte 'Base de tiempos del timer 3
Dim t3_ms_t As Byte 'Contiene el valor de t3_ms
'--------------Definición de puertos
ANSEL = %00100011 'Los pin digitales y NA5, NA1 y NA0 como analogicos
TRISB = %11110111 'Configuración input/output
TRISA = %11111111 'Configuración input/output
CMCON = 0x07 'Comparador a off
OSCCON = 0x7e 'Set intrc To 8mhz, se usara reloj interno a 8Mhz
ADCON0 = %00100001 'Fosc/16 a 8Mhz (ADCON1.ADCS2=1) =2uSeg (minimo 1.6uSeg), channel RA4
ADCON1 = %10000000 'Volt. ref.(AVdd/AVss), selec. de escala division clock/16 ADCON1.ADCS2=1, ADC a ON
'--------------Configuracion Interrupciones -----------------
T1CON.TMR1CS = 0 'asigna el reloj interno al timer 1, se incrementa cada ciclo de instruccion
T1CON.T1CKPS0 = 0 'Factor de preescaler del timer 1, 0
T1CON.T1CKPS1 = 0 'Factor de preescaler del timer 1, 0
TMR1H = 0xf8 'Carga el registro del contador para que desborde cada 1 msg. byte alto 248 x 256
TMR1L = 0x30 'Carga el registro del contador para que desborde cada 1 msg. byte bajo + 48
'-------------Carga los valores iniciales del timer ------------------------
t1_ms = 0
t2_ms = 0
t3_ms = 0
t1_ms_t = 3 'Valor para el timer del P4 Arranque
t2_ms_t = 5 'Valor para el timer del P5 Curva
t3_ms_t = 200 'Valor para el timer del selector de curva
'---------------------Habilita las interrupciones --------------------------------------
T1CON.TMR1ON = 1 'Habilita el timer 1, comienza a incrementar
PIE1.TMR1IE = 1 'Activa la interrupcion del timer
INTCON.PEIE = 1 'Bit de habilitación de interrupciones de perifericos
Enable 'INTCON.GIE habilita todas las interrupciones globales
'****************************************************************************
'Ver curva actual
Gosub vercurva
Gosub leermemoria
Gosub modificarcurva
Gosub modificararranque
'Activo el PWM
PWMon 1, 9
PWMduty 1, 0
'Rutina principal
loop:
'For i = 1 To 240 'Bucle solo para pruebas de tiempos
'Leo el valor del gatillo
ADCON0.CHS0 = 1 'Selecciono canal NA1 para el modulo ADC
ADCON0.CHS1 = 0
ADCON0.CHS2 = 0
'ADCON1.ADFM = 1 'Activaria lectura 10bit del ADC
ADCON1.ADFM = 0 'Activa lectura 8bit del ADC
ADCON0.GO = 1 'Activo una lectura
While ADCON0.GO = 1 'Espera hasta terminar la conversion ADC
Wend
'vg.HB = ADRESH 'ADC a 10bit
'vg.LB = ADRESL 'ADC a 10bit
vg = ADRESH 'ADC a 8 bit
Select Case vg
Case < 16
PWMduty 1, 0 'Freno
Case < 32
PWMduty 1, duty(0)
Case < 48
PWMduty 1, duty(1)
Case < 64
PWMduty 1, duty(2)
Case < 80
PWMduty 1, duty(3)
Case < 96
PWMduty 1, duty(4)
Case < 112
PWMduty 1, duty(5)
Case < 128
PWMduty 1, duty(6)
Case < 144
PWMduty 1, duty(7)
Case < 160
PWMduty 1, duty(8)
Case < 176
PWMduty 1, duty(9)
Case < 192
PWMduty 1, duty(10)
Case < 208
PWMduty 1, duty(11)
Case < 224
PWMduty 1, duty(12)
Case < 240
PWMduty 1, duty(13)
Case <= 255
PWMduty 1, duty(14)
EndSelect
If t1_ms >= t1_ms_t Then
'Leo el valor de p4 ADC 5
ADCON0.CHS0 = 1 'Selecciono canal AN5 para el modulo ADC
ADCON0.CHS1 = 0
ADCON0.CHS2 = 1
ADCON1.ADFM = 0 'Activa lectura 8bit del ADC
ADCON0.GO = 1 'Activo una lectura
While ADCON0.GO = 1 'Espera hasta terminar la conversion ADC
Wend
asn = ADRESH 'ADC a 8bit
If asn <> asa Then Gosub modificararranque
t1_ms = 0
Endif
If t2_ms >= t2_ms_t Then
'Leo el valor de p5 ADC 0
ADCON0.CHS0 = 0 'Selecciono canal AN0 para el modulo ADC
ADCON0.CHS1 = 0
ADCON0.CHS2 = 0
ADCON1.ADFM = 0 'Activa lectura 8bit del ADC
ADCON0.GO = 1 'Activo una lectura
While ADCON0.GO = 1 'Espera hasta terminar la conversion ADC
Wend
mcn = ADRESH 'ADC a 8bit
If mcn <> mca Then Gosub modificarcurva
t2_ms = 0
t1_ms = 0 'Esto lo hago para impedir que haga las dos lecturas en la misma interrupcion
'lo que convierte t1_ms en 5 tambien pero con un desfase de 2 ms
Endif
If t3_ms >= t3_ms_t Then
Gosub vercurva 'Comprueba que no se haya cambiado la curva
If cn <> ca Then Gosub leermemoria
t3_ms = 0
Endif
'next i 'Bucle para pruebas
Goto loop
End
'********************************************************
'Deteccion de la curva a leer
vercurva:
'Ver curva nueva
cn = 0
If PORTA.4 = 1 Then cn = cn + 1
If PORTA.3 = 1 Then cn = cn + 2
If PORTA.2 = 1 Then cn = cn + 4
If PORTA.5 = 1 Then cn = cn + 8
Return
leermemoria:
'Leer valores Guardados segun la curva a leer
ai = LookUp(0, 16, 32, 48, 64, 80, 96, 112, 128, 144, 160, 176, 192, 208, 224, 240), cn 'Posicion inicial de memoria donde leer
af = LookUp(14, 30, 46, 62, 78, 94, 110, 126, 142, 158, 174, 190, 206, 222, 238, 254), cn 'Posicion final de memoria donde leer
For a = ai To af
b = a - ai
Read a, duty(b)
curva(b) = duty(b)
Next a
'Genera los valores para las modificaciones de curvas
va(0) = (curva(10) - curva(4)) / 5 'Calculo maxima modificacion
va(1) = va(0) * 2 '(va(0) * 10) / 5 es el valor de correccion del 100 % multiplicado por 10
va(2) = va(0) '(va(0) * 10) / (2 * 5) es el valor de correccion del 50 % multiplicado por 10
va(3) = (va(0) * 10) / 15 '(va(0) * 10) / (3 * 5) es el valor de correccion del 30 % multiplicado por 10
ca = cn
Return
'*************************************************************
'Ajuste fino de la curva grabada
'Rutina para modificar el centro de la curva
modificarcurva:
Select Case mcn
Case < 22 'P -5
mc(0) = ((va(3) * 5) / 10)
mc(1) = ((va(1) * 5) / 10)
duty(5) = curva(5) - mc(0)
duty(6) = curva(6) - mc(1)
duty(7) = curva(7) - mc(1)
duty(8) = curva(8) - mc(1)
duty(9) = curva(9) - mc(0)
mca = mcn
Return
Case < 44 'P -4
mc(0) = ((va(3) * 4) / 10)
mc(1) = ((va(1) * 4) / 10)
duty(5) = curva(5) - mc(0)
duty(6) = curva(6) - mc(1)
duty(7) = curva(7) - mc(1)
duty(8) = curva(8) - mc(1)
duty(9) = curva(9) - mc(0)
mca = mcn
Return
Case < 66 'P -3
mc(0) = ((va(3) * 3) / 10)
mc(1) = ((va(1) * 3) / 10)
duty(5) = curva(5) - mc(0)
duty(6) = curva(6) - mc(1)
duty(7) = curva(7) - mc(1)
duty(8) = curva(8) - mc(1)
duty(9) = curva(9) - mc(0)
mca = mcn
Return
Case < 88 'P -2
mc(0) = ((va(3) * 2) / 10)
mc(1) = ((va(1) * 2) / 10)
duty(5) = curva(5) - mc(0)
duty(6) = curva(6) - mc(1)
duty(7) = curva(7) - mc(1)
duty(8) = curva(8) - mc(1)
duty(9) = curva(9) - mc(0)
mca = mcn
Return
Case < 110 'P -1
mc(0) = va(3) / 10
mc(1) = va(1) / 10
duty(5) = curva(5) - mc(0)
duty(6) = curva(6) - mc(1)
duty(7) = curva(7) - mc(1)
duty(8) = curva(8) - mc(1)
duty(9) = curva(9) - mc(0)
mca = mcn
Return
Case < 145 'P 0
duty(5) = curva(5)
duty(6) = curva(6)
duty(7) = curva(7)
duty(8) = curva(8)
duty(9) = curva(9)
mca = mcn
Return
Case < 165 'P +1
mc(0) = va(3) / 10
mc(1) = va(2) / 10
mc(2) = va(1) / 10
duty(5) = curva(5) + mc(0)
duty(6) = curva(6) + mc(1)
duty(7) = curva(7) + mc(2)
duty(8) = curva(8) + mc(1)
duty(9) = curva(9) + mc(0)
mca = mcn
Return
Case < 185 'P +2
mc(0) = ((va(3) * 2) / 10)
mc(1) = ((va(2) * 2) / 10)
mc(2) = ((va(1) * 2) / 10)
duty(5) = curva(5) + mc(0)
duty(6) = curva(6) + mc(1)
duty(7) = curva(7) + mc(2)
duty(8) = curva(8) + mc(1)
duty(9) = curva(9) + mc(0)
mca = mcn
Return
Case < 205 'P +3
mc(0) = ((va(3) * 3) / 10)
mc(1) = ((va(2) * 3) / 10)
mc(2) = ((va(1) * 3) / 10)
duty(5) = curva(5) + mc(0)
duty(6) = curva(6) + mc(1)
duty(7) = curva(7) + mc(2)
duty(8) = curva(8) + mc(1)
duty(9) = curva(9) + mc(0)
mca = mcn
Return
Case < 230 'P +4
mc(0) = ((va(3) * 4) / 10)
mc(1) = ((va(2) * 4) / 10)
mc(2) = ((va(1) * 4) / 10)
duty(5) = curva(5) + mc(0)
duty(6) = curva(6) + mc(1)
duty(7) = curva(7) + mc(2)
duty(8) = curva(8) + mc(1)
duty(9) = curva(9) + mc(0)
mca = mcn
Return
Case <= 255 'P +5
mc(0) = ((va(3) * 5) / 10)
mc(1) = ((va(2) * 5) / 10)
mc(2) = ((va(1) * 5) / 10)
duty(5) = curva(5) + mc(0)
duty(6) = curva(6) + mc(1)
duty(7) = curva(7) + mc(2)
duty(8) = curva(8) + mc(1)
duty(9) = curva(9) + mc(0)
mca = mcn
Return
EndSelect
Return
'*****************************************************************
'Ajuste del control de arrancada
modificararranque:
Select Case asn
Case < 25 'P 1
duty(0) = curva(0)
duty(1) = curva(1)
duty(2) = curva(2)
duty(3) = curva(3)
duty(4) = curva(4)
asa = asn
Return
Case < 50 'P 2
duty(0) = curva(0) + (((curva(1) - curva(0)) * 50) / 100)
duty(1) = curva(1)
duty(2) = curva(2)
duty(3) = curva(3)
duty(4) = curva(4)
asa = asn
Return
Case < 75 'P 3
duty(0) = curva(1)
duty(1) = curva(1) + (((curva(2) - curva(1)) * 40) / 100)
duty(2) = curva(2)
duty(3) = curva(3)
duty(4) = curva(4)
asa = asn
Return
Case < 100 'P 4
duty(0) = curva(1) + (((curva(2) - curva(1)) * 40) / 100)
duty(1) = curva(1) + (((curva(2) - curva(1)) * 80) / 100)
duty(2) = curva(2)
duty(3) = curva(3)
duty(4) = curva(4)
asa = asn
Return
Case < 125 'P 5
duty(0) = curva(1) + (((curva(2) - curva(1)) * 80) / 100)
duty(1) = curva(2)
duty(2) = curva(2) + (((curva(3) - curva(2)) * 40) / 100)
duty(3) = curva(3)
duty(4) = curva(4)
asa = asn
Return
Case < 150 'P 6
duty(0) = curva(2)
duty(1) = curva(2) + (((curva(3) - curva(2)) * 40) / 100)
duty(2) = curva(2) + (((curva(3) - curva(2)) * 80) / 100)
duty(3) = curva(3)
duty(4) = curva(4)
asa = asn
Return
Case < 175 'P 7
duty(0) = curva(2) + (((curva(3) - curva(2)) * 40) / 100)
duty(1) = curva(2) + (((curva(3) - curva(2)) * 80) / 100)
duty(2) = curva(3)
duty(3) = curva(3) + (((curva(4) - curva(3)) * 40) / 100)
duty(4) = curva(4)
asa = asn
Return
Case < 200 'p 8
duty(0) = curva(2) + (((curva(3) - curva(2)) * 80) / 100)
duty(1) = curva(3)
duty(2) = curva(3) + (((curva(4) - curva(3)) * 40) / 100)
duty(3) = curva(3) + (((curva(4) - curva(3)) * 80) / 100)
duty(4) = curva(4)
asa = asn
Return
Case < 225 'P 9
duty(0) = curva(3)
duty(1) = curva(3) + (((curva(4) - curva(3)) * 40) / 100)
duty(2) = curva(3) + (((curva(4) - curva(3)) * 80) / 100)
duty(3) = curva(4)
duty(4) = curva(4) + (((curva(5) - curva(4)) * 40) / 100)
asa = asn
Return
Case <= 255 'P 10
duty(0) = curva(3) + (((curva(4) - curva(3)) * 40) / 100)
duty(1) = curva(3) + (((curva(4) - curva(3)) * 80) / 100)
duty(2) = curva(4)
duty(3) = curva(4) + (((curva(5) - curva(4)) * 40) / 100)
duty(4) = curva(4) + (((curva(5) - curva(4)) * 80) / 100)
asa = asn
Return
EndSelect
Return
'----------------------- Interrupciones ------------------------------------------
On Interrupt
Save System
If PIR1.TMR1IF = 1 Then
If t1_ms < t1_ms_t Then t1_ms = t1_ms + 1
If t2_ms < t2_ms_t Then t2_ms = t2_ms + 1
If t3_ms < t3_ms_t Then t3_ms = t3_ms + 1
Endif
TMR1H = 0xf8 'Carga el registro del contador para que desborde cada 1 msg. byte alto 248 x 256
TMR1L = 0x30 'Carga el registro del contador para que desborde cada 1 msg. byte bajo + 48
PIR1.TMR1IF = 0 'Borra el flag del salto del tmr1
Resume
Pd: He actualizado el codigo según las indicaciones de Lince
