USB CDC Communications for Dummies!

[mister_e]

this section

COM_RX:
hserin 1, exitsub, [bufferrx]
serbufferrx[0]=bufferrx
goSUB usb_TX
goSUB main

I guess you want a Return there.

And when you deal with HSEROUT/HSERIN, you should use DEFINEs, unless, it will use default 2400 Bauds baudrate.

AND you must add DEFINE OSC 48 at the top of your code as well.

That should be enough to start

[ricgar]

Hi Mister_e

Thanks for the response. I did already have a DEFINE OSC 48 already near start of the code, i have changed it to be return instead of GoSub Main. Thanks. As for your quote below

this section
you should use DEFINEs, unless, it will use default 2400 Bauds baudrate.

Would you be able to provide a bit more detail as regards the DEFINEs you mention, i have no clue what you mean by that.

Thanks

[mister_e]

DEFINE for HSEROUT are explained in the PBP manual

The serial parameters and baud rate are specified using DEFINEs:

' Set receive register to receiver enabled
DEFINE HSER_RCSTA 90h

' Set transmit register to transmitter enabled
DEFINE HSER_TXSTA 20h

' Set baud rate
DEFINE HSER_BAUD 2400

' Set SPBRG directly (normally set by HSER_BAUD)
DEFINE HSER_SPBRG 25

HSEROUT assumes a 4MHz oscillator when calculating the baud rate. To maintain the proper baud rate timing with other oscillator values, be sure to DEFINE the OSC setting to the new oscillator value.

In your case, the DEFINE list would look something like

DEFINE HSER_RCSTA 90h ' Enable serial port & continuous receive
DEFINE HSER_TXSTA 24h ' Enable transmit, BRGH = 1
DEFINE HSER_SPBRG 25  ' 115200 Baud @ 48MHz, 0.16%
DEFINE HSER_CLROERR 1 ' Clear overflow automatically

HTH

[davids]

DEFINE OSC 48

Buffer VAR BYTE[16]
Cnt VAR BYTE
B0 VAR BYTE
B1 VAR BYTE
led var porta.3

ADCON1 = 15 ' Set all I/Os to Digital
CMCON = 7 ' Disable Comparators
Cnt = 16

USBInit ' Initialize USART
start:
for b0 = 0 to 15
lookup b0,["USB CONNECTED!",10,13],B1
BUFFER(B0) = B1
NEXT B0
gosub send
ledl:
high led
pause 1000'(when i have delay nothing is working)
low led

afterled:
for b0 = 0 to 15
lookup b0,["closed led",10,13],B1
BUFFER(B0) = B1
NEXT B0
gosub send
goto start

send:
USBService ' Must service USB regularly
USBOut 3, Buffer, Cnt,send
return
end

[davids]

everything is working perfect i have connect it with labview but when i am using PAUSE 1000 nothing is working !!!!!!!

[ScaleRobotics]

Its the:

USBService ' Must service USB regularly

part. It must be serviced every 10 ms, or your communication will drop. So your pause 1000 is about 100 times too long. Some people have used Darrel's interrupt routines for the service interval. Here is one link:

http://www.picbasic.co.uk/forum/show...5302#post45302

[davids]

is theare any other way to make it working because i cannot to it working with this way....!!!!