USART+PWM Problem

[skimask]

Look who's talking

My lab is in rework right now (remember the water damage awhile back?)...
All I've got right now is some good smelling left over paint (wait 'till I post the pictures of the walls) and a bunch of wood that will become work benches...
I've got lots of sharp objects and power tools within reach...but no electronics to work on...

[alex-x]

@Mister_e
@Skimask

thanks for help me and look to my code please what is problem on it i have pic 16F877A and i use pbp 2,47 i have found this code int he forum and little designed it back for my Pic16F877A but it is not working i want to dim a led on portc1 (portc1and portc2 is pwm port on 877A pic) i want to dimming it but some probşlem on the code can you look and say what is my problem here?


'----------------------------------------------------------------------
INCLUDE "modedefs.bas"
@ DEVICE HS_OSC
@ DEVICE pic16F877A
@ DEVICE pic16F877A, WDT_OFF
@ DEVICE pic16F877A, PWRT_ON
@ DEVICE pic16F877A, PROTECT_OFF
@ DEVICE pic16F877A, BOD_OFF
'----------------------------------------------------------------------
DEFINE OSC 20
DEFINE HSER_RCSTA 90h
DEFINE HSER_TXSTA 24h
DEFINE HSER_SPBRG 4
DEFINE HSER_BAUD 250000
DEFINE HSER_CLROERR 1
'----------------------------------------------------------------------
counter VAR word
idleflag VAR WORD
dummy VAR WORD
RCIF VAR byte
startcode VAR WORD
aminus VAR WORD
adresse_grada VAR WORD
x VAR WORD
newlevel1 VAR WORD
'----------------------------------------------------------------------
TRISB=0
TRISC=%10000000 ' portc.7 is RX input
ADCON0=0
ADCON1=7
adresse_grada=2


checkdmx:
counter = 1
pulsin portc.7,0,counter ' portc.7 is RX input
if counter = 0 then
idleflag = 1
endif
if counter < 40 then checkdmx

dummy = RCREG
dummy = RCREG
SPBRG = 0
TXSTA.2 = 0
TXSTA.4 = 0
RCSTA.7 = 1
RCSTA.6 = 0
RCSTA.4 = 0
RCSTA.4 = 1

while RCIF = 0:wend

startcode = RCREG

if startcode <> 0 then checkdmx

aminus = adresse_grada - 1 'address1 is my target address

for x = 1 to aminus
while RCIF = 0:WEND
dummy = RCREG
next x

newlevel1 = RCREG
pwm portc.1,newlevel1 ,100 'i want dimming a LED on PORTC.1
RCSTA.7 = 0 'turn off the USART
goto checkdmx
return

[skimask]

@Mister_e
@Skimask

thanks for help me and look to my code please what is problem on it i have pic 16F877A and i use pbp 2,47 i have found this code int he forum and little designed it back for my Pic16F877A but it is not working i want to dim a led on portc1 (portc1and portc2 is pwm port on 877A pic) i want to dimming it but some probşlem on the code can you look and say what is my problem here?

[code]
checkdmx:
.................................................. .........................
pwm portc.1,newlevel1 ,100 'i want dimming a LED on PORTC.1
.................................................. .........................
goto checkdmx
return

PWM doesn't run in the background... When you hit a PWM command, that's what you get, one shot, one pulse of PWM, then you loop back and start checking for more DMX data input, which you probably missed because you were trying to do PWM in the first place, and while you are waiting for some DMX data, your LED is off because the PIC isn't executing a PWM command. See how it all ties in together to make a seemingly non-working version of the code?
And what have you changed and/or tried to change in the code to make it work? Anything?
What you want is some interrupt driven code...interrupt driven serial input, interrupt driven PWM (or a hardware module, whichever works for you).
There's too much high speed stuff going on to be handled sequentially... Do a search for Instant Interrupts and Slow Speed Pulse Width Modulation. This code you've 'found' and keep copying probably isn't going to work for you in the end without knowing what's really going on in the first place and how to use interrupts.

