HOLA LO UNICO QUE TEE PUEDO DAR SON ESTOS EJEMPLOS
EJEMPLO1:
" PicBasic Pro program to send and receive from the hardware serial port
" Define LOADER_USED to allow use of the boot loader.
" This will not affect normal program operation.
Define LOADER_USED 1
" Define LCD registers and bits
Define LCD_DREG PORTD
Define LCD_DBIT 4
Define LCD_RSREG PORTE
Define LCD_RSBIT 0
Define LCD_EREG PORTE
Define LCD_EBIT 1
char var byte " Storage for serial character
col var byte " Keypad column
row var byte " Keypad row
key var byte " Key value
lastkey var byte " Last key storage
ADCON1 = 7 " Set PORTA and PORTE to digital
Low PORTE.2 " LCD R/W line low (W)
Pause 500 " Wait for LCD to startup
OPTION_REG.7 = 0 " Enable PORTB pullups
key = 0 " Initialize vars
lastkey = 0
Lcdout $fe, 1 " Initialize and clear display
loop: Hserin 1, tlabel, [char] " Get a char from serial port
Lcdout char " Send char to display
tlabel: Gosub getkey " Get a keypress if any
If (key != 0) and (key != lastkey) Then
Hserout [key] " Send key out serial port
Endif
lastkey = key " Save last key value
Goto loop " Do it all over again
" Subroutine to get a key from keypad
getkey:
key = 0 " Preset to no key
For col = 0 to 3 " 4 columns in keypad
PORTB = 0 " All output pins low
TRISB = (dcd col) ^ $ff " Set one column pin to output
row = PORTB >> 4 " Read row
If row != $f Then gotkey " If any keydown, exit
Next col
Return " No key pressed
gotkey: " Change row and column to ASCII key number
key = (col * 4) + (ncd (row ^ $f)) + "0"
Return " Subroutine over
End
EJEEMPLO2:
" SERIN & SEROUT Commands
"
" Upper case serial filter.
Include "modedefs.bas" " Include serial modes
SO con 0 " Define serial out pin
SI con 1 " Define serial in pin
B0 var byte
loop: Serin SI,N2400,B0 " B0 = input character
If (B0 < "a"
or (B0 > "z"
Then print " If lower case, convert to upper
B0 = B0 - $20
print: Serout SO,N2400,[B0] " Send character
Goto loop " Forever
TODAVIA NO HICE NADA CON ESAS INSTRUCCIONES, PERO CON LOS EJEMPLOS SE APRENDEE MUCHO NO??
ESPERO QUE TE SIRVA.
DOS COSITAS:_A)COMO SE PONE UN ARCHIVO PARA NO MANDAARLO ASI,CON LOS ``Fichero adjunto´´ NO PUEDO.
_B)COMO PONGO UNA FOTO ALADO DELL MENSAJE.
