Imprimir Página - pwm un problem

Microcontroladores PIC => Lenguaje Basic para microcontroladores PIC => Mensaje iniciado por: liminix en 26 de Junio de 2006, 00:27:56

Título: pwm un problem
Publicado por: liminix en 26 de Junio de 2006, 00:27:56

bueno amigos ise este programita
pero tengo una problema
me arranca al maximo y despues que preciono el pulsador recien controla, quisiera que arranque des de cero
I var byte
inicio :
pwm portb.0,I,145
if porta.2=0 then
i=i+25
ifI= 255 then
I=0
endif
endif
goto inicio

Título: Re: pwm un problem
Publicado por: LordLafebre en 26 de Junio de 2006, 00:37:22

Hola:

Prueba a inicializar en cero la variable antes de inicio.

Título: Re: pwm un problem
Publicado por: liminix en 27 de Junio de 2006, 00:20:17

hola si lo hice pero arranca en alto un isntante de alli se va a cero
pero el problema que tengo es que quiero controlar con dos pulsadores
uno que baje y otro que suba el nivel asi :

i var byte
I=0
inicio:
pwm portb.0,i,145 'pwm este es ancho de pulso
if porta.2=0 then 'este es para subir
i=i+25
if i=255 then
i=0
endif
endif
pwm portb.0,i,145 'es te pwm
if portb.3=0 then 'este es para bajar
i =i-25
if i<=1 then
i=255
endif
endif
goto inicio

pero no me controla la salida cuando presiono los pulsadores esta mal mi programa o es el pic
que esta mal

Título: Re: pwm un problem
Publicado por: liminix en 01 de Julio de 2006, 00:01:42

Cita de: LordLafebre en 26 de Junio de 2006, 00:37:22

Hola:

Prueba a inicializar en cero la variable antes de inicio.

hola aver si me puede dar una ayudita con este programita
por que no me ovedece la orden de subir o bajar ancho de pmw quisiera saber que hice mal

--------------------------------------------------------------------------------

i var byte
I=0
inicio:
pwm portb.0,i,145 'pwm este es ancho de pulso
if porta.2=0 then 'este es para subir
i=i+25
if i=255 then
i=0
endif
endif
pwm portb.0,i,145 'es te pwm
if portb.3=0 then 'este es para bajar
i =i-25
if i<=1 then
i=255
endif
endif
goto inicio

Título: Re: pwm un problem
Publicado por: Marioguillote en 01 de Julio de 2006, 10:35:33

Hola Muchachos:

Liminix
Me Parece que estás volviendo a cometer el mismo error que en la lectura del potenciómetro de otro post.
Tu código dice :

i var byte
I=0
inicio:
pwm portb.0,i,145 'pwm este es ancho de pulso
if porta.2=0 then 'este es para subir
i=i+25
if i=255 then
i=0
endif
endif
pwm portb.0,i,145 'es te pwm
if portb.3=0 then 'este es para bajar
i =i-25
if i<=1 then
i=255
endif
endif
goto inicio

Probá con esto, pero antes miralo bien, para descubrir la alteración del orden de las líneas del programa:

i var byte
I=0
inicio:

if porta.2=0 then 'este es para subir
i=i+25
if i=255 then
i=0

pwm portb.0,i,145 'pwm este es ancho de pulso

endif
endif

if portb.3=0 then 'este es para bajar
i =i-25
if i<=1 then
i=255

pwm portb.0,i,145 'es te pwm

endif
endif
goto inicio

Vamos Liminix .... no me afloje.
Y contanos que estás haciendo, si estás construyendo algo o es simplemente para aprender a usar las instrucciones.

Saludos.

Título: Re: pwm un problem
Publicado por: patolinec en 03 de Julio de 2006, 14:33:08

Pues no te vo a aconsejar nada sobre el programa, pero si tu obtienes dos salias en PWM si vas a poder generar una onda de 50 Hz mediante PWM, muy similar a la que genran algunos UPS, pero (siempre existe un pero)tu tienes que considerar que la señal debera ir variando su ducty cicle para poder obtener un valor eficaz de igual magnitud que de una señal senoidal, y si tu pregunta es ¿Si yo conecto por ejemplo un radio pequeño funcionara?, pues si tu circuito provee la suficiente corriente si lo hara, ya que un trasformador funciona tambien como integrador de señal osea mas o menos te arreglara la señal, suerte con tu proyecto y cualuier cosa me avisas talvez en la web puedes encontara informacion como conversor CD/CA

Título: Re: pwm un problem
Publicado por: liminix en 05 de Julio de 2006, 00:08:34

Cita de: Marioguillote en 01 de Julio de 2006, 10:35:33

Hola Muchachos:

Liminix
Me Parece que estás volviendo a cometer el mismo error que en la lectura del potenciómetro de otro post.
Tu código dice :

i var byte
I=0
inicio:
pwm portb.0,i,145 'pwm este es ancho de pulso
if porta.2=0 then 'este es para subir
i=i+25
if i=255 then
i=0
endif
endif
pwm portb.0,i,145 'es te pwm
if portb.3=0 then 'este es para bajar
i =i-25
if i<=1 then
i=255
endif
endif
goto inicio

Probá con esto, pero antes miralo bien, para descubrir la alteración del orden de las líneas del programa:

i var byte
I=0
inicio:

if porta.2=0 then 'este es para subir
i=i+25
if i=255 then
i=0

pwm portb.0,i,145 'pwm este es ancho de pulso

endif
endif

if portb.3=0 then 'este es para bajar
i =i-25
if i<=1 then
i=255

pwm portb.0,i,145 'es te pwm