[JEC]

Turns out that a few months ago, Microchip posted app notes for

* DMX512 transmission
* DMX512 reception
* Software-based 3 color PWM generation

Granted, it's all written in assembly. And it may not be quite as user-friendly to PBP newbies as DT's Instant Interrupts / SSPWM (very nice, BTW!).

But they can gather all 512 channels of dimmer data in 27 lines of .asm code. Pretty neat!

It's elegantly written, very compact and fairly easy to follow. Their write-up on DMX gives a nice overview of the various stages of the signal and what the processor needs to do during each.

Their trick for generating the break signal on the transmit side is nice, too.

Their DMX receive code is *not* interrupt based, but the PWM routine is.

Check out notes #1074 and #1076

Link:

http://www.microchip.com/stellent/id...GE&nodeId=2048

Best,

JEC

[alex-x]

Dear JEC ;
i looked to that site but all codes are in asm i need in PBP if i can make it better for me .really i want to make it by myself since a week and i know it is not so good to want code from peoples but really i dont know anything about the this commination in picbasicpro

i read many documents and some code too but all in asm they explain everything in assembly language and when i want to make same thing in pbp then i have problem on interupts i think how can i solve it*?

i have seen your code in the forum and copyed it for my devices but couldnt make it yet your code was for "'F88 @ 16 MHz" but i have f877 and 20 mhz osc the code that what i posted here it is your code .do you have some example for me in picbasicpro only for beginner i need only led intensty
( PWM ) nothing more i tryed it like this small code too before but also problem (i look for adres on dipsw)


' PIC16F876 + 20 MHz
DEFINE OSC 20
@ DEVICE HS_OSC

DEFINE HSER_BITS 9
DEFINE HSER_RCSTA 208
DEFINE HSER_TXSTA 101
DEFINE HSER_BAUD 250000
DEFINE HSER_CLROERR 1

SYMBOL IN =PORTC.0
SYMBOL LED =PORTC.3 'LED

INPUT IN

TMP VAR WORD
TMP1 VAR WORD
VALORE VAR byte[8]
BREAK VAR WORD
NDMX VAR WORD
DATI VAR WORD
Clear

ADCON0=0
ADCON1=7

OPTION_REG.7=0
FOR TMP=0 TO 10
TOGGLE LED
PAUSE 200
NEXT TMP
LOW LED

MAIN:

NDMX=0
NDMX.0=PORTA.1
NDMX.1=PORTA.0
NDMX.2=PORTB.7
NDMX.3=PORTB.6
NDMX.4=PORTB.5
NDMX.5=PORTB.4
NDMX.6=PORTB.3
NDMX.7=PORTB.2
NDMX.8=PORTB.1
NDMX.9=PORTB.0

ndmx = ndmx ^ %0000001111111111
DATI=0
PULSIN in,0,break

IF BREAK>=44 THEN

HSERIN 2000,MAIN,[tmp,tmp1]
if tmp<>0 and tmp1<>0 then
goto main
endif

FOR TMP=1 TO ndmx
HSERIN 10,main,[tmp1]
NEXT TMP

FOR tmp=1 TO 64
hserin 10,EXIT,[VALORE[tmp]]
DATI=DATI+1
NEXT TMP

EXIT:
FOR TMP=1 TO DATI
VALORE[TMP]=VALORE[TMP]/4
NEXT TMP

'---------- here code that what i want to make for leds -----------------



ENDIF


GOTO MAIN

[T.Jackson]

Yeah - I think you're trying to bite off a bit more than you can chew. Better to start with something a bit simpler and gradually progress your skills along the way.

[alex-x]

:-) thanks

i have made many projects with pic but dmx is not like "led open or close"
it is different

i wait answer only who knows about the dmx and who can help me to solve this problem and if you want i pay too