PDA

View Full Version : Hex code for Rufbot needed!



HerrBall
- 4th June 2010, 13:27
Lost here and could use some help!
I am trying to build this project.

http://www.rentron.com/ruf-bot.htm

I have gone out and bought all the parts and now I find I made a big mistake.
The code on the page was done in Picbasic, DUMMY me only has Picbasic Pro, and that will NOT work.
I really can't afford to go and buy Picbasic just for this one project.
Anyone willing to do a .Hex file of the project for me.
I would be glad to PayPal some funds!

Herr Ball

mackrackit
- 4th June 2010, 14:13
The code on the web site should work fine with PBP.
What problems are you having?

Acetronics2
- 4th June 2010, 15:00
Hi, Dave

a PbP license missing ,to compile, might be ???

Alain

mackrackit
- 4th June 2010, 15:40
Hi, Dave

a PbP license missing ,to compile, might be ???

Alain
Maybe?
The OP said

me only has Picbasic Pro
???

Herr Ball,
Where did you get Pic Basic Pro?

HerrBall
- 4th June 2010, 15:42
No the code will not work with Picbasic Pro. I have contacted Rentron and they told me the code is for Picbasic and will not work with Picbasic Pro.
I have contacted the author about the .hex file and have never heard back.
I'm lost here and was just hoping to find someone to help.


Melabs.com

mackrackit
- 4th June 2010, 16:04
That is weird..
I only have PBP and just tried it. "to many errors"

So we need to do a re-write.

Add this to the top of your code


INCLUDE "modedefs.bas"
B0 var BYTE
B1 VAR BYTE


Not sure why "yf" and the other labels are causing errors, Re-name the labels.

mackrackit
- 4th June 2010, 16:13
Not sure if this will work but it compiles with PBP.
square brackets in the serout command are used in place of ()
This is the TX code. Should be able to do the same with the RX..


INCLUDE "modedefs.bas"
B0 var BYTE
B1 VAR BYTE

trisb = 134
trisa = 133
portb = 6
porta = 5
low 1
input 0
input 2

start:
pot 0,50,B0

pot 2,50,B1
B0 = B0 * 5
B1 = B1 * 5
y:
if B0 < 100 then yf
if B0 > 150 then yb

x:
if B1 < 100 then xr
if B1 > 150 then xl
serout 1,n9600,[5]
goto start

yf:
serout 1,n9600,[2]
goto start

yb:
serout 1,n9600,[1]
goto start

xl:
serout 1,n9600,[3]
goto start

xr:
serout 1,n9600,[4]
goto start

end

HerrBall
- 4th June 2010, 16:31
If it works or not I will see but as you say at least now it compiles :)
I will do the same for the RX code and then program the pics.
Will let you know later(maybe a couple days) if it works or not.

Thank you for your help ( working or not ).
I'm grateful :)

Herr Ball

mackrackit
- 4th June 2010, 16:35
If it does not work let us know, we will figure it out.