ayuda con programa pbp

[gerard07]

hola gente: podria alguno corregirme este progama? y decirme porque no funciona cuando lo armo en la proctoboard?, el objetivo es que con un mismo pulsador NA pueda encender un led y apagarlo (osea pulso enciende, pulso apago), estoy trabajando con un pic 16f84a

trisb=%0
trisa=%1
i var WORD
r var WORD
i=1
r=0
loop:
     if (porta.0=1) then
       i=i+1                     
       r=i//2
       if (r=0) then
          high portb.0
       else
          low portb.0
       endif
     endif
     goto loop     
end

como veran lo que hago es preguntar si es par o impar con un simple contador en realidad, teniendo el primer pulso como par (cuando enciende) y si es impar apaga
 desde ya muchisimas gracias
                                                        gerard07
pd, si tienen otro mejor manden nomas

[doppel]

Hola

salvo que quieras utilizar ese método, seria mucho mas sencillo si utilizas TOGGLE para cambiar el estado del pin, además revisa la configuracion de los tris que está incompleta, debes agregar los 0' y 1' que faltan

[dogflu66]

trisb=%0 = %00000000
trisa=%1 = %00000001
Cada digito equivale a un pin distinto, si lo tuviste en cuenta no pasa nada.

Y parece que no tuviste en cuenta que cada vez que pulsas la tecla, la rutina se te repetirá un numero indeterminado de veces, por lo que el resultado de la salida será aleatorio. Tendrías que idearte un sistema para generar una pausa después de cada pulsación.

[Fer_TACA]

Hola:
No soy muy ducho con pbp y no sé si solo has puesto el codigo para cambiar el led
Pero ¿no hace falta indicar el tipo de micro a utilizar y la velocidad del cristal?
¿No falta tambien decir que los puertos (dependendo del micro) hay que configurarlos como digital o analogicos?

Fer.

[gerard07]

doppel: podrias orientarme en el uso del toggle?
           de que manera podría usarlo en el programa?
           

[KALLITOS]

Hola a todos  .
Hernan con tu permiso  .
Gerard esto es lo que dice el Manual de PBP:

TOGGLE Pin
Invierte el estado del Pin especificado . Pin es automáticamente colocado como salida . Pin puede ser una constante , 0 - 15 , ó una variable que contenga un número de 0-15 (p.ej. B0) ó un número de Pin (p.ej. PORTA.0)

Low 0 ´ comienza Pin0 como bajo

TOGGLE 0 ´ cambia a alto el estado del pin 0

Para tu codigo

Código: Visual Basic

1. Low portb.0
2. loop:
3.      if (porta.0=1) then
4.           toggle portb.0
5.           '''pero en este punto debes ponerle un antirebote
6.          '''para ti que estas comenzando seria con una pausa de 20 ms
7.          pause 20
8.      endif
9. goto loop

Saludos Navideños.

[doppel]

gracias Kallitos!!  a eso me referia!

[gerard07]

gracias ahora lo pruebo y les comento como anda

[gerard07]

     solucionado!!
                gracias muchachos, no conocia el toggle, pero una cosa más le tuve que dar un tiempo de 500ms y con eso aduvo bien, porque con menos tiempo tenia problemas con el rebote
                saludos y gracias!!

                                           gerard07

[KALLITOS]

Hola gerard07, que bueno que creas que lo has solucionado  , la verdad que un antirebote con pause no es muy recomendable si tienes un programa critico en tiempos, io trabajo asi:

Código: Visual Basic

1. flag_tecla var bit
2. flag_timer var bit
3.  
4. if((porta.0 = 0) and(flag_tecla = 1) then
5.       flag_tecla = 0;
6.       'seteo el timer0 a 5ms
7.      'y hago lo que quiero con la pulsacion
8.      toggle portb.0
9. endif
10.  
11. if (flag_timer = 1) then
12.    flag_timer = 0;
13.    if (porta.0 = 1) then
14.       flag_tecla = 1
15.    endif
16. endif
17.  
18. y en la interrupcion del timer seteo flag_timer = 1

Asi trabajo los antirebotes, me funciona a la perfeccion, ademas me permite hacer algo parecido al lo del teclado de la pc, presionar y ejecutar codigo, si keda presionado ejecutar codigo cada cierto tiempo: 200ms por ejm.

Saludos

[Mario]

Si no recuerdo mal existe una función que se llama Button, revíselo.