nvm, i got the program right..
INCLUDE modedefs.bas Serial communication mode definition file
DEFINE OSC 20 Oscillator speed is set to 20MHz
TRISB = %11111111
TRISC = %10000000 RC.7 => USART RX pin set to input
PortC = 0
SPBRG = 129 Baud Rate = 9600
Variable definition
===================
count01 VAR BYTE variable to store TXREG content
TXSTA = %00100100 Enable transmit and asynchronous mode
RCSTA = %10010000 Enable serial port and continuous receive
mainloop:
IF (PortB.7 = 1) THEN
FOR count01 = 1 TO 30
PAUSE 2000
TXREG = count01 + $30 Transmit Data
HIGH PortD.2
PAUSE 2000
LOW PortD.2
Next
ENDIF
GOTO mainloop
END
The result displayed in Hyperterminal:
ASCII Character: 1, 2, 3, 4, 5, 6, 7, 8, 9, :, ; < until the 30th ASCII Character
referred to page 203, PIC MCU With PICBasic [Chuck Hellebuyck]
How do i convert the ASCII characters i received via Visal Basic 2010's serial port into integers?
I used tiktakx's vb coding http://tiktakx.wordpress.com/2010/11...10/#comment-97
Bookmarks