Hello,

I'm pretty new to PIC programming and I'm having some problems. I'm using
PicBasic, CodeDesigner Lite, a Warp 13
programmer, and a Serial LCD display in my project which works but not like
I'd like it to!
Here is my code:

'Ultrasonic Range Finder

Symbol TRISB = 134
Symbol PortB = 6
Poke TRISB,8
Loop:
 SerOut 2, T2400, (12)    'Send out Clear Screen
 Low 0        'Make sure Initiate is low
 Pause 10       'Wait 10 MS
 High 0            'Now Initiate Range Finder
 PulsIn 3, 0, W3      'Receive "Echo", put data in W3
 Pause 150       'Wait .15 second
 Low 0        'Bring initiate low
 LET W2 = W3 * 10     'W3 times 10 equals W2
 IF W2 = 0 Then Loop     'If no data in W2, go to loop
 LET W0 = W2 / 178     'Divide W2 by 178, put answer in W0
 Pause 10       'Wait a bit
 SerOut 2, T2400, (12,2,#W0)   'Send what's in W0 out to display******I've
also tried this (12,1,2,#B0,46,#B1)

 Pause 800       'Wait .8 second
 GoTo Loop       'Do it all again
 End

What I'd like this Ultrasonic Range Finder to do is to display in large
numbers, the feet and tenths of a foot on the LCD display. All I've been
able to get it to display is the feet and tenths of a foot like this, 79,
where the 7 is feet, and 9 is the tenths of a foot. I'd like to have a
decimal point between the feet and tenths of a foot on the LCD display. The
maximum range should be about 26'.

I've tried manipulation of B0 and B1, but really don't understand enough
about this to have been, or to be successful.

Any assistance any of you could be with this project, will be greatly
appreciated!

Here are some of the LCD codes.



ASCII ValueControl CodeASCII NameFunction
0ctrl-@NULNull; ignored prior to buffer
1ctrl-ASOHSend cursor home (position 0, upper left corner)
2ctrl-BSTXBegin big characters
3ctrl-CETXEnd big characters
4ctrl-DETOTurn off cursor
5ctrl-EENQTurn on underline cursor
6ctrl-FACKTurn on block cursor
7ctrl-GBELBeep buzzer on J1, pins 7&8
8ctrl-HBSBackspace
9ctrl-IHTABTab to next multiple-of-4 column
10ctrl-JLFSmart linefeed; move down one row
11ctrl-KVTABVertical tab; move up one row
12ctrl-LFFFormfeed; clear the screen
13ctrl-MCRCarriage return; move to beginning of next line
14ctrl-NSOTurn backlight on
15ctrl-OSITurn backlight off
16ctrl-PDLEAccept cursor-position data
17ctrl-QDC1Ignored
18ctrl-RDC2Accept right-alignment data
19-26 --All ignored
27ctrl-[ESC Escape; begin special instruction

Thanks.
L. Barta




_______________________________________________
http://www.piclist.com PIC/SX FAQ & list archive
View/change your membership options at
http://mailman.mit.edu/mailman/listinfo/piclist