problema en programa con ADC (PBP)

[hsen]

Hola Amigod del foro: Estoy intentando hacer un programa para controlar los motores de una silla de ruedas. Empece paso a paso con un simple programa para para ir mejorando y a la vez aprender, pero tropece con un problema simple para ustedes, dificil para mí.
Marca los siguientes errores al compilar:
error line 35: endif without a matching if...then.
error line 36: endif without a matching if...then
Agradezco si me pueden ayudar

 'device: 16f877
      trisc=0
      
        TRISA = %11111111      ' fija porta todas como entrada
        ADCON1 = %00000010      ' 
        portb=0
        portc=0
        adval  var byte      ' Crea variable adval y almacena el resultado
        ledred var portb.0
        ledgreen var portb.1
        Pause 500             ' Wait .5 second

loop:    ADCIN 0, adval               ' Read channel 0 to adval
 
        Pause 100                ' Wait .1 second
       
        if adval => 150 then yf ' si la variable adval es igual o mayor que 150 ir a yf
 
        if adval =< 100 then yb  'si adval es igual o menor que 100 entonces ir a yb      
     endif                         
        endif
        Goto loop
       
 yb:       
     high ledgreen
        pause 500
        low ledgreen        pause 500
        Goto loop      
 yf:
        high ledred           
        pause 500
        low ledred
        pause 500   
        Goto loop
        End                     
                               

[PAOLA09]

Hola

te encontre algunos detalles, primero si deseas ir a un label  especifico debes usar goto no solo basta con poner yf ese es parte de uno de los errores. la otra si estas encadenando ambos if deberas aplicar un else en caso de que no esten hilados cada endif debera ir seguido de su repectivo if.  Ahora quedaria tu programa asi:

'device: 16f877
      trisc=0
       
        TRISA = %11111111      ' fija porta todas como entrada
        ADCON1 = %00000010      ' 
        portb=0
        portc=0
        adval  var byte      ' Crea variable adval y almacena el resultado
        symbol ledred = portb.0
        symbol ledgreen = portb.1
        Pause 500             ' Wait .5 second

loop:    ADCIN 0, adval               ' Read channel 0 to adval
 
        Pause 100                ' Wait .1 second
       
        if adval => 150 then
        goto yf ' si la variable adval es igual o mayor que 150 ir a yf
        else
        if adval =< 100 then
        goto yb  'si adval es igual o menor que 100 entonces ir a yb       
l:     
     endif                         
        endif
        Goto loop
       
 yb:       
     high ledgreen
        pause 500
        low ledgreen       
        pause 500
        Goto l     
 yf:
        high ledred           
        pause 500
        low ledred
        pause 500   
        Goto l
        End 

puedes ver que en el yf y yb no puse goto loop ya que debia ir primero a la línea donde cierro los if.

[navaismo]

Es que tienes mal colocados los ENDIFS si los quieres usar de forma anidada usa el IF... ELSE... o bien pon la terminacino de cada ENDIF debajo de cada IF para que el programa lo vea.


Un ejemplo de anidamiento lo puedes ver en los ejemplos de MKB PAO es experta en eso del anidamiento he hizo varios programas de ejemplo usando IFs anidados.

Saludos

[navaismo]

jajaja me gano Pao

[PAOLA09]

Uy la primera vez que te gano una Max 

[hsen]

Hola: Gracias Paola09 y Navaismo, me van a disculupar  pero en adelante tengo varias preguntas más, estoy intentando  ayudar hacer un control para una silla de ruedas a un amigo del foro, (esto viene del sub foro Todo en microcontroladores pic)
como verán, mis pobres comocimientos me obligan a apoyarme en ustedes.
Muy buenas sus instrucciones. 

P.D. Paola, hice la simulacion en proteus y funcionó a la perfección, como no podria ser de otra manera viniendo de ustedes.

 El próximo paso importante será vincular esas salidas a un PWM, los molestaré denuevo.
  

[xocas]

hola

si mi memoria no me falla, en pbp tambien funciona de esta forma:

   if adval => 150 then yf
   if adval =< 100 then yb

no siendo necesaria la instruccion endif ni la instruccion goto.

aunque a nivel de programacion el consejo que te da Paola es mas acertado

un saludo

[hsen]

Gracias Xocas, si fuera así ahorraría lineas al programar.

[hsen]

Hola

 puedes ver que en el yf y yb no puse goto loop ya que debia ir primero a la línea donde cierro los if.

Paola09: No entiendo por que motivo tienes que ir a la línea donde cierras los if, si por lo que (creo ver)
el programa  recorre 2 líneas e indefectiblemente regresa a loop sin hacer otra cosa. Se que lo que dices
está bien pero quisiera aprender el porque.

[xocas]

hola

si recurres a la ayuda del microcode veras que la instruccion if..then tiene dos modos de funcionamiento, uno de ellos es este:
IF Comp {AND/OR Comp...} THEN Label

y el otro este:
IF Comp {AND/OR Comp...} THEN
   Statements...
ELSE
   Statements...
ENDIF

en el primero no es necesario cerrar el if, pero si lo es el segundo. por ello Paola los cierra antes de ir a loop. has de tener bastante cuidado con los anidamientos porque tu programa puede darte muchos quebraderos de cabeza si no lo haces.

en la ayuda de microcode tienes tambien unos ejemplos que espero te dejen mas claro el tema

un saludo

[hsen]

Hola xocas06:
Gracias por  responder, lo que pasa es que nunca he visto nada relativo a microcode, estoy
intentando aprender en PBP y pensaba  que otro basic me podria causar mayor confusión.
A propósito de PBP, querria hacer unas operaciones matemáticas y quisiera saber si este maneja fracciones decimales, eje: 1,7 * 150..?

[hsen]

Hooooo...burrada, microcode es el compilador, pensaba en microbasic, ahora que lo dices ni sabìa
que microcode disponìa de ayuda.

[navaismo]

Punto decimal solo con proton o MKB para PBP con rutinas de microchip o div32 busca en el foro sobre esto

[hsen]

Gracias navaismo, es para acondicionar las lecturas en pote

[navaismo]

No uses POT mejor usa un pic con adc y usa ADCIN tiene mas resolucion