endif
endif
goto inicio

Vamos Liminix .... no me afloje.
Y contanos que estás haciendo, si estás construyendo algo o es simplemente para aprender a usar las instrucciones.

Saludos.

hola amigo es que estoy aprendiendo a utilisar las instruciones bueno me gustaria aver si pudieramos charlar en el msn mi correo es jorge_ciber_82hotmail.com aver si me agregas y asi podemos charlar un poco mas sobre pics gracias por tu ayuda

Título: Re: pwm un problem
Publicado por: liminix en 11 de Julio de 2006, 00:17:28

hola a todos ya me solucione el problem ,pero tengo otra inquietud alli se las mando
ES TE EL PROGRAMA PARA PWM CON DOS PULSADORES
UNO PARA SUBIR OTRO PARA BAJAR

J var byte
j=0
inicio:
if porta.3=0 then
j= j-25
endif
if j=1 then
j=255
endif
if porta.2=0 then
j=j+25
endif
if j=255 then
j=0
endif
pwm portb.0,j,145
goto inicio

asi sle con 2 pulsadores como uno para disminuir y otro para subir

pero ahora quiero que cuendo llegue asu maximo se quede alli por decir sigo pulsando y se reinicia
tanto cuando se disminuye o cuando aumenta,si pues aver si en eso me ayudan amixxxxxxxxxxxxxxxxx

Título: Re: pwm un problem
Publicado por: Marioguillote en 11 de Julio de 2006, 08:47:50

Hola Liminix:
Entonces lo que tienes que hacer es sacarle al programa las líneas que te mandan a reestablecer los valores máximos y mímimos.
Quedaría algo así, si es que entendí lo que querés hacer:

------------------------------------------------------------

J var byte
j=0

inicio:

if porta.3=0 then
j= j-25
endif

if j=1 then inicio

Cuando llega al mínimo, vuelve a "inicio" y se queda siempre en este lazo condicionante, hasta ver si pulsas de aumentar, antes pasaba al otro extremo, se "reiniciaba", como vós decís

if porta.2=0 then
j=j+25
endif

if j=255 then inicio

Cuando llega al máximo vuelve a "inicio" y se queda siempre en este lazo condicionante, hasta ver si pulsás de disminuir, antes pasaba al otro extremo, se "reiniciaba", como vós decís.

pwm portb.0,j,145

goto inicio

---------------------------------------------------------

Probá ese código a ver si te sirve, para lo que querés hacer.

Saludos

Mario

Título: Re: pwm un problem
Publicado por: KALLITOS en 11 de Julio de 2006, 11:03:36

Solo una cosita:

0+25=25
25+25=50
50+25=75
75+25=100
100+25=125
125+25=150
150+25=175
175+25=200
200+25=225
225+25=250
250+25=275

en que momento se ejecutará:

if j=255 then inicio

Cuando llega al máximo vuelve a "inicio" y se queda siempre en este lazo condicionante, hasta ver si pulsás de disminuir, antes pasaba al otro extremo, se "reiniciaba", como vós decís.[/i]

que tal si :

if j=250 then inicio

Saludos

Título: Re: pwm un problem
Publicado por: Marioguillote en 11 de Julio de 2006, 11:43:33

Genial KALLITOS.

Eso pasa por mi apuro de siempre.
Nunca me puse a calcular si 255 / 25 daba un número entero.

Gracias por la ayuda.

Saludos

Mario

Título: Re: pwm un problem
Publicado por: liminix en 20 de Julio de 2006, 23:33:00

ya probe lo que me digiste y me sale error
aqui te dejo una idea
j var byte
j=0
inicio:
if porta.2=0 then
j=j+51
endif
if j=255 then
j=j max 255

endif
if porta.3=0 then
j=j-51
endif
if j=0 then
j=j min 0
endif
pwm portb.0,j,145
goto inicio

lo intente asi pero se resetea igual aver si me ayudas probe con esas intrucciones max y min

Título: Re: pwm un problem
Publicado por: Manofwar en 21 de Julio de 2006, 06:54:04

Hola Liminix, no es que mis conocimientos de basic sean muchos pero creo que será algo así

Código: QBasic/QuickBASIC

j var byte
j=0
inicio:
IF j<>255 THEN      'Si no ha llegado al valor máximo
  IF porta.2=0 THEN   ' y el botón ha sido pulsado
  j=j+51                  'podemos sumar
 endif
endif
 
IF j<>0 THEN      'Si no ha llegado al valor mínimo
  IF porta.3=0 THEN   ' y el botón ha sido pulsado
  j=j-51                  'podemos restar
  endif
endif
 
pwm portb.0,j,145
GOTO inicio

Título: Re: pwm un problem
Publicado por: liminix en 21 de Julio de 2006, 23:30:41

CON UN PULSANTE

j var byte
j=0
trisb=0
subir :
if porta.2=0 then
j=j+51
endif
while j=255
j=255
wend
pwm portb.0,j,145
goto subir

me sale con un pulsante pero no me sale cuando quiero con dos uno para subir y otro para bajar

AHORA CON 2 PULSANTES
j var byte
j=0
trisb=0
subir :
if porta.2=0 then
j=j+51
endif
while j=255
j=255
wend
pwm portb.0,j,145
goto subir
bajar:
if porta.3=0 then
j=j-51
endif
while j=0
j=0
wend
pwm portb.0,j,145
goto bajar
bueno creo que con esta ayudita aver si me dan una luz

TODOPIC

Microcontroladores PIC => Lenguaje Basic para microcontroladores PIC => Mensaje iniciado por: liminix en 26 de Junio de 2006, 00:27:56