problem secuenciales

[liminix]

hola  amix ,  bueno  mi  problema  esta  en  que quisiera  modificar  la  frecuencia  en  que  prenden  los   leds
pero  no  me  sale   es cuando   pulso  no  me   sale  escala  que  necesito,  es  para  hacer  un  juego  de  luces


trisa=1
trisb=0
j var byte
led1 var portb.0
led2 var portb.1
inicio:

if porta.2=0 then
j=j+100
endif
if J=1000 then
J=100
endif

high led1
pause j
low led1
pause  j


high led2
pause j
low led2
pause j
goto inicio

  aver  si  me  dan  un  sajiros mis  estimados amigos

[LordLafebre]

Hola:

El problema que veo es que declaras J como variabl de tipo byte, que es solo de 0 a 255 valores, declarala de tipo word, con eso consigues valores de 0 a 65535. tambien prueba inicializando j con algun valor, por ejemplo j=1 o el valor que creas conveniente segun tu necesidad.

Suerte.

[liminix]

hola  hice lo  que  me recomendantes pero no  me  controlan  bien cuando  pulso, quisiera saber  si  se  puede  modificar  el  programa  para  hacer  que  funcione

[LordLafebre]

Hola:

Como quieres que se vayan encendiendo los leds, cuál es la idea?

[liminix]

hola   doc  bueno  primero  son  los  saludos hola, mi  problem  es que quiero  que  me  modifiquen  los  tiempos que  estan  encendidos osea  la  velocidad que  parpadean
con  los  pulsadores
gracias tio, por  tu  ayuda

[LordLafebre]

Hola:

No enciendas individualmente los leds asi:

high led1
pause j
low led1
pause  j


high led2
pause j
low led2
pause j
goto inicio

como veras habra porblemas, ya que al utilizar pause se genera un bucle y el pic no hara nada, ademas siendo j la variable para el retardo enconces no veo o no tengo claro que quieres hacer, lo que consegiurias con eso es que primero se encienda el un led y luego el otro, y vayan parpadeando indibidualmente, si los quieres hacer parpadear simultaneamente asigna al puerto el valor para que se encienda el port b0 y b1, si lo que quieres hacer es que los leds se enciendan a diferentes frecuencias, eso ya es otra cosa.

[aitopes]

Hola!
Podes ahorrar un "poquito" de la memoria disponible si en lugar de

if porta.2=0 then
j=j+100
endif
if J=1000 then
J=100
endif

Haces:
--------------------------
if porta.2=0 then
j=j+1
endif
if J=10 then
J=1
endif
--------------------------

Hace exactamente lo mismo desde el punto de vista logico del programa, y con una variable Byte te alcanza. En este caso es una pavada, por que ahorraras un par de bytes de memoria y unos microsegundos de ejecucion (suponiendo que lleve mas tiempo sumar word que byte), pero si el programa es mas grande, esos pocos bytes ahorrados pueden ser la diferencia entre que entre o no en la memoria del PIC...

[liminix]

Hola:

No enciendas individualmente los leds asi:

high led1
pause j
low led1
pause  j


high led2
pause j
low led2
pause j
goto inicio

como veras habra porblemas, ya que al utilizar pause se genera un bucle y el pic no hara nada, ademas siendo j la variable para el retardo enconces no veo o no tengo claro que quieres hacer, lo que consegiurias con eso es que primero se encienda el un led y luego el otro, y vayan parpadeando indibidualmente, si los quieres hacer parpadear simultaneamente asigna al puerto el valor para que se encienda el port b0 y b1, si lo que quieres hacer es que los leds se enciendan a diferentes frecuencias, eso ya es otra cosa.

hola  lo  que  quiero  hacer   unos  secuenciales pero , porder   regular  la  intermitencia  del  encendido osea  que  enciendan  uno  detras  de  orto  pero   quisiera  poder  regula  la  frecuencia  del  encendido

[aitopes]

Hola Liminix!

Segun veo en tu listado, lo que determina la "frecuencia" de encendido, o mejor dicho, el tiempo que transcurre entre que uno se enciende, se apaga y pasa al siguiente es el valor de la variable J. Con valores mas grandes, tiempos mayores, y viceversa.

Viendo tu listado original, quizas deberias poner los dos "bloques" que encienden y apagan lso leds dentro del bucle que modifica el valor de J....igualmente, no tengo muy claro que es lo que quieres hacer.....salvo lo de que 

que  enciendan  uno  detras  de  orto

....ja ja ja!

No te enojes, es un chiste nomas.

[liminix]

Hola:

No enciendas individualmente los leds asi:

high led1
pause j
low led1
pause  j


high led2
pause j
low led2
pause j
goto inicio

