USBDemo, something to learn USB a little bit

[skimask]

Other than the ASM changes, "DEFINE OSC 20" and fuse changes

Which are rather large changes considering you have to have the right freq for the USB to run right in the first place.

PBP version is 2.46

Don't know if it'll fix your problem or not, but there is a 2.46 patch, and a few updates for $25 that gets you up to PBP 2.50A. A few fixes for USB and PIC18F types. Might help, might not.

Is there a setting in MELABS programmer for the internal pull ups?

Internal pullups on Port B are described in the datasheet for the particular PIC.

Also...I dont have a .BAL file...*.bal search turned up nothing.. GR....

And you won't unless you're using PBP 2.50A.

[sirvo]

Hello..

I'm using 18F2550 and USB is working very well... I've been trying to increase the buffer size from 8 to 16 but it do not work.

On Pic's code, I've only changed this:

BufferSize      con 16
' BufferSize      con 8

On VB's code, this:

Private Const BufferInSize = 16
' Private Const BufferInSize = 8

Any idea of what is the problem?

Thanks!!

[Darrel Taylor]

The IN/OUT "Report" length is usually set in one of the easyHID dialogs.
Or it can be changed manually in the Descriptor file.

If you re-run easyHID for the same project, it will wipe out any changes you've made. So create a new project, set everything the way you want it in easyHID, then just copy the descriptor file to your existing project.

hth,

[sirvo]

Done! Perfect Darrel!

Thanks a lot!

[Philtkp]

Hello,

First, Mister e This is an outstanding demo. Was able to get running right out of the box on a PIC18f4550.

I've been trying to add an additonal 8 LEDs to the demo but keep getting overrun errors. Which I'm sure it's caused on the VB side. I'm almost sure the PIC side is ok as i can turn on the original 8 LED or the ones added to PORTD. Can even turn on 4 on PORTB and 4 on PORTD. I'm just unable to get all 16 working at the same time.

I think my problem is in this part of the VB side code. I was hoping someone could point me back in the proper direction

Private Sub Check1_Click(index As Integer)
    '
    '   Convert PORTB check box to decimal value before sending it
    '   to USB bus.  Result is store in BufferOut(1)
    '
    Dim LoopCheck, PORTB As Byte
    PORTB = 0
    For LoopCheck = 0 to 15                                               ' 0 To 7
        PORTB = PORTB + (Check1(LoopCheck).Value * (2 ^ LoopCheck))
        Next
    BufferOut(1) = PORTB
    WriteSomeData
End Sub

Any assistance would be greatly appricated

[skimask]

Private Sub Check1_Click(index As Integer)
'
' Convert PORTB check box to decimal value before sending it
' to USB bus. Result is store in BufferOut(1)
'
Dim LoopCheck, PORTB As Byte
PORTB = 0
For LoopCheck = 0 to 15 ' 0 To 7
PORTB = PORTB + (Check1(LoopCheck).Value * (2 ^ LoopCheck))
Next
BufferOut(1) = PORTB
WriteSomeData
End Sub

PortB is a byte value. A byte runs 0-255...
2 ^ 15 = 32,768 which is greater than 255!

[Philtkp]

PortB is a byte value. A byte runs 0-255...
2 ^ 15 = 32,768 which is greater than 255!

I tried changing the variable, PortB to an Integer and Long with no positive results