PROBLEMAS CON PIC SIMULATOR Y WAITMS.

[velaki]

HOLA AMIGOS, estoy volviendome loco con un codigo que he hecho en el pic simulator ide. En lenguaje BASIC, resulta que me funciona casi todo, ya que si pongo dos leds parpadeando con el WAITMS 1000 o 1500 o 500 funciona bien pero si quiero ponerlos para dos segundos (2000) o mas, en la simulación me funciona pero volcado en el pic no funciona, se quedan los leds prendidos. ya he declarado el cristarl oscilador de 4MHZ pero nada... aqui os dejo el codigo para que hecheis un vistazo. ESTOY YA LOCO DE INTENTAR COSAS....

Define CONF_WORD = 0x3ff5
AllDigital  'todos los puertos seran digitales
TRISA = %00000  'configura el Puerto A como Salida
TRISB = %11111110  'Configura el Puerto B como Entrada y RB0 como Salida.


Symbol pul1or = PORTB.4
Symbol pul2or = PORTB.5
Symbol pul1el = PORTB.6
Symbol pul2el = PORTB.7
Symbol relay = PORTA.0
Symbol enab = PORTB.0



inicio:
If PORTB.1 = 0 Then Goto auto
Goto manual


auto:
relay = 1
enab = 1
PORTA.2 = 0
PORTA.1 = 1

If pul1el = 1 Then
PORTA.3 = 1
Else
PORTA.3 = 0
Endif

If pul2el = 1 Then
PORTA.4 = 1
Else
PORTA.4 = 0
Endif

WaitMs 1000
PORTA.1 = 0
PORTA.2 = 1

If pul1el = 1 Then
PORTA.3 = 1
Else
PORTA.3 = 0
Endif

If pul2el = 1 Then
PORTA.4 = 1
Else
PORTA.4 = 0
Endif

WaitMs 1000
PORTA.0 = 1
If PORTB.1 = 0 Then Goto auto
Goto inicio

manual:
relay = 0
enab = 1
Goto manual1

manual1:
If pul1or = 1 Then
PORTA.1 = 1
Else
PORTA.1 = 0
Endif

If pul1el = 1 Then
PORTA.3 = 1
Else
PORTA.3 = 0
Endif

If pul2or = 1 Then
PORTA.2 = 1
Else
PORTA.2 = 0
Endif

If pul2el = 1 Then
PORTA.4 = 1
Else
PORTA.4 = 0
Endif



If pul2el = 1 And pul1or = 1 Then
relay = 1
Goto manual1
Endif


If PORTB.1 = 1 Then
Goto manual1
Else
Goto inicio
Endif



End

[RockLee_89]

hola amigo velaki y conectaste el pin del masterclear con una resistencia a + ya que si no lo haces el pic se resetea y en el simulador nunca te pasara esto no he checado bien tu progrma pero si me cuentas que funciona en el simulador pero no en el fisico me da idea que por hay biene el problema.
una pregunta ya as montado este programa con menos tiempo en un pic y si a funcionado?
otra cosa los pines que declaraste como entradas le colocaste sus respectivas resistencias de pul-up ya que no es bueno dejar una entrada al aire libre

[velaki]

GRACIAS AMIGO, SI, ya lo he probado y todo funciona correctamente, con sus resistencias y la retroalimentación del clear, el unico fallo que tiene esque no parpadea a mas de 1500 ms porque cuando pongo waitms 2000 o los leds se quedan encendidos y no parpadean a dos segundos, no se porque. pero todo lo demás funciona bien.

[dogflu66]

No tengo conocimientos de que el comando Waitms falle en alguna versión del PSI, ahora no tengo una plaquita donde probarlo y es que Waitms no lo utilizo, pero eso es fácil de comprobar dividiendo el tiempo en varios Waitms:

Waitms 1000
Waitms 1000

[velaki]

Esta claro que algo raro está pasando porque en la simulación funciona bien, pero en el pic no, ademas, simplemente si hago esta secuencia de apagar y encender un led


..............
inicio:
hight porta.0 = 1
waitms 4000
low porta.0 = 0
waitms 4000
goto inicio

en la simulación funciona pero en el pic se queda el led encendido fijo, sin embargo si cambio el waitms por waitms 1000 si que parpadean a un segundo, estoy usando un cristal de 4Mhz no se si tiene q ver algo.........

[dogflu66]

Entoces; ¿entiendo que esto si te ha funcionado?.

..............
inicio:
hight porta.0 = 1
waitms 1000
waitms 1000
waitms 1000
waitms 1000
low porta.0 = 0
waitms 1000
waitms 1000
waitms 1000
waitms 1000
goto inicio

[velaki]

que va joder.... ya no se si es el PIC, EL PROGRAMA o EL PROGRAMADOR... haber si alguien puede colgar algún codigo en Hex con el parpadeo del PORTA.0 de un 16f84A y un cristal de 4mhz.... por favor. y así salgo de la duda  de lo que pueda ser...... GRACIAS. UNA VEZ MAS.

[dogflu66]

En un segundo vistazo he visto que tienes el fuse del Watchdog activado y eso te genera un reset cada x tiempo. No he utilizado nunca el 16F84 por lo que no sé que tiempo tendrá por defecto el Watchdog, pero si es superior a 1 segundo de seguro que por eso te fallan con tiempos largos, en realidad también está fallando en tiempos más cortos pero puede que por alguna paradoja del programa no se vea de una forma tan evidente hasta que subes los tiempos en el Waitms.

Define CONF_WORD = 0x3ff1  '_CP_OFF, _PWRTE_ON, _WDT_OFF, _XT_OSC
'Define CONF_WORD = 0x3ff5  '_CP_OFF, _PWRTE_ON, _WDT_ON, _XT_OSC

[velaki]

MUCHAS GRACIAS AMIGO DOGGFLU!!!!!! eso era ya me funciona. No puedo creerlo! Andaluz tenia que ser misalvador jeeje!! Te debo una servesita en las mismas puertas de la alambra jajaja. Saludos desde Cadiz y un millon de gracias.

[dogflu66]

Me alegro que funcione por fin.
Te tomo la palabra sobre la cerveza.