Pic18f2550 HID Keyboard

[amenoera]

Dear Demon ,

You Are Right , But Am In Work Now And i Cant Provide thE Full Code From Here , Anyway I Will Provide It ASAP ,And Thanks Again I Remember Last Time You Helped Me .

Dear Charlie ,

Can You Explain In Details Please , I Will Be Thanks If Code Is Provided , Many Thanks For Your Reply .

[amenoera]

Here Is My Code & USB Description attached .
all i need is when i make portb pin 7 high then pic send char ";" .


DEFINE OSC 48
@ __CONFIG _CONFIG1L, _PLLDIV_5_1L & _CPUDIV_OSC1_PLL2_1L & _USBDIV_2_1L
@ __CONFIG _CONFIG1H, _FOSC_HSPLL_HS_1H
@ __CONFIG _CONFIG2H, _WDT_OFF_2H & _WDTPS_512_2H
@ __CONFIG _CONFIG3H, _PBADEN_OFF_3H & _MCLRE_OFF_3H
@ __CONFIG _CONFIG4L, _LVP_OFF_4L &_XINST_OFF_4L

USBBufferSizeMax con 32 ' maximum buffer size
USBBufferSizeTX con 32 ' input
USBBufferSizeRX con 32 ' output

' the USB buffer...
USBBuffer Var Byte[USBBufferSizeMax]
USBBufferCount Var Byte

' ************************************************** **********
' * main program loop - remember, you must keep the USB *
' * connection alive with a call to USBService every couple *
' * of milliseconds or so... *
' ************************************************** **********
usbinit ' initialise USB...
ProgramStart:

if portb.7 = 1 then
USBBuffer[0] = 0
USBBuffer[1] = 0
USBBuffer[2] = $33 ; 33 = ";"
USBBuffer[3] = 0
USBBuffer[4] = 0
USBBuffer[5] = 0
USBBuffer[6] = 0
USBBuffer[7] = 0
ENDIF





gosub DoUSBIn
gosub DoUSBOut
goto ProgramStart

' ************************************************** **********
' * receive data from the USB bus *
' ************************************************** **********
DoUSBIn:
USBBufferCount = USBBufferSizeRX ' RX buffer size
USBService ' keep connection alive
USBIn 1, USBBuffer, USBBufferCount, DoUSBIn ' read data, if available
return

' ************************************************** **********
' * wait for USB interface to attach *
' ************************************************** **********
DoUSBOut:
USBBufferCount = USBBufferSizeTX ' TX buffer size
USBService ' keep connection alive
USBOut 1, USBBuffer, USBBufferCount, DoUSBOut ' if bus available, transmit data
return

[Demon]

if portb.7 = 1 then
USBBuffer[0] = 0
USBBuffer[1] = 0
USBBuffer[2] = $33 ; 33 = ";"
USBBuffer[3] = 0
USBBuffer[4] = 0
USBBuffer[5] = 0
USBBuffer[6] = 0
USBBuffer[7] = 0
ELSE
....clear buffer...
ENDIF

[Demon]

Just noticed something else, only send when you have to:

if portb.7 = 1 then
USBBuffer[0] = 0
USBBuffer[1] = 0
USBBuffer[2] = $33 ; 33 = ";"
USBBuffer[3] = 0
USBBuffer[4] = 0
USBBuffer[5] = 0
USBBuffer[6] = 0
USBBuffer[7] = 0
gosub DoUSBOut
ELSE
....clear buffer...
ENDIF

Robert

[ruijc]

Hi there,

Is that your entire code?

Shouldn't be also something like: " include KBDDESC.ASM " in the main code ?

Regards
Rui

[andywpg]

Wouldn't it shorten things to do this:

if portb.7 = 1 then
    FOR i = 0 to 7
         IF i = 2 then
             USBBuffer[i] = $33 ; 33=";"
         ELSE
             USBBuffer[i] = 0
         ENDIF
    NEXT i
    gosub DoUSBOut
ELSE
....clear buffer...
ENDIF

[amenoera]

Many Thanks , Its Working Now , And The Code Is Down , But Any One Knows How Can I Include Multimedia Keys (Play,Stopn, Mute . . .etc) , i know i must add it to usb descreptor but i never knows how , i read alot without luck .


DEFINE OSC 48
@ __CONFIG _CONFIG1L, _PLLDIV_5_1L & _CPUDIV_OSC1_PLL2_1L & _USBDIV_2_1L
@ __CONFIG _CONFIG1H, _FOSC_HSPLL_HS_1H
@ __CONFIG _CONFIG2H, _WDT_OFF_2H & _WDTPS_512_2H
@ __CONFIG _CONFIG3H, _PBADEN_OFF_3H & _MCLRE_OFF_3H
@ __CONFIG _CONFIG4L, _LVP_OFF_4L &_XINST_OFF_4L
INCLUDE "DT_INTS-18.bas"
ASM
INT_LIST macro
INT_Handler USB_INT, _DoUSBService, ASM, yes
endm
INT_CREATE
endasm
USBBufferSizeTX con 8
USBBufferSizeRX con 8
USBBufferCount Var Byte
USBBufferIn var byte[8]
USBBufferOut Var Byte[8]
DataToSend var byte[8]
asm
SendUSB macro array
variable i=0
while i<8
MOVE?BB (array+i),(_USBBufferOut+i)
i+=1
endw
L?CALL _DoUSBOut
endm
endasm
SwHwInit:
GOSUB DoUSBinit:
Start:
clear
if portb.7 = 1 then
DATATOSEND[1] = 0
DATATOSEND[2] = 0
DATATOSEND[3] = $51 ; if i change it to be "80" >> volume up, it didnt work .
DATATOSEND[4] = 0
DATATOSEND[5] = 0
DATATOSEND[6] = 0
DATATOSEND[7] = 0
gosub DoUSBOut
else
clear
DATATOSEND[1] = 0
DATATOSEND[2] = 0
DATATOSEND[3] = 0
DATATOSEND[4] = 0
DATATOSEND[5] = 0
DATATOSEND[6] = 0
DATATOSEND[7] = 0
endif
@ SendUSB _DataToSend
gosub dousbin
goto start
DoUSBIn:
@ INT_DISABLE USB_INT
USBBufferCount = USBBufferSizeRX
USBService
USBIn 1, USBBufferin, USBBufferCount, Timeout
Timeout:
@ INT_ENABLE USB_INT

DoUSBOut:
@ INT_DISABLE USB_INT
WaitPC:
USBBufferCount = USBBufferSizeTX
USBService
USBOut 1, USBBufferOut, USBBufferCount, Waitpc
@ INT_ENABLE USB_INT
return
usb_device_state var byte EXT
CONFIGURED_STATE CON EXT
DoUSBinit:
pause 500
usbinit
repeat
usbservice
until usb_device_state = CONFIGURED_STATE
@ INT_ENABLE USB_INT
return
DoUSBService:
usbservice
@ INT_RETURN

[Demon]

By the way, your buffer is 32 bytes long but you only use the first 8 bytes.


Robert

[amenoera]

I Told Them , Demon Is My Hero , I Will Try Today And Feedback , Many Thanks .