Revisa el help del mismo programa... manual más completo no hay (en ingles).
$FE, $C0 | Move cursor to beginning of second line
$FE, $94 | Move cursor to beginning of third line
$FE, $D4 | Move cursor to beginning of fourth lineLo veo complicado (hacer todo el protocolo de control) ya que el PBP no tiene instrucciones para trabajar con GLCDs. Mi sugerencia es que no se casen con uno. Por ejemplo pueden usar el Proton IDE que si tiene instrucciones para GLCDs.
.
DoUSBOut:
USBBufferCount = USBBufferSizeTX
usbservice
USBOut 1, USBBuffer, USBBufferCount, DoUSBOut ' if bus available, transmit data
return
DoUSBIn:
USBBufferCount = USBBufferSizeRX ' RX buffer size
USBService ' keep connection alive
USBIn 1, USBBuffer, USBBufferCount, DoUSBIn ' read data, if available
returnUSBBufferSizeMax con 8 ' maximum buffer size
USBBufferSizeTX con 8 ' input
USBBufferSizeRX con 8 ' output
' the USB buffer...
USBBuffer Var Byte[USBBufferSizeMax]
USBBufferCount Var Byte
dato var byte
usbinit ' initialise USB...
ProgramStart:
PORTB=USBBuffer[7]
gosub dousbin
goto ProgramStart
escaneo:
if portd.0=1 then
USBBuffer[0]=1
USBBuffer[1]=1
USBBuffer[2]=2
DoUSBOut:
USBBufferCount = USBBufferSizeTX
usbservice
USBOut 1, USBBuffer, USBBufferCount, DoUSBOut ' if bus available, transmit data
return
DoUSBIn:
USBBufferCount = USBBufferSizeRX ' RX buffer size
USBService ' keep connection alive
USBIn 1, USBBuffer, USBBufferCount, DoUSBIn ' read data, if available
return
endif
if USBBuffer[1]==1 then
high portb.0
high portb.1
endif
goto escaneo' select MCU and clock speed
Device = 18F4550
Xtal = 48
' descriptor file, located in \inc\usb_18 - a copy
' is located in the same folder as this file
USB_Descriptor = "USBProjectDESC.inc"
' USB Buffer...
Symbol USBBufferSizeMax = 8
Symbol USBBufferSizeTX = 8
Symbol USBBufferSizeRX = 8
Dim USBBuffer[USBBufferSizeMax] As Byte
' some useful flags...
Dim PP0 As Byte System ' USBPOLL status return
Symbol CARRY_FLAG = STATUS.0 ' high if microcontroller does not have control over the buffer
Symbol ATTACHED_STATE = 6 ' is USB attached
' AQUI DEBES CREAR TUS VARIABLES Y ALIAS PARA TU PROGRAMA <====
' ************************************************************
' * main program loop - remember, you must keep the USB *
' * connection alive with a call to USBPoll, USBIn or USBOut *
' * every couple of milliseconds or so *
' ************************************************************
GoSub AttachToUSB
ProgramLoop:
GoSub DoUSBIn
GoSub DoUSBOut
GoTo ProgramLoop
' ************************************************************
' * receive data from the USB bus *
' ************************************************************
DoUSBIn:
USBIn 1, USBBuffer, USBBufferSizeRX, DoUSBIn
'AQUI DEBEN IR TU PRCESO DE IDA A LA PC <====
Return
' ************************************************************
' * transmit data *
' ************************************************************
DoUSBOut:
USBOut 1, USBBuffer, USBBufferSizeTX, DoUSBOut
'AQUI DEBE IR EL PROCESO DEL UC AL PC <====
Return
' ************************************************************
' * wait for USB interface to attach *
' ************************************************************
AttachToUSB:
Repeat
USBPoll
Until PP0 = ATTACHED_STATE
Return