como veras habra porblemas, ya que al utilizar pause se genera un bucle y el pic no hara nada, ademas siendo j la variable para el retardo enconces no veo o no tengo claro que quieres hacer, lo que consegiurias con eso es que primero se encienda el un led y luego el otro, y vayan parpadeando indibidualmente, si los quieres hacer parpadear simultaneamente asigna al puerto el valor para que se encienda el port b0 y b1, si lo que quieres hacer es que los leds se enciendan a diferentes frecuencias, eso ya es otra cosa.

hola  lo  que  quiero  hacer   unos  secuenciales pero , porder   regular  la  intermitencia  del  encendido osea  que  enciendan  uno  detras  de  orto  pero   quisiera  poder  regula  la  frecuencia  del  encendido

[navaismo]

Segun entiendo quieres variar la velocidad de encendido de los leds. mira aqui te dejo un ejemplo espero te sirva o sea parecido a lo que busques

Código: ASM

1. '****************************************************************
2. '*  Name    : CORRIDO.PBP                                       *
3. '*  Author  : Max Eduardo Reyes Vera Juarez                     *
4. '*  Notice  : Copyright (c) 2006 Protegido Por  leyes de Autor  *
5. '*          : All Rights Reserved                               *
6. '*  Date    : 26/09/2006                                        *
7. '*  Version : 1.0                                               *
8. '*  Notes   :                                                   *
9. '*          :                                                   *
10. '****************************************************************
11.  
12. TRISA = 3
13.  
14. MAS   VAR PORTA.0
15. MENOS VAR PORTA.1
16.  
17. C VAR BYTE
18. I VAR WORD
19.  
20. I = 1000
21.  
22. INICIO:
23.  
24.   IF MAS=1 OR MENOS =1 THEN CTRL
25.  
26.  FOR C = 0 TO 7
27.   HIGH C
28.   PAUSE I
29.   LOW C
30.   PAUSE I
31.   IF MAS=1 OR MENOS =1 THEN CTRL
32.  NEXT C
33. GOTO INICIO  
34.  
35.  
36.  CTRL:
37.  IF MAS = 1 THEN
38.   PAUSE 50
39.    IF MAS = 1 THEN   ' REDUCIR VELOCIDAD
40.    I = I + 200
41.   ENDIF
42. ENDIF
43.  
44. IF MENOS = 1 THEN
45.  PAUSE 50
46.   IF MENOS = 1 THEN   ' AUMENTAR VELOCIDAD
47.     I = I - 200
48.    ENDIF
49.  ENDIF
50.      
51.  IF I >= 1600 THEN        ' LIMITE MINIMO DE VELOCIDAD 1.6 S
52.  I = 200
53. ENDIF
54.  
55. IF i < 200 THEN          ' LIMITE MAXIMO DE VELOCIDAD 200 mS
56.   i = 1600
57.  ENDIF
58. GOTO INICIO

porfin encontre un geshi que se lea bien

[liminix]

hola  lo he  probado,no  resulta quisiera  que  me des  una  explicacion  del  programa para  ver  en  que  le  corrigo  para  que  me  resulte
es  cuando  le  mido  el   voltaje  en  las  entradas se  chupa osea se  va a  cero  voltios  sin  presionar debe  ser alguna  falla seguro

[KALLITOS]

Hola muchach@s...

Creo que lo que nuestro amigo solicita se puede resumir en PWM y creo que pbp no maneja bien varios  PWM al mismo tiempo pero creo que si alguien sabe de programacion en C podia traducir lo que se comenta en los suientes hilos....

http://www.todopic.com.ar/foros/index.php?topic=4740.0
http://www.todopic.com.ar/foros/index.php?topic=14104.0

Seria estupendo si en PBP se podria hacer algo como se puede hacer en C.......habra que practicar mucho mas...

Suerte..


Salu2

[navaismo]

mmm no creo que sea un PWM. Y con respecto al programa si funciona yo lo probe y fisicamente lo que hace es simplemente prender no a uno todos los puertos del PORTB y puedes aumentar o disminuir la velocidad del encendido con limites de 1.6 Segundos y 200mS, por default empieza con 1 segundo, checa que lo conectes con el cristal de 4mhz y una resistencia de 10K en mclr a vdd

[liminix]

lo  voy  revisar  como dices  amigo,pero  que  pasaria  si  en  ves de  que esperen un  1logico sea  un cero tendria  que  modificar solo  la  parte donde estan  los  IF NO?
MAS=0
MENOS=0
HE ESTADO REVISANDO TU PROGRAMA Y  NO  ENTIENDO ,COMO HACE ENCERDER LOS LEDS  DEL  PORTB,ME PODRIAS DAR  UNA PEQUENA EXPLICACION GRACIAS POR APOYO AMIX
HA VERDA UNA PREGUNTITA QUE PROGRAMA USAS  PARA POSTEAR  LOS  CIRCUITOS