USBDemo, something to learn USB a little bit

[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

[skimask]

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

Well of course it won't work.
PortB is a Visual Basic Byte variable (or whatever you want) which gets stored in a Byte Array and sent over the USB to the PIC as a Byte variable stored in a Byte array, which is then stored in the PIC as a Byte variable.

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

[Philtkp]

Can this be done using an array of bytes?

[skimask]

Can this be done using an array of bytes?

You ARE sending out an array of bytes...8 of them, unless you've messed with the HID-Maker.
You have to send out more bytes or figure out a way to 'encode' those bytes you've already got to do more...